• Updated 2023-07-12: Hello, Guest! Welcome back, and be sure to check out this follow-up post about our outage a week or so ago.

Retro-Rocket 08 demo

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)

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
 

arfink

Well-known member
Here is a hint- don't type it in. Transfer it over with a null modem cable. I built one, it works wonders.

EDIT: that's why I wanted to be able to post with an attachment- the .BA file would be much easier to transfer. Also- there are special encoded characters in that code which did not transfer to ASCII correctly. (graphics code chars.)

 

~tl

68kMLA Admin Emeritus
Here is a hint- don't type it in. Transfer it over with a null modem cable. I built one, it works wonders.
EDIT: that's why I wanted to be able to post with an attachment- the .BA file would be much easier to transfer. Also- there are special encoded characters in that code which did not transfer to ASCII correctly. (graphics code chars.)
The forum doesn't actually have an attachment function, but the wiki does, so that might be your best bet. If you zip/gz the file first then you should be able to upload it straight here:

http://68kmla.org/wiki/Special:Upload

 

arfink

Well-known member
Hey, just so everyone knows, I have a video on my blog of this demo running. For those who don't have Tandy's, of course. Tandy owners have no excuse for not running it on real hardware. :D

 
Top