PROG : 16509
D-FILE: 17678
VARS : 18471
E-LINE: 18472
STKBOT: 18472
STKEND: 18472
9999 means line number
PRINT means treat as KEYWORD P
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