White Hole

Source Code

   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