10 CLS MENU 1,0,0,"" MENU 2,0,0,"" MENU 3,0,0,"" MENU 4,0,0,"" PALETTE 0,0.000000E+00,0.000000E+00,0.000000E+00 PALETTE 1,0.000000E+00,0.000000E+00,0.000000E+00 PALETTE 2,3.125000E-01,3.750000E-01,3.750000E-01 PALETTE 3,9.375000E-01,4.375000E-01,0.000000E+00 PALETTE 4,0.000000E+00,0.000000E+00,1.000000E+00 PALETTE 5,1.000000E+00,0.000000E+00,1.000000E+00 PALETTE 6,0.000000E+00,1.000000E+00,1.000000E+00 PALETTE 7,1.000000E+00,1.000000E+00,1.000000E+00 PALETTE 8,3.125000E-01,1.250000E-01,0.000000E+00 PALETTE 9,1.000000E+00,2.500000E-01,0.000000E+00 PALETTE 10,4.375000E-01,1.000000E+00,0.000000E+00 PALETTE 11,1.000000E+00,8.750000E-01,0.000000E+00 PALETTE 12,3.125000E-01,3.125000E-01,1.000000E+00 PALETTE 13,5.625000E-01,2.500000E-01,1.000000E+00 PALETTE 14,0.000000E+00,1.000000E+00,5.000000E-01 PALETTE 15,7.000000E-01,7.000000E-01,7.000000E-01 20 LINE (100,30)-(200,60),9,b LOCATE 1,4:COLOR 6:PRINT "KITTY ADVENTURES 1999!" LOCATE 9,6:COLOR 10:PRINT "INPUT PASSWORD?!" COLOR 12:PRINT:PRINT:PRINT TAB(1)" SEE TERENCE & CO. LEAFLETS" COLOR 13:PRINT " LOAD 'KITTYWORDS' DATABASE" COLOR 9:PRINT " OR TYPE 'PASSWORD' FOR INFO!" COLOR 12 x%=12 PasswordEnter: LOCATE 5,x%:PRINT " " WHILE LEN(P$)<8 I$=INKEY$ I$=UCASE$(I$) IF I$=CHR$(8) AND x%>12 THEN P$=LEFT$(P$,LEN(P$)-1):x%=x%-1:LOCATE 5,x%:PRINT F$;" ":I$=INKEY$ IF I$=CHR$(8) AND x%=12 THEN GOTO PasswordEnter IF I$<>"" THEN LOCATE 5,x%:COLOR 14,0:PRINT I$:x%=x%+1:P$=P$+I$ WEND NOP%=36 DIM WORDBANK$(45) FOR I=1 TO NOP% READ WORDBANK$(I) NEXT I FOR I=1 TO NOP% IF P$=WORDBANK$(I) THEN C=I NEXT I IF C=0 THEN BEEP:P$="":RUN 20 IF C>18 THEN GOTO 30 ON C GOSUB Is1,Is2,Is3,Is4,Is5,Is6,Is7,Is8,Is9,Is1011,Is12,Is13,Is14,Is15,Is16,Is1718,Is19,Is20 RUN 20 30 IF C=6 THEN GOTO Cols2 CLS RETURN Normal: WINDOW CLOSE 1 SCREEN CLOSE 1 SCREEN 1,640,400,4,1 WINDOW 1,"K ADVENTURES 98",(0,0)-(315,180),0,1 PALETTE 0,0.000000E+00,0.000000E+00,0.000000E+00 PALETTE 1,0.000000E+00,0.000000E+00,0.000000E+00 PALETTE 2,3.125000E-01,3.750000E-01,3.750000E-01 PALETTE 3,9.375000E-01,4.375000E-01,0.000000E+00 PALETTE 4,0.000000E+00,0.000000E+00,1.000000E+00 PALETTE 5,1.000000E+00,0.000000E+00,1.000000E+00 PALETTE 6,0.000000E+00,1.000000E+00,1.000000E+00 PALETTE 7,1.000000E+00,1.000000E+00,1.000000E+00 PALETTE 8,3.125000E-01,1.250000E-01,0.000000E+00 PALETTE 9,1.000000E+00,2.500000E-01,0.000000E+00 PALETTE 10,4.375000E-01,1.000000E+00,0.000000E+00 PALETTE 11,1.000000E+00,8.750000E-01,0.000000E+00 PALETTE 12,3.125000E-01,3.125000E-01,1.000000E+00 PALETTE 13,5.625000E-01,2.500000E-01,1.000000E+00 PALETTE 14,0.000000E+00,1.000000E+00,5.000000E-01 PALETTE 15,7.000000E-01,7.000000E-01,7.000000E-01 RETURN Reds: CLS PALETTE 2,1.000000E+00,0.000000E+00,0.000000E+00 PALETTE 1,5.000000E-01,2.000000E-01,4.000000E-01 PALETTE 6,8.000000E-01,1.000000E-01,3.000000E-01 PALETTE 0,5.000000E-01,2.000000E-01,4.000000E-01 PALETTE 3,7.000000E-01,0.000000E+00,0.000000E+00 PALETTE 4,3.000000E-01,0.000000E+00,0.000000E+00 PALETTE 5,9.000000E-01,4.000000E-01,0.000000E+00 PALETTE 7,8.000000E-01,4.000000E-01,5.000000E-01 PALETTE 8,9.000000E-01,4.000000E-01,7.000000E-01 PALETTE 9,1.000000E+00,5.000000E-01,0.000000E+00 PALETTE 10,1.000000E+00,7.000000E-01,7.000000E-01 PALETTE 11,2.000000E-01,0.000000E+00,0.000000E+00 PALETTE 12,4.000000E-01,1.000000E-01,1.000000E-01 PALETTE 13,RND,0.000000E+00,0.000000E+00 PALETTE 14,RND,0.000000E+00,0.000000E+00 PALETTE 15,9.300000E-01,2.000000E-01,0.000000E+00 WINDOW 2,,(0,0)-(1,1),0,-1 WINDOW OUTPUT 2 PALETTE 0,5.000000E-01,2.000000E-01,4.000000E-01 PALETTE 2,1.000000E+00,0.000000E+00,0.000000E+00 PALETTE 3,7.000000E-01,0.000000E+00,0.000000E+00 WINDOW CLOSE 2 WINDOW 1,"K ADVENTURES 98",(0,0)-(315,180),0,1 WINDOW OUTPUT 1 RETURN Yellows: CLS PALETTE 0,1.000000E+00,1.000000E+00,1.300000E-01 PALETTE 1,1.000000E+00,1.000000E+00,1.300000E-01 PALETTE 2,8.000000E-01,8.000000E-01,2.000000E-01 PALETTE 3,9.000000E-01,9.000000E-01,4.000000E-01 PALETTE 4,4.000000E-01,4.000000E-01,5.000000E-02 PALETTE 5,6.000000E-01,6.000000E-01,4.000000E-01 PALETTE 6,6.000000E-01,6.000000E-01,1.000000E-01 PALETTE 7,9.000000E-01,9.000000E-01,6.000000E-01 PALETTE 8,1.000000E+00,1.000000E+00,9.000000E-01 PALETTE 9,1.000000E+00,6.000000E-01,3.000000E-01 PALETTE 10,1.000000E+00,8.000000E-01,2.000000E-01 PALETTE 11,1.000000E+00,9.000000E-01,1.300000E-01 C=RND*1.100000E+00 D=RND*1.100000E+00 E=RND*1.100000E+00 PALETTE 15,C,C,1.000000E-01 PALETTE 12,D,D,5.000000E-02 PALETTE 13,E,E,0.000000E+00 PALETTE 14,1.000000E+00,7.000000E-01,2.500000E-01 WINDOW 2,,(0,0)-(1,1),0,-1 WINDOW OUTPUT 2 PALETTE 0,1.000000E+00,1.000000E+00,1.300000E-01 PALETTE 2,8.000000E-01,8.000000E-01,2.000000E-01 PALETTE 3,9.000000E-01,9.000000E-01,4.000000E-01 WINDOW CLOSE 2 WINDOW 1,"K ADVENTURES 98",(0,0)-(315,180),0,1 WINDOW OUTPUT 1 RETURN Blues: CLS PALETTE 0,0.000000E+00,2.000000E-01,6.000000E-01 PALETTE 1,0.000000E+00,2.000000E-01,6.000000E-01 PALETTE 2,0.000000E+00,0.000000E+00,RND PALETTE 3,0.000000E+00,0.000000E+00,RND PALETTE 6,4.700000E-01,8.700000E-01,1.000000E+00 PALETTE 5,0.000000E+00,0.000000E+00,RND PALETTE 4,4.000000E-01,6.000000E-01,1.000000E+00 PALETTE 7,0.000000E+00,RND/4,RND PALETTE 8,1.000000E-01,3.000000E-01,5.000000E-01 PALETTE 9,0.000000E+00,0.000000E+00,1.000000E+00 PALETTE 10,2.000000E-01,7.000000E-01,1.000000E+00 PALETTE 11,4.000000E-01,0.000000E+00,6.000000E-01 PALETTE 12,6.000000E-01,0.000000E+00,1.000000E+00 PALETTE 13,0.000000E+00,6.000000E-01,6.000000E-01 PALETTE 14,0.000000E+00,1.000000E+00,1.000000E+00 PALETTE 15,3.000000E-01,0.000000E+00,4.000000E-01 WINDOW 2,,(0,0)-(1,1),0,-1 WINDOW OUTPUT 2 PALETTE 0,0.000000E+00,2.000000E-01,6.000000E-01 PALETTE 2,0.000000E+00,0.000000E+00,RND PALETTE 3,0.000000E+00,0.000000E+00,RND WINDOW CLOSE 2 WINDOW 1,"K ADVENTURES 98",(0,0)-(315,180),0,1 WINDOW OUTPUT 1 RETURN Metals: CLS PALETTE 0,8.000000E-01,8.000000E-01,8.000000E-01 PALETTE 1,8.000000E-01,8.000000E-01,8.000000E-01 PALETTE 12,5.000000E-01,5.000000E-01,5.000000E-01 PALETTE 6,3.000000E-01,3.000000E-01,3.000000E-01 PALETTE 4,8.000000E-01,8.000000E-01,1.300000E-01 PALETTE 10,5.000000E-01,5.000000E-01,1.300000E-01 PALETTE 2,7.000000E-01,7.000000E-01,6.500000E-01 PALETTE 3,8.000000E-01,6.000000E-01,5.300000E-01 PALETTE 5,6.000000E-01,6.000000E-01,6.000000E-01 PALETTE 7,1.000000E-01,1.000000E-01,1.000000E-01 PALETTE 8,6.000000E-01,4.000000E-01,3.300000E-01 PALETTE 9,2.000000E-01,2.000000E-01,2.000000E-01 PALETTE 11,9.000000E-01,9.000000E-01,9.000000E-01 PALETTE 13,1.000000E+00,1.000000E+00,1.000000E+00 PALETTE 14,1.000000E+00,1.000000E+00,1.300000E-01 PALETTE 15,7.000000E-01,7.000000E-01,7.000000E-01 WINDOW 2,,(0,0)-(1,1),0,-1 WINDOW OUTPUT 2 PALETTE 0,8.000000E-01,8.000000E-01,8.000000E-01 PALETTE 2,7.000000E-01,7.000000E-01,6.500000E-01 PALETTE 3,8.000000E-01,6.000000E-01,5.300000E-01 WINDOW CLOSE 2 WINDOW 1,"K ADVENTURES 98",(0,0)-(315,180),0,1 WINDOW OUTPUT 1 RETURN Kittens: CLS PALETTE 0,0.000000E+00,0.000000E+00,0.000000E+00 PALETTE 1,0.000000E+00,0.000000E+00,0.000000E+00 PALETTE 2,5.000000E-01,5.000000E-01,5.000000E-01 PALETTE 3,2.000000E-01,2.000000E-01,2.000000E-01 PALETTE 4,8.000000E-01,6.000000E-01,5.300000E-01 PALETTE 5,6.000000E-01,4.000000E-01,3.300000E-01 PALETTE 6,1.000000E+00,1.000000E+00,1.000000E+00 PALETTE 7,3.500000E-01,3.500000E-01,3.500000E-01 PALETTE 8,1.000000E+00,8.700000E-01,7.300000E-01 PALETTE 9,1.000000E+00,7.300000E-01,0.000000E+00 PALETTE 10,8.000000E-01,4.000000E-01,0.000000E+00 PALETTE 11,4.000000E-01,4.000000E-01,4.000000E-01 PALETTE 12,1.000000E+00,8.000000E-01,7.300000E-01 PALETTE 13,1.000000E+00,1.000000E+00,1.000000E+00 D=RND PALETTE 14,D,D,D PALETTE 15,1.000000E+00,8.700000E-01,7.300000E-01 WINDOW 2,,(0,0)-(1,1),0,-1 WINDOW OUTPUT 2 PALETTE 0,0.000000E+00,0.000000E+00,0.000000E+00 PALETTE 2,1.000000E+00,7.300000E-01,0.000000E+00 PALETTE 3,8.000000E-01,6.000000E-01,5.300000E-01 WINDOW CLOSE 2 WINDOW 1,"K ADVENTURES 98",(0,0)-(315,180),0,1 WINDOW OUTPUT 1 RETURN Is1: COLOR 1,0 CLS LOCATE 9,10 COLOR 9:PRINT "SAM & VAY'S" COLOR 6:PRINT TAB(8)"BIRTHDAY! (NOT)" FOR I=1 TO 4000:NEXT I COLOR 1,13 CLS LINE (0,0)-(315,25),0,bf LINE (0,135)-(315,180),10,bf LINE (260,70)-(290,135),8,bf LINE (265,140)-(285,155),10,bf LINE (55,170)-(60,180),8,bf LINE (80,170)-(85,180),8,bf LINE (55,125)-(85,170),6,bf LINE (55,110)-(85,125),9,bf LINE (65,112)-(75,125),0,bf LINE (68,112)-(72,115),9,bf LINE (67,117)-(69,117),6 LINE (71,117)-(73,117),6 LINE (68,121)-(72,121),9 LINE (110,140)-(130,160),9,bf LINE (110,160)-(115,175),8,bf LINE (125,160)-(130,175),8,bf LINE (165,170)-(170,180),8,bf LINE (190,170)-(195,180),8,bf LINE (165,125)-(195,170),11,bf LINE (165,110)-(195,125),9,bf LINE (175,112)-(185,125),0,bf LINE (178,112)-(182,115),9,bf LINE (177,117)-(179,117),11 LINE (181,117)-(183,117),11 LINE (178,121)-(182,121),9 LINE (115,148)-(125,155),11,bf LINE (113,145)-(118,148),9,bf LINE (122,145)-(127,148),9,bf LINE (120,149)-(120,152),0 LINE (120,152)-(123,152),0 LOCATE 1,1:COLOR 10,0:PRINT "IT WAS THE 28TH OF FEB 1996!" COLOR 12:PRINT " SAM & VAY WERE ASLEEP!!" FOR I=1 TO 6000:NEXT I LOCATE 14,11:COLOR 9,13:PRINT "BRING!" LINE (35,140)-(40,170),6,bf COLOR 0,13 M=0 LINE (55,125)-(85,170),7,bf LINE (0,0)-(315,25),13,bf FOR J=1 TO 15 I=90 LINE (55,111+M)-(85,125+M),9,bf SCROLL (0,0)-(315,180),0,5 LINE (55,I-20)-(85,I+32),13,bf LINE (0,0)-(315,10),13,bf LINE (63,I-2)-(77,I+20),0,bf LINE (63,I-2)-(77,I+10),7,bf LINE (67,I-5)-(73,I-2),0,bf LINE (65,I-18)-(75,I-5),0,bf LINE (68,I-18)-(72,I-15),13,bf LINE (58,I-18)-(63,I),0,bf LINE (77,I-18)-(82,I),0,bf LINE (58,I+8)-(63,I+26),0,bf LINE (77,I+8)-(82,I+26),0,bf LINE (67,I-13)-(69,I-11),6,bf LINE (71,I-13)-(73,I-11),6,bf LINE (68,I-8)-(72,I-6),9,bf FOR K=1 TO 10:NEXT K IF M=0 THEN LINE (35,140+5)-(40,170+5),10,bf M=M+5 NEXT J M=0 FOR N=1 TO 7 STEP 5 LINE (55,N-7)-(85,N),8,bf LINE (55,N)-(85,N),11,bf COLOR 0,13 SCROLL (200,100)-(315,180),0,5 FOR K=1 TO 30:NEXT K NEXT N FOR I=90 TO 35 STEP -5 LINE (55,I-20)-(85,I+32),13,bf LINE (55,N-7)-(85,N),8,bf LINE (55,N)-(85,N),11,bf LINE (63,I-2)-(77,I+20),0,bf LINE (63,I-2)-(77,I+10),7,bf LINE (67,I-5)-(73,I-2),0,bf LINE (65,I-18)-(75,I-5),0,bf LINE (68,I-18)-(72,I-15),13,bf LINE (58,I-18)-(63,I),0,bf LINE (77,I-18)-(82,I),0,bf LINE (58,I+8)-(63,I+26),0,bf LINE (77,I+8)-(82,I+26),0,bf LINE (67,I-13)-(69,I-11),6,bf LINE (71,I-13)-(73,I-11),6,bf LINE (68,I-8)-(72,I-6),9,bf FOR K=1 TO 30:NEXT K M=M+5 NEXT I LightSmash: COLOR 0,11 CLS LINE (0,0)-(20,180),9,bf LINE (0,0)-(315,20),9,bf LINE (315,0)-(280,180),9,bf LINE (315,160)-(0,180),9,bf LOCATE 9,14 COLOR 0:PRINT "CRASH!!" SOUND WAIT SOUND 200,2,255,3 SOUND RESUME FOR I=1 TO 30 S%=RND*10 S%=S%*1000 SOUND S%,5.000000E-01,150,0 SOUND 20,5.000000E-01,6.000000E-01,0 NEXT I FOR I=1 TO 3000:NEXT I COLOR 1,8 CLS LINE (0,0)-(315,25),0,bf LINE (0,150)-(315,180),12,bf LINE (260,50)-(280,70),10,bf LINE (263,48)-(263,52),7 LINE (266,48)-(266,52),7 LINE (269,48)-(269,52),7 LINE (272,48)-(272,52),7 LINE (275,48)-(275,52),7 LINE (278,48)-(278,52),7 LINE (281,48)-(281,52),7 LINE (263,53)-(277,53),0 LINE (263,56)-(277,56),9 LINE (263,59)-(277,59),0 LINE (263,62)-(277,62),9 LINE (263,65)-(277,65),0 LINE (263,68)-(277,68),9 LINE (80,130)-(90,150),0,bf LINE (95,130)-(105,150),0,bf LINE (80,70)-(105,130),0,bf LINE (105,80)-(125,90),0,bf LINE (85,55)-(100,70),0,bf LINE (87,55)-(92,45),0,bf LINE (97,58)-(100,61),13,bf LINE (103,58)-(113,61),10 LINE (113,61)-(123,58),10 LINE (123,58)-(126,61),7,bf LINE (126,59)-(126,60),0 LINE (95,65)-(100,68),8,bf LOCATE 1,1 COLOR 9,0 PRINT " BUT SAM FAINTED WHEN HE SAW" PRINT " THAT IT WAS A LEAP YEAR!" FOR I=1 TO 2000:NEXT I TESTO: LINE (75,70)-(35,135),11 LINE (75,83)-(45,135),11 LINE (75,96)-(55,135),11 LINE (75,112)-(65,135),11 COLOR 9,8 LOCATE 16,1:PRINT "CRASH!" FOR I=1 TO 6000:NEXT I COLOR 1,0 CLS LOCATE 8,13:COLOR 9:PRINT "THE" COLOR 10:PRINT TAB(13)" END!" COLOR 6 LOCATE 17,1:PRINT "PRESS 1 TO PLAY AGAIN!" COLOR 7:PRINT "PRESS ANYTHING ELSE TO RETURN!" I$="" WHILE I$="" I$=INKEY$ WEND IF I$="1" THEN GOTO Is1 CLS RUN 20 Is2: COLOR 1,0 CLS LOCATE 9,10 COLOR 9:PRINT "SAM & VAY'S" COLOR 6:PRINT TAB(11)"BAD DAY!" FOR I=1 TO 4000:NEXT I COLOR 1,6 CLS LINE (0,0)-(315,25),0,bf LINE (0,160)-(315,180),10,bf FOR I%=40 TO 40 STEP -10 LINE (I%,90)-(I%+10,103),0,bf LINE (I%,85)-(I%+3,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%+10,110)-(I%+25,115),0,bf NEXT I% FOR I%=80 TO 80 STEP 10 LINE (I%,90)-(I%+10,103),0,bf LINE (I%,85)-(I%+3,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%+10,110)-(I%+25,115),0,bf NEXT I% LINE (30,30)-(130,50),7,bf LINE (300,30)-(315,45),15,bf LINE (300,45)-(315,160),9,bf LINE (300,80)-(310,160),12,bf LINE (300,50)-(305,70),11,bf SX=5 SY=5 LOCATE 1,1 COLOR 9,0 PRINT " SAM & VAY WERE GOING TO CALL" PRINT " ON THEIR FRIEND LUCKY!!!" FOR I%=40 TO 110 STEP 10 LINE (210-SX,150-SY)-(210+SX,150),9,bf LINE (210-SX,150-SY*2)-(210+SX,150-SY),4,bf LINE (210-SX*7.000000E-01,150-SY*7.000000E-01)-(210-SX*5.000000E-01,150),11,bf LINE (210+SX*7.000000E-01,150-SY*7.000000E-01)-(210+SX*5.000000E-01,150),11,bf LINE (210-SX,150)-(210+SX,159),6,bf LINE (210-SX,150)-(210-SX*5.000000E-01,159),0,bf LINE (210+SX,150)-(210+SX*5.000000E-01,159),0,bf SX=SX+4 SY=SY+4 LINE (I%-20-10,80)-(I%+50-10,160),6,bf LINE (I%,90)-(I%+10,103),0,bf LINE (I%,85)-(I%+3,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%+10,110)-(I%+25,115),0,bf LINE (I%+40,90)-(I%+10+40,103),0,bf LINE (I%+40,85)-(I%+3+40,90),0,bf LINE (I%+2+40,103)-(I%+8+40,105),0,bf LINE (I%+40,105)-(I%+10+40,140),0,bf LINE (I%+10+40,110)-(I%+25+40,115),0,bf IF ZZ%=0 THEN LINE (I%,140)-(I%+4,160),0,bf:LINE (I%+6,140)-(I%+10,160),0,bf:ZZ%=1:GOTO VayBit IF ZZ%=1 THEN LINE (I%-3,140)-(I%+1,145),0,bf LINE (I%+7,140)-(I%+11,145),0,bf LINE (I%-6,145)-(I%-2,155),0,bf LINE (I%+10,145)-(I%+14,155),0,bf LINE (I%-5,155)-(I%-9,159),0,bf LINE (I%+9,155)-(I%+13,159),0,bf ZZ%=0 END IF VayBit: IF ZZ2%=1 THEN LINE (I%+40,140)-(I%+4+40,160),0,bf:LINE (I%+6+40,140)-(I%+10+40,160),0,bf:ZZ2%=0:GOTO SkipIfBit IF ZZ2%=0 THEN LINE (I%-3+40,140)-(I%+1+40,145),0,bf LINE (I%+7+40,140)-(I%+11+40,145),0,bf LINE (I%-6+40,145)-(I%-2+40,155),0,bf LINE (I%+10+40,145)-(I%+14+40,155),0,bf LINE (I%-5+40,155)-(I%-9+40,159),0,bf LINE (I%+9+40,155)-(I%+13+40,159),0,bf ZZ2%=1 END IF SkipIfBit: FOR J=1 TO 300:NEXT J NEXT I% COLOR 0,11 CLS LINE (0,0)-(20,180),9,bf LINE (0,0)-(315,20),9,bf LINE (315,0)-(280,180),9,bf LINE (315,160)-(0,180),9,bf LOCATE 9,14 COLOR 0:PRINT "BAM!!" SOUND 200,6,255,0 FOR I=1 TO 4000:NEXT I Knock: COLOR 0,1 CLS COLOR 10,0 PRINT "SOON..." COLOR 0,11 LOCATE 8,13:PRINT "KNOCK" LOCATE 9,14:PRINT "KNOCK" LOCATE 10,15:PRINT "KNOCK" FOR I=1 TO 50:NEXT I SOUND 200,4,255,0 SOUND 20,3,5.000000E-01,0 SOUND 200,4,255,0 SOUND 20,3,5.000000E-01,0 SOUND 200,4,255,0 FOR I=1 TO 8000:NEXT I SpeechBit: COLOR 0,6 CLS LINE (55,45)-(155,115),7,bf LINE (70,115)-(0,160),7 LINE (90,115)-(0,160),7 PAINT (80,117),7 LINE (205,105)-(265,135),7,bf LINE (235,135)-(315,160),7 LINE (255,135)-(315,160),7 PAINT (245,136),7 COLOR 0,7 LOCATE 7,7 PRINT "NOBODY'S" PRINT TAB(7)"IN! LETS" PRINT TAB(7)"GO HOME!" PRINT TAB(7)"THERES A" PRINT TAB(7)"STORM" PRINT TAB(7)"COMING!" LOCATE 13,22 PRINT "GOOD" PRINT TAB(22)"POINT" FOR I=1 TO 8000:NEXT I StormBit: COLOR 0,15 CLS LINE (0,160)-(315,180),10,bf LINE (30,30)-(130,50),0,bf LINE (300,30)-(315,45),0,bf LINE (300,45)-(315,160),9,bf LINE (300,80)-(310,160),12,bf LINE (300,50)-(305,70),11,bf FOR I%=230 TO 40 STEP -10 FOR K=1 TO 10 x%=RND*315 y%=RND*150 LINE (x%+5,y%+5)-(x%+3,y%+9),4 NEXT K LINE (I%-15,80)-(I%+65,160),15,bf LINE (I%,90)-(I%+10,103),0,bf LINE (I%+10,85)-(I%+7,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%,110)-(I%-15,115),0,bf LINE (I%+40,90)-(I%+40+10,103),0,bf LINE (I%+40+10,85)-(I%+40+7,90),0,bf LINE (I%+40+2,103)-(I%+40+8,105),0,bf LINE (I%+40,105)-(I%+40+10,140),0,bf LINE (I%+40,110)-(I%+40-15,115),0,bf IF ZZ%=0 THEN LINE (I%,140)-(I%+4,160),0,bf:LINE (I%+6,140)-(I%+10,160),0,bf:ZZ%=1:GOTO VayBit2 IF ZZ%=1 THEN LINE (I%-3,140)-(I%+1,145),0,bf LINE (I%+7,140)-(I%+11,145),0,bf LINE (I%-6,145)-(I%-2,155),0,bf LINE (I%+10,145)-(I%+14,155),0,bf LINE (I%-5,155)-(I%-9,159),0,bf LINE (I%+9,155)-(I%+13,159),0,bf ZZ%=0 END IF VayBit2: IF ZZ2%=1 THEN LINE (I%+40,140)-(I%+4+40,160),0,bf:LINE (I%+6+40,140)-(I%+10+40,160),0,bf:ZZ2%=0:GOTO SkipIfBit2 IF ZZ2%=0 THEN LINE (I%-3+40,140)-(I%+1+40,145),0,bf LINE (I%+7+40,140)-(I%+11+40,145),0,bf LINE (I%-6+40,145)-(I%-2+40,155),0,bf LINE (I%+10+40,145)-(I%+14+40,155),0,bf LINE (I%-5+40,155)-(I%-9+40,159),0,bf LINE (I%+9+40,155)-(I%+13+40,159),0,bf ZZ2%=1 END IF SkipIfBit2: NEXT I% AREAFILL COLOR 11 AREAFILL AREA (90,50) AREA (100,50) AREA (90,60) AREA (100,60) AREA (85,82) AREA (90,70) AREA (80,70) AREA (90,50) AREAFILL FOR I%=40 TO -10 STEP -10 FOR K=1 TO 5 x%=RND*315 y%=RND*150 LINE (x%+5,y%+5)-(x%+3,y%+9),4 NEXT K LINE (I%-15,80)-(I%+65,160),15,bf LINE (I%,90)-(I%+10,103),0,bf LINE (I%+10,85)-(I%+7,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%,110)-(I%-15,115),0,bf COL%=RND*14 LINE (80,90)-(80+10,103),COL%,bf LINE (80+10,85)-(80+7,90),COL%,bf LINE (80+2,103)-(80+8,105),COL%,bf LINE (80,105)-(80+10,140),COL%,bf LINE (80,110)-(80-15,115),COL%,bf LINE (80,140)-(84,160),COL%,bf LINE (86,140)-(90,160),COL%,bf IF ZZ%=0 THEN LINE (I%,140)-(I%+4,160),0,bf:LINE (I%+6,140)-(I%+10,160),0,bf:ZZ%=1:GOTO SkipIfBit3 IF ZZ%=1 THEN LINE (I%-3,140)-(I%+1,145),0,bf LINE (I%+7,140)-(I%+11,145),0,bf LINE (I%-6,145)-(I%-2,155),0,bf LINE (I%+10,145)-(I%+14,155),0,bf LINE (I%-5,155)-(I%-9,159),0,bf LINE (I%+9,155)-(I%+13,159),0,bf ZZ%=0 END IF SkipIfBit3: FOR J=1 TO 100:NEXT J NEXT I% COLOR 0,10 CLS LINE (0,0)-(315,30),15,bf LINE (80,30)-(220,180),7,bf LINE (80,80)-(220,180),4,bf FOR I=315 TO 156 STEP -78 LINE (I+156,0)-(I+166,30),15,bf LINE (I,0)-(I+20,30),0,bf FOR J=1 TO 1000:NEXT J NEXT I y=-20 FOR I=156 TO -20 STEP -78 LINE (0,0)-(315,30),15,bf LINE (80,30)-(220,180),7,bf LINE (80,80)-(220,180),4,bf LINE (I+156,0)-(I+180,30),15,bf LINE (I,0)-(I+20,30),0,bf LINE (I+78,0)-(I+98,30),0,bf LINE (180,y)-(200,y+20),11,bf LINE (185,y+20)-(195,y+60),11,bf LINE (195,y+50)-(200,y+60),11,bf y=y+40 FOR J=1 TO 1000:NEXT J NEXT I LINE (0,0)-(315,30),15,bf LINE (80,30)-(220,180),7,bf LINE (80,80)-(220,180),4,bf LINE (180,y)-(200,y+20),11,bf LINE (185,y+20)-(195,y+60),11,bf LINE (195,y+50)-(200,y+60),11,bf FOR I=1 TO 4000:NEXT I COLOR 0,15 CLS Speech2: AREAFILL COLOR 7 AREAFILL AREA (0,110) AREA (60,85) AREA (40,85) AREA (0,110) AREAFILL LINE (25,35)-(115,85),7,bf AREAFILL COLOR 7 AREA (315,175) AREA (285,155) AREA (275,155) AREA (315,175) AREAFILL LINE (205,115)-(305,155),7,bf LOCATE 5,1 COLOR 0,7 PRINT TAB(4)" OH NO!" PRINT TAB(4)" I'VE" PRINT TAB(4)"DROPPED" PRINT TAB(4)"THE KEY!" LOCATE 14,1 COLOR 4 PRINT TAB(22)"LETS TAKE" PRINT TAB(22)" SHELTER" PRINT TAB(22)" IN THE" PRINT TAB(22)" CAR!" FOR I=1 TO 6000:NEXT I COLOR 0,1 CLS LOCATE 1,1 COLOR 10 PRINT "BUT..." COLOR 11 FOR I=1 TO 3000:NEXT I LOCATE 3,1:PRINT " THE CAR HAD BEEN STOLEN!" FOR I=1 TO 4000:NEXT I LOCATE 8,13:COLOR 9:PRINT "THE" COLOR 10:PRINT TAB(13)" END!" COLOR 6 LOCATE 17,1:PRINT "PRESS 1 TO PLAY AGAIN!" COLOR 7:PRINT "PRESS ANYTHING ELSE TO RETURN!" I$="" WHILE I$="" I$=INKEY$ WEND IF I$="1" THEN GOTO Is2 CLS RUN 20 Is3: CLS LOCATE 9,10 COLOR 9:PRINT "SAM & VAY'S" COLOR 6:PRINT TAB(8)"CHRISTMAS PARTY!" FOR I=1 TO 4000:NEXT I COLOR 0,6 CLS LINE (0,0)-(315,25),0,bf COLOR 10,1 LINE (0,160)-(315,180),7,bf AREA (220,140) AREA (240,60) AREA (260,140) AREAFILL COLOR 8 AREAFILL AREA (235,140) AREA (245,140) AREA (245,160) AREA (235,160) AREAFILL I%=170 LINE (I%,90)-(I%+10,103),0,bf LINE (I%,85)-(I%+3,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%+10,110)-(I%+25,115),0,bf LINE (I%,140)-(I%+4,160),0,bf LINE (I%+6,140)-(I%+10,160),0,bf I%=280 LINE (I%,90)-(I%+10,103),0,bf LINE (I%+10,85)-(I%+7,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%,110)-(I%-15,115),0,bf LINE (I%,140)-(I%+4,160),0,bf LINE (I%+6,140)-(I%+10,160),0,bf LINE (I%-18,113)-(I%-13,145),15,bf LOCATE 1,2:COLOR 9:PRINT "IT WAS DEC. 24TH. SAM & VAY" PRINT " WERE OUT GETTING A TREE!!" SoundBitIssue3: FOR I=1 TO 30 SOUND 230,5.000000E-01,255,0 FOR J=1 TO 50:NEXT J SOUND 20,1,5.000000E-01,2 NEXT I FOR I=1 TO 4000:NEXT I COLOR 6 AREA (220,140) AREA (240,60) AREA (260,140) AREAFILL COLOR 6 AREAFILL AREA (235,140) AREA (245,140) AREA (245,160) AREA (235,160) AREAFILL LINE (I%,90)-(I%+10,103),0,bf LINE (I%+10,85)-(I%+7,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%,110)-(I%-15,115),0,bf LINE (I%,140)-(I%+4,160),0,bf LINE (I%+6,140)-(I%+10,160),0,bf LINE (I%-18,113)-(I%-13,145),15,bf COLOR 10 AREAFILL AREA (207,67) AREA (215,145) AREA (253,133) AREAFILL COLOR 8 AREAFILL AREA (227,142) AREA (235,160) AREA (247,158) AREA (240,135) AREAFILL FOR I=1 TO 4000:NEXT I COLOR 0,11 CLS LINE (0,0)-(20,180),9,bf LINE (0,0)-(315,20),9,bf LINE (315,0)-(280,180),9,bf LINE (315,160)-(0,180),9,bf LOCATE 9,14 COLOR 0:PRINT "CRASH!!" FOR I=1 TO 8000:NEXT I COLOR 0,12 CLS AtHomeIssue3: LINE (0,0)-(315,25),0,bf LINE (0,160)-(315,180),9,bf COLOR 10,0 AREAFILL AREA (95,70) AREA (70,150) AREA (120,150) AREAFILL LINE (90,150)-(100,160),8,bf LINE (90,60)-(100,70),11,bf LINE (90,90)-(92,92),9,bf LINE (100,110)-(98,112),13,bf LINE (80,140)-(82,142),11,bf LINE (155,25)-(158,160),8,bf LINE (160,130)-(180,160),15,bf LINE (162,125)-(178,130),0,bf LINE (250,100)-(255,160),8,bf LINE (250,100)-(315,110),8,bf COLOR 9,0 LOCATE 1,1 PRINT " VAY DECORATED THE TREE. SAM " PRINT "MADE FOOD.(IT TOOK 5 ATTEMPTS)!" I%=20 LINE (I%,90)-(I%+10,103),0,bf LINE (I%,85)-(I%+3,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%+10,110)-(I%+25,115),0,bf LINE (I%,140)-(I%+4,160),0,bf LINE (I%+6,140)-(I%+10,160),0,bf LINE (I%+25,115)-(I%+27,117),5,bf I%=220 LINE (I%,90)-(I%+10,103),0,bf LINE (I%+10,85)-(I%+7,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%,110)-(I%-15,115),0,bf LINE (I%,140)-(I%+4,160),0,bf LINE (I%+6,140)-(I%+10,160),0,bf FOR I=1 TO 8000:NEXT I COLOR 1,0 CLS COLOR 10,0 LOCATE 2,5:PRINT "BUT SAM & VAY FAINTED" PRINT TAB(9)"NO-ONE CAME!!" FOR I=1 TO 4000:NEXT I LOCATE 10,1:COLOR 9:PRINT " THE END!" COLOR 6 LOCATE 17,1:PRINT "PRESS 1 TO PLAY AGAIN!" COLOR 7:PRINT "PRESS ANYTHING ELSE TO RETURN!" I$="" WHILE I$="" I$=INKEY$ WEND IF I$="1" THEN GOTO Is3 CLS RUN 20 Is4: COLOR 1,0 CLS LOCATE 9,8 COLOR 9:PRINT "SAM & VAY GO TO" COLOR 6:PRINT TAB(10)"THE SEASIDE" FOR I=1 TO 4000:NEXT I COLOR 0,6 CLS LINE (0,0)-(315,25),0,bf LINE (0,160)-(315,180),10,bf LINE (40,60)-(160,150),9,bf LINE (160,145)-(162,150),8,bf LINE (40,70)-(50,90),12,bf LINE (60,70)-(90,90),12,bf LINE (100,70)-(130,90),12,bf LINE (140,70)-(160,90),12,bf LINE (40,110)-(50,130),12,bf LINE (60,110)-(90,130),12,bf LINE (100,110)-(130,130),12,bf LINE (140,110)-(160,130),12,bf LINE (110,86)-(122,90),0,bf LINE (112,78)-(120,86),0,bf LINE (112,75)-(114,78),0,bf LINE (118,75)-(120,78),0,bf LINE (114,79)-(115,80),10,bf LINE (117,79)-(118,80),10,bf LINE (114,84)-(116,85),9 LINE (116,85)-(118,84),9 LINE (70,126)-(82,130),0,bf LINE (72,116)-(80,126),0,bf LINE (72,113)-(74,116),0,bf LINE (78,113)-(80,116),0,bf LINE (74,119)-(75,120),6,bf LINE (77,119)-(78,120),6,bf LINE (74,124)-(76,125),9 LINE (76,125)-(78,124),9 LINE (164,146)-(170,142),11 LINE (164,148)-(170,148),11 LINE (164,150)-(170,154),11 LINE (147,126)-(155,130),15,bf LINE (148,118)-(154,126),15,bf LINE (148,114)-(150,118),15,bf LINE (155,127)-(158,129),15,bf LINE (159,126)-(157,130),10 LOCATE 1,1 COLOR 9,0 PRINT " SAM & VAY WERE BORED SO THEY" PRINT " WENT TO THE SEASIDE!" COLOR 9,6 BusWheelsMove: CIRCLE (60,150),11,0 CIRCLE (140,150),11,0 PAINT (60,150),0 PAINT (140,150),0 FOR I=1 TO 2000:NEXT I FOR I=40 TO 320 STEP 20 SCROLL (I,60)-(I+180,159),20,0 FOR J=1 TO 1000:NEXT J NEXT I FOR I=1 TO 1000:NEXT I COLOR 0,1 CLS COLOR 10 LOCATE 8,11 PRINT "BUT THE BUS" PRINT TAB(12)"CRASHED!" FOR I=1 TO 4000:NEXT I COLOR 0,11 CLS LINE (0,0)-(20,180),9,bf LINE (0,0)-(315,20),9,bf LINE (315,0)-(280,180),9,bf LINE (315,160)-(0,180),9,bf LOCATE 9,14 COLOR 0:PRINT "CRASH!!" SOUND WAIT SOUND 200,2,255,3 SOUND RESUME FOR I=1 TO 30 S%=RND*10 S%=S%*1000 SOUND S%,5.000000E-01,150,0 SOUND 20,5.000000E-01,6.000000E-01,0 NEXT I FOR I=1 TO 3000:NEXT I CoastStart: COLOR 0,6 CLS LINE (0,140)-(315,180),4,bf AREAFILL COLOR 11 AREAFILL AREA (0,116) AREA (78,116) AREA (106,126) AREA (185,180) AREA (0,180) AREA (0,116) AREAFILL K=-10 LINE (K+40,90-44)-(K+10+40,103-44),0,bf LINE (K+7+40,85-44)-(K+10+40,90-44),0,bf LINE (K+2+40,103-44)-(K+8+40,105-44),0,bf LINE (K+40,105-44)-(K+10+40,140-44),0,bf LINE (K+40,110-44)-(K-15+40,115-44),0,bf LINE (K+40,140-44)-(K+40+4,160-44),0,bf:LINE (K+40+6,140-44)-(K+40+10,160-44),0,bf COLOR 5,6 LOCATE 1,1 PRINT "ONCE THERE.." FOR I%=190 TO 340 STEP 10 LINE (170,80)-(315,140),6,bf LINE (170,140)-(315,162),4,bf LINE (I%,90)-(I%+10,103),0,bf LINE (I%,85)-(I%+3,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%+10,110)-(I%+25,115),0,bf LINE (I%-10,130)-(I%+30,140),9,bf FOR J=1 TO 500:NEXT J NEXT I% Rescuebit: COLOR 0,13 CLS LINE (0,0)-(315,25),0,bf COLOR 9,0 LINE (0,60)-(60,90),10,bf LINE (0,90)-(60,180),15,bf LINE (61,160)-(315,180),4,bf LOCATE 1,1 PRINT " WHEN IT WAS TIME TO GO, SAM" PRINT " COULDNT FIND VAY SO GOT HELP!" FOR I=190 TO 70 STEP -10 LINE (I,80)-(I+30,96),9,bf LINE (I+30,86)-(I+50,92),9,bf LINE (I+47,82)-(I+50,92),9,bf LINE (I,94)-(I-2,96),9,bf LINE (I+14,78)-(I+16,80),9,bf LINE (I-6,74)-(I+32,78),15,bf LINE (I+2,82)-(I+8,90),10,bf LINE (I+10,82)-(I+18,90),10,bf LINE (I+20,82)-(I+28,90),10,bf LINE (I+4,96)-(I+4,100),7 LINE (I+24,96)-(I+24,100),7 LINE (I+2,100)-(I+26,100),7 FOR J=1 TO 800:NEXT J LINE (I-7,74)-(I+60,101),13,bf NEXT I COLOR 0,11 CLS LINE (0,0)-(20,180),9,bf LINE (0,0)-(315,20),9,bf LINE (315,0)-(280,180),9,bf LINE (315,160)-(0,180),9,bf LOCATE 9,14 COLOR 0:PRINT "CRASH!!" SOUND WAIT SOUND 200,2,255,3 SOUND RESUME FOR I=1 TO 30 S%=RND*10 S%=S%*1000 SOUND S%,5.000000E-01,150,0 SOUND 20,5.000000E-01,6.000000E-01,0 NEXT I FOR I=1 TO 3000:NEXT I GoHomeBit: COLOR 10,13 CLS LINE (0,0)-(315,25),0,bf LINE (0,140)-(315,180),4,bf LOCATE 1,1 COLOR 9,0 PRINT "SADLY SAM WENT HOME. MEANWHILE" PRINT " VAY WAS MILES AWAY" MORD1=0 MORD2=7 FOR I%=10 TO 279 STEP 10 LINE (0,35)-(315,140),13,bf LINE (0,140)-(315,162),4,bf LINE (I%,90)-(I%+10,103),0,bf LINE (I%,85)-(I%+3,90),0,bf LINE (I%+2,103)-(I%+8,105),0,bf LINE (I%,105)-(I%+10,140),0,bf LINE (I%+10,110)-(I%+25,115),0,bf LINE (I%-10,130)-(I%+30,140),9,bf AREAFILL COLOR MORD2 AREAFILL AREA (I%+20,100) AREA (I%+35,85) AREA (I%+25,85) AREA (I%+20,100) AREAFILL LINE (I%+20,35)-(I%+90,85),MORD2,bf COLOR MORD1,MORD2 LOCATE 6,I%/10+3 PRINT "I WISH" PRINT TAB(I%/10+3)"I COULD" PRINT TAB(I%/10+3)" SWIM!" FOR J=1 TO 500:NEXT J K=K+1 IF K>9 THEN MORD1=13:MORD2=13 NEXT I% COLOR 1,0 CLS LOCATE 8,13:COLOR 9:PRINT "THE" COLOR 10:PRINT TAB(13)" END!" COLOR 6 LOCATE 17,1:PRINT "PRESS 1 TO PLAY AGAIN!" COLOR 7:PRINT "PRESS ANYTHING ELSE TO RETURN!" I$="" WHILE I$="" I$=INKEY$ WEND IF I$="1" THEN GOTO Is4 CLS RUN 20 Is5: COLOR 1,0 CLS LOCATE 9,12 COLOR 9:PRINT "SAM MOVES" COLOR 6:PRINT TAB(13)"HOUSE!" FOR I=1 TO 4000:NEXT I COLOR 0,13 CLS AREAFILL COLOR 0 AREAFILL AREA (0,0) AREA (0,25) AREA (150,40) AREA (300,25) AREAFILL LINE (0,0)-(315,25),0,bf LINE (0,25)-(315,25),15 LINE (40,130)-(50,160),8,bf LINE (45,160)-(40,180),7 LINE (45,160)-(50,180),7 LINE (150,170)-(180,180),10,bf LINE (180,180)-(170,150),10,bf LINE (146,175)-(150,164),0,bf LINE (150,164)-(160,170),0,bf LINE (160,170)-(170,148),0,bf LINE (160,152)-(152,156),0,bf LINE (162,140)-(168,148),0,bf LINE (166,136)-(168,140),0,bf LINE (162,142)-(163,143),6,bf LINE (162,146)-(164,146),9 LINE (54,130)-(60,126),11 LINE (54,136)-(60,136),11 LINE (54,142)-(60,142),11 LINE (54,148)-(60,148),11 LINE (54,154)-(60,154),11 LINE (54,160)-(60,164),11 LOCATE 1,1 COLOR 10,0 PRINT "IT WAS A STORMY NIGHT..." AREAFILL COLOR 4 AREAFILL AREA (150,40) AREA (90,34) AREA (210,34) AREAFILL FOR I=1 TO 3000:NEXT I AREAFILL AREA (50,30) AREA (150,40) AREA (250,30) AREAFILL FOR I=1 TO 3000:NEXT I AREAFILL AREA (10,26) AREA (290,26) AREA (150,40) AREAFILL FOR I=1 TO 3000:NEXT I COLOR 0,11 CLS LINE (0,0)-(20,180),9,bf LINE (0,0)-(315,20),9,bf LINE (315,0)-(280,180),9,bf LINE (315,160)-(0,180),9,bf LOCATE 9,14 COLOR 0:PRINT "SPLASH!" FOR I=1 TO 8000:NEXT I COLOR 0,6 CLS LINE (0,0)-(315,25),0,bf LINE (0,160)-(315,180),10,bf LINE (0,40)-(40,160),9,bf LINE (10,50)-(40,80),4,bf LINE (20,110)-(40,160),11,bf AREAFILL COLOR 15 AREAFILL AREA (0,26) AREA (0,40) AREA (40,40) AREA (20,26) AREAFILL LINE (142+20,112)-(150+20,120),0,bf LINE (148+20,108)-(150+20,112),0,bf LINE (140+20,120)-(150+20,142),0,bf LINE (140+20,142)-(144+20,160),0,bf LINE (146+20,142)-(150+20,160),0,bf LINE (130+20,124)-(140+20,128),0,bf LINE (240,60)-(315,140),9,bf LINE (142+20,114)-(143+20,115),6,bf LINE (142+20,118)-(146+20,118),9 LOCATE 1,1 COLOR 10,0 PRINT " SAM HAD TO MOVE HOUSE" PRINT " SO HE STARTED TO PACK! BUT...." COLOR 0,6 CIRCLE (260,150),10,0 PAINT (260,150),0 FOR I=1 TO 4000:NEXT I FOR I=300 TO 260 STEP -20 SCROLL (I,60)-(I-70,160),-20,0 LINE (I-70,60)-(I+20,140),9,bf SOUND 300,3,255,0 SOUND 20,1.000000E-01,5.000000E-01,0 FOR J=1 TO 2000:NEXT J NEXT I COLOR 0,11 CLS LINE (0,0)-(20,180),9,bf LINE (0,0)-(315,20),9,bf LINE (315,0)-(280,180),9,bf LINE (315,160)-(0,180),9,bf LOCATE 9,14 COLOR 0:PRINT "FLATTEN" FOR I=1 TO 7000:NEXT I COLOR 0,6 CLS LINE (0,0)-(315,25),0,bf LINE (130,26)-(315,180),9,bf LINE (0,70)-(120,120),0,bf LINE (190,60)-(210,80),11,bf LINE (196,80)-(204,110),11,bf LINE (204,110)-(210,104),11,bf LINE (120,80)-(140,100),8,bf LINE (140,86)-(170,94),8,bf LINE (170,94)-(164,80),8,bf LOCATE 1,1 COLOR 9,0 PRINT " SAM ACCIDENTALY PICKED UP THE" PRINT " BLOW UP HOUSE KEY" FOR I=1 TO 6000:NEXT I COLOR 0,1 CLS COLOR 10 LOCATE 8,1 PRINT " WHEN SAM OPENED THE DOORS" PRINT " EVERYTHING FELL OUT!!" FOR I=1 TO 5000:NEXT I COLOR 0,11 CLS LINE (0,0)-(20,180),9,bf LINE (0,0)-(315,20),9,bf LINE (315,0)-(280,180),9,bf LINE (315,160)-(0,180),9,bf LOCATE 9,14 COLOR 0:PRINT "CRASH!!" FOR I=1 TO 7000:NEXT I COLOR 0,1 CLS LOCATE 8,1 COLOR 9 PRINT "WHEN SAM USED THE KEY THE HOUSE" PRINT " BLEW UP!!" FOR I=1 TO 5000:NEXT I COLOR 0,11 CLS LINE (0,0)-(20,180),9,bf LINE (0,0)-(315,20),9,bf LINE (315,0)-(280,180),9,bf LINE (315,160)-(0,180),9,bf LOCATE 9,14 COLOR 0:PRINT "BOOM!!!" FOR I=1 TO 7000:NEXT I COLOR 0,1 CLS LOCATE 8,13:COLOR 9:PRINT "THE" COLOR 10:PRINT TAB(13)" END!" COLOR 6 LOCATE 17,1:PRINT "PRESS 1 TO PLAY AGAIN!" COLOR 7:PRINT "PRESS ANYTHING ELSE TO RETURN!" I$="" WHILE I$="" I$=INKEY$ WEND IF I$="1" THEN GOTO Is5 CLS RUN 20 RETURN Is6: COLOR 1,0 CLS LOCATE 9,9 COLOR 9:PRINT "SAM & LUCKY'S" COLOR 6:PRINT TAB(13)"PHOTOS" FOR I=1 TO 4000:NEXT I PicStart: COLOR 1,0 CLS LINE (80,20)-(220,110),6,bf LINE (120,110)-(125,80),1 LINE (140,110)-(135,80),1 LINE (178,70)-(192,94),3,bf LINE (180,70)-(190,94),7,bf LINE (178,94)-(184,110),7,bf LINE (186,94)-(192,110),7,bf LINE (178,80)-(168,74),7,bf LINE (192,80)-(202,74),7,bf LINE (180,60)-(190,70),3,bf LINE (180,54)-(182,60),3,bf LINE (188,54)-(190,60),3,bf LINE (182,67)-(185,69),1 LINE (185,69)-(188,67),1 LINE (182,62)-(183,63),1,bf LINE (187,62)-(188,63),1,bf AREAFILL COLOR 10 AREAFILL AREA (130,30) AREA (110,40) AREA (110,80) AREA (130,90) AREA (150,80) AREA (150,40) AREA (130,30) AREAFILL COLOR 9 AREAFILL AREA (110,80) AREA (130,90) AREA (150,80) AREA (150,70) AREA (140,50) AREA (130,70) AREA (120,50) AREA (110,70) AREA (110,80) AREAFILL LINE (80,20)-(220,110),9,b COLOR 10 PRINT TAB(10)"SAMS PHOTOS" LOCATE 15,10 COLOR 9 PRINT "LUCKY'S EGG" COLOR 6 LOCATE 18,3 PRINT "PRESS 1)PRINT OTHER)NEXT!" I$="" WHILE I$="":I$=INKEY$:WEND IF I$="1" THEN GOSUB GraphicPrinter COLOR 1,0 CLS LINE (80,20)-(220,110),6,bf LINE (178-35,70)-(192-35,94),3,bf LINE (180-35,70)-(190-35,94),7,bf LINE (178-35,94)-(184-35,110),7,bf LINE (186-35,94)-(192-35,110),7,bf LINE (178-35,80)-(168-35,74),7,bf LINE (192-35,80)-(202-35,74),7,bf LINE (180-35,60)-(190-35,70),3,bf LINE (180-35,54)-(182-35,60),3,bf LINE (182-35,67)-(185-35,69),1 LINE (185-35,69)-(188-35,67),1 LINE (182-35,62)-(183-35,63),1,bf LINE (187-35,62)-(188-35,63),1,bf AREAFILL COLOR 8 AREAFILL AREA (180-35,54) AREA (190-35,54) AREA (192-35,60) AREA (192-35,64) AREA (188-35,66) AREA (184-35,64) AREA (180-35,66) AREA (178-35,64) AREA (178-35,60) AREA (180-35,54) AREAFILL LINE (80,20)-(220,110),9,b COLOR 10 PRINT TAB(10)"SAMS PHOTOS" LOCATE 6,16 COLOR 1,6 PRINT "?" LOCATE 15,6 COLOR 9,0 PRINT "AN EGG ON LUCKY'S HEAD!" COLOR 6 LOCATE 18,3 PRINT "PRESS 1)PRINT OTHER)NEXT!" I$="" WHILE I$="":I$=INKEY$:WEND IF I$="1" THEN GOSUB GraphicPrinter COLOR 1,0 CLS LINE (80,20)-(220,110),1,bf AREAFILL COLOR 11 AREAFILL AREA (140,20) AREA (130,70) AREA (170,70) AREA (160,20) AREAFILL COLOR 7 AREAFILL AREA (130,70) AREA (140,60) AREA (160,60) AREA (170,70) AREA (160,80) AREA (140,80) AREA (130,70) AREAFILL COLOR 5 AREAFILL AREA (142,68) AREA (148,62) AREA (160,62) AREA (154,68) AREAFILL COLOR 8 AREAFILL AREA (154,68) AREA (160,62) AREA (160,70) AREA (154,74) AREAFILL LINE (142,68)-(154,74),9,bf LINE (80,20)-(220,110),9,b COLOR 10 PRINT TAB(10)"SAMS PHOTOS" LOCATE 15,8 COLOR 9 PRINT "A CHEWIT!(WOW!)" COLOR 6 LOCATE 18,3 PRINT "PRESS 1)PRINT OTHER)NEXT!" I$="" WHILE I$="":I$=INKEY$:WEND IF I$="1" THEN GOSUB GraphicPrinter COLOR 1,0 CLS LINE (80,20)-(220,110),4,bf LINE (80,20)-(220,30),9,bf LINE (80,100)-(220,110),9,bf AREAFILL COLOR 11 AREAFILL AREA (80,100) AREA (120,30) AREA (160,100) AREA (200,30) AREA (220,65) AREA (220,100) AREAFILL LINE (80,20)-(220,110),9,b COLOR 3 PRINT TAB(4)"LUCKYS PHOTOS(HOPELESS)" LOCATE 15,5:COLOR 9 PRINT "A VERY CLOSE VIEW OF" PRINT TAB(10)"SAM'S EGG!!" LOCATE 18,3 COLOR 6 PRINT "PRESS 1)PRINT OTHER)NEXT!" I$="" WHILE I$="":I$=INKEY$:WEND IF I$="1" THEN GOSUB GraphicPrinter COLOR 1,0 CLS LINE (80,20)-(220,110),6,bf LINE (138,72)-(149,57),1 LINE (148,81)-(165,70),1 AREAFILL COLOR 9 AREAFILL AREA (146,72) AREA (132,69) AREA (110,91) AREA (114,105) AREA (128,108) AREA (150,86) AREA (146,72) AREAFILL COLOR 4 AREAFILL AREA (128,74) AREA (116,86) AREA (133,103) AREA (145,91) AREAFILL COLOR 11 AREAFILL AREA (145,91) AREA (128,98) AREA (136,82) AREA (120,90) AREA (128,74) AREAFILL COLOR 1 AREAFILL AREA (134,43) AREA (122,54) AREA (102,74) AREA (92,64) AREA (125,33) AREA (129,37) AREA (118,48) AREA (120,50) AREA (131,39) AREAFILL COLOR 1 AREAFILL AREA (100,73) AREA (93,79) AREA (89,82) AREA (90,76) AREA (84,78) AREA (88,74) AREA (95,67) AREAFILL LINE (92,46)-(96,64),1,bf LINE (102,70)-(120,74),1,bf LINE (94,76)-(94,76),10,bf LINE (91,73)-(91,73),10,bf LINE (97,73)-(94,69),9 AREAFILL COLOR 10 AREAFILL AREA (200,110) AREA (220,110) AREA (220,20) AREA (110,20) AREA (200,110) AREAFILL LINE (80,20)-(220,110),9,b COLOR 3 PRINT TAB(4)"LUCKYS PHOTOS(HOPELESS)" LOCATE 15,8:COLOR 9 PRINT "2ND TRY! DRAT!!" LOCATE 18,3 COLOR 6 PRINT "PRESS 1)PRINT OTHER)NEXT!" I$="" WHILE I$="":I$=INKEY$:WEND IF I$="1" THEN GOSUB GraphicPrinter COLOR 1.000000E+00 CLS LINE (80,20)-(220,110),6,bf LINE (178,70)-(192,94),1,bf LINE (180,70)-(190,94),1,bf LINE (178,94)-(184,110),1,bf LINE (186,94)-(192,110),1,bf LINE (178,80)-(168,74),1,bf LINE (192,80)-(202,74),1,bf LINE (180,60)-(190,70),1,bf LINE (180,54)-(182,60),1,bf LINE (188,54)-(190,60),1,bf LINE (182,67)-(185,69),9 LINE (185,69)-(188,67),9 LINE (182,62)-(183,63),10,bf LINE (187,62)-(188,63),10,bf AREAFILL COLOR 3 AREAFILL AREA (170,110) AREA (80,110) AREA (80,20) AREA (178,20) AREA (170,30) AREA (186,50) AREA (170,70) AREA (186,90) AREA (170,110) AREAFILL LINE (170,70)-(130,70),1 LINE (170,30)-(130,30),1 LINE (80,20)-(220,110),9,b COLOR 3 PRINT TAB(4)"LUCKYS PHOTOS(HOPELESS)" LOCATE 15,8:COLOR 9 PRINT "TCH! TCH! TCH!!" LOCATE 18,1 COLOR 6 PRINT "PRESS 1)1ST,2)PR.,OTHER)RETURN" I$="" WHILE I$="":I$=INKEY$:WEND IF I$="1" THEN GOTO PicStart IF I$="2" THEN GOSUB GraphicPrinter CLS RUN 20 GraphicPrinter: LOCATE 18,1 COLOR 11 PRINT " ARE YOU SURE? " I$="" WHILE I$="":I$=INKEY$:WEND IF I$<>"Y" AND I$<>"y" THEN RETURN LOCATE 18,1 PRINT " " PALETTE 0,1.000000E+00,1.000000E+00,1.000000E+00 PALETTE 1,0.000000E+00,0.000000E+00,0.000000E+00 PALETTE 2,3.125000E-01,3.750000E-01,3.750000E-01 PALETTE 3,9.375000E-01,4.375000E-01,0.000000E+00 PALETTE 4,0.000000E+00,0.000000E+00,1.000000E+00 PALETTE 5,1.000000E+00,0.000000E+00,1.000000E+00 PALETTE 6,0.000000E+00,1.000000E+00,1.000000E+00 PALETTE 7,1.000000E+00,1.000000E+00,1.000000E+00 PALETTE 8,3.125000E-01,1.250000E-01,0.000000E+00 PALETTE 9,1.000000E+00,2.500000E-01,0.000000E+00 PALETTE 10,4.375000E-01,1.000000E+00,0.000000E+00 PALETTE 11,1.000000E+00,8.750000E-01,0.000000E+00 PALETTE 12,3.125000E-01,3.125000E-01,1.000000E+00 PALETTE 13,5.625000E-01,2.500000E-01,1.000000E+00 PALETTE 14,0.000000E+00,1.000000E+00,5.000000E-01 PALETTE 15,7.000000E-01,7.000000E-01,7.000000E-01 GOSUB ScreenDump PALETTE 0,0.000000E+00,0.000000E+00,0.000000E+00 FOR I=1 TO 5000:NEXT RETURN ScreenDump: BorderFlag%=0 REM If first call of this routine REM declare the exec library functions REM which return values IF AlreadyDeclared = 0 THEN DECLARE FUNCTION AllocSignal%() LIBRARY DECLARE FUNCTION AllocMem&() LIBRARY DECLARE FUNCTION FindTask&() LIBRARY DECLARE FUNCTION DoIO&() LIBRARY DECLARE FUNCTION OpenDevice& LIBRARY AlreadyDeclared = 1 END IF REM Get addresses of the structures sWindow& = WINDOW(7) sScreen& = PEEKL(sWindow& + 46) sViewPort& = sScreen& + 44 sRastPort& = sScreen& + 84 sColorMap& = PEEKL(sViewPort& + 4) REM Get Screen width, height, modes maxWidth% = PEEKW(sScreen& + 12) maxHeight% = PEEKW(sScreen& + 14) viewModes% = PEEKW(sViewPort& + 32) REM Set up parameters for dump command command% = 11 'Printer command number srcX% = 0 'Send whole screen srcY% = 0 srcWidth% = maxWidth% srcHeight% = maxHeight% destRows& = 0 'Dump will compute destCols& = 0 special% = &h154 'FullCol | Aspect IF BorderFlag% = 0 THEN srcX% = srcX% + 3 srcY% = srcY% + 11 srcWidth% = srcWidth% - 3 - 11 srcHeight% = srcHeight% - 11 - 3 END IF LIBRARY "exec.library" REM *** CreatePort *** sigBit% = AllocSignal%(-1) ClearPublic& = 65537 msgPort& = AllocMem&(40,ClearPublic&) IF msgPort& = 0 THEN PRINT "Can't allocate msgPort" GOTO cleanup4 END IF POKE(msgPort& + 8), 4 'Type=NT_MSGPORT POKE(msgPort& + 9), 0 'Priority 0 portName$ = "MyPrtPort"+CHR$(0) POKEL(msgPort& + 10), SADD(portName$) POKE(msgPort& + 14), 0 'Flags POKE(msgPort& + 15), sigBit% sigTask& = FindTask&(0) POKEL(msgPort& + 16), sigTask& CALL AddPort(msgPort&) 'Add the port REM *** CreatExtIO *** ioRequest& = AllocMem&(64,ClearPublic&) IF ioRequest& = 0 THEN PRINT "Can't allocate ioRequest" GOTO cleanup3 END IF POKE(ioRequest& + 8),5 'Type=NT_MESSAGE POKE(ioRequest& + 9),0 'Priority 0 POKEL(ioRequest& + 14), msgPort& REM *** Open the Printer Device *** devName$ = "printer.device"+CHR$(0) pError& = OpenDevice&(SADD(devName$),0,ioRequest&,0) IF pError& <> 0 THEN PRINT "Can't open printer" GOTO cleanup2 END IF REM *** Dump the RastPort *** POKEW(ioRequest& + 28), command% POKEL(ioRequest& + 32), sRastPort& POKEL(ioRequest& + 36), sColorMap& POKEL(ioRequest& + 40), viewModes% POKEW(ioRequest& + 44), srcX% POKEW(ioRequest& + 46), srcY% POKEW(ioRequest& + 48), srcWidth% POKEW(ioRequest& + 50), srcHeight% POKEL(ioRequest& + 52), destCols& POKEL(ioRequest& + 56), destRows& POKEW(ioRequest& + 60), special% ioError& = DoIO&(ioRequest&) IF ioError& <> 0 THEN PRINT "DumpRPort error =" ioError& GOTO cleanup1 END IF cleanup1: REM *** Close Printer Device *** CALL CloseDevice(ioRequest&) cleanup2: REM *** DeleteExtIO *** POKE(ioRequest& + 8), &h162 POKEL(ioRequest& + 20), -1 POKEL(ioRequest& + 24), -1 CALL FreeMem(ioRequest&,64) cleanup3: REM *** DeletePort *** CALL RemPort(msgPort&) POKE(msgPort& + 8), &h157 POKEL(msgPort& + 20), -1 CALL FreeSignal(sigBit%) CALL FreeMem(msgPort&,40) cleanup4: LIBRARY CLOSE RETURN Map1: CLS COLOR 9 PRINT " WEATHERY-LAND" PRINT " =============" COLOR 12 PRINT " CONTENTS!" COLOR 10 PRINT PRINT " 1) WEATHER ZONES" COLOR 4 PRINT " 2) HANDY EQUIPMENT GUIDE" COLOR 10 PRINT " 3) SNOW & ICE" COLOR 4 PRINT " 4) ROCK & LAVA" COLOR 10 PRINT " 5) NORMAL" COLOR 4 PRINT " 6) DESERT" COLOR 10 PRINT " 7) WOODLAND" COLOR 4 PRINT " 8) STORMY" COLOR 6 PRINT I$="" WHILE I$="" I$=INKEY$ WEND I=VAL(I$) IF I<1 THEN CLS:RETURN ON I GOSUB Weath,Handy,Snow,Lava,Normal2,Desert,Wood,Storm CLS RUN 20 Storm: CLS COLOR 15 PRINT " STORMY PLACES!" PRINT " ==============" PRINT COLOR 7 PRINT " KIT-STORMY" COLOR 15:PRINT " (AN ISLAND NEAR THE COAST!) PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND CLS COLOR 15 PRINT " NOTES!" PRINT " ======" PRINT COLOR 7 PRINT " - CHECK THE EQUIPMENT LIST" PRINT:COLOR 15:PRINT " - ACCESS BY TRAIN LIMITED" PRINT:COLOR 7:PRINT " - ACCESS BY BUS LIMITED" PRINT:COLOR 15:PRINT " - BEACH MAY BE CLOSED" PRINT:COLOR 7:PRINT " - YOU MAY GET STUCK ON ISLAND" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND RETURN Wood: CLS COLOR 10 PRINT " WOODLAND PLACES!" PRINT " ================" PRINT COLOR 8 PRINT " KIT-WOODY" COLOR 10:PRINT " KIT-TARZAN" COLOR 8:PRINT " KIT-TINYO" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND CLS COLOR 10 PRINT " NOTES!" PRINT " ======" PRINT COLOR 8 PRINT " - WATCH FOR FALLING BRANCHES" PRINT:COLOR 10:PRINT " - TRAINS ARE AVAILABLE" PRINT:COLOR 8:PRINT " - BUSES ARE AVAILABLE" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND RETURN Desert: CLS COLOR 8 PRINT " DESERT PLACES!" PRINT " ==============" PRINT COLOR 11 PRINT " KIT-SUNNY" COLOR 8:PRINT " KIT-HOTEY" COLOR 11:PRINT " KIT-DRYINA" COLOR 8:PRINT " KIT-WATER" COLOR 11:PRINT " KIT-MIRAGE" COLOR 8:PRINT " KIT-CAMEL" COLOR 11:PRINT " KIT-YELLOW" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND CLS COLOR 8 PRINT " NOTES!" PRINT " ======" PRINT COLOR 11 PRINT " - CHECK THE EQUIPMENT LIST" PRINT:COLOR 8:PRINT " - TRAINS ARE AVAILABLE" PRINT:COLOR 11:PRINT " - BUSES ARE AVAILABLE" PRINT:COLOR 8:PRINT " - WATCH FOR QUICKSAND" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND RETURN Normal2: CLS COLOR 10 PRINT " NORMAL CLIMATE PLACES!" PRINT " ======================" PRINT COLOR 6 PRINT " KIT-CLOUDY" COLOR 10:PRINT " KIT-SNOWY" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND CLS COLOR 10 PRINT " NOTES!" PRINT " ======" PRINT COLOR 6 PRINT " - ACCESS BY TRAIN & BUS" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND RETURN Lava: CLS COLOR 9 PRINT " ROCK & LAVA PLACES!" PRINT " ===================" PRINT COLOR 11 PRINT " KIT-GREY" COLOR 9:PRINT " KIT-AHHH!" COLOR 11:PRINT " KIT-BURNY" COLOR 9:PRINT " KIT-RED" COLOR 11:PRINT " KIT-ROCKY" COLOR 9:PRINT " TES & CO. ARCHIVES" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND CLS COLOR 9 PRINT " NOTES!" PRINT " ======" PRINT COLOR 11 PRINT " - CHECK THE EQUIPMENT LIST" PRINT:COLOR 9:PRINT " - LAVA ZONES HAVE NO TRAINS" PRINT:COLOR 11:PRINT " - BUSES ARE AVAILABLE" PRINT:COLOR 9:PRINT " - WATCH OUT FOR LAVA PITS" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND RETURN Snow: CLS COLOR 7 PRINT " SNOW & ICE PLACES!" PRINT " ==================" PRINT COLOR 6 PRINT " KIT-RAINY" COLOR 7:PRINT " KIT-SKATY" COLOR 6:PRINT " KIT-FREEZY" COLOR 7:PRINT " KIT-WHITEY" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND CLS COLOR 7 PRINT " NOTES!" PRINT " ======" PRINT COLOR 6 PRINT " - CHECK THE EQUIPMENT LIST" PRINT:COLOR 7:PRINT " - ICY ZONES HAVE NO TRAINS" PRINT:COLOR 6:PRINT " - BUSES ARE AVAILABLE" PRINT:PRINT COLOR 10 PRINT " PRESS A KEY!" I$="" WHILE I$="" I$=INKEY$ WEND RETURN Weath: CLS COLOR 9 PRINT " WEATHERY-LAND ZONES" PRINT " ===================" COLOR 6 LOCATE 4,2:PRINT "SNOW &" PRINT TAB(3)"ICE" COLOR 10 PRINT PRINT PRINT TAB(3)"NORMAL" COLOR 11 LOCATE 7,10 PRINT " DESERT" COLOR 10 LOCATE 7,10 PRINT PRINT PRINT PRINT PRINT TAB(12)"WOOD" PRINT TAB(12)"LAND" COLOR 15 PRINT TAB(17)"STORMY" LOCATE 4,24 COLOR 9 PRINT " ROCK &" PRINT TAB(25)" LAVA" LOCATE 17,1 COLOR 6 PRINT " PRESS A KEY TO ESCAPE" I$="" WHILE I$="" I$=INKEY$ WEND RETURN Handy: COLOR 0,1 CLS COLOR 6 PRINT "SNOW & ICE" PRINT "----------" PRINT COLOR 4 PRINT " 1) SHOVEL OR PICK" COLOR 14 PRINT " 2) THICK BLANKETS" COLOR 4 PRINT " 3) HOT DRINKS(FLASK)" COLOR 14 PRINT " 4) THICK CLOTHING" COLOR 4 PRINT " 5) MAP" COLOR 14 PRINT " 6) PORTABLE HEATER" COLOR 9 PRINT PRINT "PRESS A KEY" I$="" WHILE I$="" I$=INKEY$ WEND COLOR 0,1 CLS COLOR 9 PRINT "ROCK & LAVA(& DESERT)" PRINT "---------------------" PRINT COLOR 11 PRINT " 1) FIRE PROTECTION" COLOR 8 PRINT " 2) FIRST-AID KIT" COLOR 11 PRINT " 3) SUNGLASSES" COLOR 8 PRINT " 4) SUNCREAM" COLOR 11 PRINT " 5) WATER" COLOR 8 PRINT " 6) ICE-PACKS" COLOR 11 PRINT " 7) MAP" COLOR 8 PRINT " 8) SURVIVAL PLAN" COLOR 10 PRINT PRINT "PRESS A KEY" I$="" WHILE I$="" I$=INKEY$ WEND COLOR 0,1 CLS COLOR 6 PRINT "STORMY" PRINT "------" PRINT COLOR 15 PRINT " 1) MAP" COLOR 7 PRINT " 2) LIGHTNING PROTECTION" COLOR 15 PRINT " 3) FIRST-AID KIT" COLOR 7 PRINT " 4) RAINCOATS" COLOR 15 PRINT " 5) THICK CLOTHING" COLOR 7 PRINT " 6) HOT-DRINKS(FLASK)" COLOR 9 PRINT PRINT "PRESS 1) OTHER)" COLOR 10 LOCATE 11,11 PRINT "FIRST" COLOR 10 LOCATE 11,25 PRINT "RETURN" I$="" WHILE I$="" I$=INKEY$ WEND IF I$="1" THEN GOTO Handy CLS RUN 20