Mole

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Mole

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 

People

No people associated with this content.

Scroll to Top