2 FOR A=1 TO 10
3 PRINT"\::     \::"
4 NEXT A
5 LET P=3
6 LET S=0
7 LET A=INT(RND*5+1)
8 GOSUB 20
9 GOSUB 24
10 IF R=128 THEN GOTO 30
11 IF RND<.7 THEN GOTO 8
12 FOR A=1 TO 4
13 SCROLL
14 PRINT AT 9,0;"\::     \::"
15 IF RND<.3 AND A>1 AND A<4 THEN PRINT AT 9,P;"\::"
16 GOSUB 24
17 IF R=128 THEN GOTO 30
18 NEXT A
19 GOTO 7
20 SCROLL
21 PRINT AT 9,0;"\::\::\::\::\::\::\::"
22 PRINT AT 9,A;" "
23 RETURN
24 PRINT AT 3,P;
25 LET R=PEEK(PEEK 16398+256*PEEK 16399)
26 PRINT "+"
27 LET S=S+1
28 LET P=P+(INKEY$="M")-(INKEY$="N")
29 RETURN
30 PRINT AT 4,P;S