Choose number of dots to eat without getting eaten.
PROG : 16509
D-FILE: 17388
VARS : 18181
E-LINE: 18182
STKBOT: 18182
STKEND: 18182
9999 means line number
PRINT means treat as KEYWORD P
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