Source Code
1 LET H=0
5 LET P=5
10 FOR I=1 TO 8
20 PRINT TAB 15;"\ :"
30 NEXT I
35 FOR I=1 TO 50
40 LET A=INT (P+RND*5-2)
41 IF A<0 OR A>14 THEN LET A=INT (RND*15)
45 PRINT AT 8,A;"**";AT 8,15;"\ :";AT 3,P;" "
50 SCROLL
70 IF INKEY$="Z" AND P<>0 THEN LET P=P-1
80 IF INKEY$="C" AND P<>14 THEN LET P=P+1
101 LET P1=PEEK 16396+256*PEEK 16397
102 IF PEEK (P1+1+P+3*17)=23 THEN GOTO 400
105 PRINT AT 3,P;"%Y"
106 PAUSE 15
110 NEXT I
120 PRINT H
130 STOP
400 PRINT AT 2,0;"******BANG******"
410 PAUSE 50
430 LET H=H+1
450 GOTO 40
460 CLEAR
470 SAVE "1031%0"
480 RUN
