PROG : 16509
D-FILE: 18246
VARS : 19039
E-LINE: 19040
STKBOT: 19040
STKEND: 19040
9999 means line number
PRINT means treat as KEYWORD P
1 REM *PAC-MAN VIDEO*SLR/1983
2 LET C=0
5 LET B=0
7 CLS
10 PRINT TAB 10;"PAC-MAN VIDEO
"
20 PRINT "SEE ADVANCED PAC-MAN
FOR SYMBLS,"
30 PRINT "PAC-MAN VIDEO IS THE
REVISED VERSION OF ADVANCED
PAC-MAN."
40 PRINT "TO PLAY,USE THE M KE
Y TO TURN."
50 PRINT "GAME IS OVER IF YOU
EAT 50 DOTS."
60 PRINT "EXTRA POINTS FOR BON
US SYMBLES."
70 PAUSE 4E4
80 PRINT AT 21,15;"-X-"
82 SCROLL
83 PAUSE 10
90 LET A=INT (RND*20+1)
100 IF A=1 THEN GOTO 210
110 IF A=20 THEN GOTO 240
120 IF A=10 OR A=20 THEN GOTO 2
40
130 IF A=5 THEN GOTO 290
140 IF A=15 THEN GOTO 370
150 IF A=18 THEN GOTO 400
160 IF A=3 OR A=13 THEN GOTO 43
0
170 PRINT AT 21,15;"-X-"
180 LET B=B+1
190 IF B>50 THEN GOTO 490
200 PAUSE 50
204 SCROLL
208 GOTO 90
210 PRINT AT 21,16;"="
215 SCROLL
220 PRINT AT 21,15;"---"
225 SCROLL
230 GOTO 490
240 PRINT AT 21,16;"¸"
250 GOTO 215
260 PRINT 21,16;"?"
270 LET C=C+10
280 GOTO 200
290 PRINT AT 21,16;":"
295 SCROLL
300 LET C=C+2
310 LET D=INT (RND*20)
320 IF D>=10 THEN GOTO 340
330 GOTO 80
340 PRINT AT 21,16;"()"
350 LET C=C+D+10
360 GOTO 200
370 PRINT AT 21,16;"*"
380 LET C=C+C+10
390 GOTO 200
400 PRINT AT 21,16;";"
410 LET C=C+20
420 GOTO 200
430 PRINT AT 21,15;"-X- TURN OF
F ."
440 INPUT A$
450 IF A$="M" THEN GOTO 470
460 GOTO 180
470 PRINT AT 21,15;" . TURN OF
F -X-"
480 GOTO 180
490 LET F=B+C
500 SCROLL
510 PRINT AT 20,0;"SCORE: DOTS
PRIZES TOTAL ";B;
TAB 16;C;TAB 25;F
520 PRINT AT 10,0;"PRESS";AT 11
,0;"ANY KEY";AT 12,0;"TO PLAY"
530 LET M=SIN PI*SIN PI*SIN PI
540 IF INKEY$<>"" THEN RUN
550 PRINT AT 10,0;"PRESS";AT 11
,0;"ANY KEY";AT 12,0;"TO PLAY"
560 LET M=SIN PI*SIN PI*SIN PI
570 IF INKEY$<>"" THEN RUN
580 GOTO 520
600 SAVE "PMV"
610 RUN