A = 11 B = 22 C = 1 TRY = 0 MONKEY = 1 CLS SCREEN 13 BORDER$ = "C15 BD60BR16R100L230U120R230D120L230UR" LEVEL1$ = _ "C4 R228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228 BD37 C12 BR5U5L5R20D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R13BL228 BU5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R3BL228 BU5R5D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R13BL228BU5 R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R3 BL228BU5 R5D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R13BL228BU5 R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R3BL228BU5R5D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R15D5U5R13BU C8L228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228UR228UL228 C149R228L228 BR50G24E24BR50G24E24NR50G24E24BR50G24E24BR50G24E24BR27 BL228 BRBD60 BR100 C8 U20R50D20LU19L48D19RU18R47D18U18L24D18RU18RD18U18BD RC11 D17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17 BL45 U17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17RU17RD17 BU61" _ DRAW (BORDER$) DRAW (LEVEL1$) COLOR 10 LOCATE 1, 1 PRINT " -----------------------" LOCATE 2, 1 PRINT " M O N K E Y S H O O T" LOCATE 3, 1 PRINT " -----------------------" MONKEY$ = "R5L5DLR7DR1L9DR2BR2R2BR2RDL9RDR7DR5L16DR16DRL18DR3BR2R8BR2R3DL3BL2L8BL2L3DR3BR2R8BR2R3DL3BL2L3BL2L3BL2L3DR3BR2R3BR2R3BR2R3DL3BL2L3BL2L3BL2L3BDBRR2BR2R3BR2R3BR2R2BDBL4L3BL2L3DR3BR2R3 BU17BL7" DRAW "BL40BU18" DRAW "C6X" + VARPTR$(MONKEY$) GAMEPLAY: LOCATE 23, 1: PRINT " " LOCATE 23, 1 DO: LOOP WHILE INKEY$ = "": SLEEP 1 INPUT " ANGLE (1 TO 180)"; C$ IF C$ = "QUIT" THEN GOTO ENDING IF C$ = "65" THEN GOSUB SHOT: GOTO GAMEPLAY2 IF TRY = 3 THEN GOTO ROCK TRY = TRY + 1 GOSUB SHOTPOS GOTO GAMEPLAY SHOT: FOR N = 37 TO 60 STEP 5: SOUND N, 1: NEXT DRAW "C0X" + VARPTR$(MONKEY$) LOCATE 23, 1 PRINT " M O N K E Y H I T ! ! !" SLEEP 1 SLEEP 1 SLEEP 1 LOCATE 23, 1 PRINT " " RETURN GAMEPLAY2: TRY = 0 DRAW "C0X" + VARPTR$(MONKEY$) DRAW "BR20" DRAW "C6X" + VARPTR$(MONKEY$) GPLAY2: LOCATE 23, 1 PRINT " " LOCATE 23, 1 DO: LOOP WHILE INKEY$ = "": SLEEP 1 INPUT " ANGLE (1 TO 180)"; C$ IF C$ = "QUIT" THEN GOTO ENDING IF C$ = "80" THEN GOSUB SHOT: GOTO GAMEPLAY3 IF TRY = 3 THEN GOTO ROCK TRY = TRY + 1 GOSUB SHOTPOS GOTO GPLAY2 GAMEPLAY3: TRY = 0 DRAW "C0X" + VARPTR$(MONKEY$) DRAW "BL70": DRAW "C6X" + VARPTR$(MONKEY$) GPLAY3: LOCATE 23, 1: PRINT " " LOCATE 23, 1 DO: LOOP WHILE INKEY$ = "": SLEEP 1 INPUT " ANGLE (1 TO 180)"; C$ IF C$ = "QUIT" THEN GOTO ENDING IF C$ = "35" THEN GOSUB SHOT: GOTO GAMEPLAY4 IF TRY = 3 THEN GOTO ROCK TRY = TRY + 1 GOSUB SHOTPOS GOTO GPLAY3 GAMEPLAY4: TRY = 0 DRAW "C0X" + VARPTR$(MONKEY$) DRAW "BR50": DRAW "C6X" + VARPTR$(MONKEY$) GPLAY4: LOCATE 23, 1: PRINT " " LOCATE 23, 1 DO: LOOP WHILE INKEY$ = "": SLEEP 1 INPUT " ANGLE (1 TO 180)"; C$ IF C$ = "QUIT" THEN GOTO ENDING IF C$ = "50" THEN GOSUB SHOT: GOTO GAMEPLAY5 IF TRY = 3 THEN GOTO ROCK TRY = TRY + 1 GOSUB SHOTPOS GOTO GPLAY4 GAMEPLAY5: TRY = 0 DRAW "C0X" + VARPTR$(MONKEY$) DRAW "BL25": DRAW "C6X" + VARPTR$(MONKEY$) GPLAY5: LOCATE 23, 1: PRINT " " LOCATE 23, 1 DO: LOOP WHILE INKEY$ = "": SLEEP 1 INPUT " ANGLE (1 TO 180)"; C$ IF C$ = "QUIT" THEN GOTO ENDING IF C$ = "45" THEN GOSUB SHOT: GOTO ENDING IF TRY = 3 THEN GOTO ROCK TRY = TRY + 1 GOSUB SHOTPOS GOTO GPLAY5 END ROCK: LOCATE 23, 1: PRINT " " FOR EXPAND = 1 TO 60 CIRCLE (165, 105), C, 6 C = C + 1 NEXT SLEEP 5 GOTO ENDING SHOTPOS: IF C$ = "0" THEN RETURN IF C$ < "10" AND C$ > "0" THEN LET C$ = "10" IF C$ > "10" AND C$ < "20" THEN LET C$ = "20" IF C$ = "10" THEN LOCATE 12, 7: PRINT "+": SLEEP 1: LOCATE 12, 7: PRINT " " IF C$ = "20" OR C$ = "21" OR C$ = "22" OR C$ = "23" OR C$ = "24" OR C$ = "25" OR C$ = "26" OR C$ = "27" OR C$ = "28" OR C$ = "29" THEN LOCATE 12, 9: PRINT "+": SLEEP 1: LOCATE 12, 9: PRINT " " IF C$ = "30" OR C$ = "31" OR C$ = "32" OR C$ = "33" OR C$ = "34" OR C$ = "35" OR C$ = "36" OR C$ = "37" OR C$ = "38" OR C$ = "39" THEN LOCATE 12, 11: PRINT "+": SLEEP 1: LOCATE 12, 11: PRINT " " IF C$ = "40" OR C$ = "41" OR C$ = "42" OR C$ = "43" OR C$ = "44" OR C$ = "45" OR C$ = "46" OR C$ = "47" OR C$ = "48" OR C$ = "49" THEN LOCATE 12, 13: PRINT "+": SLEEP 1: LOCATE 12, 13: PRINT " " IF C$ = "50" OR C$ = "51" OR C$ = "52" OR C$ = "53" OR C$ = "55" OR C$ = "56" OR C$ = "57" OR C$ = "58" OR C$ = "59" THEN LOCATE 12, 15: PRINT "+": SLEEP 1: LOCATE 12, 15: PRINT " " IF C$ = "60" OR C$ = "61" OR C$ = "62" OR C$ = "63" OR C$ = "64" OR C$ = "65" OR C$ = "66" OR C$ = "67" OR C$ = "68" OR C$ = "69" THEN LOCATE 12, 17: PRINT "+": SLEEP 1: LOCATE 12, 17: PRINT " " IF C$ = "70" OR C$ = "71" OR C$ = "72" OR C$ = "73" OR C$ = "74" OR C$ = "75" OR C$ = "76" OR C$ = "77" OR C$ = "78" OR C$ = "79" THEN LOCATE 12, 19: PRINT "+": SLEEP 1: LOCATE 12, 19: PRINT " " IF C$ = "80" OR C$ = "81" OR C$ = "82" OR C$ = "83" OR C$ = "84" OR C$ = "85" OR C$ = "86" OR C$ = "87" OR C$ = "88" OR C$ = "89" THEN LOCATE 12, 21: PRINT "+": SLEEP 1: LOCATE 12, 21: PRINT " " IF C$ = "90" OR C$ = "91" OR C$ = "92" OR C$ = "93" OR C$ = "94" OR C$ = "95" OR C$ = "96" OR C$ = "97" OR C$ = "98" OR C$ = "99" THEN LOCATE 12, 23: PRINT "+": SLEEP 1: LOCATE 12, 23: PRINT " " IF C$ = "100" OR C$ = "101" OR C$ = "102" OR C$ = "103" OR C$ = "104" OR C$ = "105" OR C$ = "106" OR C$ = "107" OR C$ = "108" OR C$ = "109" THEN LOCATE 12, 25: PRINT "+": SLEEP 1: LOCATE 12, 25: PRINT " " IF C$ = "110" OR C$ = "111" OR C$ = "112" OR C$ = "113" OR C$ = "114" OR C$ = "115" OR C$ = "116" OR C$ = "117" OR C$ = "118" OR C$ = "119" THEN LOCATE 12, 27: PRINT "+": SLEEP 1: LOCATE 12, 27: PRINT " " IF C$ = "120" OR C$ = "121" OR C$ = "123" OR C$ = "124" OR C$ = "125" OR C$ = "126" OR C$ = "127" OR C$ = "128" OR C$ = "129" THEN LOCATE 12, 29: PRINT "+": SLEEP 1: LOCATE 12, 29: PRINT " " IF C$ = "130" OR C$ = "131" OR C$ = "132" OR C$ = "133" OR C$ = "134" OR C$ = "135" OR C$ = "136" OR C$ = "137" OR C$ = "138" OR C$ = "139" THEN LOCATE 12, 31: PRINT "+": SLEEP 1: LOCATE 12, 31: PRINT " " IF C$ = "140" OR C$ = "141" OR C$ = "142" OR C$ = "143" OR C$ = "144" OR C$ = "145" OR C$ = "146" OR C$ = "147" OR C$ = "148" OR C$ = "149" THEN LOCATE 12, 33: PRINT "+": SLEEP 1: LOCATE 12, 33: PRINT " " IF C$ = "150" OR C$ = "151" OR C$ = "152" OR C$ = "153" OR C$ = "154" OR C$ = "155" OR C$ = "156" OR C$ = "157" OR C$ = "158" OR C$ = "159" THEN LOCATE 12, 33: PRINT "+": SLEEP 1: LOCATE 12, 33: PRINT " " RETURN ENDING: CLS : END