ZX81 Listing for go.p


ZX81 program listing for **GOLF**SLR/1983*******

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17735
VARS  : 18528
E-LINE: 18529
STKBOT: 18529
STKEND: 18529


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **GOLF**SLR/1983*******
  11 LET H=0
  12 FOR J=1 TO 18
  20 LET A=INT (62*RND+1)
  30 LET C=INT (62*RND+1)
  40 LET B=INT (42*RND+1)
  50 LET D=INT (42*RND+1)
  51 IF A=C AND B=D THEN GOTO 20
  60 GOSUB 320
  70 GOSUB 260
  80 LET XD=(V*-1)+15
  90 LET A1=A+INT (COS ((PI/6)*X
D)*S)
 100 LET B1=B+INT (SIN ((PI/6)*X
D)*S)
 110 LET ERROR=(A1<1 OR A1>62
OR B1<1 OR B1>42)
 120 IF NOT ERROR THEN GOTO 160
 130 LET A1=(A1<1)+(62 AND A1>62
)+(A1 AND (A1>=1 AND A1<=62))
 140 LET B1=(B1<1)+(42 AND B1>2)
+(B1 AND (B1>=1 AND B1<=42))
 150 LET H=H+1
 160 UNPLOT A,B
 170 LET A=A1
 180 LET B=B1
 190 PLOT A,B
 200 IF A<>C OR B<>D THEN GOTO 7
0
 210 NEXT J
 220 PRINT AT 10,10;"YOU DID IT"
 230 PRINT TAB 10;"HITS: ";H
 240 PRINT AT 10,10;"YOU DID IT"
 250 GOTO 220
 260 INPUT S
 270 LET S=INT S
 280 INPUT V
 290 IF V>12 OR V<0 THEN GOTO 28
0
 310 RETURN
 320 CLS
 321 PRINT "HOLE ";J
 322 PRINT ,,,,"FIRST INPUT STRE
NGTH,THEN ENTER DIRECTION (0-12 
LIKE A CLOCK,   DECIMALS ALLOWED
). FLASHING DOT IS HOLE."
 323 PRINT ,,,,"PRESS ENTER TO B
EGIN PLAY***"
 324 PAUSE 4E4
 325 CLS
 329 FOR X=0 TO 63
 330 PLOT X,0
 340 PLOT X,43
 350 NEXT X
 360 FOR Y=0 TO 43
 370 PLOT 0,Y
 380 PLOT 63,Y
 390 NEXT Y
 400 PLOT A,B
 410 FOR Y=1 TO 50
 420 UNPLOT C,D
 430 PLOT C,D
 440 NEXT Y
 450 RETURN
 500 SAVE "GO"
 510 RUN