1 REM DUCKSHOOT - IMPROVEMENTS BY - JIM GREEN AND HIS C-128, JAGGY TU. 6 POKE59468,12:POKE53280,5:POKE53281,15:PRINT"[147][152]":IFKK=0THENGOSUB 571:GOTO16 11 GOSUB 576 16 D=0:B=0:TL=5:W=0:MK=0 21 PRINT"[147][152]GOOD HUNTING"; 26 N=17*RND(1):IFB<>0THENGOSUB 341 31 IFW=TLORD=20GOTO 191 36 IFN>12THENIN=-.6*RND(1):GOTO46 41 IN=.6*RND(1) 46 GOSUB 256:T=1:C=4:F=0 51 FORM=0TO36STEP2:N=N+INC:C$=STR$(W) 56 PRINT"SHOTS=";MID$(C$,2,2) 61 FORI=1TON:PRINT"";:NEXT 66 FORI=1TOM:PRINT"";:NEXT 71 IFMK=1GOTO 376 76 ONT+2GOSUB171,161,161 81 GOSUB 181 86 IFF=0THENGETA$:IFA$=""GOTO111 91 IFA$<>" "THENPRINT"[150] MUST BE TO FIRE[152]";:GOTO111 96 IFF=0THENW=W+1 101 F=1 106 GOSUB 271:C=C+2 111 T=-T:NEXTM:D=D+1 116 IFF=0GOTO131 121 IFC>22THENGOSUB 686:GOTO131 126 GOSUB 271:C=C+2:GOTO121 131 IFW>4GOTO26 136 IFW=1ANDB=0THENPRINT"[150]HARD LUCK [152]" 141 IFW=2ANDB=0THENPRINT"[158]MISSED AGAIN! [152]" 146 IFW=3ANDB=0THENPRINT"YOU NEED MORE PRACTICE! [152]" 151 IFW=4ANDB=0THENPRINT"YOU'RE A TOTAL WASHOUT! " 156 GOTO26 161 PRINT" [154][169][223][146] [157][157][157][157][152][192][192][192][192]"; 166 RETURN 171 PRINT"[152][192][192][192][192][157][157][157][154][223][169] [152]"; 176 RETURN 181 FORK=1TO50:NEXT 186 PRINT"[157][157][157][157] [145][157][157][157][157] ";:RETURN 191 PRINT"[147][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"; 196 PRINT" ";Z$;" HAS BAGGED";B;"OUT OF A 201 [153]" POSSIBLE MAXIMUM OF";TL;"DUCKS":[141] 666 206 [153]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"; 211 [153]" TYPE Y TO TRY AGAIN OR N 216 PRINT" TO TERMINATE THE PROGRAM 221 [153]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"; 226 JG[178]14:[141] 416 231 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]231 236 [141] 666 241 [139]A$[178]"Y"[167][156]:KK[178]1:[137]6 251 JG[178]4:[141] 481:[153]" WALTER SAYS 'BYE'!!":[128] 256 [153]""; 261 [153]"DEFNEWTAB(WAITNEW"; 266 [142] 271 [139]C[177]22[167][142] 276 [153]""; 281 [153]""; 286 [153]""; 291 [129]G[178]1[164]C[169]2:[153]"ONON";:[130] 296 [153]" CMDONONSYS(null)PRINT#"; 301 [139]C[178]22[167][153]"CMD "; 306 [139]M[179][177]18[167][142] 311 IV[178][181](24[171]N) 316 [139]C[179]IV[171]1[176]C[177]IV[170]1[167][142] 321 [153]"CMD "; 326 B[178]B[170]1 331 [141] 341 336 MK[178]1:[137]56 341 [153]"YOU HAVE BAGGED";B; 346 [153]"CMD DUCK "; 351 [139]B[177]1[167][153]"CMDCMDCMDS "; 356 [139]B[178]1[167][153]"BEGINNERS LUCK! 361 IFB>1THENPRINT" " 366 FORBI=1TO6:GOSUB 666:NEXT 371 RETURN 376 FORI=1TO(24-N)/2 381 GOSUB161 386 FORK=1TO30:NEXT 391 PRINT"[145][157][157][157][157] [157][157][157][157] [157][157][157][157]"; 396 NEXTI 401 GOSUB161 406 MK=0:JG=8:GOSUB 411:GOTO26 411 PRINT"[156]WALTER IS RETRIEVING YOUR DUCK"; 416 POKE646,JG:PRINT""; 421 FORJ=1TO16 426 PRINT" [223][146][157][157][157][157][223][146]  [146][157][157][157][157][157] [146] [157][157][157][157][157][223][146] [223][146] "; 431 FORI=1TO50:NEXT 436 GOSUB 456 441 PRINT" [169][146][157][157][157][157][157][157][169][146] [169][215][223][146][157][157][157][157][157][157] [146][223][169][157][157][157][157][157][157][157][169][146] [169][146] "; 446 FORI=1TO50:NEXT 451 GOSUB 456:NEXTJ:GOSUB 466:RETURN 456 PRINT"[157][157][157][157][157][157][157] [145][157][157] [145][157][157] [145][157]"; 461 RETURN 466 PRINT" [157][157][157][157][157][157] [157][157][157][157][157][157] [157][157][157][157][157][157] "; 471 PRINT" "; 476 RETURN 481 PRINT"[147]"; 486 PRINT" [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]" 491 PRINT" [221][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][221][146]" 496 PRINT" [221][221][146] [221][221][146]" 501 PRINT" [221][221][146] [221][221][146]" 506 PRINT" [221][221][146] [150] [146] [169] [223][146]  [146] [154][221][221][146]" 511 PRINT" [221][221][146] [150] [146]  [146]  [146]  [146] [158][209] [154][221][221][146]" 516 PRINT" [221][221][146] [150] [146]  [146] [223] [223][146]  [146] [158][209][150][215][158][209] [154][221][221][146]" 521 PRINT" [221][221][146] [150] [146]  [146]  [146]  [146] [158][209] [154][221][221][146]" 526 PRINT" [221][221][146] [150] [146][161] [223] [146][169] [183][146] [154][221][221][146]" 531 PRINT" [221][221][146] [221][221][146]" 536 PRINT" [221][221][146] QS! ALLIANCE [154][221][221][146]" 541 PRINT" [221][221][146] DUCK--SHOOT [154][221][221][146]" 546 PRINT" [221][221][146] [221][221][146]" 551 PRINT" [221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][221][146]" 556 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]":GOSUB 666 561 FORI=1TO1000:NEXT:GOSUB 416:GOSUB 666 566 RETURN 571 JG=12:GOSUB 481 576 PRINT"[147][152][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"; 581 PRINT" YOU ARE CORDIALLY INVITED TO 586 [153]" JOIN QS! ALLIANCE'S DUCK-SHOOT 591 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"; 596 Z$="JAGGY" 601 PRINT" THIS DUCKSHOOTERS NAME IS- 606 [153]" TYPE NAME & PRESS ."; 611 [133]Z$ 616 [153]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"; 621 [153]" THE OBJECT IS TO SHOOT AS MANY 626 PRINT" DUCKS AS POSSIBLE. YOUR RIFLE 631 [153]" IS LOCATED AT THE BOTTOM CENTER 636 PRINT" OF THE SCREEN AND IS FIRED BY 641 [153]" PRESSING ON THE KEYBOARD. 646 PRINT" TYPE L TO LOCATE DUCKS.":GOSUB 666 651 GETA$:IFA$=""GOTO 651 656 GOSUB 666 661 RETURN 666 REM ***BIPP*** 671 S=54272 676 POKES,168:POKES+1,97:POKES+2,0:POKES+3,8:POKES+5,34:POKES+6,34:POKES+24,15 681 POKES+4,65:FORQ=1TO50:NEXT:POKES+4,0:RETURN 686 REM RAZZY 691 S=54272:POKES+24,15:POKES+23,0:POKES+6,240:POKES+1,4:POKES+5,0:POKES+4,33 696 FORZ= 824TO512STEP-8:POKES+1,Z/256:POKES,ZAND255:NEXT:POKES+4,0:RETURN