Jump to content
arfink

Retro-Rocket 08 demo

Recommended Posts

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)

 

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

Share this post


Link to post
Share on other sites

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.)

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×