Unknown Game

Gallery

Source Code

   1 LET N=0
   2 LET B=501
   3 FOR Z=0 TO 6
   4 PRINT AT Z,0;"%=%=%=%=%=%=%=%=%=%=%=%=%=%=%=%="
   5 NEXT Z
   6 PRINT "% % % % % % % % % % % % % % % % ","\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~\~~"
   7 LET P=8
   8 LET V=PEEK 16396+256*PEEK 16397
  10 LET B=B-1
  20 IF B=0 THEN GOTO 200
  30 LET P=P-1+(INKEY$="")*2-(P=15)+(P=0)
  40 POKE 120+V+P,151
  50 FOR Z=120+V+P TO V STEP -17
  70 IF PEEK Z=148 THEN GOTO 110
  80 POKE Z,151
  81 POKE Z,128
  90 NEXT Z
 100 GOTO 10
 110 POKE Z,120
 120 LET N=N+1
 130 IF INT (N/112)<>N/112 THEN GOTO 10
 140 GOTO 3
 200 PRINT "YOUR SCORE ";N
 205 PAUSE 50000
 210 CLS 
 215 RUN 
 220 CLEAR