SCREEN 0: WIDTH 80: COLOR 3, 1: CLS z$ = " Hiddenite Hiddenite Hiddenite Hiddenite Hiddenite Hiddenite Hiddenite Hiddenite" COLOR 3 FOR W = 23 TO 3 STEP -1 LOCATE W, 1: PRINT z$ NEXT W COLOR 15: LOCATE 2, 35: PRINT "Welcome to..." COLOR 0, 0 FOR W = 8 TO 19 LOCATE W, 20: PRINT STRING$(45, " ") NEXT W COLOR 1, 7 FOR W = 7 TO 18 LOCATE W, 18: PRINT STRING$(45, " ") NEXT W 19 LOCATE 8, 29: PRINT " ESCAPE FROM HIDDENITE " COLOR 15 20 LOCATE 10, 29: PRINT " Version 1.2b for EGA " COLOR 11 21 LOCATE 12, 19: PRINT " SEND DEVELOPMENT DONATIONS & COMMENTS TO:" COLOR 0 22 LOCATE 14, 29: PRINT " UnderWARE Labs. " 23 LOCATE 15, 29: PRINT " c/o Lester Schramm " 24 LOCATE 16, 29: PRINT " Rt. 1 Box 6-A " 25 LOCATE 17, 29: PRINT " Hiddenite, N.C. 28636 " COLOR 8, 0 FOR W = 8 TO 18 LOCATE W, 63: PRINT "id" NEXT W LOCATE W, 20: PRINT "e Hiddenite Hiddenite Hiddenite Hiddenite Hid" COLOR 19, 1 LOCATE 23, 60: PRINT " Press any key... " 68 DO WHILE INKEY$ = "": LOOP 70 '-------------------------SKIP INTRO CHOICE------------------------------------- COLOR 3, 1 LOCATE 23, 60: PRINT "e Hiddenite Hiddenite" COLOR 0, 7 FOR W = 17 TO 8 STEP -1 LOCATE W, 19 PRINT STRING$(43, " ") NEXT W LOCATE 11, 28: PRINT " TO SKIP INTRO PRESS " LOCATE 13, 28: PRINT " TO READ INTRO PRESS " LOCATE 15, 26: PRINT " TO SEE HIGH SCORES PRESS " COLOR 4 LOCATE 11, 49: PRINT " " LOCATE 13, 49: PRINT " " LOCATE 15, 52: PRINT " " COLOR 15 LOCATE 11, 50: PRINT "S" LOCATE 13, 50: PRINT "R" LOCATE 15, 53: PRINT "H" 78 DO 79 A$ = INKEY$ 80 IF UCASE$(A$) = "S" THEN 520 81 IF UCASE$(A$) = "R" THEN 83 IF UCASE$(A$) = "H" THEN 550 82 LOOP 83 '---------------------------intro-------------------------------------------- SCREEN 0: COLOR 15, 1 84 CLS : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 85 PRINT " Welcome to ESCAPE FROM HIDDENITE, the game of moderate skill and dumb luck." COLOR 14: LOCATE 7, 15: PRINT "ESCAPE FROM HIDDENITE": COLOR 15 86 PRINT 87 PRINT " In this game you will be challenged to find your way clear of the evil little" 88 PRINT " town while trying to hold on to the tools and prizes you have earned on the" 89 PRINT " way. Remember, should you choose to stay in Hiddenite, those who knew you will" 90 PRINT " be sadly disappointed, and WILL assume you are dead. SO, show some backbone," 91 PRINT " and escape from this stagnating backwater before it's too late." 92 PRINT : PRINT : PRINT : PRINT : PRINT : COLOR 11 93 PRINT " ( With apologies to ZORK.)" 94 PRINT : PRINT : PRINT : COLOR 15 99 PRINT " [ press a key to continue ] ": DO WHILE INKEY$ = "": LOOP 100 CLS 110 PRINT : PRINT : PRINT : PRINT 115 PRINT " In this game you will meet a variety of charcters, all of them quite " 120 PRINT : PRINT " colorful. Who you choose to be your friend is up to you, but just like in" 125 PRINT : PRINT " real life, it will determine how others relate to you." 130 PRINT : PRINT : PRINT : PRINT : PRINT 135 PRINT " Let's meet some of the characters, shall we?" 140 PRINT : PRINT : PRINT : PRINT : PRINT 150 PRINT " [ press a key to continue ] ": DO WHILE INKEY$ = "": LOOP 155 CLS 160 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : COLOR 14 165 PRINT " First there's MR. ARKUST." 170 PRINT : PRINT : PRINT : COLOR 15 175 PRINT " He's got a heart as big as all of Hiddenite, but suffers from a very" 180 PRINT " rare disorder. He has Verbalis Continuosis. This condition, while not fatal," 185 PRINT " does make comunicating with him some what of a challenge. Remember when you" 190 PRINT " do speak with him, although he is very inteligent, his words of wisdom will" 195 PRINT " be interrupted with long dialogs of complete nonsense and really bad puns." 200 PRINT : PRINT : PRINT : PRINT 210 PRINT " [ press a key to continue ] ": DO WHILE INKEY$ = "": LOOP 220 CLS 230 PRINT : PRINT : PRINT : COLOR 14 240 PRINT " Then there's MR. STEEL CHARMS." 250 PRINT : PRINT : COLOR 15 255 PRINT " Although not a native of Hiddenite, he has made a home here. He can be" 260 PRINT " very inteligent while at the same time be very absent-minded; which would " 265 PRINT " explain why he APPEARS to have such bad luck. He is the proud father of two" 270 PRINT " children, MARMBE CHARMS and MORBERT CHARMS." COLOR 14: LOCATE CSRLIN - 1, 12: PRINT "MARMBE CHARMS and MORBERT CHARMS" 271 PRINT : COLOR 15 272 PRINT " Marmbe, (pronounced MARM-bee), is the eldest child. She is very pretty" 280 PRINT " and also very inteligent. Unfortunately, she also has a strange condition;" 285 PRINT " Motivatis Uninteruptus. This condition makes it next to impossible for her to" 290 PRINT " stay put for more than a few seconds." 295 PRINT 300 PRINT " Morbert, on the other hand is a little more laid-back. Some would say " 310 PRINT " he was a tad lazy. None the less, he has the brains and the bravery to see" 320 PRINT " him through." 325 PRINT : PRINT : PRINT 326 PRINT " [ press a key ] ": DO WHILE INKEY$ = "": LOOP 330 CLS : PRINT : PRINT : PRINT : PRINT : COLOR 14 335 PRINT " Next is MR. JOHN CHASM." 336 PRINT : PRINT : PRINT : PRINT : PRINT : COLOR 15 340 PRINT " A strange visitor from a far off place in Will's Woods, he is far from" 345 PRINT " home. Even though he chose to come to Hiddenite, Mr. Chasm no doubt wonders" 350 PRINT " why he ever came to such a strange place. He posesses charm and great" 355 PRINT " inteligence. His only failing being that he too, suffers from a condition." 360 PRINT " Sans Faultus Perceptuous, although non-threatening, is a condition that leaves" 365 PRINT " the sufferer with the perception that he is never wrong; (a hazardous condition" 366 PRINT " indeed)." 370 PRINT : PRINT : PRINT : PRINT : PRINT 375 PRINT " [ press a key ] ": DO WHILE INKEY$ = "": LOOP 380 CLS : PRINT : PRINT : PRINT : PRINT : COLOR 14 385 PRINT " Lastly is MR. SATOV GRIMLOK." 390 PRINT : PRINT : PRINT : PRINT : COLOR 15 395 PRINT " A man who lives just beyond Seven Mile Lake, Mr. Grimlok owns many fine" 400 PRINT " things. He also is a visitor to Hiddenite on occasion and while there, would " 410 PRINT " like nothing more than to make sure that the inhabitants stay there no matter" 420 PRINT " how hard they may try to escape. (Hey, someone has got to be the bad guy.)" 425 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 430 PRINT " [ press a key ] ": DO WHILE INKEY$ = "": LOOP 440 CLS 450 PRINT : PRINT : PRINT : PRINT : COLOR 11 455 PRINT " LET'S REVIEW THE CHARACTERS:" 460 PRINT : PRINT : PRINT : COLOR 15 470 PRINT " MR. ARKUST ": PRINT 475 PRINT " MR. STEEL CHARMS": PRINT 480 PRINT " MARMBE CHARMS": PRINT 485 PRINT " MORBERT CHARMS": PRINT 490 PRINT " MR. JOHN CHASM": PRINT 500 PRINT " MR. SATOV GRIMLOK": PRINT 510 PRINT : PRINT 515 PRINT " [ press a key ] ": DO WHILE INKEY$ = "": LOOP 520 SCREEN 0 521 COLOR 7, 1 522 CLS 523 524 COLOR 4, 7 525 LOCATE 10, 12: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" LOCATE 11, 12: PRINT "º º" LOCATE 12, 12: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" COLOR 0, 0 LOCATE 11, 69: PRINT " " LOCATE 12, 69: PRINT " " LOCATE 13, 13: PRINT " " COLOR 15, 7 LOCATE 11, 15: PRINT "Making the long journey to Hiddenite please wait..." COLOR 31 LOCATE 11, 63: PRINT "..." 526 CHAIN "efh1.bas" 550 '------------------------ High Score Screen------------------ GOSUB DrawScreen GOSUB ShowScore DO WHILE INKEY$ = "": LOOP GOTO 70 '------------------------- Subs: ---------------------------- ShowScore: OPEN "EFHscore.lst" FOR INPUT AS #1 INPUT #1, N1$, L1$, S1$, T1$, M1$, N2$, L2$, S2$, T2$, M2$, N3$, L3$, S3$, T3$, M3$ CLOSE COLOR 1 LOCATE 11, 19: PRINT "NAME"; TAB(31); "LIVES"; TAB(38); "SCORE"; TAB(45); "TURNS"; TAB(53); "CASH LEFT" COLOR 4 LOCATE 12, 19: PRINT STRING$(43, "~") COLOR 0 LOCATE 13, 19: PRINT N1$; TAB(31); L1$; TAB(38); S1$; TAB(45); T1$; TAB(54); "$"; M1$ LOCATE 14, 19: PRINT N2$; TAB(31); L2$; TAB(38); S2$; TAB(45); T2$; TAB(54); "$"; M2$ LOCATE 15, 19: PRINT N3$; TAB(31); L3$; TAB(38); S3$; TAB(45); T3$; TAB(54); "$"; M3$ COLOR 11 LOCATE 17, 27: PRINT "(Press any key to continue.)" RETURN DrawScreen: COLOR 15, 7 FOR W = 17 TO 8 STEP -1 LOCATE W, 20 PRINT STRING$(41, " ") NEXT W LOCATE 8, 23: PRINT "High Scores for Escape From Hiddenite" RETURN