1 IFPAGE<>&E00 GOTO90 2 CLEAR:?&E04=244 3 VDU23,224,126,255,153,231,60,0,60,24,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 4 VDU23,229,195,195,195,195,195,66,165,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 5 VDU23,236,0,0,0,0,0,0,254,192,23,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,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 6 VDU23,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,23,247,0,126,189,60,60,60,126,0 7 VDU23,240,16,16,24,24,24,26,26,26,23,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,126,-1,-1,-2,100,100:ENVELOPE2,4,1,-1,0,1,1,0,126,-1,-1,-1,0,0 8 ENVELOPE3,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 9 ENVELOPE7,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 10 MODE2:VDU23;8202;0;0;0;:GOSUB85 11 VDU23,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,131,23,254,254,126,156,28,121,112,226,201 12 PROCI:PROCB:VDU4:N%=166:FORI%=1TON%:PROCA 13 IFI%=17PROCu 14 IFI%=23PRINTTAB(6,19)" "TAB(7,20)" "TAB(9,20)" "TAB(10,19)" " 15 IFI%=24PRINTTAB(4,20)" "TAB(4,21)" "TAB(7,20)" "TAB(7,21)" "TAB(10,20)" "TAB(10,21)" " 16 IFI%=50PRINTTAB(4,18)SPC8TAB(4,19)SPC8 17 IFI%=111PROCL(736,400) 18 IFI%=130PROCL(352,400) 19 IFI%=141PROCs:PROCmelt:*FX9 20 IFI%=143FORT=1TO2000:NEXT:SOUND0,-15,7,60:SOUND1,5,200,60:VDU19,4,0;0;19,11,0;0;4:PRINTTAB(9,17)" ":COLOUR3:PRINTTAB(15,4)S$:X=0:Y=1:FORT=1TO80:X=(X+Y)MOD2:A=INKEY(3):VDU23;13,X;0;0;0;:NEXT:VDU5 21 IFI%=143FORT=1TO1000:NEXT:PROCR 22 NEXT:REPEATPROCend:UNTILp=28:VDU19,6,4;0;:FORI%=1TO16:PROCA:NEXT:A=INKEY(500) 24 END 25 DEFPROCI:p=20 26 K$=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$249+CHR$250 27 X$=CHR$224+L$+LD$+CHR$228+CHR$225+CHR$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+LD$+CHR$241+LD$+CHR$242:VDU5 28 *FX9,10 29 *FX10,1 30 ENDPROC 31 DEFPROCB: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,896:PRINTS$:GCOL0,5:MOVE896,224:PLOT1,132,48:PLOT81,96,-48 32 PLOT0,-64,0:PLOT1,168,100:PLOT81,256,-100:MOVE160,284:GCOL0,2:VDU240,8,10,241:MOVE64,316:PRINTc$:MOVE896,316:PRINTc$:GCOL0,3:MOVE992,218:VDU255:GCOL0,0:MOVE1056,64:PRINT"MRM":GCOL0,3:MOVE1048,68:PRINT"MRM":ENDPROC 33 DEFPROCC(A,B,N,W):GCOL0,7:FORI%=1TON:X=RND(W)+A:Y=RND(64)+B:MOVEX,Y:PRINT"*":NEXT:ENDPROC 34 DEFPROCA:READX%,Y%,Z%,C%,W%,C 35 IFC<>-1READE,P,D 36 IFp=28P=P+48 37 COLOURC% 38 IFC=0SOUND0,-15,3,D:SOUND1,E,ABS(P+91),D:ELSEIFC<>-1SOUNDC,E,P,D 39 IFZ%=1PRINTTAB(X%,Y%)X$ELSEPRINTTAB(X%,Y%)CHR$Z% 40 TIME=0:REPEATUNTILTIME>=W%:ENDPROC 41 DEFPROCs:FORI=1TO7:READC,E,P,D:SOUNDC,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$:UNTILA%=576:FORT=1TO1500:NEXT:SOUND1,1,1,1 42 MOVEA%,B%:PRINTS$:VDU23,251,131,79,6,128,6,63,103,119,23,252,193,242,56,9,52,252,30,190:MOVEA%,B%:PRINTS$:FORT=1TO2500:NEXT:GOSUB65:VDU4:ENDPROC 43 DEFPROCu:SOUND3,4,50,5:COLOUR0:FORT=1TO20:FORI=&C00TO&C07:?I=RND(255):PRINTTAB(6,18)CHR$224TAB(10,18)CHR$224:NEXT:NEXT:PRINTTAB(6,18)" "TAB(10,18)" ":GOSUB64:ENDPROC 44 DEFPROCL(x,y):VDU5:GCOL3,3:SOUND0,-15,7,50:SOUND1,5,230,50:MOVE1024,864:DRAWx,y:VDU19,4,15;0;:FORT=1TO500:NEXT:MOVE1024,864:DRAWx,y:VDU19,4,4;0;4:ENDPROC 45 DEFPROCmelt:COLOUR1:SOUND3,6,120,10:FORT%=1TO30:FORQ%=&C00TO&C07:?Q%=RND(126):PRINTTAB(8,19)CHR$224:NEXT:NEXT:GOSUB65: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 46 DEFPROCR:*FX9 47 SOUND2,7,0,1:VDU4,19,6,0;0;19,12,0;0;:COLOUR6:PRINTTAB(8,19)X$:VDU5:FORO%=416TO224STEP-4:A=INKEY(1):MOVE96,320:GCOL3,5:DRAW544,O%:GCOL3,8:MOVE448,O%:PLOT1,192,0:A=INKEY(1):MOVE96,320:GCOL3,5:DRAW544,O%:NEXT 48 VDU4:COLOUR3:SOUND2,4,250,20:PRINTTAB(8,19)X$:ENDPROC 49 DATA0,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 50 DATA9,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,120,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 51 DATA4,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,227,0,0,-1,9,18,227,0,100,0,2,20,4,3,18,32,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 52 DATA8,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,17,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 53 DATA4,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,233,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,32,0,0,-1,8,18,243,3,10,1,1,125,1,11,17,32,0,0,-1,11,18,243,0,20,2,1,117,1 54 DATA5,19,224,0,10,3,1,109,1,8,19,224,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,12,21,227,0,35,3,1,137,1,5,19,234,0,0,-1,11,19,233,0,60,2,1,137,1 55 DATA5,23,32,0,0,-1,8,23,32,0,0,-1,11,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,23,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 56 DATA8,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,21,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 57 DATA8,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,105,1,5,19,224,0,0,-1,8,19,224,3,0,-1,11,19,224,0,10,1,1,109,1,5,19,234,0,0,-1 58 DATA8,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 59 DATA11,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 60 DATA6,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,32,0,0,-1,6,19,32,0,0,-1,8,18,243,0,0,-1 61 DATA8,19,1,3,200,3,4,250,3 62 DATA1,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 63 DATA8,19,1,4,0,-1 64 VDU23,224,126,255,153,231,60,0,60,24:RETURN 65 MOVE640,480:GCOL3,3:DRAW544,400:MOVE592,480:DRAW544,400:RETURN 66 DATA8,18,32,0,50,3,4,90,10 67 DATA8,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,20,32,0,0,-1,7,18,228,3,0,-1 68 DATA8,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 69 DATA9,18,32,0,0,-1 70 DEFPROCend:VDU4:COLOUR3 71 RESTORE83:B$=CHR$233+LD$+CHR$239+LD$+CHR$239+LD$+CHR$239:FORI%=17TO21:PRINTTAB(8,I%-1)" "TAB(8,I%)B$:A=INKEY(3):READP,D:SOUND1,8,P+p,D:NEXT:X%=8:Y%=21:FORI%=1TO69:READP,D:SOUND1,8,P+p,D 72 IFI%=19B$=CHR$32+LD$+CHR$233+LD$+CHR$239+LD$+CHR$239 73 IFI%=37B$=CHR$32+LD$+CHR$32+LD$+CHR$233+LD$+CHR$239 74 IFI%=54B$=CHR$32+LD$+CHR$32+LD$+CHR$32+LD$+CHR$233 75 IFY%=21ANDI%<56SOUND0,4,3,5 76 PRINTTAB(X%,Y%)B$:IFI%>=55GOTO82 77 A=INKEY(12):PRINTTAB(X%,Y%)Z$ 78 IFX%<=8X%=X%-1:Y%=Y%-1 79 IFX%<0X%=19 80 IFX%>8X%=X%-1:Y%=Y%+1 81 IFY%>21X%=X%-1:Y%=Y%-1 82 PRINTTAB(8,24)CHR$(232+RND(2)):NEXT:FORT=1TO2500:NEXT:p=p+4:ENDPROC 83 DATA33,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,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 84 DATA33,2,41,2,33,2,53,4,53,4,53,4,53,4,53,4,53,4,41,2,33,2,21,4,25,4,25,4,25,4,25,4,41,4,53,2,61,2,65,2,53,4,65,2,69,2,65,2,69,2,65,2,69,2,81,6,69,2,81,2,69,2,53,4 85 COLOUR132: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(1000):RETURN 86 A=INKEY(800):RETURN 87 DATA8,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 88 DATA4,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 89 DATA13,21,227,1,50,1,1,21,5 90 *TAPE 91 FORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT:?&13=?&13-(PAGE-&E00) DIV256:PAGE=&E00:RUN