ZX81 Listing for pmv.p


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

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18246
VARS  : 19039
E-LINE: 19040
STKBOT: 19040
STKEND: 19040


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

   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