Surge

Gallery

Source Code

   1 REM \2A\0E\40\4E\06\00\C9
   2 REM     SURGE  %2%K
   3 REM    BY TIM ROGERS
   4 CLS 
   5 LET H=1
  10 POKE 16517,78
  15 LET S=H-H
  20 LET U=10
  25 LET T=20
  30 LET P=U
  40 PRINT AT U,P;" "
  50 LET P=P-H/H*(P>H/H)
  60 LET P=P+(INKEY$<>"")*2*(P<T)
  65 SCROLL 
  70 PRINT AT U,P;
  80 IF USR 16514=CODE "% " THEN LET U=U-H/H
  90 IF U=H-H THEN GOTO 200
 100 PRINT AT U,P;"V"
 110 PRINT AT CODE ")",RND*T;"% % % % % "
 120 LET S=S+U
 130 GOTO 40
 200 IF H<S THEN LET H=S
 210 PRINT AT U,P;"SURGE",H,S
 220 PAUSE 4E4
 230 GOTO 15
 250 STOP 
 260 REM RAND USR 14336
 270 REM SAVE "SURGE.B1"
 275 SAVE "1021%8"
 280 RUN