1IFPAGE<>&E00 GOTO90 2CLEAR:?&E04=244 3VDU23,224,126,255,153,231,60,0,60,2 4,23,248,126,255,255,255,60,60,60,24,23, 225,0,255,24,255,24,255,24,126,23,226,24 ,0,24,102,189,231,102,0,23,227,32,112,48 ,24,12,6,3,3,23,228,4,14,12,24,48,96,192 ,192 4VDU23,229,195,195,195,195,195,66,16 5,195,23,230,0,195,195,195,195,195,195,0 ,23,231,192,192,192,192,192,0,224,126,23 ,232,3,3,3,3,3,0,7,126,23,233,62,127,31, 255,108,28,124,24,23,234,124,254,248,255 ,54,56,62,24,23,235,0,0,0,0,0,0,127,3 5VDU23,236,0,0,0,0,0,0,254,192,23,24 4,127,3,0,0,0,0,0,0,23,245,254,192,0,0,0 ,0,0,0,23,246,0,0,0,255,255,0,0,0,23,237 ,0,128,128,128,128,0,128,128,23,238,0,1, 1,1,1,0,1,1,23,239,0,24,0,24,0,24,0,24 6VDU23,244,127,3,0,0,0,0,0,0,23,245, 254,192,0,0,0,0,0,0,23,246,0,0,0,255,255 ,0,0,0,23,243,0,126,60,60,60,189,126,0,2 3,247,0,126,189,60,60,60,126,0 7VDU23,240,16,16,24,24,24,26,26,26,2 3,241,90,90,90,94,92,120,56,24,23,242,24 ,24,24,24,24,24,24,24,23,255,16,32,50,26 ,44,48,96,64:ENVELOPE1,4,1,-1,0,2,2,0,12 6,-1,-1,-2,100,100:ENVELOPE2,4,1,-1,0,1, 1,0,126,-1,-1,-1,0,0 8ENVELOPE3,1,90,-90,5,20,20,10,126,- 1,-3,-3,100,100:ENVELOPE4,1,-5,11,-1,30, 5,5,126,-1,-1,-1,126,126:ENVELOPE5,2,-1, 0,0,255,0,0,126,-1,-1,-1,0,0:ENVELOPE6,2 ,90,90,90,90,90,90,126,-1,-1,-1,126,126 9ENVELOPE7,9,1,-1,20,2,2,3,126,-1,-1 ,-4,126,90:ENVELOPE8,4,1,-1,0,1,1,0,126, -4,-2,-3,126,90 10MODE2:VDU23;8202;0;0;0;:GOSUB85 11VDU23,249,0,0,0,7,0,7,0,0,23,250,0, 0,0,64,128,128,0,0,23,251,131,79,31,159, 63,6,64,70,23,252,193,242,248,249,252,52 ,14,62,23,253,127,109,35,56,152,24,76,13 1,23,254,254,126,156,28,121,112,226,201 12PROCI:PROCB:VDU4:N%=166:FORI%=1TON% :PROCA 13IFI%=17PROCu 14IFI%=23PRINTTAB(6,19)" "TAB(7,20)" "TAB(9,20)" "TAB(10,19)" " 15IFI%=24PRINTTAB(4,20)" "TAB(4,21)" "TAB(7,20)" "TAB(7,21)" "TAB(10,20)" "TA B(10,21)" " 16IFI%=50PRINTTAB(4,18)SPC8TAB(4,19)S PC8 17IFI%=111PROCL(736,400) 18IFI%=130PROCL(352,400) 19IFI%=141PROCs:PROCmelt:*FX9 20IFI%=143FORT=1TO2000:NEXT:SOUND0,-1 5,7,60:SOUND1,5,200,60:VDU19,4,0;0;19,11 ,0;0;4:PRINTTAB(9,17)" ":COLOUR3:PRINTT AB(15,4)S$:X=0:Y=1:FORT=1TO80:X=(X+Y)MOD 2:A=INKEY(3):VDU23;13,X;0;0;0;:NEXT:VDU5 21IFI%=143FORT=1TO1000:NEXT:PROCR 22NEXT:REPEATPROCend:UNTILp=28:VDU19, 6,4;0;:FORI%=1TO16:PROCA:NEXT:A=INKEY(50 0) 24END 25DEFPROCI:p=20 26K$=CHR$18+CHR$3:L$=CHR$8:LD$=CHR$10 +L$:Z$=CHR$32+LD$+CHR$32+LD$+CHR$32+LD$+ CHR$32:S$=K$+CHR$15+CHR$251+CHR$252+LD$+ L$+CHR$253+CHR$254+L$+L$+K$+CHR$5+CHR$24 9+CHR$250 27X$=CHR$224+L$+LD$+CHR$228+CHR$225+C HR$227+STRING$(3,L$)+CHR$10+CHR$227+CHR$ 226+CHR$228+L$+LD$+CHR$229+LD$+CHR$230+L $+LD$+CHR$232+CHR$9+CHR$231:c$=CHR$240+L D$+CHR$241+LD$+CHR$242:VDU5 28*FX9,10 29*FX10,1 30ENDPROC 31DEFPROCB:VDU4:COLOUR129:CLS:VDU28,0 ,24,19,0:COLOUR132:CLS:VDU26,5:PROCC(256 ,864,60,352):PROCC(64,704,60,256):PROCC( 992,448,35,192):A%=960:B%=896:MOVE960,89 6:PRINTS$:GCOL0,5:MOVE896,224:PLOT1,132, 48:PLOT81,96,-48 32PLOT0,-64,0:PLOT1,168,100:PLOT81,25 6,-100:MOVE160,284:GCOL0,2:VDU240,8,10,2 41:MOVE64,316:PRINTc$:MOVE896,316:PRINTc $:GCOL0,3:MOVE992,218:VDU255:GCOL0,0:MOV E1056,64:PRINT"MRM":GCOL0,3:MOVE1048,68: PRINT"MRM":ENDPROC 33DEFPROCC(A,B,N,W):GCOL0,7:FORI%=1TO N:X=RND(W)+A:Y=RND(64)+B:MOVEX,Y:PRINT"* ":NEXT:ENDPROC 34DEFPROCA:READX%,Y%,Z%,C%,W%,C 35IFC<>-1READE,P,D 36IFp=28P=P+48 37COLOURC% 38IFC=0SOUND0,-15,3,D:SOUND1,E,ABS(P+ 91),D:ELSEIFC<>-1SOUNDC,E,P,D 39IFZ%=1PRINTTAB(X%,Y%)X$ELSEPRINTTAB (X%,Y%)CHR$Z% 40TIME=0:REPEATUNTILTIME>=W%:ENDPROC 41DEFPROCs:FORI=1TO7:READC,E,P,D:SOUN DC,E,P,D:TIME=0:REPEATUNTILTIME>20:NEXT: FORT=1TO2000:NEXT:SOUND0,-12,3,15:SOUND1 ,5,240,15:VDU5:REPEAT:MOVEA%,B%:PRINTS$: A%=A%-64:B%=B%-64:MOVEA%,B%:PRINTS$:UNTI LA%=576:FORT=1TO1500:NEXT:SOUND1,1,1,1 42MOVEA%,B%:PRINTS$:VDU23,251,131,79, 6,128,6,63,103,119,23,252,193,242,56,9,5 2,252,30,190:MOVEA%,B%:PRINTS$:FORT=1TO2 500:NEXT:GOSUB65:VDU4:ENDPROC 43DEFPROCu:SOUND3,4,50,5:COLOUR0:FORT =1TO20:FORI=&C00TO&C07:?I=RND(255):PRINT TAB(6,18)CHR$224TAB(10,18)CHR$224:NEXT:N EXT:PRINTTAB(6,18)" "TAB(10,18)" ":GOSUB 64:ENDPROC 44DEFPROCL(x,y):VDU5:GCOL3,3:SOUND0,- 15,7,50:SOUND1,5,230,50:MOVE1024,864:DRA Wx,y:VDU19,4,15;0;:FORT=1TO500:NEXT:MOVE 1024,864:DRAWx,y:VDU19,4,4;0;4:ENDPROC 45DEFPROCmelt:COLOUR1:SOUND3,6,120,10 :FORT%=1TO30:FORQ%=&C00TO&C07:?Q%=RND(12 6):PRINTTAB(8,19)CHR$224:NEXT:NEXT:GOSUB 65:GOSUB64:VDU23,251,192,240,248,120,124 ,52,14,46,23,252,126,254,156,12,120,112, 224,192:S$=CHR$251+LD$+CHR$252:ENDPROC 46DEFPROCR:*FX9 47SOUND2,7,0,1:VDU4,19,6,0;0;19,12,0; 0;:COLOUR6:PRINTTAB(8,19)X$:VDU5:FORO%=4 16TO224STEP-4:A=INKEY(1):MOVE96,320:GCOL 3,5:DRAW544,O%:GCOL3,8:MOVE448,O%:PLOT1, 192,0:A=INKEY(1):MOVE96,320:GCOL3,5:DRAW 544,O%:NEXT 48VDU4:COLOUR3:SOUND2,4,250,20:PRINTT AB(8,19)X$:ENDPROC 49DATA0,0,0,0,65,-1,8,19,1,3,0,1,1,90 ,1,8,18,243,3,50,-1,7,21,32,0,0,-1,7,20, 244,3,0,-1,7,19,228,3,50,-1,8,19,233,3,0 ,-1,7,19,32,3,0,-1,6,19,238,3,10,2,1,70, 1,6,18,224,3,0,-1,6,19,227,3,100,-1,8,19 ,234,3,50,-1,9,21,32,0,0,-1 50DATA9,20,245,3,0,-1,10,18,224,3,0,- 1,8,19,224,3,0,1,1,82,6,10,19,228,3,150, -1,5,18,243,0,0,-1,11,18,243,0,100,1,4,1 20,1,8,19,233,3,0,-1,5,19,1,0,50,1,3,90, 1,8,19,234,3,0,-1,11,19,1,0,50,1,3,90,1, 8,19,1,3,50,-1 51DATA4,19,227,0,0,-1,3,18,227,0,0,-1 ,7,19,227,3,0,-1,6,18,227,3,0,-1,10,19,2 27,0,0,-1,9,18,227,0,100,0,2,20,4,3,18,3 2,0,0,-1,6,18,32,0,0,-1,9,18,32,0,0,-1,4 ,18,228,0,0,-1,7,18,228,3,0,-1,10,18,228 ,0,0,-1,5,19,234,0,0,-1 52DATA8,19,234,3,0,-1,11,19,234,0,100 ,3,1,137,1,5,18,234,0,0,-1,8,18,234,3,0, -1,11,18,234,0,0,-1,5,19,239,0,0,-1,8,19 ,239,3,0,-1,11,19,239,0,80,3,1,141,1,5,1 7,243,0,0,-1,8,17,243,3,0,-1,11,17,243,0 ,0,-1,5,18,224,0,0,-1,8,18,224,3,0,-1 53DATA4,21,228,0,0,-1,7,21,228,3,0,-1 ,10,21,228,0,0,-1,5,19,233,0,0,-1,8,19,2 33,3,0,-1,11,19,233,0,35,2,1,145,1,5,17, 32,0,0,-1,5,18,243,0,20,3,1,137,1,8,17,3 2,0,0,-1,8,18,243,3,10,1,1,125,1,11,17,3 2,0,0,-1,11,18,243,0,20,2,1,117,1 54DATA5,19,224,0,10,3,1,109,1,8,19,22 4,3,20,1,1,105,1,11,19,224,0,5,2,1,109,1 ,6,20,32,0,0,-1,9,20,32,0,0,-1,12,20,32, 0,0,-1,6,21,227,0,0,-1,9,21,227,3,0,-1,1 2,21,227,0,35,3,1,137,1,5,19,234,0,0,-1, 11,19,233,0,60,2,1,137,1 55DATA5,23,32,0,0,-1,8,23,32,0,0,-1,1 1,23,32,0,0,-1,4,24,32,0,0,-1,7,24,32,0, 0,-1,10,24,32,0,0,-1,4,23,232,0,0,-1,7,2 3,232,3,0,-1,10,23,232,0,20,3,1,137,1,4, 23,32,0,0,-1,7,23,32,3,0,-1,10,23,32,0,0 ,3,1,141,1,5,19,1,0,0,-1 56DATA8,19,1,3,0,-1,11,19,1,0,20,1,1, 145,1,6,21,32,0,0,-1,9,21,32,0,0,-1,12,2 1,32,0,0,-1,7,20,228,0,0,-1,10,20,228,3, 0,-1,13,20,228,0,15,2,1,137,1,5,19,1,0,0 ,-1,8,19,1,3,0,-1,13,20,32,0,0,-1,11,19, 1,0,5,3,1,125,1,5,19,233,0,0,-1 57DATA8,19,233,3,0,-1,11,19,233,0,15, 1,1,117,1,5,19,248,0,0,-1,8,19,248,3,0,- 1,11,19,248,0,10,2,1,109,1,5,19,234,0,0, -1,8,19,234,3,0,-1,11,19,234,0,15,3,1,10 5,1,5,19,224,0,0,-1,8,19,224,3,0,-1,11,1 9,224,0,10,1,1,109,1,5,19,234,0,0,-1 58DATA8,19,234,3,0,-1,11,19,1,4,20,2, 4,150,20,11,18,32,0,0,-1,11,19,247,0,5,- 1,11,19,32,0,0,-1,11,20,247,0,5,-1,11,20 ,32,0,0,-1,11,21,247,0,5,-1,11,21,32,0,0 ,-1,11,22,247,0,5,-1,11,22,32,0,0,-1,11, 23,247,0,5,-1,11,23,32,0,0,-1 59DATA11,24,247,0,200,-1,8,17,63,3,0, 0,5,20,5,8,19,233,3,100,-1,5,19,224,0,20 ,0,0,50,5,5,19,234,0,0,0,0,30,5,8,17,32, 0,100,-1,5,19,1,4,0,2,4,90,10,7,20,244,3 ,0,-1,7,21,32,0,0,-1 60DATA6,19,227,3,10,-1,5,18,32,0,0,-1 ,6,18,243,0,0,-1,6,19,238,3,10,-1,6,18,3 2,0,0,-1,6,19,32,0,0,-1,8,18,243,0,0,-1 61DATA8,19,1,3,200,3,4,250,3 62DATA1,1,41,2,1,1,69,6,2,1,105,6,3,1 ,89,6,2,1,97,4,2,1,105,9,2,1,89,6 63DATA8,19,1,4,0,-1 64VDU23,224,126,255,153,231,60,0,60,2 4:RETURN 65MOVE640,480:GCOL3,3:DRAW544,400:MOV E592,480:DRAW544,400:RETURN 66DATA8,18,32,0,50,3,4,90,10 67DATA8,19,233,3,50,-1,7,20,244,3,0,- 1,7,19,228,3,0,-1,7,21,32,0,10,0,2,40,2, 9,21,32,0,0,-1,9,20,245,3,0,-1,9,19,227, 3,10,0,2,48,2,7,19,227,3,0,-1,9,19,228,3 ,0,-1,7,20,32,0,0,-1,8,19,239,3,0,-1,9,2 0,32,0,0,-1,7,18,228,3,0,-1 68DATA8,18,233,3,0,-1,9,18,227,3,10,0 ,2,56,2,8,17,233,3,0,-1,8,18,239,3,0,-1, 8,19,1,0,0,-1,8,19,239,3,0,-1,7,19,32,0, 0,-1,9,19,32,0,0,-1,7,18,32,0,0,-1 69DATA9,18,32,0,0,-1 70DEFPROCend:VDU4:COLOUR3 71RESTORE83:B$=CHR$233+LD$+CHR$239+LD $+CHR$239+LD$+CHR$239:FORI%=17TO21:PRINT TAB(8,I%-1)" "TAB(8,I%)B$:A=INKEY(3):REA DP,D:SOUND1,8,P+p,D:NEXT:X%=8:Y%=21:FORI %=1TO69:READP,D:SOUND1,8,P+p,D 72IFI%=19B$=CHR$32+LD$+CHR$233+LD$+CH R$239+LD$+CHR$239 73IFI%=37B$=CHR$32+LD$+CHR$32+LD$+CHR $233+LD$+CHR$239 74IFI%=54B$=CHR$32+LD$+CHR$32+LD$+CHR $32+LD$+CHR$233 75IFY%=21ANDI%<56SOUND0,4,3,5 76PRINTTAB(X%,Y%)B$:IFI%>=55GOTO82 77A=INKEY(12):PRINTTAB(X%,Y%)Z$ 78IFX%<=8X%=X%-1:Y%=Y%-1 79IFX%<0X%=19 80IFX%>8X%=X%-1:Y%=Y%+1 81IFY%>21X%=X%-1:Y%=Y%-1 82PRINTTAB(8,24)CHR$(232+RND(2)):NEXT :FORT=1TO2500:NEXT:p=p+4:ENDPROC 83DATA33,2,41,2,33,2,53,4,53,4,41,2,3 3,2,21,4,33,4,41,4,33,2,21,2,13,4,5,4,13 ,2,17,2,21,2,33,2,41,2,33,2,53,8,33,2,41 ,2,33,2,53,4,53,4,41,2,33,2,21,4,33,4,41 ,4,33,2,21,2,13,4,33,4,41,2,45,2,49,2,61 ,2,49,2,41,2,33,8 84DATA33,2,41,2,33,2,53,4,53,4,53,4,5 3,4,53,4,53,4,41,2,33,2,21,4,25,4,25,4,2 5,4,25,4,41,4,53,2,61,2,65,2,53,4,65,2,6 9,2,65,2,69,2,65,2,69,2,81,6,69,2,81,2,6 9,2,53,4 85COLOUR132:CLS:VDU5:a$="DAY & NIGHT" :b$="by MAG":GCOL0,1:MOVE264,704:PRINTa$ :MOVE416,608:PRINTb$:GCOL0,3:MOVE256,708 :PRINTa$:MOVE408,612:PRINTb$:A=INKEY(100 0):RETURN 86A=INKEY(800):RETURN 87DATA8,24,32,0,0,-1,5,19,1,6,50,1,1, 21,1,5,19,234,6,0,-1,8,19,1,7,50,2,1,41, 1,8,19,234,7,0,-1,11,19,1,1,50,3,1,57,1, 5,19,224,6,0,-1,8,19,224,7,50,1,1,41,1,7 ,21,227,6,0,-1,6,21,228,7,50,2,1,61,1,9, 21,228,1,0,-1,10,21,227,7,30,3,1,57,1 88DATA4,21,32,0,0,-1,3,21,228,6,30,3, 1,41,1,12,21,32,0,0,-1,13,21,227,1,50,1, 1,21,5,3,21,228,6,30,3,1,41,1,12,21,32,0 ,0,-1,13,21,227,1,50,1,1,21,5 89DATA13,21,227,1,50,1,1,21,5 90*TAPE 91FORI%=0TO TOP-PAGE STEP4:I%!&E00=I% !PAGE:NEXT:?&13=?&13-(PAGE-&E00) DIV256: PAGE=&E00:RUN