Flying Geese
It's time to don your tweeds, grease up your shotgun and head for the marshes. The geese are back from the north and the freezer is empty. Just blast away with your shooter, use the COPY key to fire and notch up a handsome tally.
10 REM FLYING GEESE
20 REM @ MICHAEL BEWS
30 MODE I:BORDER 1:INK 0,1:INK 1,24:INK 2,18:INK 3,6:PAPER 0:PEN 1
40 GOTO 340
50 REM SHOOT ROUTINE
60 FOR X=0 TO FR:D(X)=ET—X+SGN(0—TW*INT( RND*TW)):LOCATE 6(X)-0+1,H(X)+1:PRINT" ";:FOR Z=0 TO FR:F=—F:LOCATE 6(X)+1,D(X) +1:PRINT" "0$(TH—F);:NEXT Z
70 IF INKEY(9)<>0 THEN GOTO 120
BO SOUND 1,1000,1:SOUND 1,1500,1:SOUND ,800,1
90 LOCATE TH+1,8I+1:PRINT CHR$(235);:SH= SH+0:LOCATE SX+1,1:PRINT SH;:FOR Z=1 TO 5:NEXT:LOCATE TH+1,SI+1:PRINT " ";:IF G( X)=EV OR G(X)=TV THEN FG=I:8=8+0:LOCATE 6(X)+1,D(X)+1:PRINT" ";:LOCATE TN,1:PR INT B;:G(X)=0—TW:H(X)=0
100 IF F6=0 THEN GOTO 120 ELSE FG=0
110 FOR Y=D(X) TO NI STEP TW:LOCATE F0+1 ,Y—TW+1:PRINT" ";:LOCATE F0+1,Y-0+1:PRIN T" ";:LOCATE F0+1,Y+1:PRINT CHR$(236);:L OCATE F0+1,Y+0+1:PRINT CHR$(237);:NEXT Y :LOCATE F0+1,NI-0+1:PRINT" ";:LOCATE F0+ 1,NI+1:PRINT" ";:LOCATE F0+1,NI+0+1:PRIN T"
120 H(X)=D(X):G(X)=G(X)+TW:IF G(X)>TN TH EN LOCATE 6(X)-0+1,H(X)+1:PRINT" ";:G(X )=0
130 NEXT X:IF SH>99 THEN 240
140 GOTO 60
150 FOR X=I TO 4:H(X)=1:9(X)=X*5-4:NEXT