ZX81 Listing for pd.p


ZX81 program listing for **POLE DODGE**SLR/1984*

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17678
VARS  : 18471
E-LINE: 18472
STKBOT: 18472
STKEND: 18472


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **POLE DODGE**SLR/1984*
  20 LET X=10
  30 LET SP=16
  40 LET X$=" ö¹¶ "
  50 LET Y$=" óóó "
  60 DIM P$(4,4)
  70 LET P$(1)="¶"
  80 LET P$(2)="÷±"
  90 LET P$(3)="÷¶±"
 100 LET P$(4)="÷ó³±"
 110 PRINT "LENGTH?"
 120 INPUT LE
 130 PRINT "POLES?"
 140 INPUT PO
 150 DIM P(4)
 155 CLS
 160 FOR A=1 TO LE
 170 LET P(1)=INT (20*RND+1)
 180 LET P(2)=INT (20*RND+1)
 190 LET P(3)=INT (20*RND+1)
 200 LET P(4)=INT (20*RND+1)
 210 IF P(1)=P(2) OR P(1)=P(3)
OR P(1)=P(4) OR P(2)=P(3) OR P(
2)=P(4) OR P(3)=P(4) THEN GOTO 1
70
 220 FOR M=6 TO 9
 230 FOR R=1 TO PO
 240 FOR G=10-M TO M*2
 250 PRINT AT G,P(R);P$(M-5,1
TO M-5)
 260 NEXT G
 270 NEXT R
 280 FOR F=1 TO SP
 290 PRINT AT 20,X;X$;AT 21,X;Y$
 300 LET X=X-(INKEY$="Z" AND X>0
)+(INKEY$="." AND X<25)
 310 NEXT F
 320 NEXT M
 330 FOR R=1 TO PO
 340 IF (P(R))<=(X+1) AND (P(R)+
3)>=(X+1) THEN GOTO 400
 345 IF (P(R))<=(X+3) AND (P(R)+
3)>=(X+3) THEN GOTO 400
 350 NEXT R
 360 LET SP=SP-1 AND SP>4
 370 CLS
 380 NEXT A
 390 GOTO 450
 400 CLS
 410 GOTO 460
 420 PRINT "HORAY+++YOU GOT THRO
UGH"
 460 PRINT ,,"PRESS ANY KEY TO P
LAY AGAIN..."
 470 PAUSE 4E4
 480 RUN
 500 SAVE "PD"
 510 RUN