1 REM HAUNTED HOUSE ORIGINAL PROGRAM WRITTEN BY JENNY TYLER & LES HOWARTH 2 REM PROGRAM LISTED IN 1983 B00K 'ADVENTURE PROGRAMS FOR YOUR MICROCOMPUTER' 3 REM AMENDED TI-74 VERSION BY WALID MAALOULI AND PHIL LANCASTER (2009) 4 REM THIS GAMES REQUIRES 8K RAM CARTRIDGE 5 REM WILL ALSO PLAY ON AN 18K CC-40 - BUT PLAYER WILL NOT BE ABLE TO SAVE 6 REM OR LOAD A PREVIOUS GAME - AS THE GAME USES THE TI-74'S CI-7 7 REM CASSETTE INTERFACE. LINES 6000-7200 COULD BE AMENDED TO CHANGE THIS THOUGH 9 RANDOMIZE 10 DIM R$(63),D$(63),O$(36),V$(29) 20 DIM C(36),L(36),F(36) 60 REM HAUNTED HOUSE 70 V=29 72 W=36 73 G=18 74 T=0 80 GOSUB 1620 90 DISPLAY "WELCOME TO THE HAUNTED HOUSE!!!":PAUSE 1.5 95 PRINT "DO YOU WANT INSTRUCTIONS (Y/N)?":PAUSE 2 98 L$=KEY$ 100 IF L$="Y"THEN GOSUB 3000 102 IF L$="N"THEN 110 104 IF L$="n"THEN GOTO 9000 105 IF L$="y"THEN GOTO 9000 109 IF L$=" "THEN 95 ELSE 95 110 PRINT "YOUR LOCATION:":PAUSE 2 120 PRINT D$(RM):PAUSE 2.5 130 PRINT "EXITS: ";R$(RM):PAUSE 1.5 170 REM 180 FOR I=1 TO G 190 IF L(I)=RM AND F(I)=0 THEN DISPLAY "YOU CAN SEE ";O$(I);" HERE":PAUSE 1.5 200 NEXT I 220 PRINT M$:M$="WHAT":PAUSE 1.5 230 PRINT "WHAT WILL YOU DO NOW?":PAUSE 1.5 235 INPUT Q$ 240 V1$="" 243 W$="" 244 VB=0 245 OB=0 250 FOR I=1 TO LEN(Q$) 260 IF SEG$(Q$,I,1)=" "AND V1$=""THEN V1$=SEG$(Q$,1,I-1) 270 IF SEG$(Q$,I+1,1)<>" "AND V1$<>""THEN 271 ELSE 280 271 W$=SEG$(Q$,I+1,LEN(Q$)-(LEN(V1$)+1)):GOTO 290 280 NEXT I 290 IF W$=""THEN V1$=Q$ 300 FOR I=1 TO V 310 IF V1$=V$(I)THEN VB=I:GOTO 330 320 NEXT I 330 FOR I=1 TO W 340 IF W$=O$(I)THEN LET OB=I:GOTO 360 350 NEXT I 360 IF W$<>""AND OB=0 THEN M$="I DON'T UNDERSTAND!" 370 IF VB=0 THEN VB=V+1 380 IF W$=""THEN M$="I NEED 2 WORDS" 390 IF VB>V AND OB>0 THEN M$="YOU CAN'T '"&Q$&"'" 400 IF VB>V AND OB=0 THEN M$="YOU DON'T MAKE SENSE" 410 IF VB0 AND C(OB)=0 THEN M$="YOU DON'T HAVE "&W$ 420 IF F(26)=1 AND RM=13 AND INT(RND*3)+1<>3 AND VB<>21 THEN 425 ELSE 430 425 M$="YOU CAN'T - BATS ATTACKING!!!":PAUSE 1:GOTO 110 430 IF RM=44 AND INT(RND*2)+1 AND F(24)<>1 THEN F(27)=1 440 IF F(0)=1 THEN LL=LL-1 450 IF LL<1 THEN F(0)=0 451 IF VB<26 THEN 455 452 ON VB-25 GOSUB 8075,5000,6000,7000,1590 453 GOTO 470 455 IF VB>14 THEN GOTO 465 460 ON VB GOSUB 500,570,640,640,640,640,640,640,640,985,985,1030,1070,1140 463 GOTO 470 465 ON VB-14 GOSUB 1180,1220,1250,1300,1340,1380,1400,1430,1460,1490,1510,1590 470 IF LL=10 THEN M$="YOUR CANDLE IS WANING!" 480 IF LL=1 THEN M$="YOUR CANDLE IS OUT!" 482 T=T+1 483 IF T>200 THEN GOTO 484 ELSE 490 484 PRINT "THE CLOCK STRIKES MIDNIGHT...":PAUSE 2.5 485 PRINT "YOU HAVE TURNED INTO A BAT!!!":PAUSE 2.5:STOP 490 GOTO 110 500 PRINT "WORDS I KNOW:":PAUSE 1 510 FOR I=1 TO V 520 PRINT V$(I);",":PAUSE 1.5 530 NEXT I 540 M$="":PRINT 550 GOSUB 1580 560 RETURN 570 PRINT "YOU ARE CARRYING:":PAUSE 1.5 580 FOR I=1 TO G 590 IF C(I)=1 THEN PRINT O$(I):PAUSE 1 600 NEXT I 605 PAUSE 2 610 M$="":PRINT 620 GOSUB 1580 630 RETURN 640 D=0 650 IF OB=0 THEN D=VB-3 660 IF OB=19 THEN D=1 670 IF OB=20 THEN D=2 680 IF OB=21 THEN D=3 690 IF OB=22 THEN D=4 700 IF OB=23 THEN D=5 710 IF OB=24 THEN D=6 720 IF RM=20 AND D=5 THEN D=1 730 IF RM=20 AND D=6 THEN D=3 740 IF RM=22 AND D=6 THEN D=2 750 IF RM=22 AND D=5 THEN D=3 760 IF RM=36 AND D=6 THEN D=1 770 IF RM=36 AND D=5 THEN D=2 780 IF F(14)=1 THEN M$="BUMP! YOU FELL OUT OF THE TREE":F(14)=0:RETURN 790 IF F(27)=1 AND RM=52 THEN M$="GHOSTS WILL NOT LET YOU MOVE":RETURN 800 IF RM=45 AND C(1)=1 AND F(34)=0 THEN 805 ELSE 810 805 M$="A MAGICAL BARRIER STOPS YOU":RETURN 810 IF (RM=26 AND F(0)=0)AND (D=1 OR D=4)THEN M$="NO - YOU NEED A LIGHT":RETURN 820 IF RM=54 AND C(15)<>1 THEN M$="YOU APPEAR TO BE STUCK!!!":RETURN 830 IF C(15)=1 AND NOT (RM=53 OR RM=54 OR RM=55 OR RM=47)THEN GOTO 835 ELSE 840 835 M$="YOU CAN'T CARRY A BOAT!":RETURN 840 IF (RM>26 AND RM<30)AND F(0)=0 THEN M$="IT'S TOO DARK TO MOVE":RETURN 850 F(35)=O 852 RL=LEN(R$(RM)) 860 FOR I=1 TO RL 870 U$=SEG$(R$(RM),I,1) 880 IF (U$="N"AND D=1 AND F(35)=0)THEN RM=RM-8:F(35)=1 890 IF (U$="S"AND D=2 AND F(35)=0)THEN RM=RM+8:F(35)=1 900 IF (U$="W"AND D=3 AND F(35)=0)THEN RM=RM-1:F(35)=1 910 IF (U$="E"AND D=4 AND F(35)=0)THEN RM=RM+1:F(35)=1 920 NEXT I 930 M$="OK":PAUSE 1 940 IF F(35)=0 THEN M$="YOU CAN'T GO THAT WAY!" 950 IF D<1 THEN M$="GO WHERE?" 960 IF RM=41 AND F(23)=1 THEN R$(49)="SW":M$="THE DOOR SLAMS SHUT!":F(23)=0 970 RETURN 980 IF OB>G THEN M$="I CAN'T GET "&W$ 982 RETURN 985 IF L(OB)<>RM THEN M$="IT ISN'T HERE" 990 IF F(OB)<>0 THEN M$="WHAT "&W$&"?" 1000 IF C(OB)=1 THEN M$="YOU ALREADY HAVE IT" 1010 IF OB>0 AND L(OB)=RM AND F(OB)=0 THEN C(OB)=1:L(OB)=65 ELSE 1020 1015 M$="YOU TAKE THE "&W$ 1020 RETURN 1030 IF RM=43 AND (OB=28 OR OB=29)THEN F(17)=0:M$="THE DRAWER IS NOW OPEN" 1040 IF RM=28 AND OB=25 THEN M$="IT'S LOCKED" 1050 IF RM=38 AND OB=32 THEN M$="THAT'S CREEPY" 1055 F(2)=0 1060 RETURN 1070 IF OB=30 THEN F(18)=0:M$="" 1080 IF OB=31 THEN M$="THAT'S DISGUSTING" 1090 IF (OB=28 OR OB=29)THEN M$="YOU CAN SEE A DRAWER" 1100 IF OB=33 OR OB=5 THEN GOSUB 1140 1110 IF RM=43 AND OB=35 THEN M$="THERE IS SOMETHING BEYOND..." 1120 IF OB=32 THEN GOSUB 1030 1130 RETURN 1140 IF RM=42 AND OB=33 THEN M$="THEY ARE DEMONIC WORKS" 1150 IF (OB=3 OR OB=36)AND C(3)=1 AND F(34)=0 THEN GOTO 1155 ELSE 1165 1155 M$="USE 'XZANFAR' WITH CARE..." 1160 IF C(5)=1 AND OB=5 THEN M$="THE SCRIPT IS AN ALIEN LANGUAGE" 1170 RETURN 1180 M$="OK '"&W$&"'" 1190 IF C(3)=1 AND OB=34 THEN M$="IT MUST BE MAGIC!!!" ELSE 1210 1195 IF RM<>45 THEN RM=INT(RND*63)+1 1200 IF C(3)=1 AND OB=34 AND RM=45 THEN F(34)=1 1210 RETURN 1220 IF C(12)=1 THEN M$="YOU MADE A HOLE" ELSE 1241 1230 IF C(12)=1 AND RM=30 THEN M$="YOU MANAGED TO DIG THE BARS OUT" ELSE 1240 1232 D$(RM)="HOLE IN WALL" 1234 R$(RM)="NSE" 1240 RETURN 1241 M$="YOU DON'T ANYTHING TO DIG WITH!" 1242 RETURN 1250 IF C(14)<>1 AND RM=7 THEN M$="THIS IS NO TIME TO PLAY GAMES" ELSE 1260 1255 RETURN 1260 IF OB=14 AND C(14)=1 THEN M$="YOU SWING THE ROPE...YEEEAAA!" ELSE 1270 1265 RETURN 1270 IF OB=13 AND C(13)=1 THEN M$="WHOOSH!" ELSE 1290 1280 IF OB=13 AND C(13)=1 THEN GOTO 1281 ELSE 1290 1281 IF RM=43 THEN GOTO 1283 ELSE 1290 1283 R$(RM)="WN":D$(RM)="STUDY WITH SECRET ROOM SHOWING" 1284 M$="YOU BROKE THROUGH THE THIN WALL" 1290 RETURN 1300 IF OB=14 AND C(14)=1 THEN M$="IT ISN'T ATTACHED TO ANYTHING!" 1310 IF OB=14 AND C(14)<>1 THEN GOTO 1312 ELSE 1319 1312 IF RM=7 AND F(14)=0 THEN GOTO 1316 ELSE 1319 1316 M$="YOU CLIMB UP & FEEL REAL DIZZY!" 1318 F(14)=1 1319 RETURN 1320 IF OB=14 AND C(14)<>1 THEN GOTO 1322 ELSE 1330 1322 IF RM=7 AND F(14)=1 THEN GOTO 1325 1325 M$="YOU'RE NOW BACK ON SOLID GROUND" 1327 F(14)=0 1330 RETURN 1340 IF OB=17 AND C(17)=0 THEN M$="YOU DON'T HAVE A CANDLE!":RETURN 1343 IF OB=17 AND C(17)=1 THEN GOTO 1344 1344 IF C(8)=0 THEN GOTO 1345 ELSE 1350 1345 M$="IT WILL BURN YOUR HANDS":RETURN 1350 IF OB=17 AND C(17)=1 THEN GOTO 1352 1352 IF C(9)=0 THEN GOTO 1355 ELSE 1360 1355 M$="NOTHING TO LIGHT IT WITH":RETURN 1360 IF OB=17 AND C(17)=1 THEN GOTO 1362 1362 IF C(9)=1 AND C(8)=1 THEN GOTO 1365 1365 M$="IT CASTS A FLICKERING LIGHT" 1367 F(0)=1 1370 RETURN 1380 IF F(0)=1 THEN F(0)=0 1382 M$="YOU EXTINGUISH THE CANDLE." 1390 RETURN 1400 IF OB=16 AND C(16)=1 THEN 1410 ELSE 1420 1410 IF OB=16 AND C(16)=1 AND RM=13 AND F(26)=1 THEN 1412 ELSE 1417 1412 F(26)=0 1415 M$="PFFT! YOU GOT THEM!!!" 1416 RETURN 1417 M$="...HISSSS...HISSSS....HISSSS...." 1420 RETURN 1430 IF OB=10 AND C(10)=1 THEN 1431 ELSE 1450 1431 IF C(11)=1 THEN 1432 ELSE 1439 1432 M$="SWITCHED ON" 1435 F(24)=1 1436 IF F(27)=1 AND F(24)=1 THEN M$="YES! YOU VACUUMED THE GHOSTS UP" 1437 F(27)=0 1438 RETURN 1439 IF C(11)=0 THEN 1445 ELSE 1450 1445 M$="YOU HAVE NO POWER SOURCE!" 1450 RETURN 1460 IF RM=43 AND (OB=27 OR OB=28)THEN GOSUB 1030 1470 IF RM=28 AND OB=25 AND F(25)=0 AND C(18)=1 THEN GOTO 1475 1475 F(25)=1 1476 R$(RM)="SEW" 1477 D$(RM)="BESIDE A HUGE OPEN WOODEN DOOR": 1479 M$=" " 1480 RETURN 1490 IF C(OB)=1 THEN C(OB)=0 ELSE 1496 1492 L(OB)=RM 1493 M$="":PRINT 1496 RETURN 1510 S=0 1520 FOR I=1 TO G 1530 IF C(I)=1 THEN S=S+1 1540 NEXT I 1550 IF S=17 AND C(15)<>1 AND RM<>57 THEN GOTO 1552 ELSE 1560 1552 DISPLAY AT(1);"GREAT! YOU HAVE EVERYTHING!!!":PAUSE 1.5 1555 DISPLAY AT(1);"RETURN TO THE GATE FOR YOUR":PAUSE 1.5 1557 DISPLAY AT(1);"FINAL SCORE!!!":PAUSE 1.5 1560 IF S=17 AND RM=57 THEN PRINT "DOUBLE SCORE FOR REACHING HERE!" ELSE 1570 1561 S=S*2:PAUSE 1.5 1570 DISPLAY AT(1);"YOUR SCORE=";S;"OUT OF 34":PAUSE 2.5 1571 IF S>18 THEN PRINT "WELL DONE!":PAUSE 1 ELSE 1580 1575 PRINT "YOU FINISHED THE GAME":PAUSE 1.5 1576 END 1580 INPUT "PRESS ENTER TO CONTINUE";Q$ 1585 M$="":PRINT 1590 RETURN 1620 DATA 46,38,35,50,13,18,28,42,10,25,26,4,2,7,47,60,43,32 1630 FOR I=1 TO G 1640 READ L(I) 1650 NEXT I 1660 DATA HELP,CARRYING?,GO,N,S,W,E,U,D,GET,TAKE,OPEN,EXAMINE,READ,SAY 1665 DATA DIG,SWING,CLIMB,LIGHT,UNLIGHT,SPRAY,USE,UNLOCK,DROP,SCORE,TIME?,QUIT 1667 DATA SAVE,LOAD 1680 FOR I=1 TO V 1690 READ V$(I) 1700 NEXT I 1710 DATA SE,WE,WE,SWE,WE,WE,SWE,WS 1720 DATA NS,SE,WE,NW,SE,W,NE,NSW 1730 DATA NS,NS,SE,WE,NWUD,SE,WSUD,NS 1740 DATA N,NS,NSE,WE,WE,NSW,NS,NS 1750 DATA S,NSE,NSW,S,NSUD,N,N,NS 1760 DATA NE,NW,NE,W,NSE,WE,W,NS 1770 DATA SE,NSW,E,WE,NW,S,SW,NW 1780 DATA NE,NWE,WE,WE,WE,NWE,NWE,W 1790 FOR I=0 TO 63 1800 READ R$(I) 1810 NEXT I 1820 DATA DARK CORNER OF GARDEN,SPOOKY OVERGROWN GARDEN,BY WOODPILE IN GARDEN 1825 DATA IN THE YARD BESIDE RUBBISH BINS,A WEEDPATCH IN THE GARDEN 1830 DATA START OF SPOOKY LOOKING FOREST,IN THE MIDDLE OF A DENSE FOREST 1835 DATA BY A GIANT OAK TREE,CORNER OF HAUNTED HOUSE,ENTRANCE TO KITCHEN 1840 DATA KITCHEN CONTAINING GRIMY OVEN,SCULLERY WITH DOOR LEADING OUT 1845 DATA OLD DUSTY ROOM,THE REAR TURRET ROOM,CLEARING NEXT TO HOUSE 1850 DATA ON A NARROW PATH,SIDE OF HAUNTED HOUSE,DUSTY HALLWAY 1855 DATA IN A DARK ALCOVE,SMALL DARK ROOM NEXT TO STAIRS 1857 DATA BOTTOM OF SPIRAL STAIRCASE 1860 DATA TOP OF LANDING,IN FRONT OF STAIRS LEADING UP 1865 DATA ON A CLIFF-TOP...LONG WAY DOWN!,BY A CRUMBLING STONE WALL 1870 DATA VERY GLOOMY PASSAGE,ROOM WITH STRANGE POOL OF LIGHT 1875 DATA IMPRESSIVE VAULTED HALLWAY,HALL WITH A THICK WOODEN DOOR 1880 DATA TROPHY ROOM FULL OF CHALICES???,EERIE CELLAR WITH BARRED WINDOW 1885 DATA VERY NARROW CLIFF PATH,BY HANGING COAT INSIDE CLOSET 1887 DATA GRAND & ELLOBORATE HALL 1890 DATA LOUNGE CONTAINING CHAIS LONGUE,A SECRET ROOM,BY STEEP MARBLE STAIRCASE 1895 DATA BESIDE A NEWLY SET DINING TABLE,DEEP CELLAR CONTAINING COFFIN 1900 DATA ON A NARROW WINDING PATH,INSIDE A CLOSET,THE FRONT LOBBY 1905 DATA LIBRARY FULL OF DUSTY BOOKS,STUDY WITH DESK & HOLE IN WALL 1910 DATA WEIRD COBWEBBY ROOM,VERY COLD CHAMBER,DARK SPOOKY ROOM 1915 DATA CLIFF PATH BY MARSH,ON A RUBBLE-STREWN VERANDAH 1920 DATA DILAPIDATED FRONT PORCH 1922 DATA INSIDE FRONT TOWER 1923 DATA WALKING DOWN A SLOPING CORRIDOR 1925 DATA THE UPPER GALLERY,BY WALL NEXT TO MARSHLAND,IN A BOGGY MARSH 1930 DATA STOOD ON A VERY SOGGY PATH,WASTELAND BY TWISTED RAILINGS 1932 DATA ON A PATH THROUGH AN IRON GATE 1935 DATA PATH BY RUSTY RAILINGS,BENEATH THE FRONT TOWER 1940 DATA DEBRIS FROM CRUMBLING FACADE,BY LARGE PILE OF FALLEN BRICKS 1945 DATA PASSING UNDER OLD STONE ARCH,EDGE OF CRUMBLING CLIFF-TOP 1960 REM 1965 REM 1967 REM 1980 FOR I=0 TO 63 1990 READ D$(I) 2000 NEXT I 2010 DATA PAINTING,RING,MAGIC SPELLS,GOBLET,SCROLL,COINS,STATUE,CANDLESTICK 2012 DATA MATCHES,VACUUM,BATTERIES,SHOVEL,AXE,ROPE,BOAT,AEROSOL,CANDLE,KEY 2014 DATA NORTH,SOUTH,WEST,EAST,UP,DOWN 2016 DATA DOOR,BATS,GHOSTS,DRAWER,DESK,COAT,RUBBISH 2018 DATA COFFIN,BOOKS,XZANFAR,WALL,SPELLS 2060 FOR I=1 TO W 2070 READ O$(I) 2080 NEXT I 2090 F(18)=1 2092 F(17)=1 2095 F(2)=1 2096 F(26)=1 2097 F(28)=1 2098 F(23)=1 2099 LL=60 2100 RM=57 2101 M$="OK" 2150 RETURN 3000 REM INSTRUCTIONS 3001 DISPLAY "THIS IS AN EXCITING NEW TEXT":PAUSE 2 3005 DISPLAY "ADVENTURE GAME. THE OBJECT OF":PAUSE 2 3010 DISPLAY "THE GAME IS TO EXPLORE THE":PAUSE 2 3015 DISPLAY "HAUNTED HOUSE, FIND THE TREAS-":PAUSE 2 3020 DISPLAY "-URES AND ESCAPE ALIVE...":PAUSE 2 3025 DISPLAY "FOR WORDS YOU CAN USE, TYPE":PAUSE 2 3030 DISPLAY "'HELP' DURING A GAME. TO MOVE":PAUSE 2 3035 DISPLAY "FROM PLACE TO PLACE SIMPLY":PAUSE 2 3040 DISPLAY "TYPE THE DIRECTION AS A SINGLE":PAUSE 2 3045 DISPLAY "LETTER eg: N FOR NORTH,U FOR UP":PAUSE 2.5 3046 DISPLAY "OR IF YOU PREFER - TYPE THE":PAUSE 2.5 3047 DISPLAY "COMMAND IN FULL eg: 'GO NORTH'":PAUSE 2.5 3050 DISPLAY "THE COMPUTER WILL LIST":PAUSE 2 3055 DISPLAY "ALL EXITS IN THE FORM - NSEW":PAUSE 2.5 3060 DISPLAY "WILL YOU SUCCEED OR WILL YOU":PAUSE 2 3065 DISPLAY "BE TRAPPED IN THE HAUNTED HOUSE":PAUSE 2 3070 DISPLAY "FOREVER???!!! GOOD LUCK........":PAUSE 2 3075 DISPLAY "............YOU'LL NEED IT!!!":PAUSE 2 3077 INPUT "PRESS ENTER TO START!!!";Q$ 3080 GOTO 110 5000 INPUT "WANT TO KNOW YOUR FINAL SCORE?";Q$ 5005 IF Q$="Y"THEN GOTO 1510 ELSE 5006 5006 IF Q$="N"THEN GOTO 5012 ELSE 5000 5012 INPUT "DO YOU REALLY WANT TO QUIT?!";Q$:PAUSE 2.5 5020 IF Q$="N"THEN 5025 ELSE 5022 5022 IF Q$="Y"THEN 5050 ELSE 5023 5023 GOTO 5012 5025 REM 5030 M$="":PRINT 5040 GOSUB 1580 5045 RETURN 5050 INPUT "DO YOU WISH TO SAVE THE GAME?";Q$ 5052 IF Q$="Y"THEN GOSUB 6000 ELSE 5055 5053 GOTO 5060 5055 IF Q$="N"THEN GOTO 5060 ELSE 5050 5060 PRINT "THANK'S FOR PLAYING!!!":PAUSE 2 5065 END 6000 INPUT "IS YOUR CASSETTE READY?";Y$ 6010 IF Y$<>"Y"THEN 6000 6020 OPEN #1,"1.GAME",OUTPUT 6030 PRINT #1,RM;"," 6040 FOR I=1 TO G 6050 PRINT #1,L(I);"," 6060 NEXT I 6070 FOR I=1 TO W 6080 PRINT #1,C(I);",";F(I);"," 6090 NEXT I 6100 CLOSE #1 6200 RETURN 7000 INPUT "ARE YOU READY TO LOAD?";Y$ 7010 IF Y$<>"Y"THEN 7000 7020 OPEN #1,"1.GAME",INPUT 7030 INPUT #1,RM 7040 FOR I=1 TO G 7050 INPUT #1,L(I) 7060 NEXT I 7070 FOR I=1 TO W 7080 INPUT #1,C(I),F(I) 7090 NEXT I 7100 CLOSE #1 7200 RETURN 8075 PRINT "TURNS TAKEN OUT OF 200 =";T:PAUSE 2.5 8080 M$="":PRINT 8090 GOSUB 1580 8095 RETURN 9000 PRINT "You are typing in lowercase!!!":PAUSE 2.5 9005 PRINT "To play the game change to":PAUSE 2.5 9008 PRINT "UPPERCASE LETTERS. To do so":PAUSE 2 9015 PRINT "hold down 'SHIFT' & press the":PAUSE 2.5 9018 PRINT "'CLR' button. Now try again!!":PAUSE 2.5 9020 STOP