Source Code
1 REM "MOLE"
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
40 STOP
50 SAVE "1016%4"
60 LIST