DECLARE SUB SECONLEV () DECLARE SUB INSIDEHOUSE () DEFINT A-Z DECLARE SUB bigletter (w$, sz, colr, style, position) 2 CLS 1: SCREEN 12: CLS 1 READ a$, B$ PLAY a$ + a$ DATA "MBT245 O4C5O3F5F5O4C5O3F5F5O4C5O3F5O4C+5C+5" DATA "MB T120 O1C1D+1E1O0A1" bigletter "HAUNTED HALLOWEEN ", 4, 2, 1, 40 CIRCLE (300, 300), 170, 15, 2, 1, .8 CIRCLE (305, 185), 87, 15, , , .2 REM LEFT EYE LINE (200, 265)-(260, 265), 15 LINE (200, 265)-(230, 220), 15 LINE (260, 265)-(230, 220), 15 REM RIGHT EYE LINE (330, 265)-(390, 265), 15 LINE (330, 265)-(360, 220), 15 LINE (360, 220)-(390, 265), 15 REM NOSE LINE (270, 310)-(320, 310), 15 LINE (295, 260)-(270, 310), 15 LINE (295, 260)-(320, 310), 15 REM MOUTH LINE (205, 365)-(200, 335), 15 LINE (395, 365)-(400, 335), 15 LINE (205, 365)-(224, 355), 15 LINE (235, 355)-(245, 365), 15 LINE (245, 365)-(355, 365), 15 LINE (355, 365)-(365, 355), 15 LINE (375, 355)-(395, 365), 15 LINE (200, 335)-(210, 350), 15 LINE (210, 350)-(220, 335), 15 LINE (220, 335)-(230, 375), 15 LINE (230, 375)-(240, 335), 15 LINE (240, 335)-(250, 350), 15 LINE (250, 350)-(260, 335), 15 LINE (260, 335)-(270, 350), 15 LINE (270, 350)-(280, 335), 15 LINE (280, 335)-(290, 350), 15 LINE (290, 350)-(300, 335), 15 LINE (300, 335)-(310, 350), 15 LINE (310, 350)-(320, 335), 15 LINE (320, 335)-(330, 350), 15 LINE (330, 350)-(340, 335), 15 LINE (340, 335)-(350, 350), 15 LINE (350, 350)-(360, 335), 15 LINE (360, 335)-(370, 375), 15 LINE (370, 375)-(380, 335), 15 LINE (380, 335)-(390, 350), 15 LINE (390, 350)-(400, 335), 15 PAINT (300, 230), 12, 15 SLEEP 3 CLS SCREEN 0, 0, 0: WIDTH 40: COLOR 14 PRINT "MAKE SURE YOUR CAPS LOCK ARE ON!" PRINT PRINT PRINT "TO MOVE IN ANY DIRECTION (NORTH,WEST," PRINT "EAST,OR SOUTH) TYPE THAT DIRECTION." PRINT "FOR EXAMPLE TO MOVE NORTH, TYPE NORTH. " PRINT PRINT "TO USE SOMETHING, TYPE USE." PRINT "FOR EXAMPLE, TO USE A CAR TYPE USE CAR. " PRINT PRINT "TO SEE WHERE YOU ARE TYPE LOOK." PRINT PRINT "TO SEE THINGS MORE CLOSELY TYPE" PRINT "EXAMINE, FOR EXAMPLE, TYPE EXAMINE CAR." PRINT PRINT "TO TAKE SOMETHING, TYPE TAKE." PRINT "FOR EXAMPLE, TYPE TAKE CAR." PRINT PRINT " TO QUIT AT ANY TIME TYPE QUIT." PRINT PRINT COLOR 15: PRINT "PRESS ANY KEY TO START THE GAME." PLAY B$ + a$ + a$ + B$ 4 K$ = INKEY$: IF K$ = "" THEN 4 CLS 5 SCREEN 0, 0, 0: WIDTH 40: COLOR 2 PRINT PRINT " IT IS HALLOWEEN 1994, AND YOU AND A" PRINT PRINT "FRIEND HAVE BEEN INVITED TO A HALLOWEEN" PRINT PRINT "PARTY. WHILE DRIVING DOWN A ROAD AN" PRINT PRINT "ANIMAL JUMPS IN FRONT OF YOUR CAR. YOU" PRINT PRINT "SWIRVE TO AVOID HITTING IT. IN THE " PRINT PRINT "PROCESS YOU GET TWO FLAT TIRES. YOU LOOK" PRINT PRINT "IN YOUR TRUNK ONLY TO FIND ONE SPARE " PRINT PRINT "TIRE. YOU SEE A HOUSE IN THE DISTANCE," PRINT PRINT "AND DECIDE TO GO GET HELP WHILE YOUR" PRINT PRINT "FRIEND STAYS IN THE CAR." PRINT PRINT COLOR 15: PRINT "PRESS ANY KEY TO CONTINUE." PLAY a$ + a$ + B$ 6 K$ = INKEY$: IF K$ = "" THEN 6 7 SCREEN 12: CLS 1 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE:" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" HOUSE: LINE (0, 0)-(649, 300), 9, BF 'sky LINE (0, 275)-(649, 350), 2, BF 'grass LINE (150, 300)-(150, 150), 0 'castle LINE (150, 150)-(160, 145), 0 LINE (160, 145)-(160, 305), 8 LINE (160, 305)-(180, 310), 0 LINE (160, 305)-(150, 300), 0 LINE (160, 145)-(180, 140), 0 LINE (180, 310)-(180, 140), 8 LINE (180, 310)-(195, 140), 0, B LINE (180, 310)-(180, 140), 0 PAINT (190, 200), 8, 0 PAINT (155, 200), 8, 0 PAINT (175, 200), 8, 0 LINE (195, 140)-(215, 145), 0 LINE (195, 310)-(215, 305), 0 LINE (215, 145)-(215, 305), 0 PAINT (200, 200), 8, 0 LINE (215, 305)-(225, 300), 0 LINE (215, 145)-(225, 150), 0 LINE (225, 300)-(225, 150), 0 PAINT (220, 200), 8, 0 LINE (150, 150)-(185, 80), 0 LINE (185, 80)-(225, 150), 0 CIRCLE (185, 110), 16, 0, 3, , .1 PAINT (185, 110), 4, 0 PAINT (185, 130), 4, 0 LINE (225, 280)-(250, 280), 0 LINE (225, 150)-(305, 150), 0 LINE (305, 150)-(305, 200), 0 LINE (305, 200)-(310, 205), 0 LINE (305, 150)-(310, 150), 0 LINE (310, 205)-(310, 150), 0 LINE (310, 205)-(320, 205), 0 LINE (310, 151)-(320, 151), 0 LINE (320, 151)-(320, 205), 0 LINE (320, 150)-(325, 145), 0 LINE (310, 205)-(320, 205), 0 LINE (320, 205)-(325, 200), 0 LINE (325, 150)-(325, 200), 0 LINE (325, 150)-(315, 130), 0 LINE (315, 130)-(305, 150), 0 PAINT (315, 140), 4, 0 PAINT (307, 153), 8, 0 PAINT (315, 180), 8, 0 PAINT (322, 180), 8, 0 LINE (222, 145)-(260, 80), 0 LINE (260, 80)-(306, 145), 0 PAINT (260, 90), 8, 0 LINE (260, 80)-(250, 80), 0 LINE (250, 80)-(215, 135), 0 PAINT (240, 100), 4, 0 LINE (287, 200)-(305, 200), 0 LINE (225, 200)-(264, 200), 0 LINE (264, 200)-(275, 180), 0 LINE (275, 180)-(287, 200), 0 LINE (250, 190)-(250, 160), 0 LINE (250, 190)-(268, 190), 0 LINE (250, 160)-(275, 160), 0 LINE (275, 160)-(275, 180), 0 PAINT (260, 180), 14, 0 PAINT (240, 170), 8, 0 LINE (250, 225)-(305, 225), 0 LINE (250, 225)-(275, 180), 0 LINE (305, 225)-(275, 180), 0 PAINT (275, 195), 4, 0 LINE (275, 225)-(380, 225), 0 LINE (380, 225)-(355, 200), 0 LINE (355, 200)-(325, 200), 0 PAINT (335, 210), 4, 0 LINE (250, 225)-(250, 300), 0 LINE (305, 225)-(305, 300), 0 LINE (250, 300)-(305, 300), 0 LINE (255, 225)-(255, 295), 0 LINE (255, 295)-(250, 300), 0 PAINT (251, 297), 15, 0 LINE (300, 295)-(300, 225), 0 LINE (300, 295)-(305, 300), 0 PAINT (303, 297), 15, 0 LINE (300, 295)-(255, 295), 0 LINE (305, 280)-(375, 280), 0 LINE (375, 280)-(375, 225), 0 LINE (375, 255)-(305, 255), 0 LINE (375, 260)-(305, 260), 0 LINE (375, 275)-(305, 275), 0 PAINT (360, 277), 15, 0 PAINT (360, 256), 15, 0 LINE (310, 260)-(310, 275), 0 LINE (313, 260)-(313, 275), 0 LINE (318, 260)-(318, 275), 0 LINE (321, 260)-(321, 275), 0 LINE (326, 260)-(326, 275), 0 LINE (329, 260)-(329, 275), 0 LINE (334, 260)-(334, 275), 0 LINE (337, 260)-(337, 275), 0 LINE (342, 260)-(342, 275), 0 LINE (345, 260)-(345, 275), 0 LINE (350, 260)-(350, 275), 0 LINE (353, 260)-(353, 275), 0 LINE (358, 260)-(358, 275), 0 LINE (361, 260)-(361, 275), 0 LINE (366, 260)-(366, 275), 0 LINE (369, 260)-(369, 275), 0 LINE (380, 225)-(380, 280), 0 LINE (380, 280)-(375, 280), 0 PAINT (377, 270), 15, 0 PAINT (327, 265), 15, 0 PAINT (319, 265), 15, 0 PAINT (312, 265), 15, 0 PAINT (351, 265), 15, 0 PAINT (360, 265), 15, 0 PAINT (367, 265), 15, 0 PAINT (343, 265), 15, 0 PAINT (336, 265), 15, 0 LINE (265, 240)-(265, 275), 0 LINE (265, 240)-(285, 240), 0 LINE (285, 240)-(285, 275), 0 LINE (285, 275)-(265, 275), 0 LINE (268, 245)-(282, 255), 0, B PAINT (270, 247), 14, 0 PAINT (270, 256), 6, 0 PAINT (245, 250), 8, 0 LINE (255, 275)-(300, 275), 0 PAINT (256, 270), 8, 0 LINE (325, 255)-(325, 225), 0 PAINT (323, 230), 8, 0 PAINT (325, 265), 8, 0 PAINT (317, 265), 8, 0 PAINT (309, 265), 8, 0 LINE (200, 190)-(210, 160), 0, B PAINT (205, 170), 14, 0 LINE (200, 225)-(210, 255), 0, B PAINT (205, 235), 14, 0 LINE (170, 190)-(155, 160), 0, B PAINT (165, 170), 14, 0 LINE (170, 225)-(155, 255), 0, B PAINT (165, 235), 14, 0 LINE (250, 300)-(250, 305), 0 LINE (250, 305)-(305, 305), 0 LINE (305, 305)-(305, 300), 0 LINE (255, 290)-(300, 290), 0 LINE (255, 285)-(300, 285), 0 LINE (255, 280)-(300, 280), 0 PAINT (270, 283), 15, 0 PAINT (270, 278), 15, 0 PAINT (270, 293), 15, 0 PAINT (270, 286), 15, 0 PAINT (270, 298), 15, 0 PAINT (270, 302), 15, 0 LINE (375, 250)-(325, 250), 0 LINE (376, 253)-(325, 253), 0 PAINT (350, 251), 15, 0 10 VIEW PRINT 28 TO 29 INPUT Q$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q$ CASE "LOOK": CLS 2 CLS2: PRINT "YOU SEE A COLONIAL STYLE HOUSE. IT LOOKS AS IF IT WAS BUILT IN THE 18TH CENTURY." GOSUB 10 CASE "EXAMINE": CLS 2 PRINT "YOU ARE TOO FAR AWAY TO EXAMINE ANYTHING." GOSUB 10 CASE "OPEN": CLS 2 PRINT "YOU ARE TOO FAR AWAY TO OPEN ANYTHING." GOSUB 10 CASE "NORTH": CLS 2 GOTO 11 CASE "SOUTH": CLS 2 PRINT "YOU CAN'T LEAVE. YOU MUST GET HELP!" GOSUB 10 CASE "EAST": CLS 2 PRINT "YOU CAN'T GO THAT WAY!" GOSUB 10 CASE "WEST": CLS 2 PRINT "YOU CAN'T GO THAT WAY!" GOSUB 10 CASE "QUIT": GOTO EEND3 CASE ELSE: CLS 2 PRINT "WHAT YOU HAVE EXPECTED HASN'T HAPPENED." GOSUB 10 END SELECT END 11 CLS : SCREEN 12 FRONTDOOR: SCREEN 12 LINE (0, 0)-(629, 350), 8, B PAINT (400, 10), 8 LINE (250, 20)-(400, 300), 0, B PAINT (300, 100), 6, 0 LINE (275, 40)-(375, 120), 0, B PAINT (300, 60), 14, 0 LINE (100, 300)-(649, 300), 0 LINE (100, 300)-(-100, 400), 0 PAINT (90, 325), 15, 0 LINE (100, 300)-(100, 0), 0 LINE (130, 300)-(130, 0), 0 CIRCLE (265, 185), 10, 0 PAINT (265, 185), 14, 0 PAINT (120, 150), 15, 0 LINE (130, 300)-(40, 350), 0 PAINT (100, 325), 15, 0 LINE (160, 300)-(70, 350), 0 LINE (190, 300)-(100, 350), 0 LINE (210, 300)-(130, 350), 0 LINE (240, 300)-(160, 350), 0 LINE (270, 300)-(190, 350), 0 LINE (300, 300)-(220, 350), 0 LINE (330, 300)-(250, 350), 0 LINE (360, 300)-(280, 350), 0 LINE (390, 300)-(310, 350), 0 LINE (420, 300)-(340, 350), 0 LINE (450, 300)-(370, 350), 0 LINE (480, 300)-(400, 350), 0 LINE (510, 300)-(430, 350), 0 LINE (540, 300)-(470, 350), 0 LINE (570, 300)-(500, 350), 0 LINE (600, 300)-(530, 350), 0 LINE (630, 300)-(570, 350), 0 LINE (100, 180)-(0, 220), 0 LINE (100, 200)-(0, 245), 0 PAINT (50, 220), 15, 0 LINE (100, 200)-(0, 300), 0 LINE (100, 220)-(0, 320), 0 PAINT (50, 260), 15, 0 LINE (0, 245)-(38, 260), 0 LINE (55, 265)-(100, 290), 0 LINE (0, 265)-(23, 275), 0 PAINT (22, 270), 15, 0 LINE (40, 280)-(91, 305), 0 PAINT (41, 280), 15, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 ' PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE:" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76: PRINT "N" LOCATE 25, 74: PRINT "W E" LOCATE 26, 76: PRINT "S" 12 VIEW PRINT 28 TO 29 INPUT QQ$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE QQ$ CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING ON THE PORCH. IT DOESN'T SEEM STABLE!." GOSUB 12 CASE "QUIT": GOTO EEND3 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOSUB 12 CASE "EXAMINE FRONT DOOR" CLS 2: PRINT "IT IS A WOODEN DOOR, 3 FEET WIDE, BY 7 FEET HIGH." GOSUB 12 CASE "EXAMINE DOOR" CLS 2: PRINT "IT IS A WOODEN DOOR, 3 FEET WIDE, BY 7 FEET LONG." GOSUB 12 CASE "EXAMINE FRONT PORCH" CLS 2: PRINT "THE PORCH IS OLD. IT IS NOT WISE TO WALK ON IT. YOU NOTICE A KEY ON THE FLOOR." GOSUB 12 CASE "EXAMINE PORCH" CLS 2: PRINT "THE PORCH IS OLD. IT IS NOT WISE TO WALK ON IT. YOU NOTICE A KEY ON THE FLOOR." GOSUB 12 CASE "EXAMINE WALL" CLS 2: PRINT "THE WALL IS OLD WITH CHIPPED PAINT." GOSUB 12 CASE "EXAMINE KEY" CLS 2: PRINT "THE KEY IS MADE OF BRONZE AND SEEMS TO BE FOR THE FRONT DOOR." GOSUB 12 CASE "USE" CLS 2: PRINT "WHAT DO YOU WANT TO USE?" GOSUB 12 CASE "USE KEY" 20 IF SCORE >= 10 THEN 21 ELSE PRINT "YOU CAN'T USE WHAT YOU HAVEN'T TAKEN" GOSUB 12 21 GOTO FRONTDOOROPEN CASE "USE BRONZE KEY" GOTO 20 CASE "OPEN" CLS 2: PRINT "WHAT DO YOU WANT TO OPEN?" GOSUB 12 CASE "OPEN DOOR" GOTO 22 GOSUB FRONTDOOR: CLS 2 22 CLS 2: PRINT "THE DOOR IS LOCKED" GOSUB 12 CASE "OPEN FRONT DOOR" GOTO 22 CASE "TAKE" 23 CLS 2: PRINT "WHAT DO YOU WANT TO TAKE?" GOSUB 12 CASE "TAKE KEY" SCORE = 10 24 CLS 2: PRINT "YOU TAKE THE KEY." GOSUB 12 CASE "NORTH" 25 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT" GOSUB 12 CASE "SOUTH" GOTO 7 CASE "EAST" 26 CLS 2: PRINT "YOU GO THROUGH THE FLOOR AND BREAK YOUR NECK!" SLEEP 2 GOTO EEND3 CASE "WEST" GOTO 25 CASE ELSE: CLS 2: PRINT "WHAT YOU HAVE EXPECTED HASN'T HAPPENED." GOSUB FRONTDOOR END SELECT END SCREEN 12 FRONTDOOROPEN: CLS LINE (0, 0)-(629, 350), 8, B'house PAINT (400, 10), 8 'house LINE (250, 20)-(400, 300), 0, B 'door PAINT (300, 100), 1, 0 'door LINE (250, 200)-(300, 200), 0 PAINT (275, 150), 15, 0 LINE (250, 200)-(250, 20), 0 LINE (300, 200)-(300, 40), 0 LINE (300, 40)-(400, 20), 0 PAINT (270, 205), 3, 0 LINE (400, 300)-(300, 270), 0 LINE (400, 20)-(300, 40), 0 LINE (300, 40)-(300, 270), 0 PAINT (305, 200), 6, 0 LINE (390, 40)-(310, 52), 0 LINE (390, 110)-(310, 110), 0 LINE (390, 110)-(390, 40), 0 LINE (310, 52)-(310, 110), 0 PAINT (320, 60), 14, 0 CIRCLE (320, 175), 10, 0, , , .7 PAINT (320, 175), 14, 0 LINE (100, 300)-(629, 300), 0 LINE (100, 300)-(-100, 400), 0 PAINT (90, 325), 15, 0 LINE (100, 300)-(100, 0), 0 LINE (130, 300)-(130, 0), 0 PAINT (120, 150), 15, 0 LINE (130, 300)-(40, 350), 0 PAINT (100, 325), 15, 0 LINE (160, 300)-(70, 350), 0 LINE (190, 300)-(100, 350), 0 LINE (210, 300)-(130, 350), 0 LINE (240, 300)-(160, 350), 0 LINE (270, 300)-(190, 350), 0 LINE (300, 300)-(220, 350), 0 LINE (330, 300)-(250, 350), 0 LINE (360, 300)-(280, 350), 0 LINE (390, 300)-(310, 350), 0 LINE (420, 300)-(340, 350), 0 LINE (450, 300)-(370, 350), 0 LINE (480, 300)-(400, 350), 0 LINE (510, 300)-(430, 350), 0 LINE (540, 300)-(470, 350), 0 LINE (570, 300)-(500, 350), 0 LINE (600, 300)-(530, 350), 0 LINE (629, 300)-(570, 350), 0 LINE (100, 180)-(0, 220), 0 LINE (100, 200)-(0, 245), 0 PAINT (50, 220), 15, 0 LINE (100, 200)-(0, 300), 0 LINE (100, 220)-(0, 320), 0 PAINT (50, 260), 15, 0 LINE (0, 245)-(38, 260), 0 LINE (55, 265)-(100, 290), 0 LINE (0, 265)-(23, 275), 0 PAINT (22, 270), 15, 0 LINE (40, 280)-(91, 305), 0 PAINT (41, 280), 15, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 ' PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE:" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" VIEW PRINT 28 TO 29 101 IF SCORE = 10 THEN PRINT "AS YOU TRY TO USE THE KEY, THE DOOR SUDDENLY CREEKS OPEN" IF SCORE > 10 THEN 102 SLEEP 6: CLS 2 102 VIEW PRINT 28 TO 28 INPUT QQQ$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE QQQ$ CASE "LOOK": PRINT "THE DOOR IS OPEN": 'CLS 2 GOSUB 102 CASE "EXAMINE" PRINT "WHAT DO YOU WANT TO EXAMINE?" GOSUB 102 CASE "EXAMINE DOOR" 103 PRINT "THE DOOR IS MADE OF WOOD." GOSUB 102 CASE "EXAMINE WALL" 104 PRINT "IT IS OLD WITH CHIPPED PAINT." GOSUB 102 CASE "EXAMINE PORCH" 105 PRINT "IT IS UNSTABLE. IT WOULD NOT BE WISE TO WALK ON IT." GOSUB 102 CASE "OPEN DOOR" 106 PRINT "THE DOOR IS ALREADY OPEN." GOSUB 102 CASE "QUIT" GOTO EEND3 CASE "NORTH" GOTO 200 CASE "SOUTH" GOSUB HOUSE CASE "EAST" 111 PRINT "YOU GO THROUGH THE FLOOR AND BREAK YOUR NECK!" SLEEP 2 GOTO EEND3 CASE "WEST" 112 PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 102 CASE ELSE PRINT "WHAT YOU HAVE EXPECTED HASN'T HAPPENED." GOSUB 102 END SELECT SCREEN 12: CLS 200 : CLEAR , , 4599: CALL INSIDEHOUSE 2000 CALL SECONLEV GOTO 200 CLS : CLS 2 SCREEN 0, 0, 0: WIDTH 40: COLOR 15 PRINT "GOOD BYE" END EEND3: SUB bigletter (w$, sz, colr, style, position) COLOR 15 DIM box(-1 TO 7, -1 TO 15) wordlength = LEN(w$) * sz * 8 wordheight = sz * 16 wordcenter = 320 - (wordlength / 2) PALETTE 15, 0 FOR LETTER = 1 TO LEN(w$) LOCATE 1, 1 PRINT MID$(w$, LETTER, 1) FOR X = 0 TO 7 FOR y = 0 TO 15 box(X, y) = POINT(X, y) NEXT y NEXT X FOR X = 0 TO 7 left = wordcenter + (X * sz) right = left + sz lr = (left + right) \ 2 FOR y = 0 TO 15 up = position + (y * sz) down = up + sz ud = (up + down) \ 2 IF box(X, y) THEN SELECT CASE style CASE 1 LINE (left, up)-(right, down), colr, BF CASE 2 LINE (left, up)-(right, down), colr, B END SELECT END IF NEXT y NEXT X wordcenter = wordcenter + (sz * 8) NEXT LETTER LOCATE 1, 1 PRINT "" PALETTE END SUB SUB INSIDEHOUSE SCREEN 12 FOYER: LINE (0, 0)-(629, 350), 15, BF LINE (150, 50)-(150, 300), 0 LINE (400, 50)-(400, 300), 0 LINE (150, 50)-(400, 50), 0'STAIR LINE (400, 50)-(400, 300), 0 LINE (100, 350)-(150, 300), 0'STAIR LINE (510, 350)-(400, 300), 0 LINE (150, 300)-(270, 300), 0 LINE (270, 300)-(250, 50), 0 LINE (150, 50)-(0, 10), 0 LINE (400, 50)-(629, 10), 0 LINE (350, 200)-(400, 300), 0 LINE (270, 70)-(320, 150), 0, B PAINT (300, 100), 14, 0 LINE (320, 150)-(350, 200), 0 LINE (270, 150)-(258, 150), 0 LINE (120, 50)-(20, 25), 0 LINE (120, 330)-(120, 50), 0 LINE (20, 25)-(20, 350), 0 LINE (20, 150)-(80, 50), 0, B'KITCHEN DOOR LINE (20, 145)-(80, 145), 0 PAINT (60, 146), 14, 0 PAINT (60, 100), 13, 0 PAINT (100, 160), 3, 0 LINE (120, 150)-(20, 150), 0 'LIVING ROOM FLOOR PAINT (100, 100), 15, 0 PAINT (300, 340), 3, 0 PAINT (170, 222), 6, 0 LINE (150, 205)-(262, 205), 0 'STEPS LINE (150, 225)-(264, 225), 0 LINE (150, 245)-(265, 245), 0 LINE (150, 265)-(267, 265), 0 LINE (150, 285)-(269, 285), 0 LINE (150, 185)-(260, 185), 0 LINE (150, 165)-(258, 165), 0 LINE (150, 145)-(257, 145), 0 LINE (150, 125)-(255, 125), 0 LINE (150, 105)-(253, 105), 0 LINE (150, 85)-(252, 85), 0 LINE (150, 65)-(250, 65), 0 LINE (600, 25)-(450, 50), 0 LINE (600, 25)-(600, 350), 0 LINE (450, 50)-(450, 323), 0 LINE (600, 150)-(450, 150), 0 'DINING ROOM FLOOR LINE (500, 150)-(600, 50), 0, B LINE (500, 145)-(600, 145), 0 PAINT (550, 146), 14, 0 PAINT (550, 130), 13, 0 PAINT (500, 230), 3, 0 LINE (270, 145)-(320, 145), 0 PAINT (300, 140), 13, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 ' PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE:" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" 199 VIEW PRINT 28 TO 30 INPUT QQQQ$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30: SELECT CASE QQQQ$ CASE "LOOK" 201 CLS 2: PRINT "YOU ARE STANDING IN THE FOYER." GOTO 199 CASE "EXAMINE" 202 CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?": GOTO 199 CASE "EXAMINE HALLWAY" 203 CLS 2: PRINT "IT IS A LONG HALLWAY LEADING TO THE KITCHEN." GOSUB 199 CASE "HALL" GOTO 203 CASE "EXAMINE STAIRS" 204 CLS 2: PRINT "THIS STAIRCASE LEADS TO THE SECOND FLOOR." GOSUB 199 CASE "EXAMINE STAIRCASE" GOTO 204 CASE "EXAMINE FLOOR" 205 CLS 2: PRINT "THIS FLOOR LOOKS LIKE IT HASN'T BEEN VACUUMED IN AGES!" GOSUB 199 CASE "EXAMINE KEY" CLS 2: PRINT "YOU ARE HOLDING A BRONZE KEY." GOTO 199 CASE "EXAMINE WALL" 206 CLS 2: PRINT "THE WALLS ARE MADE OF PLASTER." GOSUB 199 CASE "EXAMINE HALL" CLS 2: PRINT "YOU MUST GO THERE FIRST!" GOSUB 199 CASE "EXAMINE DOOR" 207 CLS 2: PRINT "THE ONLY DOOR HERE IS THE FRONT DOOR AND IT IS MADE OF WOOD" GOSUB 199: CLS 2 CASE "EXAMINE FRONT DOOR" GOTO 207 CASE "EXAMINE CEILING" 208 CLS 2: PRINT "THE CEILING IS MADE OF PLASTER." GOSUB 199 CASE "OPEN" 209 CLS 2: PRINT "WHAT DO YOU WANT TO OPEN?" GOSUB 199 CASE "OPEN DOOR" 210 CLS 2: PRINT " THE DOOR IS LOCKED!" GOSUB 199 CASE "OPEN STAIRS" 211 CLS 2: PRINT " THIS IS NOT THE MUNSTER'S HOUSE!" GOSUB 199 CASE "USE" 212 CLS 2: PRINT "WHAT DO YOU WANT TO USE?" GOSUB 199 CASE "USE STAIRS" GOSUB SECON CASE "USE KEY" 213 CLS 2: PRINT "NO MATTER HOW HARD YOU TRY THE DOOR WILL NOT OPEN!" GOSUB 199 CASE "NORTH" GOSUB HALL CASE "SOUTH" 220 CLS 2: PRINT "THE DOOR IS LOCKED!" GOSUB 199 CASE "WEST" 221 IF SCORE < 100 THEN GOSUB LIVINGROOM ELSE GOSUB LIVINGROOM2 CASE "EAST" GOSUB DININGROOM CASE "QUIT" GOSUB END2 CASE ELSE PRINT "WHAT YOU HAVE EXPECTED HASN'T HAPPENED." GOSUB 199 END SELECT 300 LIVINGROOM: SCREEN 12 delx% = 43 DELY% = 80 bytes% = 4 * DELY% * 4 * INT((delx% + 7) / 8) REDIM a%(bytes% \ 2) LINE (0, 0)-(delx%, DELY%), 0, BF LINE (27, 40)-(32, 60), 3, BF CIRCLE (30, 60), 10, 2, 3 LINE (20, 60)-(40, 60), 2 PAINT (30, 62), 5, 2 CIRCLE (34, 32), 5, 2, 2, 4 CIRCLE (30, 30), 5, 2, 5, 1 PAINT (31, 31), 1, 2 GET (20, 20)-(delx% - 1, DELY% - 1), a% CLS VIEW PRINT 26 TO 27: COLOR 15 PRINT " YOU SEE A GHOSTLY CANDLE LEVITATE ACROSS THE ROOM" LINE (0, 0)-(629, 350), 15, BF LINE (0, 0)-(75, 30), 0 LINE (629, 0)-(550, 30), 0 REM right wall LINE (550, 30)-(550, 200), 0 LINE (550, 200)-(629, 350), 0 REM left wall LINE (75, 30)-(75, 200), 0 LINE (0, 350)-(75, 200), 0 REM ceiling LINE (75, 30)-(550, 30), 0 REM floor LINE (75, 200)-(550, 200), 0 PAINT (400, 300), 3, 0 LINE (200, 210)-(400, 100), 0, B PAINT (300, 205), 4, 0 LINE (200, 100)-(190, 95), 0 LINE (190, 95)-(190, 200), 0 LINE (190, 200)-(200, 210), 0 LINE (400, 100)-(410, 95), 0 LINE (410, 95)-(410, 200), 0 LINE (410, 200)-(400, 210), 0 LINE (190, 95)-(410, 95), 0 PAINT (405, 100), 4, 0 PAINT (195, 100), 4, 0 PAINT (300, 150), 4, 0 PAINT (405, 201), 4, 0 PAINT (192, 201), 4, 0 REM sofa LINE (150, 300)-(450, 300), 0 LINE (150, 350)-(450, 350), 0 LINE (150, 300)-(150, 350), 0 LINE (450, 300)-(450, 350), 0 LINE (150, 300)-(160, 290), 0 LINE (160, 290)-(440, 290), 0 LINE (440, 290)-(450, 300), 0 LINE (165, 290)-(170, 275), 0 LINE (435, 290)-(430, 275), 0 LINE (430, 275)-(425, 275), 0 LINE (425, 275)-(415, 275), 0 PAINT (420, 295), 6, 0 PAINT (427, 275), 6, 0 LINE (415, 275)-(410, 290), 0 LINE (170, 275)-(185, 275), 0 LINE (185, 275)-(190, 290), 0 LINE (188, 280)-(412, 280), 0 PAINT (295, 285), 6, 0 LINE (300, 280)-(300, 290), 0 PAINT (300, 340), 6, 0 PAINT (427, 277), 6, 0 PAINT (176, 277), 6, 0 REM t.v. LINE (430, 120)-(525, 190), 0, B LINE (525, 190)-(530, 185), 0 LINE (525, 120)-(530, 115), 0 LINE (530, 115)-(530, 185), 0 LINE (430, 120)-(435, 115), 0 LINE (435, 115)-(530, 115), 0 PAINT (500, 135), 6, 0 PAINT (500, 117), 6, 0 PAINT (529, 117), 6, 0 LINE (440, 130)-(515, 180), 0, BF LINE (450, 190)-(505, 210), 0, B PAINT (500, 195), 6, 0 PAINT (500, 205), 6, 0 LINE (450, 200)-(505, 200), 6 CIRCLE (450, 185), 3, 0 CIRCLE (470, 185), 3, 0 CIRCLE (490, 185), 3, 0 CIRCLE (510, 185), 3, 0 PAINT (450, 185), 8, 0 PAINT (470, 185), 8, 0 PAINT (490, 185), 8, 0 PAINT (510, 185), 8, 0 REM table LINE (170, 270)-(430, 270), 0 LINE (190, 250)-(410, 250), 0 LINE (190, 250)-(170, 270), 0 LINE (430, 270)-(410, 250), 0 LINE (410, 270)-(410, 280), 0 LINE (190, 270)-(190, 280), 0 PAINT (300, 260), 0, 0 PAINT (300, 275), 14, 0 REM lamp LINE (110, 140)-(150, 140), 0 LINE (120, 90)-(140, 90), 0 LINE (120, 90)-(110, 140), 0 LINE (140, 90)-(150, 140), 0 CIRCLE (130, 160), 20, 0 PAINT (130, 160), 12, 0 PAINT (130, 120), 14, 0 REM round table CIRCLE (130, 180), 40, 0, , , .3 PAINT (120, 180), 9, 0 LINE (120, 191)-(140, 210), 0, BF CIRCLE (130, 210), 30, 0, , , .3 PAINT (120, 215), 9, 0 CIRCLE (130, 180), 40, 12, , 2, .3 CIRCLE (130, 180), 40, 0, , 1.1, .3 REM bricks LINE (200, 150)-(400, 150), 0 LINE (200, 140)-(400, 140), 0 LINE (200, 152)-(250, 152), 0 LINE (250, 152)-(250, 150), 0 PAINT (230, 151), 15, 0 LINE (400, 152)-(350, 152), 0 LINE (350, 150)-(350, 152), 0 PAINT (370, 151), 15, 0 LINE (205, 150)-(205, 140), 15 LINE (240, 150)-(240, 140), 15 LINE (280, 150)-(280, 140), 15 LINE (320, 150)-(320, 140), 15 LINE (360, 150)-(360, 140), 15 LINE (395, 150)-(395, 140), 15 LINE (200, 138)-(400, 138), 0 PAINT (300, 139), 15, 0 LINE (200, 128)-(400, 128), 0 LINE (200, 126)-(400, 126), 0 LINE (201, 163)-(249, 163), 15 LINE (400, 163)-(350, 163), 15 LINE (210, 163)-(210, 152), 15 LINE (243, 163)-(243, 152), 15 LINE (355, 163)-(355, 152), 15 LINE (390, 163)-(390, 152), 15 LINE (201, 173)-(249, 173), 15 LINE (351, 173)-(399, 173), 15 LINE (215, 173)-(215, 163), 15 LINE (235, 173)-(235, 163), 15 LINE (360, 173)-(360, 163), 15 LINE (385, 173)-(385, 163), 15 LINE (201, 183)-(249, 183), 15 PAINT (300, 127), 15, 0 LINE (210, 128)-(210, 138), 0 LINE (250, 128)-(250, 138), 0 LINE (290, 128)-(290, 138), 0 LINE (330, 128)-(330, 138), 0 LINE (370, 128)-(370, 138), 0 LINE (212, 128)-(212, 138), 0 LINE (252, 128)-(252, 138), 0 LINE (292, 128)-(292, 138), 0 LINE (332, 128)-(332, 138), 0 LINE (372, 128)-(372, 138), 0 PAINT (211, 130), 15, 0 PAINT (251, 130), 15, 0 PAINT (291, 130), 15, 0 PAINT (331, 130), 15, 0 PAINT (371, 130), 15, 0 LINE (351, 185)-(399, 185), 15 LINE (351, 200)-(399, 200), 15 LINE (201, 200)-(249, 200), 15 LINE (211, 185)-(211, 200), 15 LINE (242, 185)-(242, 200), 15 LINE (355, 185)-(355, 200), 15 LINE (390, 185)-(390, 200), 15 LINE (205, 200)-(205, 210), 15 LINE (235, 200)-(235, 210), 15 LINE (365, 200)-(365, 210), 15 LINE (395, 200)-(395, 210), 15 LINE (220, 174)-(220, 183), 15 LINE (245, 174)-(245, 183), 15 LINE (365, 174)-(365, 183), 15 LINE (390, 174)-(390, 183), 15 LINE (201, 115)-(399, 115), 15 LINE (220, 115)-(220, 126), 15 LINE (240, 115)-(240, 126), 15 LINE (270, 115)-(270, 126), 15 LINE (300, 115)-(300, 126), 15 LINE (335, 115)-(335, 126), 15 LINE (365, 115)-(365, 126), 15 LINE (395, 115)-(395, 126), 15 LINE (210, 115)-(210, 101), 15 LINE (245, 115)-(245, 101), 15 LINE (275, 115)-(275, 101), 15 LINE (305, 115)-(305, 101), 15 LINE (340, 115)-(340, 101), 15 LINE (375, 115)-(375, 101), 15 LINE (199, 173)-(190, 166), 15 LINE (199, 185)-(190, 175), 15 LINE (199, 165)-(190, 155), 15 LINE (199, 150)-(190, 142) LINE (199, 138)-(190, 130) PAINT (300, 97), 6, 0 LINE (199, 115)-(190, 110) LINE (199, 125)-(190, 120) LINE (199, 200)-(190, 190) LINE (401, 200)-(409, 190) LINE (401, 125)-(409, 120) LINE (401, 115)-(409, 110) LINE (401, 138)-(409, 133) LINE (401, 150)-(409, 145) LINE (401, 163)-(409, 158) LINE (401, 173)-(409, 168) LINE (401, 185)-(409, 180) LINE (250, 210)-(350, 150), 0, BF LINE (20, 30)-(20, 309), 0 LINE (65, 40)-(65, 220), 0 LINE (20, 30)-(65, 40), 0 PAINT (40, 100), 9, 0 LINE (65, 200)-(20, 200), 0 PAINT (55, 100), 6, 0 LINE (600, 30)-(600, 295), 0 LINE (560, 40)-(560, 217), 0 LINE (560, 40)-(600, 30), 0 LINE (610, 20)-(610, 313), 0 LINE (610, 20)-(555, 37), 0 LINE (555, 37)-(555, 210), 0 PAINT (605, 30), 6, 0 LINE (560, 200)-(600, 200), 0 PAINT (580, 210), 14, 0 PAINT (580, 180), 13, 0 PLAY "MB T170 O2 G O3 C3 O2 G6 B3 G6 A+2 P4 A G+3 D+6 G3 D6 F+2" FOR X% = 20 TO 620 - delx% STEP 2 PUT (X%, 100), a%, XOR FOR j% = 1 TO 10500: NEXT PUT (X%, 100), a%, XOR NEXT X% CLS 2 301 LIVINGROOM2: SCORE = 100 SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (0, 0)-(75, 30), 0 LINE (629, 0)-(550, 30), 0 REM right wall LINE (550, 30)-(550, 200), 0 LINE (550, 200)-(629, 350), 0 REM left wall LINE (75, 30)-(75, 200), 0 LINE (0, 350)-(75, 200), 0 REM ceiling LINE (75, 30)-(550, 30), 0 REM floor LINE (75, 200)-(550, 200), 0 PAINT (400, 300), 3, 0 LINE (200, 210)-(400, 100), 0, B PAINT (300, 205), 4, 0 LINE (200, 100)-(190, 95), 0 LINE (190, 95)-(190, 200), 0 LINE (190, 200)-(200, 210), 0 LINE (400, 100)-(410, 95), 0 LINE (410, 95)-(410, 200), 0 LINE (410, 200)-(400, 210), 0 LINE (190, 95)-(410, 95), 0 PAINT (405, 100), 4, 0 PAINT (195, 100), 4, 0 PAINT (300, 150), 4, 0 PAINT (405, 201), 4, 0 PAINT (192, 201), 4, 0 REM sofa LINE (150, 300)-(450, 300), 0 LINE (150, 350)-(450, 350), 0 LINE (150, 300)-(150, 350), 0 LINE (450, 300)-(450, 350), 0 LINE (150, 300)-(160, 290), 0 LINE (160, 290)-(440, 290), 0 LINE (440, 290)-(450, 300), 0 LINE (165, 290)-(170, 275), 0 LINE (435, 290)-(430, 275), 0 LINE (430, 275)-(425, 275), 0 LINE (425, 275)-(415, 275), 0 PAINT (420, 295), 6, 0 PAINT (427, 275), 6, 0 LINE (415, 275)-(410, 290), 0 LINE (170, 275)-(185, 275), 0 LINE (185, 275)-(190, 290), 0 LINE (188, 280)-(412, 280), 0 PAINT (295, 285), 6, 0 LINE (300, 280)-(300, 290), 0 PAINT (300, 340), 6, 0 PAINT (427, 277), 6, 0 PAINT (176, 277), 6, 0 REM t.v. LINE (430, 120)-(525, 190), 0, B LINE (525, 190)-(530, 185), 0 LINE (525, 120)-(530, 115), 0 LINE (530, 115)-(530, 185), 0 LINE (430, 120)-(435, 115), 0 LINE (435, 115)-(530, 115), 0 PAINT (500, 135), 6, 0 PAINT (500, 117), 6, 0 PAINT (529, 117), 6, 0 LINE (440, 130)-(515, 180), 0, BF LINE (450, 190)-(505, 210), 0, B PAINT (500, 195), 6, 0 PAINT (500, 205), 6, 0 LINE (450, 200)-(505, 200), 6 CIRCLE (450, 185), 3, 0 CIRCLE (470, 185), 3, 0 CIRCLE (490, 185), 3, 0 CIRCLE (510, 185), 3, 0 PAINT (450, 185), 8, 0 PAINT (470, 185), 8, 0 PAINT (490, 185), 8, 0 PAINT (510, 185), 8, 0 REM TABLE LINE (170, 270)-(430, 270), 0 LINE (190, 250)-(410, 250), 0 LINE (190, 250)-(170, 270), 0 LINE (430, 270)-(410, 250), 0 LINE (410, 270)-(410, 280), 0 LINE (190, 270)-(190, 280), 0 PAINT (300, 260), 0, 0 PAINT (300, 275), 14, 0 REM LAMP LINE (110, 140)-(150, 140), 0 LINE (120, 90)-(140, 90), 0 LINE (120, 90)-(110, 140), 0 LINE (140, 90)-(150, 140), 0 CIRCLE (130, 160), 20, 0 PAINT (130, 160), 12, 0 PAINT (130, 120), 14, 0 REM ROUND TABLE CIRCLE (130, 180), 40, 0, , , .3 PAINT (120, 180), 9, 0 LINE (120, 191)-(140, 210), 0, BF CIRCLE (130, 210), 30, 0, , , .3 PAINT (120, 215), 9, 0 CIRCLE (130, 180), 40, 12, , 2, .3 CIRCLE (130, 180), 40, 0, , 1.1, .3 REM BRICKS LINE (200, 150)-(400, 150), 0 LINE (200, 140)-(400, 140), 0 LINE (200, 152)-(250, 152), 0 LINE (250, 152)-(250, 150), 0 PAINT (230, 151), 15, 0 LINE (400, 152)-(350, 152), 0 LINE (350, 150)-(350, 152), 0 PAINT (370, 151), 15, 0 LINE (205, 150)-(205, 140), 15 LINE (240, 150)-(240, 140), 15 LINE (280, 150)-(280, 140), 15 LINE (320, 150)-(320, 140), 15 LINE (360, 150)-(360, 140), 15 LINE (395, 150)-(395, 140), 15 LINE (200, 138)-(400, 138), 0 PAINT (300, 139), 15, 0 LINE (200, 128)-(400, 128), 0 LINE (200, 126)-(400, 126), 0 LINE (201, 163)-(249, 163), 15 LINE (400, 163)-(350, 163), 15 LINE (210, 163)-(210, 152), 15 LINE (243, 163)-(243, 152), 15 LINE (355, 163)-(355, 152), 15 LINE (390, 163)-(390, 152), 15 LINE (201, 173)-(249, 173), 15 LINE (351, 173)-(399, 173), 15 LINE (215, 173)-(215, 163), 15 LINE (235, 173)-(235, 163), 15 LINE (360, 173)-(360, 163), 15 LINE (385, 173)-(385, 163), 15 LINE (201, 183)-(249, 183), 15 PAINT (300, 127), 15, 0 LINE (210, 128)-(210, 138), 0 LINE (250, 128)-(250, 138), 0 LINE (290, 128)-(290, 138), 0 LINE (330, 128)-(330, 138), 0 LINE (370, 128)-(370, 138), 0 LINE (212, 128)-(212, 138), 0 LINE (252, 128)-(252, 138), 0 LINE (292, 128)-(292, 138), 0 LINE (332, 128)-(332, 138), 0 LINE (372, 128)-(372, 138), 0 PAINT (211, 130), 15, 0 PAINT (251, 130), 15, 0 PAINT (291, 130), 15, 0 PAINT (331, 130), 15, 0 PAINT (371, 130), 15, 0 LINE (351, 185)-(399, 185), 15 LINE (351, 200)-(399, 200), 15 LINE (201, 200)-(249, 200), 15 LINE (211, 185)-(211, 200), 15 LINE (242, 185)-(242, 200), 15 LINE (355, 185)-(355, 200), 15 LINE (390, 185)-(390, 200), 15 LINE (205, 200)-(205, 210), 15 LINE (235, 200)-(235, 210), 15 LINE (365, 200)-(365, 210), 15 LINE (395, 200)-(395, 210), 15 LINE (220, 174)-(220, 183), 15 LINE (245, 174)-(245, 183), 15 LINE (245, 174)-(245, 183), 15 LINE (365, 174)-(365, 183), 15 LINE (390, 174)-(390, 183), 15 LINE (201, 115)-(399, 115), 15 LINE (220, 115)-(220, 126), 15 LINE (240, 115)-(240, 126), 15 LINE (270, 115)-(270, 126), 15 LINE (300, 115)-(300, 126), 15 LINE (335, 115)-(335, 126), 15 LINE (365, 115)-(365, 126), 15 LINE (395, 115)-(395, 126), 15 LINE (210, 115)-(210, 101), 15 LINE (245, 115)-(245, 101), 15 LINE (275, 115)-(275, 101), 15 LINE (305, 115)-(305, 101), 15 LINE (340, 115)-(340, 101), 15 LINE (375, 115)-(375, 101), 15 LINE (199, 173)-(190, 166), 15 LINE (199, 185)-(190, 175), 15 LINE (199, 165)-(190, 155), 15 LINE (199, 150)-(190, 142), 15 LINE (199, 138)-(190, 130), 15 PAINT (300, 97), 6, 0 LINE (199, 115)-(190, 110), 15 LINE (199, 125)-(190, 120), 15 LINE (199, 200)-(190, 190), 15 LINE (401, 200)-(409, 190), 15 LINE (401, 125)-(409, 120), 15 LINE (401, 115)-(409, 110), 15 LINE (401, 138)-(409, 133), 15 LINE (401, 150)-(409, 145), 15 LINE (401, 163)-(409, 158), 15 LINE (401, 173)-(409, 168), 15 LINE (401, 185)-(409, 180), 15 LINE (250, 210)-(350, 150), 0, BF REM left door LINE (20, 30)-(20, 309), 0 LINE (65, 40)-(65, 220), 0 LINE (20, 30)-(65, 40), 0 PAINT (40, 100), 9, 0 LINE (65, 200)-(20, 200), 0 PAINT (55, 100), 6, 0 REM right door LINE (600, 30)-(600, 295), 0 LINE (560, 40)-(560, 217), 0 LINE (560, 40)-(600, 30), 0 LINE (610, 20)-(610, 313), 0 LINE (610, 20)-(555, 37), 0 LINE (555, 37)-(555, 210), 0 PAINT (605, 30), 6, 0 LINE (560, 200)-(600, 200), 0 PAINT (580, 210), 14, 0 PAINT (580, 180), 13, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE:" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "W" LOCATE 25, 74 PRINT "S N" LOCATE 26, 76 PRINT "E" 399 VIEW PRINT 28 TO 29 INPUT QQQQQ$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE QQQQQ$ CASE "LOOK" 401 CLS 2: PRINT "YOU'RE IN THE LIVINGROOM. " GOSUB 399 CASE "EXAMINE" 402 CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOSUB 399 CASE "EXAMINE FIREPLACE" 403 CLS 2: PRINT "YOU NOTICE A BURNT PIECE OF WOOD WITH SOME WRITING ON IT." GOSUB 399 CASE "EXAMINE THE FIREPLACE" GOTO 403 CASE "EXAMINE LAMP" 404 CLS 2: PRINT "THIS LAMP LOOKS LIKE IT BELONGS ON THE " LOCATE 29, 40 PRINT CHR$(34) LOCATE 29, 41 PRINT "I LOVE LUCY SHOW" LOCATE 29, 57 PRINT CHR$(34) LOCATE 29, 59 PRINT "!" GOSUB 399 CASE "EXAMINE THE LAMP" GOTO 404 CASE "EXAMINE TELEVISION" 405 PRINT "THIS IS AN OLD BLACK & WHITE TELEVISION. IT DOESN'T WORK." GOSUB 399 CASE "EXAMINE T.V." GOTO 405 CASE "EXAMINE TV" GOTO 405 CASE "EXAMINE THE TELEVISION" GOTO 405 CASE "EXAMINE THE T.V." GOTO 405 CASE "EXAMINE THE TV" GOTO 405 CASE "EXAMINE COUCH" 406 CLS 2: PRINT "THIS COUCH LOOKS LIKE IT BELONGS ON THE " LOCATE 29, 41 PRINT CHR$(34) LOCATE 29, 42 PRINT "I LOVE LUCY SHOW" LOCATE 29, 58 PRINT CHR$(34) LOCATE 29, 60 PRINT "!" GOSUB 399 CASE "EXAMINE THE COUCH" GOTO 406 CASE "EXAMINE WALL" 407 CLS 2: PRINT "LIKE ALL THE WALLS IN THIS HOUSE, IT IS OLD WITH CHIPPED PAINT." GOSUB 399 CASE "EXAMINE WALLS" GOTO 407 CASE "EXAMINE THE WALLS" GOTO 407 CASE "EXAMINE THE WALL" GOTO 407 CASE "EXAMINE RUG" 408 CLS 2: PRINT "IT IS AN OLD, WORN OUT RUG." GOSUB 399 CASE "EXAMINE THE RUG" GOTO 408 CASE "EXAMINE THE CARPET" GOTO 408 CASE "EXAMINE CARPET" GOTO 408 CASE "EXAMINE COFFEE TABLE" 409 CLS 2: PRINT "THIS OLD TABLE HAS SEEN MANY YEARS." GOSUB 399 CASE "EXAMINE THE COFFEE TABLE" GOTO 409 CASE "EXAMINE TABLE" GOTO 409 CASE "EXAMINE THE TABLE" GOTO 409 CASE "EXAMINE BURNT WOOD" 410 IF SCORE <= 100 THEN CLS 2: PRINT " YOU CAN'T EXAMINE WHAT YOU DIDN'T TAKE!" ELSE GOSUB BURNTWOOD GOSUB 399 CASE "EXAMINE PIECE OF BURNT WOOD" GOTO 410 CASE "EXAMINE THE PIECE OF BURNT WOOD" GOTO 410 CASE "EXAMINE THE BURNT WOOD" GOTO 410 CASE "EXAMINE THE WOOD" GOTO 410 CASE "EXAMINE WOOD" GOTO 410 CASE "TAKE BURNT WOOD" 411 SCORE = SCORE + 100 PRINT "YOU TAKE THE BURNT WOOD" GOSUB 399 CASE "TAKE WOOD" GOTO 411 CASE "TAKE THE PIECE OF BURNT WOOD" GOTO 411 CASE "TAKE THE PIECE OF WOOD" GOTO 411 CASE "NORTH" 412 GOSUB KITCHEN CASE "SOUTH" 413 GOSUB STAIRWELL CASE "WEST" 414 PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 399 CASE "EAST" GOSUB FOYER CASE "USE" 415 CLS 2: PRINT "WHAT DO YOU WANT TO USE?" GOSUB 399 CASE "USE COUCH" 416 CLS 2: PRINT "THIS IS NO TIME FOR RELAXATION!" GOSUB 399 CASE "USE TELEVISION" 417 CLS 2: PRINT "THE TELEVISION DOESN'T WORK!" GOSUB 399 CASE "USE T.V." GOTO 417 CASE "USE TV" GOTO 417 CASE "USE LAMP" 418 CLS 2: PRINT "THE LAMP DOESN'T WORK!" GOSUB 399 CASE "USE FIREPLACE" 419 CLS 2: PRINT "I WOULDN'T DO THAT IF I WERE YOU!" GOSUB 399 CASE "QUIT" GOSUB END2 CASE ELSE CLS 2: PRINT "YOU CAN'T DO THAT!" GOSUB 399 END SELECT END KITCHEN: SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (0, 200)-(50, 200), 0 LINE (150, 200)-(629, 200), 0 LINE (120, 220)-(150, 200), 0 LINE (150, 200)-(150, 80), 0 LINE (150, 80)-(120, 80), 0 CIRCLE (90, 150), 23, 0, 6, .3'refig handle LINE (50, 85)-(60, 90), 0 LINE (50, 95)-(60, 90), 0 LINE (50, 95)-(50, 85), 0 LINE (50, 215)-(60, 210), 0 LINE (50, 205)-(60, 210), 0 LINE (50, 205)-(50, 215), 0 PAINT (55, 210), 8, 0 LINE (200, 220)-(600, 150), 0, B LINE (600, 150)-(610, 140), 0 LINE (600, 220)-(610, 200), 0 LINE (610, 200)-(610, 140), 0 LINE (200, 150)-(210, 140), 0 LINE (210, 140)-(610, 140), 0 PAINT (300, 219), 4, 0 LINE (250, 130)-(550, 30), 0, B'window PAINT (350, 35), 9, 0 LINE (250, 250)-(550, 340), 0, B'table LINE (250, 250)-(270, 230), 0 LINE (550, 250)-(570, 230), 0 LINE (550, 340)-(570, 320), 0 LINE (270, 230)-(570, 230), 0 LINE (570, 320)-(570, 230), 0 PAINT (560, 250), 4, 0 LINE (280, 220)-(280, 150), 0 'stove LINE (400, 220)-(400, 150), 0 LINE (400, 150)-(410, 140), 0 LINE (300, 142)-(400, 142), 0 LINE (300, 142)-(290, 147), 0 LINE (290, 147)-(395, 147), 0 LINE (395, 147)-(400, 142), 0 LINE (320, 141)-(330, 133), 0, B LINE (360, 141)-(370, 133), 0, B LINE (340, 220)-(340, 150), 0 CIRCLE (330, 170), 5, 0 PAINT (330, 170), 8, 0 CIRCLE (350, 170), 5, 0 PAINT (350, 170), 8, 0 LINE (530, 220)-(530, 150), 0 LINE (530, 150)-(540, 140), 0 LINE (410, 155)-(460, 170), 0, B LINE (410, 180)-(460, 195), 0, B LINE (470, 155)-(520, 170), 0, B LINE (470, 180)-(520, 195), 0, B CIRCLE (435, 163), 3, 0 CIRCLE (435, 188), 3, 0 CIRCLE (495, 163), 3, 0 CIRCLE (495, 188), 3, 0 PAINT (435, 163), 8, 0 PAINT (435, 188), 8, 0 PAINT (495, 163), 8, 0 PAINT (495, 188), 8, 0 PAINT (415, 147), 4, 0 LINE (590, 190)-(540, 160), 0, BF PAINT (350, 145), 8, 0 LINE (210, 190)-(270, 160), 0, BF LINE (280, 150)-(300, 140), 0 CIRCLE (220, 145), 9, 0, , , .3 CIRCLE (245, 145), 9, 0, , , .3 CIRCLE (270, 145), 9, 0, , , .3 PAINT (220, 145), 8, 0 PAINT (245, 145), 8, 0 PAINT (270, 145), 8, 0 LINE (250, 100)-(550, 100), 0 PAINT (300, 110), 2, 0 PAINT (55, 90), 8, 0 LINE (50, 220)-(120, 80), 0, B 'refigerator PAINT (605, 160), 4, 0 PAINT (605, 201), 4, 0 LINE (600, 200)-(609, 200), 4 PAINT (300, 10), 13, 0 PAINT (300, 300), 4, 0 PAINT (100, 320), 14, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE:" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" 500 VIEW PRINT 28 TO 30: INPUT QQQQQQ$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE QQQQQQ$ CASE "LOOK" 501 CLS 2: PRINT "YOU ARE IN THE KITCHEN. IT LOOKS LIKE IT HASN'T BEEN USED SINCE THE 1950'S." GOSUB 500 CASE "LOOK OUTSIDE" CLS 2: PRINT "IT IS A NICE DAY. THE SUN IS OUT, THE BIRDS ARE SINGING!" GOSUB 500 CASE "EXAMINE" 502 CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOSUB 500 CASE "EXAMINE REFRIGERATOR" 503 CLS 2: PRINT "THIS REFRIGERATOR WAS MADE IN THE 1950'S." GOSUB 500 CASE "EXAMINE THE REFRIGERATOR" GOTO 503 CASE "EXAMINE SINK" 504 CLS 2: PRINT " IN THE SINK YOU SEE DROPLETS OF BLOOD!" GOSUB 500 CASE "EXAMINE THE SINK" GOTO 504 CASE "EXAMINE BLOOD" 505 CLS 2: PRINT "THIS OLD DRIED UP BLOOD HAS BECOME A PERMANENT FIXTURE TO THE SINK!" GOSUB 500 CASE "EXAMINE DROPLETS OF BLOOD" GOTO 505 CASE "EXAMINE BRONZE KEY" CLS 2: PRINT "THIS BRONZE KEY IS FOR THE FRONTDOOR." GOSUB 500 CASE "EXAMINE THE BLOOD" GOTO 505 CASE "EXAMINE STOVE" 506 CLS 2: PRINT "THIS IS A GAS STOVE AND OVEN." GOSUB 500 CASE "EXAMINE THE STOVE" GOTO 506 CASE "EXAMINE OVEN" GOTO 506 CASE "EXAMINE THE OVEN" GOTO 506 CASE "EXAMINE COUNTER" 507 CLS 2: PRINT "YOU NOTICE SOMETHING STRANGE ABOUT THE COUNTER TOP!" GOSUB 500 CASE "EXAMINE THE COUNTER" GOTO 507 CASE "EXAMINE COUNTER TOP" 508 CLS 2: PRINT "IN BETWEEN THE COUNTER & COUNTER TOP IS A GOLD KEY!" GOSUB 500 CASE "EXAMINE COUNTERTOP" GOTO 508 CASE "EXAMINE THE COUNTER TOP" GOTO 508 CASE "EXAMINE FLOOR" 509 CLS 2: PRINT "THIS IS A REGULAR KITCHEN FLOOR." GOSUB 500 CASE "EXAMINE THE FLOOR" GOTO 509 CASE "EXAMINE WALL" 510 CLS 2: PRINT "THE WALLS HAVE PLAIN WALLPAPER ON THEM AND A WINDOW." GOSUB 500 CASE "EXAMINE THE WALL" GOTO 510 CASE "EXAMINE WALLS" GOTO 510 CASE "EXAMINE THE WALLS" GOTO 510 CASE "EXAMINE CABINET" 511 CLS 2: PRINT " THESE CABNETS HAVE BEEN USED IN AGES." GOSUB 500 CASE "EXAMINE KITCHEN CABINET" GOTO 511 CASE "EXAMINE THE CABINET" GOTO 511 CASE "EXAMINE THE CABINETS" GOTO 511 CASE "EXAMINE THE CABINET" GOTO 511 CASE "EXAMINE THE KITCHEN CABINET" GOTO 511 CASE "EXAMINE CEILING" 512 CLS 2: PRINT "THE CEILING HAS CRACKS IN IT. I WOULDN'T SPEND TO MUCH TIME HERE." GOSUB 500 CASE "EXAMINE THE CEILING" GOTO 512 CASE "EXAMINE WINDOW" CLS 2: PRINT "IT IS A CLEAN WINDOW." GOSUB 500 CASE "EXAMINE THE WINDOW" CLS 2: PRINT "IT IS A CLEAN WINDOW." GOSUB 500 CASE "EXAMINE OUTSIDE" CLS 2: PRINT "THE SUN IS OUT. THE BIRDS ARE CHIRPING. YOU SHOULD REALLY BE OUTSIDE!" GOSUB 500 CASE "OPEN REFRIGERATOR" 513 CLS 2: PRINT "NO MATTER HOW HARD YOU TRY IT DOESN'T OPEN." GOSUB 500 CASE "OPEN THE REFRIGERATOR" GOTO 513 CASE "OPEN CABINETS" GOTO 513 CASE "OPEN THE CABINETS" GOTO 513 CASE "OPEN CABINET" GOTO 513 CASE "OPEN THE CABINET" GOTO 513 CASE "OPEN STOVE" GOTO 513 CASE "OPEN THE STOVE" GOTO 513 CASE "OPEN OVEN" GOTO 513 CASE "OPEN THE OVEN" GOTO 513 CASE "USE KEY" 514 CLS 2: IF SCORE = 300 THEN PRINT "WHAT DO YOU WANT TO USE THE KEY ON?" ELSE PRINT "YOU CAN'T USE WHAT YOU HAVEN'T TAKEN." GOSUB 500 CASE "USE SINK" CLS 2: PRINT " THE SINK DOESN'T WORK!" GOSUB 500 CASE "TAKE KEY" 515 CLS 2: PRINT "YOU TAKE KEY" SCORE = 300 GOSUB 500 CASE "TAKE THE KEY" GOTO 515 CASE "TAKE THE GOLD KEY" GOTO 515 CASE "TAKE THE SMALL GOLD KEY" GOTO 515 CASE "EXAMINE THE WINDOW" 517 CLS 2: PRINT "THE WINDOW IS CLEAN." GOSUB 500 CASE "EXAMINE KEY" 518 CLS 2: IF SCORE = 300 THEN PRINT "WHICH KEY DO YOU WANT TO EXAMINE?" ELSE PRINT "THIS IS A BRONZE KEY FOR THE FRONTDOOR." GOSUB 500 CASE "NORTH" 519 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 500 CASE "GO NORTH" GOTO 519 CASE "SOUTH" GOSUB HALL CASE "GO SOUTH" GOSUB HALL CASE "WEST" 520 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 500 CASE "GO WEST" GOTO 520 CASE "EAST" GOTO 520 CASE "GO EAST" GOTO 520 CASE "QUIT" GOSUB END2 CASE "EXAMINE GOLD KEY" 521 CLS 2: PRINT "THIS IS A GOLD KEY WITH A RUBY HANDLE." GOSUB 500 CASE "EXAMINE SMALL GOLD KEY" GOTO 521 CASE "EXAMINE SMALL KEY" GOTO 521 CASE ELSE CLS 2: PRINT "WHAT YOU HAVE EXPECTED HASN'T HAPPENED." GOSUB 500 END SELECT DININGROOM: SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (105, 160)-(115, 180), 0, B CIRCLE (110, 165), 2, 0 CIRCLE (110, 175), 2, 0 PAINT (110, 165), 8, 0 PAINT (110, 175), 8, 0 CIRCLE (340, -1), 50, 0 PAINT (340, 10), 14, 0 CIRCLE (350, 260), 120, 0, , , .1 PAINT (350, 260), 6, 0 LINE (310, 230)-(390, 235), 0, BF'CHAIR LINE (310, 250)-(390, 305), 0, BF'CHAIR LINE (310, 230)-(315, 250), 0, BF'CHAIR LINE (385, 230)-(390, 250), 0, BF'CHAIR LINE (310, 305)-(315, 340), 0, BF'CHAIR LINE (385, 305)-(390, 340), 0, BF'CHAIR LINE (320, 305)-(323, 320), 0, BF'CHAIR LINE (380, 305)-(377, 320), 0, BF'CHAIR LINE (200, 230)-(205, 335), 0, BF'CHAIR LINE (200, 295)-(255, 300), 0, BF LINE (250, 300)-(255, 335), 0, BF LINE (505, 230)-(510, 335), 0, BF LINE (505, 295)-(450, 300), 0, BF LINE (455, 300)-(450, 335), 0, BF PAINT (350, 239), 13, 0 LINE (0, 0)-(100, 50), 0 LINE (100, 50)-(100, 300), 0 LINE (100, 300)-(0, 350), 0 LINE (100, 50)-(529, 50), 0 LINE (529, 50)-(629, 0), 0 LINE (529, 50)-(529, 300), 0 LINE (529, 300)-(629, 350), 0 LINE (100, 300)-(529, 300), 0 LINE (120, 70)-(509, 70), 0 LINE (120, 70)-(120, 300), 0 LINE (509, 70)-(509, 300), 0 LINE (200, 280)-(300, 280), 0 LINE (120, 280)-(509, 280), 0 PAINT (270, 288), 14, 0 PAINT (450, 290), 14, 0 PAINT (190, 295), 14, 0 LINE (120, 110)-(180, 180), 0, B LINE (120, 170)-(180, 170), 0 PAINT (150, 175), 2, 0 PAINT (150, 160), 9, 0 LINE (120, 200)-(180, 290), 0, B PAINT (300, 297), 14, 0 PAINT (300, 100), 13, 0 LINE (121, 280)-(179, 288), 15, BF LINE (180, 200)-(190, 190), 0 LINE (190, 190)-(190, 280), 0 LINE (190, 280)-(180, 290), 0 LINE (189, 280)-(181, 280), 15 LINE (180, 270)-(120, 270), 0 PAINT (170, 275), 4, 0 PAINT (185, 260), 4, 0 LINE (120, 190)-(189, 190), 0 PAINT (150, 192), 15, 0 LINE (120, 210)-(170, 260), 0, BF PAINT (300, 350), 3, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" 600 VIEW PRINT 28 TO 29 INPUT QQQQQQ$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE QQQQQQ$ CASE "NORTH" GOSUB KITCHEN CASE "GO NORTH" GOSUB KITCHEN CASE "SOUTH" 610 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 600 CASE "GO SOUTH" GOTO 610 CASE "EAST" GOTO 610 CASE "GO EAST" GOTO 610 CASE "WEST" GOSUB FOYER CASE "GO WEST" GOSUB FOYER CASE "LOOK" 615 CLS 2: PRINT "YOU ARE STANDING IN THE DININGROOM." GOSUB 600 CASE "EXAMINE" 616 CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOSUB 600 CASE "EXAMINE KEY" CLS 2: IF SCORE = 300 THEN PRINT "WHICH KEY DO YOU WANT TO EXAMINE" ELSE PRINT "IT IS A BRONZE KEY." GOSUB 600 CASE "EXAMINE GOLD KEY" CLS 2: PRINT "IT IS A GOLD KEY WITH A RUBY HANDLE." GOSUB 600 CASE "EXAMINE BRONZE KEY" CLS 2: PRINT "IT IS A BRONZE KEY THAT IS FOR THE FRONTDOOR." GOSUB 600 CASE "EXAMINE DININGROOM TABLE" 617 CLS 2: PRINT "YOU SEE A PAD OF PAPER AND A PENCIL ON THE TABLE." GOSUB 600 CASE "EXAMINE LIGHT" CLS 2: PRINT "THE LIGHT ON THE CEILING DOESN'T WORK." GOSUB 600 CASE "EXAMINE TABLE" GOTO 617 CASE "EXAMINE SWITCH" CLS 2: PRINT "THIS SWITCH CONTROLS THE LIGHTING. IT DOESN'T WORK." GOSUB 600 CASE "USE SWITCH" CLS 2: PRINT "THE SWITCH IS BROKEN." GOSUB 600 CASE "EXAMINE FLOOR" 618 CLS 2: PRINT "THE FLOOR CREEKS AS YOU WALK ACROSS IT." GOSUB 600 CASE "EXAMINE THE FLOOR" GOTO 618 CASE "EXAMINE KITCHEN" 619 CLS 2: PRINT "YOU CAN'T EXAMINE IT FROM HERE!" GOSUB 600 CASE "EXAMINE THE KITCHEN" GOTO 619 CASE "EXAMINE CEILING" 620 CLS 2: PRINT "IT'S A TYPICAL CEILING!" GOSUB 600 CASE "EXAMINE THE CEILING" GOTO 620 CASE "EXAMINE PAD OF PAPER" 621 CLS 2: PRINT "AS YOU EXAMINE THE PAPER, YOU CAN SEE INDENTATIONS OF WRITING!" GOSUB 600 CASE "EXAMINE THE PAD OF PAPER" GOTO 621 CASE "EXAMINE PAD" GOTO 621 CASE "EXAMINE THE PENCIL" 622 CLS 2: PRINT "IT IS A NUMBER 2 PENCIL" GOSUB 600 CASE "EXAMINE PENCIL" GOTO 622 CASE "TAKE PENCIL" 623 CLS 2: PRINT " YOU TAKE THE PENCIL." SCORE = SCORE + 10 GOSUB 600 CASE "TAKE THE PAD OF PAPER" 624 CLS 2: PRINT "YOU TAKE THE PAD OF PAPER." SCORE = SCORE + 10 GOSUB 600 CASE "TAKE PAD OF PAPER" GOTO 624 CASE "TAKE PAPER" GOTO 624 CASE "TAKE PAD" GOTO 624 CASE "USE PENCIL" 625 : CLS 2: PRINT "WHAT DO YOU WANT TO USE TNE PENCIL ON?" GOSUB 600 CASE "USE PENCIL ON PAD OF PAPER" 626 CLS 2: PRINT "YOU SEE A MESSAGE THAT READS - ONLY TIME WILL TELL WHAT THE GOLDEN KEY IS FOR." GOSUB 600 CASE "USE PENCIL ON PAPER" GOTO 626 CASE "USE PENCIL ON PAD" GOTO 626 CASE "USE CHAIR" 627 CLS 2: PRINT "REMEMBER, SITTING HASN'T BEEN THE SAME SINCE YOUR HEMORRHOID OPERATION!" GOSUB 600 CASE "QUIT" GOSUB END2 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOSUB 600 END SELECT END SCREEN 12 STAIRWELL: CLS LINE (0, 0)-(629, 350), 15, BF CIRCLE (300, 329), 400, 0, , , .4 'floor REM wall LINE (100, 0)-(100, 192), 0 LINE (300, 0)-(300, 170), 0 LINE (500, 0)-(500, 192), 0 REM window 1 LINE (10, 20)-(90, 15), 0 LINE (10, 150)-(90, 130), 0 LINE (10, 20)-(10, 150), 0 LINE (90, 15)-(90, 130), 0 LINE (10, 110)-(90, 100), 0 REM sky,grass PAINT (50, 50), 9, 0 PAINT (50, 120), 2, 0 PAINT (50, 150), 6, 0'wall REM window 2, wall CIRCLE (211, 20), 62, 0, , 3, .2 LINE (151, 128)-(151, 17), 0 LINE (272, 17)-(272, 128), 0 CIRCLE (211, 130), 62, 0, , 3, .2 PAINT (155, 10), 6, 0 LINE (151, 100)-(272, 100), 0 PAINT (200, 110), 2, 0 PAINT (200, 90), 9, 0 CIRCLE (300, 300), 200, 0, , , .2 REM window 3 CIRCLE (400, 20), 62, 0, , 3, .2 CIRCLE (400, 130), 62, 0, , 3, .2 LINE (340, 17)-(340, 128), 0 LINE (462, 17)-(462, 128), 0 REM sky,grass LINE (340, 100)-(462, 100), 0 PAINT (350, 30), 9, 0 PAINT (350, 110), 2, 0 PAINT (350, 150), 6, 0 REM window 4 LINE (515, 20)-(610, 30), 0 LINE (515, 140)-(610, 160), 0 LINE (515, 20)-(515, 140), 0 LINE (610, 30)-(610, 160), 0 LINE (515, 100)-(610, 120), 0 'sky grass PAINT (550, 50), 9, 0'sky PAINT (550, 110), 2, 0'grass PAINT (550, 150), 6, 0 REM stair case LINE (150, 275)-(150, 290), 0 LINE (150, 290)-(165, 290), 0 LINE (165, 290)-(165, 305), 0 LINE (165, 305)-(180, 305), 0 LINE (180, 305)-(180, 320), 0 LINE (180, 320)-(195, 320), 0 LINE (195, 320)-(195, 333), 0 LINE (150, 290)-(150, 327), 0 LINE (165, 290)-(165, 330), 0 LINE (180, 305)-(180, 332), 0 PAINT (300, 250), 9, 0'rug PAINT (300, 300), 0, 0'stairwell VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "S" LOCATE 25, 74 PRINT "E W" LOCATE 26, 76 PRINT "N" 650 VIEW PRINT 28 TO 29 INPUT QQ1$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE QQ1$ CASE "NORTH" 651 GOSUB LIVINGROOM2 CASE "SOUTH" 652 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 650 CASE "EAST" GOTO 652 CASE "WEST" GOTO 652 CASE "USE STAIRS" IF SCORE < 10000 THEN GOSUB BASEMENT1 IF SCORE = 10000 THEN GOSUB BASEMENTMATCHESPICKUP 'ELSE GOSUB BASEMENT1 IF SCORE = 12000 THEN GOSUB BASEMENTRUGBURN IF SCORE = 13000 THEN GOSUB BSMTTRAPDOOROPEN IF SCORE = 14000 THEN GOSUB BSMTTRAPDOOROPEN IF SCORE = 15000 THEN GOSUB EMPTYHOLE CASE "EXAMINE" 653 CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOSUB 650 CASE "EXAMINE STAIRS" 654 CLS 2: PRINT "THE STAIRS LEAD DOWN TO THE BASEMENT." GOSUB 650 CASE "EXAMINE STAIRCASE" GOTO 654 CASE "EXAMINE WINDOWS" 655 CLS 2: PRINT "THE WINDOWS ARE MADE OF GLASS." GOSUB 650 CASE "EXAMINE WINDOW" GOTO 655 CASE "EXAMINE FLOOR" 656 CLS 2: PRINT "THE FLOOR HAS A BLUE CARPET ON IT." GOSUB 650 CASE "EXAMINE WALLS" 657 CLS 2: PRINT "THE WALLS ARE MADE OF THE SAME MATERIAL AS THE REST OF THE WALLS IN THE HOUSE." GOSUB 650 CASE "EXAMINE WALL" GOTO 657 CASE "EXAMINE CEILING" 658 CLS 2: PRINT "YOU SEE NOTHING IMPORTANT." GOSUB 650 CASE "LOOK" CLS 2: PRINT "YOU ARE IN THE SUNROOM, THERE ARE STAIRS LEADING TO THE BASEMENT." GOSUB 650 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOSUB 650 END SELECT 701 HALL: SCREEN 12: CLS LINE (0, 0)-(629, 350), 15, BF LINE (80, 350)-(150, 200), 0 LINE (150, 0)-(150, 200), 0 LINE (470, 0)-(470, 200), 0 LINE (470, 200)-(550, 350), 0 LINE (470, 200)-(150, 200), 0 LINE (250, 20)-(370, 200), 0, B LINE (30, 40)-(100, 20), 0 LINE (30, 40)-(30, 350), 0 LINE (100, 20)-(100, 309), 0 LINE (250, 100)-(370, 100), 0 PAINT (300, 300), 3, 0 PAINT (300, 190), 14, 0 CIRCLE (90, 190), 8, 0 PAINT (80, 150), 6, 0 PAINT (90, 190), 14, 0 LINE (250, 70)-(370, 70), 0 LINE (250, 30)-(370, 30), 0 PAINT (300, 25), 13, 0 LINE (250, 50)-(370, 50), 0 LINE (250, 65)-(370, 65), 0 PAINT (300, 40), 9, 0 PAINT (300, 51), 2, 0 LINE (250, 90)-(370, 90), 0 PAINT (300, 95), 4, 0 LINE (250, 58)-(370, 58), 0 PAINT (300, 59), 13, 0 LINE (355, 75)-(370, 85), 0, BF LINE (250, 150)-(350, 120), 0, B PAINT (300, 130), 4, 0 LINE (350, 120)-(355, 115), 0 LINE (355, 115)-(250, 115), 0 LINE (350, 150)-(355, 145), 0 LINE (355, 145)-(355, 115), 0 PAINT (353, 130), 4, 0 PAINT (300, 117), 15, 0 LINE (280, 70)-(280, 100), 0 LINE (350, 70)-(350, 100), 0 LINE (290, 73)-(310, 78), 0, B LINE (320, 73)-(340, 78), 0, B LINE (320, 82)-(340, 87), 0, B LINE (290, 82)-(310, 87), 0, B CIRCLE (300, 85), 1, 0 PAINT (300, 85), 8, 0 CIRCLE (300, 75), 1, 0 PAINT (300, 75), 8, 0 CIRCLE (330, 85), 1, 0 PAINT (330, 85), 8, 0 CIRCLE (330, 75), 1, 0 PAINT (330, 75), 8, 0 LINE (260, 70)-(260, 100), 0 CIRCLE (263, 80), 1, 0 CIRCLE (257, 80), 1, 0 PAINT (263, 80), 8, 0 PAINT (257, 80), 8, 0 LINE (280, 70)-(285, 65), 0 LINE (350, 70)-(355, 65), 0 PAINT (330, 67), 4, 0 LINE (275, 67)-(250, 68), 8, B LINE (265, 65)-(263, 63), 0, B PAINT (264, 64), 14, 0 LINE (256, 65)-(258, 63), 0, B PAINT (257, 64), 14, 0 800 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" VIEW PRINT 28 TO 29 INPUT Q7$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q7$ CASE "NORTH" 801 GOSUB KITCHEN CASE "GO NORTH" GOTO 801 CASE "SOUTH" 802 GOSUB FOYER CASE "GO SOUTH" GOTO 802 CASE "EAST" 803 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 800 CASE "GO EAST" GOTO 803 CASE "WEST" GOTO 803 CASE "GO WEST" GOTO 803 CASE "OPEN DOOR" GOSUB HALLDOOROPEN CASE "EXAMINE DOOR" 804 CLS 2: PRINT "THE DOOR IS MADE OF WOOD." GOSUB 800 CASE "EXAMINE FLOOR" 805 CLS 2: PRINT "YOU FOUND NOTHING INTERESTING." GOSUB 800 CASE "EXAMINE WALLS" GOTO 805 CASE "EXAMINE WALL" GOTO 805 CASE "QUIT" GOSUB END2 CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING IN THE HALLWAY AND SEE A DOOR TO THE WEST." GOSUB 800 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE!": GOTO 800 END SELECT END HALLDOOROPEN: SCREEN 12: CLS : CLS 2 LINE (0, 0)-(629, 350), 15, BF LINE (80, 350)-(150, 200), 0 LINE (150, 0)-(150, 200), 0 LINE (470, 0)-(470, 200), 0 LINE (470, 200)-(550, 350), 0 LINE (470, 200)-(150, 200), 0 LINE (250, 20)-(370, 200), 0, B LINE (30, 40)-(100, 20), 0'bathdoor LINE (30, 40)-(30, 350), 0'bathdoor LINE (100, 20)-(100, 309), 0'bathdoor LINE (30, 40)-(0, 35), 0 PAINT (20, 50), 6, 0 LINE (30, 200)-(50, 180), 0 LINE (50, 180)-(50, 35), 0 LINE (50, 180)-(60, 178), 0 LINE (90, 178)-(100, 178), 0 LINE (55, 155)-(55, 140), 0 LINE (95, 155)-(95, 140), 0 LINE (55, 140)-(95, 135), 0, B LINE (80, 145)-(87, 142), 0, B CIRCLE (75, 160), 20, 0, , , .2 CIRCLE (75, 160), 25, 0, , , .3 PAINT (53, 161), 6, 0 PAINT (70, 50), 9, 0 LINE (50, 160)-(60, 180), 0 LINE (100, 160)-(87, 180), 0 CIRCLE (75, 180), 15, 0, 3, .6, .2 PAINT (300, 300), 3, 0 PAINT (300, 190), 15, 0 LINE (250, 100)-(370, 100), 0 PAINT (300, 120), 14, 0 LINE (250, 70)-(370, 70), 0 LINE (250, 30)-(370, 30), 0 PAINT (300, 25), 13, 0 LINE (250, 50)-(370, 50), 0 LINE (250, 65)-(370, 65), 0 PAINT (300, 40), 9, 0 PAINT (300, 51), 2, 0 LINE (250, 90)-(370, 90), 0 LINE (250, 100)-(370, 100), 0 PAINT (300, 95), 4, 0 LINE (250, 58)-(370, 58), 0 PAINT (300, 59), 13, 0 LINE (355, 75)-(370, 85), 0, BF LINE (250, 150)-(350, 120), 0, B PAINT (300, 130), 4, 0 LINE (350, 120)-(355, 115), 0 LINE (355, 115)-(250, 115), 0 LINE (350, 150)-(355, 145), 0 LINE (355, 145)-(355, 115), 0 PAINT (353, 130), 4, 0 PAINT (300, 117), 15, 0 LINE (280, 70)-(280, 100), 0 LINE (350, 70)-(350, 100), 0 LINE (290, 73)-(310, 78), 0, B LINE (320, 73)-(340, 78), 0, B LINE (320, 82)-(340, 87), 0, B LINE (290, 82)-(310, 87), 0, B CIRCLE (300, 85), 1, 0 PAINT (300, 85), 8, 0 CIRCLE (300, 75), 1, 0 PAINT (300, 75), 8, 0 CIRCLE (330, 85), 1, 0 PAINT (330, 85), 8, 0 CIRCLE (330, 75), 1, 0 PAINT (330, 75), 8, 0 LINE (260, 70)-(260, 100), 0 CIRCLE (263, 80), 1, 0 CIRCLE (257, 80), 1, 0 PAINT (263, 80), 8, 0 PAINT (257, 80), 8, 0 LINE (280, 70)-(285, 65), 0 LINE (350, 70)-(355, 65), 0 PAINT (330, 67), 4, 0 LINE (275, 67)-(250, 68), 8, B LINE (265, 65)-(263, 63), 0, B PAINT (264, 64), 14, 0 LINE (256, 65)-(258, 63), 0, B PAINT (257, 64), 14, 0 PAINT (80, 150), 7, 0 PAINT (65, 170), 7, 0 PAINT (55, 178), 9, 0 PAINT (96, 175), 9, 0 PAINT (40, 150), 9, 0 PAINT (40, 200), 2, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" VIEW PRINT 28 TO 29 900 INPUT QQQ2$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE QQQ2$ CASE "NORTH" 901 GOSUB KITCHEN CASE "GO NORTH" GOTO 901 CASE "SOUTH" 902 GOSUB FOYER CASE "GO SOUTH" GOTO 902 CASE "EAST" 903 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 900 CASE "GO EAST" GOTO 903 CASE "WEST" 904 GOSUB HALFBATH CASE "GO WEST" GOTO 904 CASE "LOOK" CLS 2: PRINT "THE DOOR IS OPEN." GOSUB 900 CASE "QUIT" GOSUB END2 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOSUB 900 END SELECT HALFBATH: SCREEN 12: CLS : CLS 2 LINE (0, 0)-(100, 50), 1 LINE (0, 0)-(0, 350), 1 LINE (0, 350)-(100, 300), 1 LINE (100, 50)-(100, 300), 1 PAINT (50, 100), 1, 1 LINE (100, 50)-(550, 50), 1 LINE (550, 50)-(550, 300), 1 LINE (100, 300)-(550, 300), 1 PAINT (101, 200), 1, 1 LINE (100, 50)-(100, 300), 0 LINE (100, 300)-(550, 300), 2 LINE (0, 350)-(629, 350), 2 LINE (629, 350)-(550, 300), 2 LINE (0, 350)-(100, 300), 2 PAINT (100, 320), 2, 2 LINE (220, 200)-(400, 300), 15, BF LINE (310, 226)-(310, 300), 0 LINE (250, 200)-(370, 100), 7, BF CIRCLE (310, 200), 90, 0, 3, .2, .3 CIRCLE (470, 250), 50, 0, , , .2 CIRCLE (470, 250), 30, 0, , , .2 PAINT (470, 257), 6, 0 LINE (420, 250)-(432, 310), 0 LINE (520, 250)-(505, 310), 0 CIRCLE (470, 309), 37, 0, 3, .2, .1 PAINT (450, 300), 7, 0 PAINT (470, 256), 6, 0 PAINT (470, 250), 15, 0 LINE (550, 50)-(629, 0), 1 LINE (629, 0)-(629, 350), 1 LINE (629, 350)-(550, 300), 1 PAINT (600, 50), 1, 1 LINE (550, 50)-(550, 200), 0 LINE (220, 200)-(400, 200), 0 LINE (520, 200)-(560, 310), 0, B LINE (520, 210)-(560, 210), 0 PAINT (550, 209), 15, 0 PAINT (550, 211), 7, 0 LINE (20, 180)-(80, 180), 0 LINE (20, 180)-(20, 290), 0 LINE (80, 180)-(80, 265), 0 LINE (20, 290)-(80, 265), 0 LINE (20, 275)-(80, 255), 0 PAINT (22, 277), 12, 0 PAINT (25, 260), 15, 0 CIRCLE (15, 185), 5, 0 PAINT (15, 185), 6, 0 LINE (520, 220)-(518, 222), 15, BF CIRCLE (300, 250), 5, 0 PAINT (300, 250), 0, 0 CIRCLE (320, 250), 5, 0 PAINT (320, 250), 0, 0 'face CIRCLE (310, 150), 40, 0, , , 2 PAINT (310, 150), 15, 0 CIRCLE (310, 140), 10, 0, , , 2 CIRCLE (310, 145), 5, 0, , , 2 PAINT (310, 145), 0, 0 CIRCLE (310, 150), 15, 0, 3 LINE (297, 158)-(305, 180), 0 LINE (305, 180)-(310, 164), 0 LINE (315, 163)-(320, 180), 0 LINE (320, 180)-(325, 155), 0 PAINT (310, 155), 2, 0 'end face VIEW PRINT 25 TO 27 LOCATE 25, 10 PRINT "YOU SEE A HIDIOUS FACE IN THE MIRROR. COULD THIS BE YOURS?!" SLEEP 4 CLS : CLS 2 HALFBATH2: CLS : CLS 2 SCREEN 12 LINE (0, 0)-(100, 50), 1 LINE (0, 0)-(0, 350), 1 LINE (0, 350)-(100, 300), 1 LINE (100, 50)-(100, 300), 1 PAINT (50, 100), 1, 1 LINE (100, 50)-(550, 50), 1 LINE (550, 50)-(550, 300), 1 LINE (100, 300)-(550, 300), 1 PAINT (101, 200), 1, 1 LINE (100, 50)-(100, 300), 0 LINE (100, 300)-(550, 300), 2 LINE (0, 350)-(629, 350), 2 LINE (629, 350)-(550, 300), 2 LINE (0, 350)-(100, 300), 2 PAINT (100, 320), 2, 2 LINE (220, 200)-(400, 300), 15, BF LINE (310, 226)-(310, 300), 0 LINE (250, 200)-(370, 100), 7, BF CIRCLE (310, 200), 90, 0, 3, .2, .3 CIRCLE (470, 250), 50, 0, , , .2 CIRCLE (470, 250), 30, 0, , , .2 PAINT (470, 257), 6, 0 LINE (420, 250)-(432, 310), 0 LINE (520, 250)-(505, 310), 0 CIRCLE (470, 309), 37, 0, 3, .2, .1 PAINT (450, 300), 7, 0 PAINT (470, 256), 6, 0 PAINT (470, 250), 15, 0 LINE (550, 50)-(629, 0), 1 LINE (629, 0)-(629, 350), 1 LINE (629, 350)-(550, 300), 1 PAINT (600, 50), 1, 1 LINE (550, 50)-(550, 200), 0 LINE (220, 200)-(400, 200), 0 LINE (520, 200)-(560, 310), 0, B LINE (520, 210)-(560, 210), 0 PAINT (550, 209), 15, 0 PAINT (550, 211), 7, 0 LINE (20, 180)-(80, 180), 0 LINE (20, 180)-(20, 290), 0 LINE (80, 180)-(80, 265), 0 LINE (20, 290)-(80, 265), 0 LINE (20, 275)-(80, 255), 0 PAINT (22, 277), 12, 0 PAINT (25, 260), 15, 0 CIRCLE (15, 185), 5, 0 PAINT (15, 185), 6, 0 LINE (520, 220)-(518, 222), 15, BF CIRCLE (300, 250), 5, 0 PAINT (300, 250), 0, 0 CIRCLE (320, 250), 5, 0 PAINT (320, 250), 0, 0 VIEW PRINT 24 TO 27 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3: PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76: PRINT "W" LOCATE 25, 74: PRINT "S N" LOCATE 26, 76: PRINT "E" VIEW PRINT 28 TO 29: 1000 INPUT Q12$ CLS 2: VIEW PRINT 29 TO 30 SELECT CASE Q12$ CASE "WEST" 1001 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1000 CASE "NORTH" GOTO 1001 CASE "SOUTH" GOTO 1001 CASE "EAST" GOTO HALLDOOROPEN CASE "QUIT": GOSUB END2 CASE "EXAMINE" 1002 CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 1000 CASE "EXAMINE RUG" GOTO 1006 CASE "EXAMINE CARPET" GOTO 1006 CASE "EXAMINE TILE" GOTO 1006 CASE "EXAMINE MIRROR" 1004 CLS 2: PRINT "THE ONLY THING YOU SEE IS YOUR OWN REFLECTION." GOTO 1000 CASE "EXAMINE TOILET" 1005 CLS 2: PRINT " YOU CAN SEE FISH SWIMMING IN IT." GOTO 1000 CASE "EXAMINE TOWEL" 1006 PRINT "YOU FOUND NOTHING INTERESTING." GOTO 1000 CASE "EXAMINE FLOOR" GOTO 1006 CASE "EXAMINE SINK" CLS 2: PRINT "YOU FOUND NOTHING INTERESTING." 1007 GOSUB 1000 CASE "EXAMINE FISH" CLS 2: PRINT "THEY ARE GOLD FISH." GOSUB 1000 CASE "EXAMINE WALLS" GOTO 1006 CASE "EXAMINE CEILING" GOTO 1006 CASE "EXAMINE CABINET" GOTO 1006 CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING IN THE HALF BATHROOM." GOTO 1000 CASE "USE" CLS 2: PRINT "WHAT DO YOU WANT TO USE?" GOTO 1000 CASE "USE TOILET" 1008 CLS 2: PRINT "TRY TO CONTROL YOUR BLADDER AND BOWEL MOVEMENT!" GOSUB 1000 CASE "USE BATHROOM" GOTO 1008 CASE "USE TOWEL" CLS 2: PRINT "YOU CAN NOT USE WHAT YOU HAVEN'T TAKEN!" GOSUB 1000 CASE "USE FISH" CLS 2: PRINT "YOU EAT THE FISH." GOSUB 1000 CASE "USE SINK" 1009 CLS 2: PRINT " THE SINK DOESN'T WORK." GOSUB 1000 CASE "OPEN CABINET" 1010 CLS 2: PRINT "NO MATTER HOW HARD YOU TRY YOU CAN'T OPEN IT." GOSUB 1000 CASE "TAKE TOWEL" 1011 CLS 2: PRINT "YOU CAN'T TAKE IT!" GOSUB 1000 CASE "TAKE FISH" CLS 2: PRINT "YOU TAKE A FISH" GOSUB 1000 CASE "TAKE MIRROR" GOTO 1011 CASE "QUIT" GOTO END2 CASE ELSE PRINT "THAT DOESN'T MAKE SENSE!" GOTO 1000 END SELECT BASEMENT1: CLS SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (0, 0)-(50, 50), 0 LINE (0, 0)-(0, 350), 0 LINE (0, 350)-(50, 250), 0 LINE (50, 50)-(50, 250), 0 PAINT (10, 30), 7, 0 LINE (50, 50)-(550, 50), 0 LINE (550, 50)-(629, 0), 0 LINE (550, 50)-(550, 250), 0 LINE (550, 250)-(629, 350), 0 LINE (629, 350)-(629, 0), 0 PAINT (600, 50), 7, 0 'RUG LINE (550, 250)-(50, 250), 0 LINE (100, 280)-(500, 280), 0 LINE (100, 280)-(70, 350), 0 LINE (500, 280)-(530, 350), 0 PAINT (520, 340), 4, 0 PAINT (520, 310), 8, 0 PAINT (300, 2), 7, 0 'PICTURE ON WALL LINE (150, 200)-(450, 100), 0, B LINE (150, 200)-(200, 150), 0 LINE (200, 150)-(250, 200), 0 LINE (230, 180)-(275, 140), 0 LINE (275, 140)-(340, 200), 0 LINE (330, 140)-(300, 162), 0 LINE (330, 140)-(400, 200), 0 LINE (387, 190)-(450, 190), 0 LINE (210, 160)-(190, 160), 0 LINE (240, 170)-(308, 170), 0 LINE (302, 160)-(353, 160), 0 PAINT (300, 102), 9, 0 PAINT (250, 190), 6, 0 PAINT (330, 190), 6, 0 PAINT (180, 190), 6, 0 PAINT (430, 195), 2, 0 LINE (200, 320)-(230, 310), 0, B 'MATCHES PAINT (210, 315), 15, 0 LINE (200, 310)-(205, 300), 0 LINE (230, 310)-(235, 300), 0 LINE (235, 300)-(205, 300), 0 LINE (235, 300)-(235, 310), 0 LINE (235, 310)-(230, 320), 0 PAINT (231, 315), 0, 0 PAINT (220, 309), 13, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" 1100 VIEW PRINT 28 TO 30 INPUT Q11$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q11$ CASE "LOOK" CLS 2: PRINT "YOU ARE IN THE BASEMENT. YOU SEE A BOOK OF MATCHES ON THE FLOOR." GOTO 1100 CASE "USE STAIRS" 1101 GOSUB STAIRWELL CASE "NORTH" 1102 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1100 CASE "SOUTH" GOTO 1101 CASE "EAST" GOTO 1102 CASE "WEST" GOTO 1102 CASE "TAKE MATCHES" SCORE = 10000 GOSUB BASEMENTMATCHESPICKUP CASE "EXAMINE WALLS" CLS 2: PRINT "YOU SEE A PAINTING ON THE WALL." GOTO 1100 CASE "EXAMINE PAINTING" CLS 2: PRINT "THIS IS A PAINTING OF THE SWISS ALPS." GOTO 1100 CASE "EXAMINE CARPET" CLS 2: PRINT "IT IS A RED CARPET. YOU NOTICE THAT THE FLOOR CREEKS AS YOU WALK ACROSS IT." GOTO 1100 CASE "EXAMINE RUG" CLS 2: PRINT "IT IS A RED CARPET. YOU NOTICE THAT THE FLOOR CREEKS AS YOU WALK ACROSS IT." GOTO 1100 CASE "EXAMINE FLOOR" CLS 2: PRINT "THE FLOOR IS MADE OF CONCRETE." GOTO 1100 CASE "EXAMINE WALL" CLS 2: PRINT "YOU SEE A PAINTING ON THE WALL." GOTO 1100 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOTO 1100 END SELECT BASEMENTMATCHESPICKUP: SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (0, 0)-(50, 50), 0 LINE (0, 0)-(0, 350), 0 LINE (0, 350)-(50, 250), 0 LINE (50, 50)-(50, 250), 0 PAINT (10, 30), 7, 0 LINE (50, 50)-(550, 50), 0 LINE (550, 50)-(629, 0), 0 LINE (550, 50)-(550, 250), 0 LINE (550, 250)-(629, 350), 0 LINE (629, 350)-(629, 0), 0 PAINT (600, 50), 7, 0 'RUG LINE (550, 250)-(50, 250), 0 LINE (100, 280)-(500, 280), 0 LINE (100, 280)-(70, 350), 0 LINE (500, 280)-(530, 350), 0 PAINT (520, 340), 4, 0 PAINT (520, 310), 8, 0 PAINT (300, 2), 7, 0 'PICTURE ON WALL LINE (150, 200)-(450, 100), 0, B LINE (150, 200)-(200, 150), 0 LINE (200, 150)-(250, 200), 0 LINE (230, 180)-(275, 140), 0 LINE (275, 140)-(340, 200), 0 LINE (330, 140)-(300, 162), 0 LINE (330, 140)-(400, 200), 0 LINE (387, 190)-(450, 190), 0 LINE (210, 160)-(190, 160), 0 LINE (240, 170)-(308, 170), 0 LINE (302, 160)-(353, 160), 0 PAINT (300, 102), 9, 0 PAINT (250, 190), 6, 0 PAINT (330, 190), 6, 0 PAINT (180, 190), 6, 0 PAINT (430, 195), 2, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT LOCATE 25, 74 PRINT LOCATE 26, 76 PRINT VIEW PRINT 28 TO 30 1150 INPUT Q15$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q15$ CASE "CARPET" GOTO BASEMENTRUGBURN CASE "NORTH" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1150 CASE "USE STAIRS" GOSUB STAIRWELL CASE "SOUTH" GOSUB STAIRWELL CASE "EAST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1150 CASE "WEST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1150 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 1150 CASE "EXAMINE FLOOR" CLS 2: PRINT "YOU SEE A RED CARPET." GOTO 1150 CASE "EXAMINE WALLS" 1151 CLS 2: PRINT "YOU SEE A PICTURE ON THE WALL." GOTO 1150 CASE "EXAMINE WALL" GOTO 1151 CASE "EXAMINE PICTURE" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOTO 1150 CASE "EXAMINE MATCHES" CLS 2: PRINT "THESE ARE ORDINARY MATCHES" GOTO 1150 CASE "EXAMINE PAINTING" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOTO 1150 CASE "EXAMINE RUG" CLS 2: PRINT "YOU NOTICE SOMETHING STRANGE ABOUT THIS CARPET." GOTO 1150 CASE "EXAMINE CARPET" CLS 2: PRINT "YOU NOTICE SOMETHING STRANGE ABOUT THIS CARPET." GOTO 1150 CASE "USE MATCHES" CLS 2: PRINT "WHAT DO YOU WANT TO USE MATCHES ON?" GOTO 1150 CASE "EXAMINE ROOM" GOTO 1152 CASE "LOOK" 1152 CLS 2: PRINT "YOU ARE IN THE BASEMENT." GOTO 1150 CASE "USE MATCHES ON RUG" SCORE = 12000 GOTO BASEMENTRUGBURN CASE "LOOK" CLS 2: PRINT "YOU'RE IN THE BASEMENT." GOTO 1150 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOTO 1150 END SELECT BASEMENTRUGBURN: 1201 SCREEN 12: CLS LINE (0, 0)-(629, 350), 15, BF LINE (0, 0)-(50, 50), 0 LINE (0, 0)-(0, 350), 0 LINE (0, 350)-(50, 250), 0 LINE (50, 50)-(50, 250), 0 PAINT (10, 30), 7, 0 LINE (50, 50)-(550, 50), 0 LINE (550, 50)-(629, 0), 0 LINE (550, 50)-(550, 250), 0 LINE (550, 250)-(629, 350), 0 LINE (629, 350)-(629, 0), 0 PAINT (600, 50), 7, 0 LINE (550, 250)-(50, 250), 0 'PICTURE ON WALL LINE (150, 200)-(450, 100), 0, B LINE (150, 200)-(200, 150), 0 LINE (200, 150)-(250, 200), 0 LINE (230, 180)-(275, 140), 0 LINE (275, 140)-(340, 200), 0 LINE (330, 140)-(300, 162), 0 LINE (330, 140)-(400, 200), 0 LINE (387, 190)-(450, 190), 0 LINE (210, 160)-(190, 160), 0 LINE (240, 170)-(308, 170), 0 LINE (302, 160)-(353, 160), 0 PAINT (300, 102), 9, 0 PAINT (250, 190), 6, 0 PAINT (330, 190), 6, 0 PAINT (180, 190), 6, 0 PAINT (430, 195), 2, 0 PAINT (520, 310), 8, 0 LINE (300, 290)-(400, 290), 0 LINE (300, 290)-(285, 320), 0 LINE (400, 290)-(395, 320), 0 LINE (395, 320)-(285, 320), 0 PAINT (350, 300), 6, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT LOCATE 25, 74 PRINT LOCATE 26, 76 PRINT VIEW PRINT 28 TO 29 PRINT "THE CARPET BURNS AWAY TO REVEAL A TRAP DOOR!": SLEEP 3: CLS 2 1202 VIEW PRINT 28 TO 30 INPUT Q16$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q16$ CASE "USE STAIRS" GOSUB STAIRWELL GOTO 1202 CASE "NORTH" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1202 CASE "SOUTH" GOSUB STAIRWELL GOTO 1202 CASE "EAST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1202 CASE "WEST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1202 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 1202 CASE "EXAMINE FLOOR" CLS 2: PRINT "YOU SEE A RED CARPET." GOTO 1202 CASE "EXAMINE WALLS" CLS 2: PRINT "YOU SEE NOTHING INTERESTING." GOTO 1202 CASE "EXAMINE PICTURE" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOTO 1202 CASE "EXAMINE MATCHES" CLS 2: PRINT "THESE ARE ORDINARY MATCHES" GOTO 1202 CASE "EXAMINE PAINTING" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOTO 1202 CASE "EXAMINE RUG" CLS 2: PRINT "YOU NOTICE SOMETHING STRANGE ABOUT THIS CARPET." GOTO 1202 CASE "EXAMINE CARPET" CLS 2: PRINT "YOU NOTICE SOMETHING STRANGE ABOUT THIS CARPET." GOTO 1202 CASE "EXAMINE TRAP DOOR" CLS 2: PRINT "THIS TRAP DOOR SEEMS TO BE CONCEALING SOMETHING!" GOTO 1202 CASE "LOOK" CLS 2: PRINT "YOU SEE A TRAP DOOR!" GOTO 1202 CASE "OPEN TRAP DOOR" SCORE = 13000 GOTO BSMTTRAPDOOROPEN CASE "OPEN TRAPDOOR" SCORE = 13000 GOTO BSMTTRAPDOOROPEN CASE "QUIT" GOTO END2 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOTO 1202 END SELECT BSMTTRAPDOOROPEN: SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (0, 0)-(50, 50), 0 LINE (0, 0)-(0, 350), 0 LINE (0, 350)-(50, 250), 0 LINE (50, 50)-(50, 250), 0 PAINT (10, 30), 7, 0 LINE (50, 50)-(550, 50), 0 LINE (550, 50)-(629, 0), 0 LINE (550, 50)-(550, 250), 0 LINE (550, 250)-(629, 350), 0 LINE (629, 350)-(629, 0), 0 PAINT (600, 50), 7, 0 LINE (550, 250)-(50, 250), 0 'PICTURE ON WALL LINE (150, 200)-(450, 100), 0, B LINE (150, 200)-(200, 150), 0 LINE (200, 150)-(250, 200), 0 LINE (230, 180)-(275, 140), 0 LINE (275, 140)-(340, 200), 0 LINE (330, 140)-(300, 162), 0 LINE (330, 140)-(400, 200), 0 LINE (387, 190)-(450, 190), 0 LINE (210, 160)-(190, 160), 0 LINE (240, 170)-(308, 170), 0 LINE (302, 160)-(353, 160), 0 PAINT (300, 102), 9, 0 PAINT (250, 190), 6, 0 PAINT (330, 190), 6, 0 PAINT (180, 190), 6, 0 PAINT (430, 195), 2, 0 PAINT (520, 310), 8, 0 LINE (300, 290)-(400, 290), 0 LINE (300, 290)-(285, 320), 0 LINE (400, 290)-(395, 320), 0 LINE (395, 320)-(285, 320), 0 PAINT (350, 300), 0, 0 LINE (410, 270)-(450, 270), 0 LINE (410, 270)-(405, 320), 0 LINE (450, 270)-(448, 320), 0 LINE (448, 320)-(405, 320), 0 PAINT (440, 300), 6, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" VIEW PRINT 28 TO 30 LOCATE 28, 1: PRINT "THE TRAP DOOR CONCEALS A HOLE WITH SOMETHING INSIDE!" SLEEP 4: CLS 2 VIEW PRINT 28 TO 30 1300 INPUT Q12$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q12$ CASE "USE STAIRS" GOSUB STAIRWELL CASE "NORTH" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1300 CASE "SOUTH" GOSUB STAIRWELL CASE "EAST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1300 CASE "WEST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1300 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 1300 CASE "EXAMINE FLOOR" CLS 2: PRINT "YOU SEE A RED CARPET." GOTO 1300 CASE "EXAMINE WALLS" CLS 2: PRINT "YOU SEE NOTHING INTERESTING." GOTO 1300 CASE "EXAMINE PICTURE" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOTO 1300 CASE "EXAMINE MATCHES" CLS 2: PRINT "THESE ARE ORDINARY MATCHES" GOTO 1300 CASE "EXAMINE PAINTING" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOTO 1300 CASE "EXAMINE RUG" GOTO 1330 CASE "EXAMINE HOLE" SCORE = 14000 GOTO BSMTHOLE CASE "EXAMINE CARPET" GOTO 1330 CASE "EXAMINE TRAP DOOR" CLS 2: PRINT "THE TRAP DOOR IS MADE OF WOOD." GOTO 1300 CASE "EXAMINE TRAPDOOR" CLS 2: PRINT "THE TRAPDOOR IS MADE OF WOOD." GOTO 1300 CASE "LOOK" CLS 2: PRINT "YOU ARE IN THE BASEMENT." GOTO 1300 CASE "QUIT" GOTO END2 CASE ELSE 1330 CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOTO 1300 END SELECT 1400 BSMTHOLE: CLS : SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (0, 350)-(50, 50), 0 LINE (629, 350)-(550, 50), 0 LINE (550, 50)-(50, 50), 0 LINE (50, 50)-(50, 0), 0 LINE (550, 50)-(550, 0), 0 PAINT (10, 10), 7, 0 PAINT (610, 10), 7, 0 PAINT (400, 349), 8, 0 LINE (270, 100)-(450, 200), 0, BF LINE (455, 100)-(550, 250), 0, B PAINT (500, 150), 6, 0 'Washington's letter LINE (278, 120)-(370, 190), 15, BF VIEW PRINT 1 TO 24 LOCATE 9, 39 PRINT "From" LOCATE 10, 38 PRINT "General" LOCATE 11, 37 PRINT "Washington" VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" 1500 VIEW PRINT 28 TO 30: COLOR 15 INPUT QQ11$: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE QQ11$ CASE "NORTH" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1500 CASE "SOUTH" GOSUB STAIRWELL CASE "USE STAIRS" GOSUB STAIRWELL CASE "EAST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1500 CASE "WEST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1500 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 1500 CASE "EXAMINE FLOOR" CLS 2: PRINT "YOU SEE A RED CARPET." GOTO 1500 CASE "EXAMINE LETTER" CLS 2: PRINT "YOU CAN'T EXAMINE WHAT YOU HAVEN'T TAKEN!" GOTO 1500 CASE "EXAMINE WALLS" CLS 2: PRINT "YOU SEE NOTHING INTERESTING." GOTO 1500 CASE "EXAMINE HOLE" CLS 2: PRINT "THE HOLE HAS SOMETHING INSIDE" GOTO 1500 CASE "EXAMINE PICTURE" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOTO 1500 CASE "EXAMINE MATCHES" CLS 2: PRINT "THESE ARE ORDINARY MATCHES" GOTO 1500 CASE "EXAMINE PAINTING" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOTO 1500 CASE "EXAMINE RUG" GOTO 1530 CASE "EXAMINE CARPET" GOTO 1530 CASE "LOOK" CLS 2: PRINT "YOU SEE A HOLE WITH SOMETHING INSIDE." GOTO 1500 CASE "TAKE LETTER" SCORE = 15000 GOTO EMPTYHOLE CASE "QUIT" GOTO END2 CASE ELSE 1530 CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOTO 1500 END SELECT EMPTYHOLE: SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (0, 350)-(50, 50), 0 LINE (629, 350)-(550, 50), 0 LINE (550, 50)-(50, 50), 0 LINE (50, 50)-(50, 0), 0 LINE (550, 50)-(550, 0), 0 LINE (455, 100)-(550, 250), 0, B PAINT (500, 250), 6, 0 PAINT (10, 10), 7, 0 PAINT (610, 10), 7, 0 PAINT (400, 349), 8, 0 PAINT (500, 240), 6, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" LINE (270, 100)-(450, 200), 0, BF 1700 VIEW PRINT 28 TO 30 INPUT Q20$: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q20$ CASE "NORTH" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 1700 CASE "SOUTH" GOSUB STAIRWELL GOTO 1700 CASE "USE STAIRS" GOSUB STAIRWELL CASE "EAST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 1700 CASE "WEST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOSUB 1700 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOSUB 1700 CASE "EXAMINE FLOOR" CLS 2: PRINT "THE FLOOR IS MADE OF CEMENT." GOSUB 1700 CASE "EXAMINE WALLS" CLS 2: PRINT "YOU SEE NOTHING INTERESTING." GOSUB 1700 CASE "EXAMINE PICTURE" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOSUB 1700 CASE "EXAMINE MATCHES" CLS 2: PRINT "THESE ARE ORDINARY MATCHES" GOSUB 1700 CASE "EXAMINE PAINTING" CLS 2: PRINT "THIS PAINTING IS OF THE SWISS ALPS." GOSUB 1700 CASE "EXAMINE RUG" GOTO 1720 CASE "EXAMINE CARPET" GOTO 1720 CASE "LOOK" CLS 2: PRINT "YOU ARE IN THE BASEMENT." GOSUB 1700 CASE "EXAMINE LETTER" GOTO 1730 CASE ELSE 1720 CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOSUB 1700 END SELECT 1730 SCREEN 0: CLS COLOR 0, 15, 15 PRINT " " PRINT " " PRINT " " PRINT " " PRINT " Know all man, by these Presence that the Bearer of this letter " PRINT " " PRINT " Master Horatio Prim is a splended Artisan whose very skills has " PRINT " " PRINT " served The Continental Forces well. I take great pleasure in " PRINT " " PRINT " Recommanding him to all who need the services of an excellent " PRINT " " PRINT " Tinker and a True Patriot. " PRINT " " PRINT " " PRINT " " PRINT " Yours Truly " PRINT " George Washington " PRINT " Commander in Chief of " PRINT " The United Colonies " PRINT " " PRINT " " PRINT " July 9, 1778 " COLOR 15, 0 PRINT "PRESS ANY KEY TO CONTINUE" 1800 K$ = INKEY$: IF K$ = "" THEN 1800 SCREEN 0, 0, 0: WIDTH 40: COLOR 14 PLAY "T170 O3 G+ A6 B6 O4 E2 P16 O3 F+ G+6 A2 P16 B O4 C+6 D+6 A2 P16 C+5 D+5 E5 F+ G+" PRINT PRINT PRINT "AS SOON AS YOU'VE READ THE LETTER YOU " PRINT PRINT "FIND YOURSELF OUTSIDE WITH THE POLICE " PRINT PRINT "WAITING. THEY TELL YOU YOU'RE LUCKY " PRINT PRINT "BECAUSE WHOEVER GOES INTO THAT HOUSE " PRINT PRINT "USUALLY IS FOUND DEAD. THEY TAKE YOU " PRINT PRINT "TO YOUR CAR WHERE YOU MEET YOUR " PRINT PRINT "FRIEND. YOUR CAR HAS TWO NEW TIRES. " PRINT PRINT "AS YOU DRIVE OFF YOU THINK TO YOURSELF" PRINT PRINT "WHAT NEW ADVENTURES AWAIT YOU." PRINT PRINT "TO BE CONTINUED?" PRINT COLOR 15: PRINT "PRESS ANY KEY TO CONTINUE." PLAY "MB P16 T170 O3 G+ A6 B5 O4 E F+ G+ A2 P16 O3 B B O4 G+5 F+ O3 B O4 G+5" PLAY "MB O4 F+ O3 B O4 A G+ F+ E" PLAY "P16 MB T170 O3 G+ A6 B6 O4 E2 P16 O3 F+ G+6 A2 P16 B O4 C+6 D+6 A2 P16 C+5 D+5 E5 F+ G+" PLAY "MB P16 T170 O3 G+ A6 B5 O4 E F+ G+ A2 P16 O3 B B O4 G+5 F+ O3 B O4 G+5" PLAY "MB O4 F+ O3 B O4 A G+ F+ E" 1900 K$ = INKEY$: IF K$ = "" THEN 1900 CLS : SCREEN 0, 0, 0: WIDTH 40: COLOR 15 PRINT PRINT PRINT PRINT " MUSIC FROM THE MOVIE HALLOWEEN," PRINT PRINT " SHADOW GATE (A NITENDO GAME), AND" PRINT PRINT " THE MOVIE INDIANA JONES." PLAY "MB T245 O4 C5 O3 F5 F5 O4 C5 O3 F5 F5 O4 C5 O3 F5 O4 C+5 C+5" PLAY "MB T245 O4 C5 O3 F5 F5 O4 C5 O3 F5 F5 O4 C5 O3 F5 O4 C+5 C+5" SLEEP 4 CLS PRINT PRINT PRINT PRINT " STORY IDEA FROM" PRINT PRINT " THE ABBOTT & COSTELLO MOVIE" PRINT PRINT " THE TIME OF THEIR LIVES" PLAY "MB T120 O1 C1 D+1 E1 O0 A1 " SLEEP 5 CLS PRINT PRINT PRINT PRINT " WRITTEN, PRODUCED, AND DIRECTED BY" PRINT PRINT COLOR 14: PRINT " Jason Jackson" PRINT PRINT " DJACK7215.AOL.COM" END BURNTWOOD: 2001 SCREEN 0: WIDTH 40: COLOR 0, 6, 6 PRINT " " PRINT " " PRINT " HEAR ME YE FAITHLESS SOUL. " PRINT " " PRINT " MAY YOU LIE THERE IN EVERLASTING " PRINT " " PRINT " TORMENT WITH BUT ONE NAME TO " PRINT " " PRINT " IDENTIFY YOUR ROTTING BONES, " PRINT " " PRINT " TRAITOR " PRINT " " PRINT " AND UNLESS SOME EVIDENCE PROVES " PRINT " " PRINT " US WRONG I CURSE YOUR MISERABLE " PRINT " " PRINT " SPIRIT TO BE BOUND TO DANBERRY " PRINT " " PRINT " ACRES TO CRACK OF DOOM. AMEN " PRINT " " PRINT " " LOCATE 25, 1: COLOR 15, 0 PRINT "PRESS ANY KEY TO CONTINUE." 3000 K$ = INKEY$: IF K$ = "" THEN 3000 GOSUB LIVINGROOM2 END2: 'SCREEN 0: WIDTH 40: COLOR 15 'PRINT : 'PRINT : 'PRINT : 'PRINT " IT IS UNFORTUNATE THAT " 'PRINT : 'PRINT "YOU HAD TO END THE GAME SO SOON" END SECON: END SUB SUB SECONLEV CLS PLAY "MB T130 O3 C3 O2 G6 B3 G6 A+2 P4 A G+3 D+6 G3 D6 F+2" SCREEN 12 delx% = 335 DELY% = 255 bytes% = 4 + DELY% * 3 * INT((delx% + 7) / 8) REDIM a%(bytes% \ 2) CIRCLE (300, 200), 10, 2, , 3, 1 LINE (290, 200)-(290, 210), 2 LINE (310, 200)-(310, 210), 2 LINE (290, 210)-(270, 200), 2 LINE (310, 210)-(330, 200), 2 LINE (330, 200)-(330, 215), 2 LINE (270, 200)-(270, 215), 2 LINE (270, 215)-(273, 210), 2 LINE (330, 215)-(327, 210), 2 LINE (273, 210)-(285, 230), 2 LINE (327, 210)-(315, 230), 2 CIRCLE (265, 225), 20, 2, 5, 6 CIRCLE (290, 225), 25, 2, 4, 6 LINE (315, 230)-(315, 231), 2 PAINT (300, 200), 2, 2 CIRCLE (295, 200), 2, 0 CIRCLE (305, 200), 2, 0 PAINT (295, 200), 0, 0 PAINT (305, 200), 0, 0 CIRCLE (300, 210), 5, 0, , , 2 PAINT (300, 210), 0, 0 GET (270, 190)-(delx% - 1, DELY% - 1), a% CLS LINE (0, 0)-(629, 350), 15, BF LINE (0, 0)-(275, 120), 0 LINE (629, 0)-(325, 120), 0 LINE (325, 120)-(275, 120), 0 LINE (275, 120)-(325, 200), 0, B LINE (0, 350)-(275, 200), 0 LINE (629, 350)-(325, 200), 0 LINE (285, 140)-(315, 200), 0, B 'front door CIRCLE (290, 170), 3, 0' door knob PAINT (290, 170), 14, 0 PAINT (300, 125), 9, 0 PAINT (300, 145), 6, 0 REM left side door LINE (150, 100)-(150, 268), 0 LINE (200, 105)-(200, 241), 0 LINE (150, 100)-(200, 105), 0 CIRCLE (160, 185), 5, 0 PAINT (160, 185), 14, 0 PAINT (151, 102), 6, 0 PAINT (5, 10), 9, 0'left wall REM first right door LINE (520, 70)-(520, 297), 0 LINE (450, 90)-(450, 262), 0 LINE (450, 90)-(520, 70), 0 CIRCLE (460, 185), 6, 0 PAINT (460, 185), 14, 0 PAINT (500, 80), 6, 0 REM second right door LINE (350, 125)-(350, 212), 0 LINE (380, 119)-(380, 226), 0 LINE (380, 119)-(350, 125), 0 CIRCLE (356, 175), 4, 0 PAINT (356, 175), 14, 0 PAINT (351, 127), 6, 0 PAINT (620, 10), 9, 0'right wall PAINT (350, 1), 9, 0'ceiling PAINT (350, 348), 11, 0'floor VIEW PRINT 27 TO 28 LOCATE 27, 3 PRINT "AS YOU COME UP THE STAIRS, A GHOST APPEARS AND CROSSES THE HALLWAY!" FOR X% = 150 TO 780 - delx% PUT (X%, 100), a%, XOR FOR j% = 1 TO 1500: NEXT PUT (X%, 100), a%, XOR NEXT X% 175 SCREEN 12: CLS 2 SECONDFLOORHALL: LINE (0, 0)-(629, 350), 15, BF LINE (0, 0)-(275, 120), 0 LINE (629, 0)-(325, 120), 0 LINE (325, 120)-(275, 120), 0 LINE (275, 120)-(325, 200), 0, B LINE (0, 350)-(275, 200), 0 LINE (629, 350)-(325, 200), 0 LINE (285, 140)-(315, 200), 0, B 'front door CIRCLE (290, 170), 3, 0' door knob PAINT (290, 170), 14, 0 PAINT (300, 125), 9, 0 PAINT (300, 145), 6, 0 REM left side door LINE (150, 100)-(150, 268), 0 LINE (200, 105)-(200, 241), 0 LINE (150, 100)-(200, 105), 0 CIRCLE (160, 185), 5, 0 PAINT (160, 185), 14, 0 PAINT (151, 102), 6, 0 PAINT (5, 10), 9, 0'left wall REM first right door LINE (520, 70)-(520, 297), 0 LINE (450, 90)-(450, 262), 0 LINE (450, 90)-(520, 70), 0 CIRCLE (460, 185), 6, 0 PAINT (460, 185), 14, 0 PAINT (500, 80), 6, 0 REM second right door LINE (350, 125)-(350, 212), 0 LINE (380, 119)-(380, 226), 0 LINE (380, 119)-(350, 125), 0 CIRCLE (356, 175), 4, 0 PAINT (356, 175), 14, 0 PAINT (351, 127), 6, 0 PAINT (620, 10), 9, 0'right wall PAINT (350, 1), 9, 0'ceiling PAINT (350, 348), 11, 0'floor VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" VIEW PRINT 28 TO 30 8000 INPUT Q15$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q15$ CASE "QUIT" GOTO ENDD CASE "SOUTH" GOTO END2LEV CASE "USE STAIRS" GOTO END2LEV CASE "EAST" GOTO EASTDOOR CASE "NORTH" GOTO TWODOOR CASE "WEST" GOTO WESTDOOR CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING IN THE SECOND FLOOR HALLWAY" GOTO 8000 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 8000 CASE "EXAMINE FLOOR" 8010 CLS 2: PRINT "THE FLOOR LOOKS LIKE IT HASN'T BEEN VACUUMED IN AGES!" GOTO 8000 CASE "EXAMINE RUG" GOTO 8010 CASE "EXAMINE CARPET" GOTO 8010 CASE "EXAMINE WALLS" 8020 CLS 2: PRINT "THE WALLS LOOK LIKE THEY HAVEN'T BEEN CLEANED IN AGES!" GOTO 8000 CASE "EXAMINE WALL" GOTO 8020 CASE "EXAMINE DOOR" CLS 2: PRINT "THE DOOR IS MADE OF WOOD." GOTO 8000 CASE "EXAMINE CEILING" CLS 2: PRINT "YOU FIND NOTHING INTERESTING ABOUT IT." GOTO 8000 CASE "OPEN DOOR" CLS 2: PRINT "THE DOOR IS LOCKED." GOTO 8000 CASE "USE KEY" CLS 2: PRINT "WHAT DO YOU WANT TO USE THE KEY ON?" GOTO 8000 CASE "USE KEY ON DOOR" CLS 2: PRINT "THERE IS NO KEYHOLE HERE." GOTO 8000 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE." GOTO 8000 END SELECT WESTDOOR: SCREEN 12: CLS LINE (0, 0)-(629, 330), 9, BF LINE (0, 330)-(629, 350), 11, BF LINE (230, 50)-(370, 330), 6, BF CIRCLE (250, 200), 10, 0 PAINT (250, 200), 14, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: OPEN: USE: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "W" LOCATE 25, 74 PRINT "S N" LOCATE 26, 76 PRINT "E" VIEW PRINT 28 TO 30 8500 INPUT Q15$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q15$ CASE "QUIT" GOTO ENDD CASE "NORTH" GOTO TWODOOR CASE "SOUTH" GOTO SECONDFLOORHALL CASE "WEST" 8501 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 8500 CASE "EAST" GOTO 8501 CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING IN THE SECOND FLOOR HALLWAY" GOTO 8500 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 8500 CASE "EXAMINE FLOOR" 8510 CLS 2: PRINT "THE FLOOR LOOKS LIKE IT HASN'T BEEN VACUUMED IN AGES!" GOTO 8500 CASE "HIT DOOR" CLS 2: PRINT "YOU SHOULD REALLY CURB THAT VIOLENT BEHAVIOR!" GOTO 8500 CASE "EXAMINE RUG" GOTO 8510 CASE "EXAMINE CARPET" GOTO 8510 CASE "EXAMINE WALLS" 8520 CLS 2: PRINT "THE WALLS LOOK LIKE THEY HAVEN'T BEEN CLEANED IN AGES!" GOTO 8500 CASE "EXAMINE WALL" GOTO 8520 CASE "EXAMINE DOOR" CLS 2: PRINT "THE DOOR IS MADE OF WOOD." GOTO 8500 CASE "EXAMINE CEILING" CLS 2: PRINT "YOU FIND NOTHING INTERESTING ABOUT IT." GOTO 8500 CASE "OPEN DOOR" CLS 2: PRINT "THE DOOR IS LOCKED." GOTO 8500 CASE "USE KEY" CLS 2: PRINT "WHAT DO YOU WANT TO USE THE KEY ON?" GOTO 8500 CASE "USE KEY ON DOOR" CLS 2: PRINT "THERE IS NO KEY-HOLE HERE." GOTO 8500 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE." GOTO 8500 END SELECT EASTDOOR: SCREEN 12: CLS LINE (0, 0)-(629, 330), 9, BF LINE (0, 330)-(629, 350), 11, BF LINE (230, 50)-(370, 330), 6, BF CIRCLE (250, 200), 10, 0 PAINT (250, 200), 14, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "E" LOCATE 25, 74 PRINT "N S" LOCATE 26, 76 PRINT "W" SCREEN 12 VIEW PRINT 28 TO 30 8700 INPUT Q15$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q15$ CASE "QUIT" GOTO ENDD CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING IN THE SECOND FLOOR HALLWAY" GOTO 8700 CASE "EAST" 8701 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 8700 CASE "WEST" GOTO 8701 CASE "NORTH" GOTO TWODOOR CASE "SOUTH" GOTO SECONDFLOORHALL CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 8700 CASE "EXAMINE FLOOR" 8710 CLS 2: PRINT "THE FLOOR LOOKS LIKE IT HASN'T BEEN VACUUMED IN AGES!" GOTO 8700 CASE "EXAMINE RUG" GOTO 8710 CASE "EXAMINE CARPET" GOTO 8710 CASE "EXAMINE WALLS" 8720 CLS 2: PRINT "THE WALLS LOOK LIKE THEY HAVEN'T BEEN CLEANED IN AGES!" GOTO 8700 CASE "EXAMINE WALL" GOTO 8720 CASE "EXAMINE DOOR" CLS 2: PRINT "THE DOOR IS MADE OF WOOD." GOTO 8700 CASE "EXAMINE CEILING" CLS 2: PRINT "YOU FIND NOTHING INTERESTING ABOUT IT." GOTO 8700 CASE "OPEN DOOR" CLS 2: PRINT "THE DOOR IS LOCKED." GOTO 8700 CASE "USE KEY" CLS 2: PRINT "WHAT DO YOU WANT TO USE THE KEY ON?" GOTO 8700 CASE "USE KEY ON DOOR" CLS 2: PRINT "THERE IS NO KEY-HOLE HERE." GOTO 8700 CASE ELSE CLS 2: PRINT "WHAT YOU'VE EXPECTED HASN'T HAPPENED." GOTO 8700 END SELECT REAREASTDOOR: SCREEN 12: CLS LINE (0, 0)-(629, 330), 9, BF LINE (0, 330)-(629, 350), 11, BF LINE (230, 50)-(370, 330), 6, BF CIRCLE (250, 200), 10, 0 PAINT (250, 200), 14, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "E" LOCATE 25, 74 PRINT "N S" LOCATE 26, 76 PRINT "W" VIEW PRINT 28 TO 30 8800 INPUT Q15$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q15$ CASE "WEST" 8801 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 8800 CASE "EAST" GOTO 8801 CASE "SOUTH" GOTO SECONDFLOORHALL CASE "NORTH" GOTO TWODOOR CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING IN THE SECOND FLOOR HALLWAY. THERE IS A DOOR IN FRONT OF YOU." GOTO 8800 CASE "QUIT" CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 8800 CASE "EXAMINE FLOOR" 8810 CLS 2: PRINT "THE FLOOR LOOKS LIKE IT HASN'T BEEN VACUUMED IN AGES!" GOTO 8800 CASE "EXAMINE RUG" GOTO 8810 CASE "EXAMINE CARPET" GOTO 8810 CASE "EXAMINE WALLS" 8820 CLS 2: PRINT "THE WALLS LOOK LIKE THEY HAVEN'T BEEN CLEANED IN AGES!" GOTO 8800 CASE "EXAMINE WALL" GOTO 8820 CASE "EXAMINE DOOR" CLS 2: PRINT "THE DOOR IS MADE OF WOOD." GOTO 8800 CASE "EXAMINE CEILING" CLS 2: PRINT "YOU FIND NOTHING INTERESTING ABOUT IT." GOTO 8800 CASE "OPEN DOOR" GOTO DOOROPEN CASE "USE KEY" CLS 2: PRINT "WHAT DO YOU WANT TO USE THE KEY ON?" GOTO 8800 CASE "USE KEY ON DOOR" CLS 2: PRINT "THERE IS NO KEY-HOLE HERE." GOTO 8800 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE." GOTO 8800 END SELECT SCREEN 12: CLS LINE (0, 0)-(629, 330), 9, BF LINE (0, 330)-(629, 350), 11, BF LINE (230, 50)-(370, 330), 6, BF CIRCLE (250, 200), 10, 0 PAINT (250, 200), 14, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT LOCATE 25, 74 PRINT LOCATE 26, 76 PRINT 10006 K$ = INKEY$: IF K$ = "" THEN 10006 TWODOOR: SCREEN 12 LINE (0, 0)-(629, 350), 9, BF LINE (0, 0)-(100, 20), 0 LINE (629, 0)-(529, 20), 0 LINE (529, 20)-(529, 350), 0 LINE (100, 20)-(100, 350), 0 LINE (529, 20)-(100, 20), 0 LINE (200, 40)-(400, 350), 0, B LINE (629, 40)-(580, 48), 0 LINE (580, 48)-(580, 350), 0 PAINT (300, 100), 6, 0 PAINT (590, 100), 6, 0 CIRCLE (220, 240), 15, 0 PAINT (220, 240), 14, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "N" LOCATE 25, 74 PRINT "W E" LOCATE 26, 76 PRINT "S" SCREEN 12 VIEW PRINT 28 TO 30 9000 INPUT Q15$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q15$ CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING IN THE SECOND FLOOR HALLWAY" GOTO 9000 CASE "SOUTH" GOTO SECONDFLOORHALL CASE "USE GOLD KEY" CLS 2: PRINT "YOU SEE NO KEY-HOLE HERE." GOTO 9000 CASE "USE KEY" CLS 2: PRINT "YOU SEE NO KEY-HOLE HERE." GOTO 9000 CASE "USE BRONZE KEY" CLS 2: PRINT "YOU SEE NO KEY-HOLE HERE." GOTO 9000 CASE "NORTH" 9001 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 9000 CASE "WEST" GOTO 9001 CASE "EAST" GOTO REAREASTDOOR CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 9000 CASE "EXAMINE FLOOR" 9010 CLS 2: PRINT "THE FLOOR LOOKS LIKE IT HASN'T BEEN VACUUMED IN AGES!" GOTO 9000 CASE "EXAMINE RUG" GOTO 9010 CASE "EXAMINE CARPET" GOTO 9010 CASE "EXAMINE WALLS" 9020 CLS 2: PRINT "THE WALLS LOOK LIKE THEY HAVEN'T BEEN CLEANED IN AGES!" GOTO 9000 CASE "EXAMINE WALL" GOTO 9020 CASE "EXAMINE DOOR" CLS 2: PRINT "THE DOOR IS MADE OF WOOD." GOTO 9000 CASE "EXAMINE CEILING" CLS 2: PRINT "YOU FIND NOTHING INTERESTING ABOUT IT." GOTO 9000 CASE "OPEN DOOR" CLS 2: PRINT "THE DOOR IS LOCKED." GOTO 9000 CASE "USE KEY" CLS 2: PRINT "WHAT DO YOU WANT TO USE THE KEY ON?" GOTO 9000 CASE "USE KEY ON DOOR" CLS 2: PRINT "THERE IS NO KEYHOLE HERE." GOTO 9000 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE." GOTO 9000 END SELECT DOOROPEN: SCREEN 12 LINE (0, 0)-(629, 330), 9, BF LINE (0, 330)-(629, 350), 11, BF LINE (230, 50)-(370, 330), 15, BF LINE (371, 50)-(501, 330), 6, BF CIRCLE (481, 200), 10, 0 PAINT (481, 200), 14, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "E" LOCATE 25, 74 PRINT "N S" LOCATE 26, 76 PRINT "W" VIEW PRINT 28 TO 30 9500 INPUT Q15$: COLOR 15: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q15$ CASE "EAST" IF SCORE = 500 THEN GOTO NOLIGHTNING ELSE GOTO BEDROOM CASE "WEST" 9501 CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 9500 CASE "SOUTH" GOTO SECONDFLOORHALL CASE "NORTH" GOTO TWODOOR CASE "LOOK" CLS 2: PRINT "THE DOOR IS OPEN." GOTO 9500 CASE "QUIT" GOTO ENDD CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 9500 CASE "EXAMINE FLOOR" 9510 CLS 2: PRINT "THE FLOOR LOOKS LIKE IT HASN'T BEEN VACUUMED IN AGES!" GOTO 9500 CASE "EXAMINE RUG" GOTO 9510 CASE "EXAMINE CARPET" GOTO 9510 CASE "EXAMINE WALLS" 9520 CLS 2: PRINT "THE WALLS LOOK LIKE THEY HAVEN'T BEEN CLEANED IN AGES!" GOTO 9500 CASE "EXAMINE WALL" GOTO 9520 CASE "EXAMINE DOOR" CLS 2: PRINT "THE DOOR IS MADE OF WOOD." GOTO 9500 CASE "EXAMINE CEILING" CLS 2: PRINT "YOU FIND NOTHING INTERESTING ABOUT IT." GOTO 9500 CASE "OPEN DOOR" CLS 2: PRINT "THE DOOR IS ALREADY OPEN." GOTO 9500 CASE "USE KEY" CLS 2: PRINT "WHAT DO YOU WANT TO USE THE KEY ON?" GOTO 9500 CASE "USE KEY ON DOOR" CLS 2: PRINT "THERE IS NO KEYHOLE HERE." GOTO 9500 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE." GOTO 9500 END SELECT BEDROOM: SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (20, 20)-(0, 0), 0 LINE (20, 200)-(0, 230), 0 LINE (20, 200)-(20, 20), 0 LINE (629, 0)-(609, 20), 0 LINE (609, 200)-(629, 230), 0 LINE (609, 200)-(609, 20), 0 LINE (20, 20)-(609, 20), 0 LINE (20, 200)-(50, 200), 0 LINE (210, 200)-(225, 200), 0 LINE (331, 200)-(300, 200), 0 LINE (570, 200)-(609, 200), 0 LINE (400, 30)-(500, 150), 0, B LINE (400, 140)-(500, 140), 0 LINE (400, 130)-(500, 130), 0 LINE (400, 120)-(500, 120), 0 LINE (400, 110)-(500, 110), 0 LINE (400, 100)-(500, 100), 0 LINE (400, 90)-(500, 90), 0 LINE (400, 80)-(500, 80), 0 LINE (400, 70)-(500, 70), 0 LINE (400, 60)-(500, 60), 0 LINE (400, 50)-(500, 50), 0 PAINT (450, 40), 4, 0 'LINE ( 'BED LINE (300, 250)-(600, 350), 0, B LINE (320, 250)-(350, 200), 0 LINE (580, 250)-(550, 200), 0 LINE (350, 200)-(550, 200), 0 LINE (331, 230)-(331, 170), 0 LINE (570, 170)-(570, 230), 0 LINE (331, 170)-(570, 170), 0 'DRAWER LINE (50, 150)-(200, 250), 0, B LINE (200, 150)-(210, 140), 0 LINE (200, 250)-(210, 240), 0 LINE (210, 240)-(210, 140), 0 LINE (50, 150)-(60, 140), 0 LINE (60, 140)-(210, 140), 0 PAINT (100, 200), 6, 0 PAINT (100, 145), 6, 0 PAINT (205, 150), 6, 0 CIRCLE (80, 170), 5, 0 PAINT (80, 170), 14, 0 CIRCLE (170, 170), 5, 0 PAINT (170, 170), 14, 0 CIRCLE (80, 215), 5, 0 PAINT (80, 215), 14, 0 CIRCLE (170, 215), 5, 0 PAINT (170, 215), 14, 0 LINE (60, 155)-(190, 185), 0, B LINE (60, 200)-(190, 230), 0, B 'CLOCK LINE (225, 40)-(300, 230), 0, B CIRCLE (263, 80), 33, 0 LINE (235, 120)-(290, 220), 0, B CIRCLE (262, 55), 3, 0 PAINT (262, 55), 14, 0 CIRCLE (262, 106), 3, 0 PAINT (262, 106), 14, 0 CIRCLE (290, 80), 3, 0 PAINT (290, 80), 14, 0 CIRCLE (236, 80), 3, 0 PAINT (236, 80), 14, 0 PAINT (260, 42), 6, 0 LINE (260, 80)-(240, 70), 0 LINE (260, 80)-(280, 70), 0 LINE (269, 120)-(269, 170), 0 LINE (259, 120)-(259, 170), 0 CIRCLE (264, 180), 10, 0 PAINT (255, 130), 6, 0 LINE (235, 220)-(240, 215), 0 LINE (290, 220)-(285, 215), 0 LINE (285, 215)-(240, 215), 0 LINE (240, 215)-(240, 120), 0 LINE (285, 215)-(285, 120), 0 PAINT (260, 150), 4, 0 PAINT (264, 180), 14, 0 'ROOM,BED PAINTING PAINT (30, 300), 1, 0 PAINT (608, 300), 1, 0 PAINT (400, 300), 6, 0 PAINT (400, 175), 6, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "E" LOCATE 25, 74 PRINT "N S" LOCATE 26, 76 PRINT "W" 10000 VIEW PRINT 28 TO 30 INPUT Q100$: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q100$ CASE "QUIT" GOTO ENDD CASE "WEST" GOTO DOOROPEN CASE "NORTH" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 10000 CASE "SOUTH" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 10000 CASE "EAST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 10000 CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING IN THE BEDROOM. YOU CAN SEE A WINDOW." GOTO 10000 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 10000 CASE "EXAMINE BED" CLS 2: PRINT "THIS IS A KING SIZE BED." GOTO 10000 CASE "EXAMINE CLOCK" 10001 CLS 2: PRINT "THIS IS A GRANDFATHER CLOCK." GOTO 10000 CASE "EXAMINE BIG CLOCK" GOTO 10001 CASE "EXAMINE HANDS OF CLOCK" 10002 CLS 2: PRINT "YOU NOTICE THAT THE HOUR HAND IS LOOSE!" GOTO 10000 CASE "EXAMINE CLOCK FACE" GOTO 10002 CASE "EXAMINE FACE OF CLOCK" GOTO 10002 CASE "EXAMINE HOUR HAND" GOTO 10002 CASE "EXAMINE MINUTE HAND" CLS 2: PRINT "YOU NOTICE NOTHING INTERESTING" GOTO 10000 CASE "EXAMINE WALL" 10010 CLS 2: PRINT "THE WALLS SEEM FRESHLY PAINTED." GOTO 10000 CASE "EXAMINE WALLS" GOTO 10010 CASE "EXAMINE WINDOW" CLS 2: PRINT "THE BLINDS ON THE WINDOW ARE DOWN." GOTO 10000 CASE "EXAMINE FLOOR" CLS 2: PRINT "YOU SEE A BLUE CARPET." GOTO 10000 CASE "EXAMINE RUG" 10020 CLS 2: PRINT "THIS RUG HAS SEEN BETTER TIMES." GOTO 10000 CASE "EXAMINE CARPET" GOTO 10020 CASE "EXAMINE DRESSER" 10030 CLS 2: PRINT "IT HAS BEEN MANY YEARS SINCE THIS WAS USED." GOTO 10000 CASE "EXAMINE BLINDS" CLS 2: PRINT "YOU NOTICE YOU CAN OPEN THEM." GOTO 10000 CASE "EXAMINE LETTER" CLS 2: PRINT "THE LETTER READS IN THE BASEMENT YOU WILL FIND MINE AND YOUR FREEDOM!" GOTO 10000 CASE "EXAMINE KEYHOLE" 10021 CLS 2: PRINT "IT'S WHAT IT LOOK LIKE, A KEY-HOLE!" GOTO 10000 CASE "EXAMINE SMALL KEY-HOLE" GOTO 10021 CASE "OPEN" CLS 2: PRINT "WHAT DO YOU WANT TO OPEN?" CASE "OPEN DRESSER" 10040 CLS 2: PRINT "YOU OPEN THE DRESSER, ONLY TO FIND IT EMPTY" GOTO 10000 CASE "OPEN DRESSER DRAW" GOTO 10040 CASE "OPEN WINDOW" 10041 CLS 2: PRINT "YOU OPEN THE WINDOW" SLEEP 2: CLS 2: GOTO LIGHTNING CASE "USE WINDOW" 10050 CLS 2: PRINT "THE WINDOW IS NOT OPEN!" GOTO 10000 CASE "OPEN BLINDS" GOTO LIGHTNING CASE "OPEN CLOCK" 10060 CLS 2: PRINT "IT WON'T OPEN, BUT YOU DO NOTICE THE HOUR HAND IS LOOSE." GOTO 10000 CASE "OPEN GRANDFATHER CLOCK" GOTO 10060 CASE "USE" CLS 2: PRINT "WHAT DO YOU WANT TO USE?" GOTO 10000 CASE "USE BED" CLS 2: PRINT "THIS IS NO TIME FOR NAPPING!" GOTO 10000 CASE "USE DRESSER" CLS 2: PRINT "YOU TAKE OFF ALL OF YOUR CLOTHES AND PUT THEM IN THE DRESSER. YOU ARE NOW NAKED!" GOTO 10000 CASE "USE KEY" 10070 CLS 2: PRINT "WHAT KEY DO YOU WANT TO USE" GOTO 10000 CASE "USE BRONZE KEY" CLS 2: PRINT "THE KEY DOESN'T FIT." GOTO 10000 CASE "USE WINDOW" GOTO 10000 CASE "USE SMALL GOLD KEY" 10080 CLS 2: PRINT "YOU OPEN THE CLOCK AND NOTICE A LETTER INSIDE." GOTO 10000 CASE "USE GOLD KEY" GOTO 10080 CASE "USE SMALL KEY" GOTO 10080 CASE "USE CLOTHES" CLS 2: PRINT "YOU PUT YOUR CLOTHES BACK ON." GOTO 10000 CASE "TAKE HOUR HAND" CLS 2: PRINT "YOU TAKE THE HOUR HAND AND SEE WHAT LOOKS LIKE A SMALL KEY-HOLE." GOTO 10000 CASE "TAKE LETTER" CLS 2: PRINT "YOU TAKE THE LETTER." GOTO 10000 CASE "TAKE NAP" CLS 2: PRINT "THIS IS NO TIME TO SLEEP!" GOTO 10000 CASE "TAKE DRESSER" 10090 CLS 2: PRINT "WHAT ARE YOU KIDDING?" GOTO 10000 CASE "TAKE BED" GOTO 10090 CASE "TAKE WINDOW" GOTO 10090 CASE "TAKE CLOTHES" CLS 2: PRINT "YOUR CLOTHES ARE IN HAND" GOTO 10000 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOTO 10000 END SELECT LIGHTNING: SCORE = 500 SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (20, 20)-(0, 0), 0 LINE (20, 200)-(0, 230), 0 LINE (20, 200)-(20, 20), 0 LINE (629, 0)-(609, 20), 0 LINE (609, 200)-(629, 230), 0 LINE (609, 200)-(609, 20), 0 LINE (20, 20)-(609, 20), 0 LINE (20, 200)-(50, 200), 0 LINE (210, 200)-(225, 200), 0 LINE (331, 200)-(300, 200), 0 LINE (570, 200)-(609, 200), 0 LINE (400, 30)-(500, 150), 0, B LINE (400, 50)-(500, 50), 0 PAINT (450, 40), 4, 0 LINE (400, 140)-(500, 140), 0 PAINT (450, 145), 2, 0 'LIGHTNING LINE (450, 50)-(470, 80), 0 LINE (470, 80)-(465, 80), 0 LINE (465, 80)-(480, 100), 0 LINE (480, 100)-(455, 75), 0 LINE (455, 75)-(460, 75), 0 LINE (460, 75)-(440, 50), 0 PAINT (450, 130), 9, 0 'BED LINE (300, 250)-(600, 350), 0, B LINE (320, 250)-(350, 200), 0 LINE (580, 250)-(550, 200), 0 LINE (350, 200)-(550, 200), 0 LINE (331, 230)-(331, 170), 0 LINE (570, 170)-(570, 230), 0 LINE (331, 170)-(570, 170), 0 'DRAWER LINE (50, 150)-(200, 250), 0, B LINE (200, 150)-(210, 140), 0 LINE (200, 250)-(210, 240), 0 LINE (210, 240)-(210, 140), 0 LINE (50, 150)-(60, 140), 0 LINE (60, 140)-(210, 140), 0 PAINT (100, 200), 6, 0 PAINT (100, 145), 6, 0 PAINT (205, 150), 6, 0 CIRCLE (80, 170), 5, 0 PAINT (80, 170), 14, 0 CIRCLE (170, 170), 5, 0 PAINT (170, 170), 14, 0 CIRCLE (80, 215), 5, 0 PAINT (80, 215), 14, 0 CIRCLE (170, 215), 5, 0 PAINT (170, 215), 14, 0 LINE (60, 155)-(190, 185), 0, B LINE (60, 200)-(190, 230), 0, B 'CLOCK LINE (225, 40)-(300, 230), 0, B CIRCLE (263, 80), 33, 0 LINE (235, 120)-(290, 220), 0, B CIRCLE (262, 55), 3, 0 PAINT (262, 55), 14, 0 CIRCLE (262, 106), 3, 0 PAINT (262, 106), 14, 0 CIRCLE (290, 80), 3, 0 PAINT (290, 80), 14, 0 CIRCLE (236, 80), 3, 0 PAINT (236, 80), 14, 0 PAINT (260, 42), 6, 0 LINE (260, 80)-(240, 70), 0 LINE (260, 80)-(280, 70), 0 LINE (269, 120)-(269, 170), 0 LINE (259, 120)-(259, 170), 0 CIRCLE (264, 180), 10, 0 PAINT (255, 130), 6, 0 LINE (235, 220)-(240, 215), 0 LINE (290, 220)-(285, 215), 0 LINE (285, 215)-(240, 215), 0 LINE (240, 215)-(240, 120), 0 LINE (285, 215)-(285, 120), 0 PAINT (260, 150), 4, 0 PAINT (264, 180), 14, 0 'ROOM,BED PAINTING PAINT (30, 300), 1, 0 PAINT (608, 300), 1, 0 PAINT (400, 300), 6, 0 PAINT (400, 175), 6, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "E" LOCATE 25, 74 PRINT "N S" LOCATE 26, 76 PRINT "W" SLEEP 1 NOLIGHTNING: SCREEN 12 LINE (0, 0)-(629, 350), 15, BF LINE (20, 20)-(0, 0), 0 LINE (20, 200)-(0, 230), 0 LINE (20, 200)-(20, 20), 0 LINE (629, 0)-(609, 20), 0 LINE (609, 200)-(629, 230), 0 LINE (609, 200)-(609, 20), 0 LINE (20, 20)-(609, 20), 0 LINE (20, 200)-(50, 200), 0 LINE (210, 200)-(225, 200), 0 LINE (331, 200)-(300, 200), 0 LINE (570, 200)-(609, 200), 0 LINE (400, 30)-(500, 150), 0, B LINE (400, 50)-(500, 50), 0 PAINT (450, 40), 4, 0 LINE (400, 140)-(500, 140), 0 PAINT (450, 145), 2, 0 PAINT (450, 130), 9, 0 'BED LINE (300, 250)-(600, 350), 0, B LINE (320, 250)-(350, 200), 0 LINE (580, 250)-(550, 200), 0 LINE (350, 200)-(550, 200), 0 LINE (331, 230)-(331, 170), 0 LINE (570, 170)-(570, 230), 0 LINE (331, 170)-(570, 170), 0 'DRAWER LINE (50, 150)-(200, 250), 0, B LINE (200, 150)-(210, 140), 0 LINE (200, 250)-(210, 240), 0 LINE (210, 240)-(210, 140), 0 LINE (50, 150)-(60, 140), 0 LINE (60, 140)-(210, 140), 0 PAINT (100, 200), 6, 0 PAINT (100, 145), 6, 0 PAINT (205, 150), 6, 0 CIRCLE (80, 170), 5, 0 PAINT (80, 170), 14, 0 CIRCLE (170, 170), 5, 0 PAINT (170, 170), 14, 0 CIRCLE (80, 215), 5, 0 PAINT (80, 215), 14, 0 CIRCLE (170, 215), 5, 0 PAINT (170, 215), 14, 0 LINE (60, 155)-(190, 185), 0, B LINE (60, 200)-(190, 230), 0, B 'CLOCK LINE (225, 40)-(300, 230), 0, B CIRCLE (263, 80), 33, 0 LINE (235, 120)-(290, 220), 0, B CIRCLE (262, 55), 3, 0 PAINT (262, 55), 14, 0 CIRCLE (262, 106), 3, 0 PAINT (262, 106), 14, 0 CIRCLE (290, 80), 3, 0 PAINT (290, 80), 14, 0 CIRCLE (236, 80), 3, 0 PAINT (236, 80), 14, 0 PAINT (260, 42), 6, 0 LINE (260, 80)-(240, 70), 0 LINE (260, 80)-(280, 70), 0 LINE (269, 120)-(269, 170), 0 LINE (259, 120)-(259, 170), 0 CIRCLE (264, 180), 10, 0 PAINT (255, 130), 6, 0 LINE (235, 220)-(240, 215), 0 LINE (290, 220)-(285, 215), 0 LINE (285, 215)-(240, 215), 0 LINE (240, 215)-(240, 120), 0 LINE (285, 215)-(285, 120), 0 PAINT (260, 150), 4, 0 PAINT (264, 180), 14, 0 'ROOM,BED PAINTING PAINT (30, 300), 1, 0 PAINT (608, 300), 1, 0 PAINT (400, 300), 6, 0 PAINT (400, 175), 6, 0 VIEW PRINT 24 TO 27: COLOR 15 LINE (0, 360)-(565, 395), 15, B LOCATE 24, 3 PRINT "NORTH: SOUTH: EAST: WEST: LOOK: EXAMINE: OPEN: USE: TAKE" LINE (578, 360)-(629, 416), 2, B LOCATE 24, 76 PRINT "E" LOCATE 25, 74 PRINT "N S" LOCATE 26, 76 PRINT "W" 10100 VIEW PRINT 28 TO 30 INPUT Q100$: CLS 2 VIEW PRINT 29 TO 30 SELECT CASE Q100$ CASE "TAKE CLOTHES" CLS 2: PRINT "YOU PUT YOUR CLOTHES BACK ON." GOTO 10100 CASE "QUIT" GOTO ENDD CASE "WEST" GOTO DOOROPEN CASE "NORTH" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 10100 CASE "SOUTH" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 10100 CASE "EAST" CLS 2: PRINT "YOU BUMP YOUR HEAD AS YOU ATTEMPT THAT!" GOTO 10100 CASE "LOOK" CLS 2: PRINT "YOU ARE STANDING IN THE BEDROOM. YOU CAN SEE A WINDOW." GOTO 10100 CASE "EXAMINE" CLS 2: PRINT "WHAT DO YOU WANT TO EXAMINE?" GOTO 10100 CASE "EXAMINE BED" CLS 2: PRINT "THIS IS A KING SIZE BED." GOTO 10100 CASE "EXAMINE CLOCK" 10101 CLS 2: PRINT "THIS IS A GRANDFATHER CLOCK." GOTO 10100 CASE "EXAMINE BIG CLOCK" GOTO 10101 CASE "EXAMINE HANDS OF CLOCK" CLS 2: PRINT "YOU NOTICE THAT THE HOUR HAND IS LOOSE!" GOTO 10100 CASE "EXAMINE WALL" 10110 CLS 2: PRINT "THE WALLS SEEM FRESHLY PAINTED." GOTO 10100 CASE "EXAMINE WALLS" GOTO 10110 CASE "EXAMINE WINDOW" CLS 2: PRINT "THE WINDOW IS MADE OF GLASS." GOTO 10100 CASE "EXAMINE FLOOR" CLS 2: PRINT "YOU SEE A BLUE CARPET." GOTO 10100 CASE "EXAMINE RUG" 10120 CLS 2: PRINT "THIS RUG HAS SEEN BETTER TIMES." GOTO 10100 CASE "EXAMINE CARPET" GOTO 10120 CASE "EXAMINE OUTSIDE" CLS 2: PRINT "YOU CAN'T DO THAT FROM HERE." GOTO 10100 CASE "EXAMINE DRESSER" 10130 CLS 2: PRINT "IT HAS BEEN MANY YEARS SINCE THIS WAS USED." GOTO 10100 CASE "EXAMINE BLINDS" CLS 2: PRINT "YOU NOTICE YOU CAN OPEN THEM." GOTO 10100 CASE "EXAMINE LETTER" CLS 2: PRINT "THE LETTER READS IN THE BASEMENT YOU WILL FIND YOUR FREEDOM!" GOTO 10100 CASE "OPEN" CLS 2: PRINT "WHAT DO YOU WANT TO OPEN?" CASE "OPEN DRESSER" 10140 CLS 2: PRINT "YOU OPEN THE DRESSER, ONLY TO FIND IT EMPTY" CASE "OPEN DRESSER DRAW" GOTO 10140 CASE "OPEN WINDOW" 10150 CLS 2: PRINT "THE WINDOW AND BLINDS ARE ALREADY OPEN" GOTO 10100 CASE "OPEN BLINDS" GOTO 10150 CASE "OPEN CLOCK" 10160 CLS 2: PRINT "IT WON'T OPEN, BUT YOU DO NOTICE THE HOUR HAND IS LOOSE." GOTO 10100 CASE "OPEN GRANDFATHER CLOCK" GOTO 10160 CASE "USE" CLS 2: PRINT "WHAT DO YOU WANT TO USE?" GOTO 10100 CASE "USE BED" CLS 2: PRINT "THIS IS NO TIME FOR NAPPING!" GOTO 10100 CASE "USE DRESSER" CLS 2: PRINT "YOU TAKE OFF ALL OF YOUR CLOSES AND PUT THEM IN THE DRESSER. YOU ARE NOW NAKED!" GOTO 10100 CASE "USE KEY" 10170 CLS 2: PRINT "WHAT KEY DO YOU WANT TO USE" GOTO 10100 CASE "USE WINDOW" VIEW PRINT 28 TO 30 CLS 2: PRINT "YOU JUMP OUT THE WINDOW, FALL TWO STORIES DOWN TO THE GROUND AND" PRINT "BREAK BOTH YOUR LEGS! IT ONLY A MATTER OF THE TIME THAT YOU DIE!" SLEEP 10 CLS : CLS 2 GOTO ENDD CASE "USE SMALL GOLD KEY" 10180 CLS 2: PRINT "YOU OPEN THE CLOCK AND NOTICE A LETTER INSIDE." GOTO 10100 CASE "TAKE HOUR HAND" CLS 2: PRINT "YOU TAKE THE HOUR HAND AND SEE WHAT LOOKS LIKE A SMALL KEYHOLE." GOTO 10100 CASE "TAKE LETTER" CLS 2: PRINT "YOU TAKE THE LETTER." GOTO 10100 CASE "TAKE NAP" CLS 2: PRINT "THIS IS NO TIME TO SLEEP!" GOTO 10100 CASE "TAKE DRESSER" 10190 CLS 2: PRINT "WHAT ARE YOU KIDDING?" GOTO 10100 CASE "TAKE BED" GOTO 10190 CASE "TAKE WINDOW" GOTO 10190 CASE ELSE CLS 2: PRINT "THAT DOESN'T MAKE SENSE!" GOTO 10100 END SELECT ENDD: SCREEN 0, 0, 0: WIDTH 40: COLOR 15 PRINT PRINT " IT'S A SHAME YOU HAD TO" PRINT PRINT " END THE GAME SO SOON!" END END2LEV: END SUB