DEMON-KILLER (FOR THE APPLE II+, CIRCA 1984-1987) 5 HOME :S = 0:G = 0 10 VTAB 12: HTAB 14: INVERSE : PRINT "DEMON-KILLER": NORMAL 20 PRINT " PROGRAMMED BY WADE CLARKE" 30 PRINT " INSTRUCTIONS?";: GET Z$ 40 IF Z$ = "Y" THEN GOTO 50 45 GOTO 75 50 HOME : PRINT "RULES:" 55 PRINT "IN DEMON-KILLER,A DEMON HAS BEEN SEEN" 60 PRINT "IN A NEARBY FOREST.YOUR JOB IS TO" 65 PRINT "KILL THE DEMON.THERE ARE NO CLUES ON" 70 PRINT "HOW TO DO THIS,IT IS UP TO YOU!": PRINT "GOOD LUCK!";: GET Z$ 75 GOTO 100 100 HOME : PRINT "YOU ARE STANDING AT THE ENTRANCE OF THE" 110 PRINT "FOREST.TRAILS GO N,S,E AND W.THERE IS" 120 PRINT "AN OLD SIGN POINTING W." 130 PRINT "COMMAND";: INPUT A$ 140 IF A$ = "E" THEN GOTO 200 145 IF A$ = "W" THEN GOTO 300 150 IF A$ = "N" THEN GOTO 500 155 IF A$ = "S" THEN GOTO 1000 160 IF A$ = "READ SIGN" OR A$ = "READ WRITING" THEN GOTO 170 161 IF A$ = "LOOK SIGN" THEN GOTO 175 165 PRINT "I DON'T UNDERSTAND.";: GET Z$: GOTO 100 170 PRINT "THE SIGN SAYS'SHED'.";: GET Z$: GOTO 100 175 PRINT "THE SIGN HAS WRITING ON IT.";: GET Z$: GOTO 100 200 HOME : PRINT "YOU ARE IN A DARK FOREST.TRAILS GO W" 210 PRINT "AND N." 220 PRINT "COMMAND";: INPUT A$ 230 IF A$ = "W" THEN GOTO 100 240 IF A$ = "N" THEN GOTO 600 250 IF A$ = "E" THEN GOTO 265 255 IF A$ = "S" THEN GOTO 265 260 PRINT "I DON'T UNDERSTAND.";: GET Z$: GOTO 200 265 PRINT "YOU CAN'T GO THAT WAY.";: GET Z$: GOTO 200 300 HOME : PRINT "YOU ARE IN A DARK FOREST.TRAILS GO N" 310 PRINT "AND E.THERE IS A SIGN POINTING N." 320 PRINT "COMMAND";: INPUT A$ 330 IF A$ = "E" THEN GOTO 100 340 IF A$ = "N" THEN GOTO 400 350 IF A$ = "S" THEN GOTO 365 355 IF A$ = "W" THEN GOTO 365 356 IF A$ = "READ SIGN" OR A$ = "READ WRITING" THEN GOTO 370 357 IF A$ = "LOOK SIGN" THEN GOTO 375 360 PRINT "I DON'T UNDERSTAND.";: GET Z$: GOTO 300 365 PRINT "YOU CAN'T GO THAT WAY.";: GET Z$: GOTO 300 370 PRINT "THE SIGN SAYS'SHED'.";: GET Z$: GOTO 300 375 PRINT "THE SIGN HAS WRITING ON IT.";: GET Z$: GOTO 300 400 HOME : PRINT "YOU ARE IN A DARK FOREST.TRAILS GO N,S," 410 PRINT "E AND W.AN OLD SIGN POINTS W." 420 PRINT "COMMAND";: INPUT A$ 430 IF A$ = "S" THEN GOTO 300 440 IF A$ = "E" THEN GOTO 500 445 IF A$ = "N" THEN GOTO 700 450 IF A$ = "W" THEN GOTO 1200 455 IF A$ = "READ SIGN" OR A$ = "READ WRITING" THEN GOTO 465 456 IF A$ = "LOOK SIGN" THEN GOTO 475 460 PRINT "I DON'T UNDERSTAND.";: GET Z$: GOTO 400 465 PRINT "THE SIGN SAYS'SHED'.THERE ARE CLAW" 470 PRINT "MARKS ON THIS SIGN.";: GET Z$: GOTO 400 475 PRINT "THE SIGN HAS BLURRED WRITING ON IT.";: GET Z$: GOTO 400 500 HOME : PRINT "YOU ARE IN A DARK FOREST.TRAILS GO N,S," 510 PRINT "E AND W." 520 PRINT "COMMAND";: INPUT A$ 530 IF A$ = "S" THEN GOTO 100 540 IF A$ = "E" THEN GOTO 600 545 IF A$ = "N" THEN GOTO 800 550 IF A$ = "W" THEN GOTO 400 555 PRINT "I DON'T UNDERSTAND.";: GET Z$: GOTO 500 600 HOME : PRINT "YOU ARE IN A DARK FOREST." 610 IF G = 0 THEN PRINT "THERE ARE SOME GLOVES HERE." 620 PRINT "TRAILS GO N,S AND W." 630 PRINT "COMMAND";: INPUT A$ 640 IF A$ = "S" THEN GOTO 200 645 IF A$ = "N" THEN GOTO 900 650 IF A$ = "W" THEN GOTO 500 655 IF A$ = "GET GLOVES" THEN GOTO 665 656 IF A$ = "LOOK GLOVES" THEN GOTO 666 660 PRINT "I DON'T UNDERSTAND.";: GET Z$: GOTO 600 665 G = 1: GOTO 600 666 PRINT "THEY A VERY THICK.";: GET Z$: GOTO 600 700 HOME : PRINT "YOU ARE IN A DARK FOREST.TRAILS GO S" 710 PRINT "AND E.THERE IS AN OLD SIGN POINTING S." 720 PRINT "COMMAND";: INPUT A$ 730 IF A$ = "S" THEN GOTO 400 740 IF A$ = "E" THEN GOTO 800 745 IF A$ = "W" OR A$ = "N" THEN GOTO 760 750 IF A$ = "READ SIGN" THEN GOTO 765 751 IF A$ = "LOOK SIGN" THEN GOTO 770 755 PRINT "I DON'T UNDERSTAND.";: GET Z$: GOTO 700 760 PRINT "YOU CAN'T GO THAT WAY.";: GET Z$: GOTO 700 765 PRINT "THE WORDS HAVE BEEN BURNED OFF.";: GET Z$: GOTO 700 770 PRINT "IT IS BURNT AND UNABLE TO BE READ.";: GET Z$: GOTO 700 800 HOME : PRINT "YOU ARE STANDING AT THE EXIT GATE OF" 810 PRINT "THE FOREST.TRAILS GO S,E AND W.THE" 820 PRINT "TRAIL N LEADS OUT." 830 PRINT "COMMAND";: INPUT A$ 840 IF A$ = "W" THEN GOTO 700 845 IF A$ = "E" THEN GOTO 900 850 IF A$ = "S" THEN GOTO 500 855 IF A$ = "N" THEN GOTO 1100 856 IF A$ = "LOOK GATE" THEN GOTO 865 857 IF A$ = "LOOK BAT" OR A$ = "LOOK STATUE" THEN GOTO 875 860 PRINT "I DON'T UNDERSTAND.";: GET Z$: GOTO 800 865 PRINT "THE GATE HAS A BAT STATUE PERCHED ON" 870 PRINT "TOP OF IT.";: GET Z$: GOTO 800 875 PRINT "IT IS STUCK FIRMLY TO THE GATE.";: GET Z$: GOTO 800 900 HOME : PRINT "YOU ARE IN A DARK FOREST.THERE IS A" 910 PRINT "DEMON RUSHING TOWARDS YOU!" 920 PRINT "DO YOU HAVE A WEAPON";: INPUT A$ 930 IF A$ = "N" THEN GOTO 945 940 IF A$ = "Y" THEN GOTO 955 945 HOME : PRINT "THE DEMON DEVOURS YOU AND YOU DIE" 950 PRINT "INSTANTLY.YOU HAVE FAILED!": END 955 IF G = 0 AND S = 0 OR G = 1 AND S = 0 OR G = 0 AND S = 1 THEN GOTO 965 960 IF G = 1 AND S = 1 THEN GOTO 970 965 PRINT "LIAR!";: GET Z$: GOTO 945 970 PRINT "YOU HURL YOUR ROCK AT THE DEMON AND IT" 975 PRINT "DESOLVES INTO NOTHINGNESS!YOU HAVE WON!": END 1000 HOME : FLASH : PRINT "IT'S DANGEROUS TO TRAVEL THE HILLS BY": PRINT "NIGHT!": NORMAL 1010 PRINT "YOU FALL INTO DARK PIT AND BREAK YOUR" 1020 PRINT "NECK!YOU'VE FAILED!": END 1100 HOME : PRINT "YOU LEAVE THE FOREST AND THE GATE" 1110 PRINT "SWINGS SHUT BEHIND YOU!YOU ARE LOCKED" 1120 PRINT "OUT!YOU'VE FAILED!": END 1200 HOME : PRINT "YOU ARE IN A SMALL SHED." 1210 IF S = 0 THEN PRINT "THERE IS A STONE ON THE FLOOR WITH A": PRINT "DEMON CARVED ONTO IT." 1220 PRINT "THE EXIT IS TO THE E." 1230 PRINT "COMMAND";: INPUT A$ 1240 IF A$ = "E" THEN GOTO 400 1245 IF A$ = "N" OR A$ = "S" OR A$ = "W" THEN GOTO 1260 1250 IF A$ = "GET STONE" THEN GOTO 1265 1251 IF A$ = "LOOK STONE" THEN GOTO 1285 1255 PRINT "I DON'T UNDERSTAND.";: GET Z$: GOTO 1200 1260 PRINT "YOU CAN'T GO THAT WAY.";: GET Z$: GOTO 1200 1265 IF G = 0 THEN GOTO 1275 1270 S = 1: GOTO 1200 1275 HOME : PRINT "SUDDENLY ELECTRICITY FILLS YOUR BODY" 1280 PRINT "AND YOU DIE.YOU'VE FAILED!": END 1285 PRINT "IT GLOWS AN EERIE RED.";: GET Z$: GOTO 1200