ZX81 Listing for pm.p


ZX81 program listing for **PAC-MAN**SLR/1983****

**PAC-MAN**SLR/1983**** (pm.p)

Choose number of dots to eat without getting eaten.


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17388
VARS  : 18181
E-LINE: 18182
STKBOT: 18182
STKEND: 18182


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **PAC-MAN**SLR/1983****
  20 PRINT TAB 12;"PAC-MAN";AT 3
,0;"YOU ARE PAC-MAN. YOU MAY EAT
 1- 10 DOTS PER TURN. IF YOU EAT
 A  CERTAIN AMOUNT, YOU MAY FIND
    SOMETHIN.         GOOD LUCK
****"
  30 LET S=0
  40 FOR A=1 TO 20
  50 PRINT AT 21,0;"ENTER IN DOT
S EATEN..."
  60 INPUT A$
  70 IF VAL A$<1 OR VAL A$>10
THEN GOTO 60
  80 LET S=S+VAL A$
  90 PRINT AT 21,0;"            
          "
 100 PRINT AT 10,0;"YOU ATE ";A$
;" DOTS. SCORE:";S;"          "
 110 IF VAL A$=INT (RND*10+1)
THEN GOTO 160
 120 NEXT A
 130 PRINT AT 10,0;"YOU COMPLETE
D A BOARD, BONUS****"
 140 LET S=S+100
 150 GOTO 40
 160 IF VAL A$>5 THEN GOTO 200
 170 PRINT AT 10,0;"A CHERRY, BO
NUS POINTS...       "
 180 LET S=S+INT (RND*5+10)
 190 GOTO 110
 200 PRINT AT 10,0;"YOU DIED...S
CORE:";S;"          ";AT 11,0;"A
 GHOST ATE YOU...TOO BAD******"
 210 PAUSE 4E4
 220 CLS
 230 RUN
 300 SAVE "PM"
 310 RUN