Jump to content

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

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

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

Link to post
Share on other sites
  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...