Golf

Source Code

   10 REM golf
   20 BORDER 6: CLS 
   30 LET t=0
   40 PRINT AT 0,12;"G O L F"
   50 FOR y=1 TO 9
   60 LET j=INT (RND*15)
   70 LET s=0
   80 PRINT AT 18,0; INK 4;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\:: \::\::\::\::";AT 17,j;"O"
   90 PRINT AT 8,22;"HOLE ";y
  100 PRINT AT 2,0;"Enter Power of Swing (1 to 100)."
  110 PRINT AT 4,6;"TWO STROKE PENALTY";AT 5,7;"IF YOU OVERSHOOT"
  120 INPUT a
  130 IF a>100 THEN LET a=100
  140 PRINT AT 2,0;"                                "
  150 PRINT AT 17,j;" "
  160 LET j=j+INT (a/(6+RND))
  170 LET s=s+1
  180 PRINT AT 8,4;"STROKES  ";s
  190 IF j<27 THEN GO TO 80
  200 IF j>27 THEN GO TO 230
  210 IF j=27 THEN PRINT AT 17,27;"O";AT 17,27;" ";AT 18,27;"O"
  220 GO SUB 300
  230 LET s=s+2
  240 PRINT AT 8,13;s
  250 PRINT AT 4,17;"PENALTY": PAUSE 120
  260 GO SUB 300
  270 PAUSE 120
  280 CLS 
  290 RUN 
  300 LET t=t+s
  310 PRINT AT 20,7;"TOTAL STROKES: ";t
  320 NEXT y
  330 PRINT AT 21,6;"Another Round?(y/n)"
  340 IF INKEY$="y" THEN RUN 
  350 GO TO 330
 9999 SAVE "golf" LINE 1: BEEP 1,32