White Hole
1 REM Y%.\.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN
2 LET A=0
5 FAST
10 RAND USR 16514
15 SLOW
20 LET U=1
30 LET X=2*PI
40 LET Y=PI+X
45 FOR I=1 TO 100
50 PRINT AT Y,X;"."
60 SCROLL
65 PRINT "%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%.%."
70 LET X=X+(INKEY$="0" AND X<30)-(INKEY$="1" AND X>PI)
80 LET U=U-1
90 IF RND>.7 THEN GOTO 50
100 PRINT AT RND*15+5,RND*30;CHR$ 8;AT RND*15+5,RND*30;CHR$ 8;AT RND*15+5,RND*30;CHR$ 8;AT RND*15+5,RND*30;CHR$ 8
110 PRINT AT Y,X;
120 IF PEEK (PEEK 16398+256*PEEK 16399)=8 THEN GOTO 130
125 NEXT I
126 GOTO 500
130 FOR N=1 TO 10
140 PRINT AT Y-1,X-1;"\:'\''\':";AT Y,X-1;"\: .\ :";AT Y+1,X-1;"\:.\..\.:"
150 PRINT AT Y-1,X-1;"\ .\..\. ";AT Y,X-1;"\ :%.\: ";AT Y+1,X-1;"\ '\''\' "
160 NEXT N
166 LET U=U+100
170 PRINT AT 6,3;" PRESENT LOAD = ";U;" TONS ";AT 4,2;" ";100-I;" MILLION MILES LEFT TO GO "
180 PAUSE 200
190 NEXT I
500 IF U>A THEN LET A=U
510 PRINT AT 11,4;" FINAL = ";U;" BEST = ";A;" "
520 PAUSE 400
530 CLS
540 GOTO 5
998 SAVE "WHITE-HOL%E"
999 RUN
People
No people associated with this content.