1 REM SHOOT.ECB 2 REM ...THIS PROGRAM INVOLVES A SHARP EYE AND TIMING,NO LUCK WHATSOEVER. 3 REM ...MY TEACHER SAYS IT IS. ITS AS GOOD OR BETTER THAN THE GAMEGAMES 4 REM ...IN GAME,FUN INVOLVING CERTAIN AMOUNTS OF SKILL. INVOLVES ONLY SKILL 5 PRINT "&K&J&J": REM ...SHOOT...from MERITSS : H6L0042 2-21-78 6 PRINT "WELCOME TO QUICK DRAW RUSH'S SHOOTIN' GALLERY,BETTER BE GOOD" 7 PRINT "INSTRUCTIONS ? ( Y or N ) ---=>"; 8 RESTORE 9 LET S=0,G=0: LET C=41: REM ...Length of Q$ to hit bullseye 10 INPUT (1,0)X$ 11 DIM Q$(60) 12 IF LEN(X$)=0 THEN LET X$="N" 15 IF X$="Y" THEN 60 20 IF X$="N" THEN 61 40 PRINT "ENTER YES OR NO ONLY" 50 GOTO 10 60 GOTO 500 61 READ Z: PAUSE 20 62 DATA 1,1,2,2,1,3,1,2,2,2,5,1,2,2,3,7,1,2,2,4,9,1,2,2,5 63 IF Z=1 THEN 100 64 IF Z=3 THEN 102 65 IF Z=5 THEN 104 66 IF Z=7 THEN 106 67 IF Z=9 THEN 108 68 GOTO 98 70 PRINT TAB(31);"((([[[<<>>]]])))" 71 GOTO 90 72 LET H=1 73 GOTO 70 74 LET H=2 75 GOTO 70 90 FOR X=1 TO 12: PRINT : NEXT X 95 GOTO 110 96 PRINT "1ST PLAYER" 97 GOTO 72 98 PRINT "2ND PLAYER" 99 GOTO 74 100 PRINT "ROUND#1" 101 GOTO 96 102 PRINT "ROUND#2" 103 GOTO 96 104 PRINT "ROUND#3" 105 GOTO 96 106 PRINT "ROUND#4" 107 GOTO 96 108 PRINT "ROUND#5" 109 GOTO 96 110 INPUT Q$ 112 FOR Z=13 TO 1 STEP -1 114 CURSOR Z,LEN(Q$) 115 PRINT CHR(7); 116 CURSOR Z+1,LEN(Q$) 117 PRINT " "; 118 NEXT Z 119 CURSOR 14,1 120 IF LEN(Q$)=C THEN 230 130 IF LEN(Q$)=C-1 THEN 250 140 IF LEN(Q$)=C+1 THEN 250 150 IF LEN(Q$)=C-2 THEN 270 160 IF LEN(Q$)=C+2 THEN 270 170 IF LEN(Q$)=C-3 THEN 270 180 IF LEN(Q$)=C+3 THEN 290 190 IF LEN(Q$)=C-4 THEN 270 200 IF LEN(Q$)=C+4 THEN 310 210 PRINT "YOURE WAY OFF ONLY '0' POINTS" 211 IF H=1 THEN 213 212 IF H=2 THEN 215 213 LET V=0 214 GOTO 330 215 LET T=0 220 GOTO 330 230 GOTO 231 231 PRINT 232 PRINT "WOW, Pretty slick on the draw! Way to go! 1000 pts." 233 IF H=1 THEN 235 234 IF H=2 THEN 237 235 LET V=1000 236 GOTO 330 237 LET T=1000 240 GOTO 330 250 PRINT "ALMOST A BULLSEYE, YOU MISSED BY THIS MUCH-; 500 POINTS" 251 IF H=1 THEN 253 252 IF H=2 THEN 255 253 LET V=500 254 GOTO 330 255 LET T=500 260 GOTO 330 270 PRINT "OFF JUST A SMIDGE, ONLY 250 POINTS" 271 IF H=1 THEN 273 272 IF H=2 THEN 275 273 LET V=250 274 GOTO 330 275 LET T=250 280 GOTO 330 290 PRINT "OOOOOOOH GETTIN RUSTY EH? 100 POINTS" 291 IF H=1 THEN 293 292 IF H=2 THEN 295 293 LET V=100 294 GOTO 330 295 LET T=100 300 GOTO 330 310 PRINT "SERIOUSLY NOW WHATSYERFACE, YOU COULDN'T HIT THE BROAD SIDE" 311 PRINT "OF A BARN WITH TIMING LIKE THAT. 50 POINTS FINKLESTINKS" 312 IF H=1 THEN 314 313 IF H=2 THEN 316 314 LET V=50 315 GOTO 330 316 LET T=50 330 READ X 341 IF X=11 THEN 480 350 IF INT(X/2)=X/2 THEN 380 360 IF INT(X/2)<>X/2 THEN 61 380 LET S=S+V 381 LET G=G+T 382 PRINT "1ST PLAYERS TOTAL SCORE:";S 383 PRINT "2ND PLAYERS TOTAL SCORE:";G 451 READ X 453 IF X=1 THEN 459 454 IF X=2 THEN 461 455 IF X=3 THEN 463 456 IF X=4 THEN 465 457 IF X=5 THEN 467 459 PRINT "END OF 1ST ROUND" 460 GOTO 61 461 PRINT "END OF 2ND ROUND" 462 GOTO 61 463 PRINT "END OF 3RD ROUND" 464 GOTO 61 465 PRINT "END OF 4TH ROUND" 466 GOTO 61 467 PRINT "END OF 5TH ROUND" 468 GOTO 480 470 GOTO 61 480 PRINT "COMPARE LAST SET OF TOTALS;HIGHEST TOTALER WINS!!!" 490 GOTO 770 500 PRINT "THIS IS A SIMULATION OF A SHOOTIN GALLERY WHERE YOU" 510 PRINT "SHOOT MOST ACCURATELY TO SCORE HIGHEST POINTS." 520 PRINT "TO SHOOT YOU PRESS THE REPEAT(REPT)KEY AND THE NUMBER" 530 PRINT "ONE (1) KEY AT THE SAME TIME,LETTING THE TYPE HEAD GLIDE" 540 PRINT "OVER THE PAPER UNTIL(IN YOUR OPINION) THE TYPE HEAD" 550 PRINT "TIP IS LINED UP WITH THE BULLSEYE OR ASTERIX(*)THEN" 560 PRINT "IMMEDIATLY RELEASE BOTH KEYS AND HIT RETURN." 570 PRINT " SCORE KEEPING" 580 PRINT " --------------" 581 PRINT 582 INPUT (1,0)"<#> Enter any letter to see more ---=>",I$ 583 PRINT "&K" 590 PRINT "AFTER EACH SHOT THE COMPUTER WILL RATE YOURE AIM ANDTIMING" 600 PRINT " BULLSEYE 1000 pts" 610 PRINT "1 MARK OFF 500 pts" 620 PRINT "2 MARKS OFF 250 POINTS" 630 PRINT "3 MARKS OFF 100 POINTS" 640 PRINT "4 MARKS OFF 50 pts" 650 PRINT "ANY MORE THAN THAT YOU GET '0'" 670 PRINT "GOOD LUCK PARD-NERD,AND OH YES ONLY TWO PLYRS FOR 5 ROUNDS" 680 PRINT "IF NECESSARY PLAY BOTH PLAYERS" 685 INPUT (1,0)"<#> Enter any letter to see more ---=>",I$ 690 GOTO 61 770 PRINT "RATINGS" 780 PRINT "MARKSMAN SHARPSHOOTER FAIR TO MIDDLIN' SHAKY KNEES" 781 PRINT 782 PRINT 783 PRINT 790 PRINT "4000-5000 2500-4000 1000-2500 0-1000" 791 IF S>4499 THEN 851 792 IF S>3999 THEN 849 793 IF S>2499 THEN 860 794 IF S>999 THEN 870 796 IF S<1000 THEN 880 798 IF G>4499 THEN 922 799 IF G>3999 THEN 920 800 IF G>2499 THEN 930 810 IF G>999 THEN 940 815 IF G<1000 THEN 960 843 PRINT "YOU ARE A ACE MARKSMAN AND A GOOD SHOT PLAYER #2" 844 GOTO 1000 849 PRINT "YOU ARE A MARKSMAN PLAYER #1" 850 GOTO 798 851 PRINT "YOU ARE A ACE MARKSMAN AND A GOOD SHAT PLAYER#1" 852 GOTO 798 860 PRINT "YOU ARE A SHARPSHOOTER PLAYER #1" 865 GOTO 798 870 PRINT "YOUR Shootn' WAS IN MY OPINION FAIR TO MIDDLIN' PLAYER 1" 875 GOTO 798 880 PRINT "EITHER YOU GOT SHAKY KNEES OR YOU ARE BLIND PLAYER#1" 885 GOTO 798 920 PRINT "YOU ARE A MARKSMAN PLAYER #2" 921 GOTO 1000 922 PRINT "YOU ARE A ACE MARKSMAN AND A GOOD SHOT PLAYER #2" 923 GOTO 1000 925 GOTO 1000 930 PRINT "YOU ARE A SHARPSHOOTER PLAYER #2" 935 GOTO 1000 940 PRINT "IN MY OPINION YOURE SHOOTIN' WAS FAIR YO MIDDLIN' PLAYER#2" 945 GOTO 1000 960 PRINT "EITHER YOU GOT SHAKY KNEES OR YOURE BLIND PLAYER #2" 970 GOTO 1000 1000 IF S>G THEN 1050 1010 IF S",F$ 2001 IF F$="Y" THEN 5 2002 IF F$="N" THEN 2009 2003 PRINT "ENTER YES OR NO ONLY, YOU SHOULD KNOW THAT FOOL" 2004 RESTORE 2005 GOTO 2000 2009 END