arfink
Well-known member
Alright, the main reason for this post is to have a place to host the files/code for my Retro-rocket '08 demo for the Tandy 102.
If a sysop could give me permission to post the .BA file that would be great, in the mean time here is my ASCII code, which can be transmitted to the Tandy 102 and converted.
If you have any problems please contact me! arfink(at)stthomas-dot(edu)
If a sysop could give me permission to post the .BA file that would be great, in the mean time here is my ASCII code, which can be transmitted to the Tandy 102 and converted.
If you have any problems please contact me! arfink(at)stthomas-dot(edu)
Code:
1 REM **
2 REM ** RETRO-ROCKET
3 REM ** A DEMO FOR RETRO CHALLENGE 08
4 REM ** WRITTEN BY ARFINK
5 REM **
6 REM ** TYPE 'RUN' TO START THE DEMO
7 REM **
10 CLS
15 DIM A$(3)
16 LET Q=1
20 PRINT:PRINT:PRINT " RETRO ROCKET 08"
30 PRINT:PRINT " PRESS ENTER";
40 INPUT F$
50 CLS
60 PRINT:PRINT:PRINT
70 PRINT TAB(20) "çìèèèèèèèèèè"
80 PRINT TAB(20) " õÿretro-08ÿïï"
90 PRINT TAB(20) "èîçççççççççç"
100 REM -BEGIN SCROLL LOOP
110 READ A$(1):READ A$(2):READ A$(3)
115 FOR M=1 TO 3
120 FOR X=1 TO LEN(A$(M))
125 IF (X+20)>=LEN(A$(M)) AND M<3 THEN NEXT M
130 LET P$=MID$(A$(M),X,20)
140 PRINT@ 160, P$
141 FOR D=1 TO 20:NEXT D
142 IF Q=1 THEN PRINT@ 180, ":*"
143 IF Q=2 THEN PRINT@ 180, "*:"
144 IF Q=2 THEN Q=1:GOTO 150
145 IF Q=1 THEN Q=2:GOTO 150
150 NEXT X
160 NEXT M
170 FOR DD=1 TO 80:NEXT DD
180 GOSUB 2000
1000 DATA "-------------------------Welcome contestants of the 2008 RetroChallenge! Greets go out to all the contestants in this years challenge--------- Digitalrampage-------- martinws-------- Pukka-------- Oldbitcollector-------- Thurstan--------"
1110 DATA "-- Thurstan-------- Doctor Clu-------- arfink-------- Oliver-------- Mycroft-------- MacMan-------- equant-------- PrintStar-------- wgoodf-------- Luddite--------"
1120 DATA "--- Luddite-------- Good work so far, keep it up! Best of luck to all the contestants!-"
1900 END
2000 REM ** WIPE SUB
2100 FOR S=0 TO 279
2110 PRINT@ S," "
2200 NEXT S
2550 CLS
2600 RETURN