–€ €@LĚ•}ËŹđ5 _­ŹŚ$ŽŚ%Ž l0Źą$)ŞČ$đą$HČą$ Uh¨ŠL"ŠŔ ¨`Š€e$…$ć%`­…$­…%` Œ ŠR @ŠW €Ś!ŕĐ( Lš(ŠŒŠ1Š Š€  ­ YäÎ đŚI˜` ­ d  LÇd M  ź* €@ ˙­ …$­ …%­ …C˘ŠC ‘$Ľ$)Ľ%1А UŠdĘ߼$9Ľ%:Ź ˘ˆ˜!0 SčŕĐńĽ$çĽ%čЍ™Čú¨šđ ÉDđČČČŔĐđŠD™ŠË™Š™` ­ }˝J‚)đLr 콂É1000 REM --  ĚĹÖĹĚ ˛˛  --›1010 POSITION 0,0›1020 DATA 3,15,61,249,137,138,140,248›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE h}CHSET+29*8+I,B:NEXT I›1040 DATA 16,32,64,255,64,32,16,255›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€^€€€€€Ű€h}€€€^€€€€Ű€€";›1070 ? #6;"€€€€€€€€€€€€€€€€=€€€";›1080 ? #6;"€€€€=€€€€€€€€€€€€€€€";›1090 ? #6;"€=€€€€€€€€€=€€€€€€€€";›1100 ? #6h};"€€€€€€€=€€€€€€€€€=€€";›1110 ? #6;"€€€€€?€€€€€€?€€€€€€€";›1120 ? #6;"€€€=€€€€€€€€€€=€€€€€";›1130 ? #6;"^€€€€€€€€€€€€€€€€€€€"h};›1140 ? #6;"€=========€========€";›1150 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"€€€€============€€€€";›1170 ? #6;"€€€€€€€€€€h }€€€€€€€€€€";›1180 ? #6;"€€€==€========€==€€€";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 ? #6;"€€==€?€======€?€==€€";›1210 ? #6;h }"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"€==€€€€€====€€€€€==€";›1230 ? #6;"€€€=====€€€€=====€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";h }›1250 SETCOLOR 2,4,4:SETCOLOR 1,4,4:SETCOLOR 0,12,10:SETCOLOR 3,5,2:REG=PEEK(711):RN=77:A$="ÔČŀĆŐÔŐŇŀŇĎĎÍ":RETURN ›1400 PX=h }7:PY=3:PXB=PX:PYB=PY:CX=0:CY=0:CXB=CX:CYB=CY›1410 RETURN ›7000 SOUND 0,191,12,5›7010 PAUSE 150›7020 SOUND 1,240,10,5›7030 PAUh }SE 150›7040 SOUND 2,159,10,5›7050 PAUSE 150›7060 SOUND 3,119,10,5›7070 PAUSE 150›7080 SOUND ›7090 PAUSE 75›7100 SOUND 0,191,1h}2,5:SOUND 1,159,10,5:SOUND 2,119,10,5:SOUND 3,95,10,5›7110 PAUSE 10:SOUND :PAUSE 10›7120 SOUND 0,191,12,5:SOUND 1,159,10,5:SOh}UND 2,119,10,5:SOUND 3,100,10,5›7130 PAUSE 300:SOUND :RETURN ›SE 10:SOUND :PAUSE 10›7120 SOUND 0,191,12,5:SOUND 1,159,10,5:SOh>1000 REM --  ĚĹÖĹĚ ˛ł  --›1010 POSITION 0,0›1020 DATA 56,68,146,198,186,170,108,16›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKEl} CHSET+29*8+I,B:NEXT I›1040 DATA 65,65,65,99,93,65,65,65›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€ź€€€€€€€€l}€€€€€ź€€€€";›1070 ? #6;"=€€€€€€€€ź€€€€€€€€€=";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ? #6;"=€€€€€€€€=€€€€€€€€€=";›1100 ? #6;l}"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"=€€€==€€€=€€€€==€€€=";›1120 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1130 ? #6;"=€€€€€€€€=€€€€€€€€€=";l}›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"=€€€==€€€=€€€€==€€€=";›1160 ? #6;"€€€€€€€€€€€€€€€€^€€€";›1170 ? #6;"=€€€€€€€€=€l}€€€€€€€€=";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"=€€€==€€€=€€€€==€€€=";›1200 ? #6;"€€€€€€^€€€€€€€€€€€€€";›1210 ? #6;"l}=€€€€€€€€=€€€€€€€€€=";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"==€€€€€€===€€€€€€€==";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›l}1250 SETCOLOR 3,1,2:REG=PEEK(711)›1260 SETCOLOR 2,6,14:SETCOLOR 1,1,14:SETCOLOR 0,13,8:SETCOLOR 4,1,0:RN=42:A$="ÔČŀĹĚĹÖÁÔĎҀl}ÓČÁĆÔ":RETURN ›1400 PX=0:PY=0:PXB=PX:PYB=PY:CX=0:CY=12:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7000›7010 READ A,B:IF A=-1 THEl}N 7060›7020 N1=72*(A=1)+108*(A=4 OR A=5):N2=60*(A=1 OR A=5)+68*(A=4):N3=182*(A=1)+136*(A=4)+121*(A=5)›7030 SOUND 3,B,10,5:SOUl}ND 2,N3,10,3›7040 FOR I=15 TO 2 STEP -0.7:SOUND 0,N1,10,I:SOUND 1,N2,10,I:NEXT I›7050 PAUSE 12:GOTO 7010›7060 PAUSE 150:SOUNDl} :RETURN ›7070 DATA 1,0,1,0,1,0,1,0,1,0,1,0,4,0,4,0,4,0,4,0,4,0,5,0›7080 DATA 1,60,1,60,1,60,1,60,1,60,1,60,4,60,4,60,4,53,4,l}45,4,45,5,47›7090 DATA 1,60,1,60,1,60,1,60,1,60,1,60,4,60,4,60,4,53,4,45,4,45,5,47›7100 DATA 1,35,1,35,1,35,1,35,1,35,1,47,4,l}53,4,53,4,53,4,53,4,47,5,40›7110 DATA 1,45,1,45,1,45,1,45,1,45,1,45,4,45,4,45,4,0,4,0,4,0,5,0›7120 DATA 1,60,1,60,1,60,1,60,1l},60,1,60,4,60,4,60,4,53,4,45,4,45,5,47›7130 DATA 1,60,1,60,1,60,1,60,1,60,1,60,4,60,4,60,4,53,4,45,4,45,5,47›7140 DATA 1,35,1l},35,1,35,1,35,1,35,1,47,4,53,4,53,4,53,4,53,4,47,5,40›7150 DATA 1,45,-1,-1›,60,4,60,4,60,4,53,4,45,4,45,5,47›7140 DATA 1,35,1lK1000 REM --  ĚĹÖĹĚ ˛´  --›1010 POSITION 0,0›1020 DATA 231,153,153,110,118,153,153,231›1030 RESTORE 1020:FOR I=0 TO 7:READ B:PP!}OKE CHSET+29*8+I,B:NEXT I›1040 DATA 0,254,146,146,254,146,146,254›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"P"}======";›1070 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1P#}100 ? #6;"€€€===€€====€€===€€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€€€€====€€===P$}€==€€€€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"€€€€€====€==€==€€€€€";›1170 ? #6;"€€P%}€€€€€€€€€€€€€€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€€€€€=€===€==€€€€€€";›1200 ? #6;"€€€€€€^€^€€€€€€€€€€€";›12P&}10 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"€€€€€€€=€====€€€€€€€";›1230 ? #6;"€€=€€€€€€€€€€€€€€=€€";›1240 ? #6;"€ź€ź€€€€€€€€€€P'}€€ź€ź€";›1250 SETCOLOR 2,9,14:SETCOLOR 1,3,4:SETCOLOR 0,12,14:SETCOLOR 3,8,4:REG=PEEK(711):RN=46:A$="ÔČŀÂÁĚĂĎÎŮ":RETURN ›140P(}0 PX=2:PY=16:PXB=PX:PYB=PY:CX=0:CY=2:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7000:SO$=""›7010 FOR I=1 TO 8:READ A:SO$(I,I)=CHP)}R$(A):NEXT I›7020 FOR I=1 TO 13:READ A:SOUND 0,A,12,5:PAUSE 1:NEXT I›7030 FOR TTT=1 TO 10›7040 FOR I=1 TO 8:READ A:SOUND 0,P*}ASC(SO$(I,I)),12,5:SOUND 1,A,10,3:SOUND 2,A+1,10,2›7050 TT=125*(I=1 OR I=5)+45*(I=3 OR I=7)›7060 FOR T=15 TO 1 STEP -P+}0.5:SOUND 3,TT,8,T:NEXT T›7070 PAUSE 6:SOUND 0,0,0,0:PAUSE 2:NEXT I›7080 NEXT TTT›7090 SOUND :FOR I=15 TO 0 STEP -0.1:SOUP,}ND 0,155,12,I:SOUND 2,96,10,I:SOUND 3,97,10,I:NEXT I:RETURN ›7100 DATA 155,155,140,155,131,155,116,125›7110 DATA 77,80,86,92,P-}95,101,110,116,125,131,140,146,155›7120 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›7130 DATA 108,108,108,108,108,108,108,129,129,0,P.}0,0,0,0,0,0›7140 DATA 108,108,108,108,108,108,108,129,64,91,0,0,0,0,0,0›7150 DATA 0,129,108,96,91,91,0,91,91,0,96,108,129,129P/},145,129›7160 DATA 163,155,155,155,155,155,155,155,155,155,155,155,155,155,155,155›,129,108,96,91,91,0,91,91,0,96,108,129,129PS1000 REM --  ĚĹÖĹĚ ˛ľ  --›1010 POSITION 0,0›1020 DATA 0,8,28,72,224,72,28,8›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSET+X1}29*8+I,B:NEXT I›1040 DATA 204,102,51,153,204,102,51,153›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€€€€X2}€€€€€€€€€";›1070 ? #6;"€€===ź==ź==€==ź==€€€";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ? #6;"=€=€==€==€==€==€==€€";›1100 ? #6;"X3}€=€€€€€€€€€€€€€€€€€€";›1110 ? #6;"=€€=€€=€€=€€=€€=€€=€";›1120 ? #6;"^€€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€";›X4}1140 ? #6;"€€€€€€=€€=€€=€€=€€€€";›1150 ? #6;"€€€^€€€€€€€€€€€€€^€€";›1160 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"€€€`€€€€€=€€X5}€€€€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€==€==€€€€==€==€==€";›1200 ? #6;"€€€€€€€€==€€€€€€€€€€";›1210 ? #6;"€X6}€€=€€=€€€€=€€=€€=€€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"€=€€=€€=€€=€€=€€=€€=";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1X7}250 SETCOLOR 3,5,10:REG=PEEK(711)›1260 SETCOLOR 2,4,0:SETCOLOR 1,0,0:SETCOLOR 0,12,14:SETCOLOR 4,0,10:RN=60:A$="ÔČŀÓÔĹĹĚĹҀŇX8}ĎĎÍ":RETURN ›1400 PX=3:PY=0:PXB=PX:PYB=PY:CX=0:CY=12:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7070:TT=0›7010 FOR I=1 TO 16:REAX9}D N2,N3:TT=TT+1:IF N2=-1 THEN POP :GOTO 7060›7020 N1=100*(I=1 OR I=8 OR I=10 OR I=11 OR I=15)+50*(I=5 OR I=13)›7030 SOUNDX:} 1,N3,10,6:SOUND 2,N3+1,10,6›7040 FOR T=15 TO 2 STEP -0.7:SOUND 0,N2,12,T:SOUND 3,N1,8,T*(TT>64):NEXT T:PAUSE TT<=64:NEXT IX;}›7050 GOTO 7010›7060 FOR I=15 TO 0 STEP -0.2:SOUND 0,143,12,I:SOUND 1,89,10,I:SOUND 2,88,10,I:SOUND 3,100,8,I:NEXT I:RETURN ›X<}7070 DATA 143,0,0,0,0,0,0,0,71,0,0,0,0,0,80,0,0,0,80,0,95,0,0,0,80,0,0,0,71,0,0,0›7080 DATA 143,0,0,0,0,0,0,0,71,0,0,0,0,0,0,X=}0,0,0,95,0,95,0,0,0,80,0,0,0,71,0,0,0›7090 DATA 182,0,0,0,0,0,0,0,92,0,0,0,0,0,80,0,0,0,80,0,95,0,0,0,80,0,0,0,71,0,0,0›7100 X>}DATA 143,0,0,0,0,0,0,0,71,0,0,0,0,0,0,0,0,0,80,0,95,0,0,0,107,0,0,0,122,0,0,0›7110 DATA 143,89,0,89,0,89,0,89,71,75,0,75,0,75X?},80,89,0,0,80,89,95,66,0,66,80,89,0,89,71,100,0,100›7120 DATA 143,89,0,89,0,89,0,89,71,59,0,59,0,59,0,89,0,0,95,89,95,56,0,56X@},80,59,0,59,71,75,0,75›7130 DATA 182,89,0,89,0,59,0,59,92,44,0,44,0,89,80,100,0,0,80,100,95,119,0,119,80,79,0,79,71,89,0,89›7XA}140 DATA 143,89,0,89,0,0,0,0,71,0,0,0,0,0,0,0,0,0,80,0,95,0,0,0,107,0,0,0,122,0,0,0›7150 DATA 143,89,0,89,0,89,0,89,71,75,0,7XB}5,0,75,80,89,0,0,80,89,95,66,0,66,80,89,0,89,71,100,0,100›7160 DATA 143,89,0,89,0,89,0,89,71,59,0,59,0,59,0,89,0,0,95,89,95,5XC}6,0,56,80,59,0,59,71,75,0,75›7170 DATA 182,89,0,89,0,59,0,59,92,44,0,44,0,89,80,100,0,0,80,100,95,119,0,119,80,79,0,79,71,89,XD}0,89›7180 DATA 143,89,0,89,0,0,0,0,71,0,0,0,0,0,0,0,0,0,80,0,95,0,0,0,107,0,0,0,122,0,0,0›7190 DATA -1,-1›9,80,79,0,79,71,89,Xj1000 REM --  ĚĹÖĹĚ ˛ś  --›1010 POSITION 0,0›1020 DATA 255,66,36,24,24,60,126,255›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CF}HSET+29*8+I,B:NEXT I›1040 DATA 56,100,220,238,246,76,56,0›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€G}€€€€€€";›1070 ? #6;"€=€=€=€=€=€=€=€=€=€=";›1080 ? #6;"€€=€=€=€=€=^=€=€=€=€";›1090 ? #6;"=€€€€€€€€€€€€€€€€€€=";›1100 ? #6H};"€€=€=€=€=€=€=€=€=€=€";›1110 ? #6;"=€€€€^€€€^€€€^€€€€€=";›1120 ? #6;"€€=€=€=€=€=€=€=€=€=€";›1130 ? #6;"=€€€€€^€€€€€€€€€€€€="I};›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"=€€€€€€€€€€€€€€€€€€=";›1160 ? #6;"€€€=€€€€€€€€€€€€€€€€";›1170 ? #6;"=€€€€€€€^€J}€€^€€ź€€€=";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"=€€=€€€€€€€€€€€€€€€=";›1200 ? #6;"€€€€€€€Ű€€€€€€€€€€€€";›1210 ? #6;K}"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"€€€€€€€€€€€€€€€€`€€€";›1230 ? #6;"€=€€€=€€=€=€=€=€=€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";L}›1250 SETCOLOR 2,12,14:SETCOLOR 1,0,4:SETCOLOR 0,0,14:SETCOLOR 3,4,0:REG=PEEK(711):RN=58:A$="ÔČŀ×ÁÉÔÉÎǀŇĎĎÍ":RETURN ›1400 PM}X=3:PY=0:PXB=PX:PYB=PY:CX=0:CY=12:CXB=CX:CYB=CY›1410 RETURN ›7000 FOR I=1 TO 10:SOUND 1,108,10,2:SOUND 2,109,10,2:PAUSE 4:SOUN}ND 1,102,10,2:SOUND 2,103,10,2:PAUSE 4:NEXT I›7010 FOR I=108 TO 81 STEP -0.3:SOUND 1,I,10,2:SOUND 2,I+1,10,2:NEXT I›7020 RESTO}ORE 7160›7030 FOR I=1 TO 20:READ N2:IF N2=-1 THEN POP :GOTO 7100›7040 N1=88*(I=1 OR I=4 OR I=11 OR I=14)+73*(I=7)+66*(I=9)+P}100*(I=17)+96*(I=19)›7050 N3=100*(I=1 OR I=4 OR I=11 OR I=14 OR I=7 OR I=17)+50*(I=3 OR I=6 OR I=9 OR I=13 OR I=16 OR I=19)Q}›7060 SOUND 1,N2,10,5:SOUND 2,N2+1,10,5›7070 FOR T=15 TO 2 STEP -0.55:SOUND 0,N1,12,T:SOUND 3,N3,8,T/1.5:NEXT T:NEXT I›70R}80 PAUSE 1›7090 GOTO 7030›7100 SOUND :FOR I=1 TO 20:FOR T=10 TO 0 STEP -1:SOUND 0,(20*(I/2=INT(I/2)))+10,8,T:NEXT T:NEXT I›71S}10 SOUND 0,61,12,5:SOUND 1,60,12,5:SOUND 2,121,10,5:SOUND 3,91,10,5:PAUSE 6›7120 SOUND :PAUSE 1:SOUND 1,61,12,10:SOUND 2,121,T}10,10:SOUND 3,81,10,10›7130 PAUSE 200›7140 SOUND :FOR I=15 TO 0 STEP -0.1:SOUND 1,61,12,I:NEXT I›7150 GOTO 7310›7160 DATA 81,U}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›7170 DATA 68,81,108,108,108,108,108,108,108,108›7180 DATA 68,81,115,115,115,115,115,115V},115,115›7190 DATA 68,81,121,121,121,121,121,121,121,121›7200 DATA 136,121,0,0,0,0,0,0,0,0›7210 DATA 108,136,81,81,81,81,81,8W}1,81,81›7220 DATA 108,136,86,86,86,86,86,86,86,86›7230 DATA 108,136,91,91,91,91,91,91,91,91›7240 DATA 102,108,0,0,0,0,0,0,0,0X}›7250 DATA 81,0,0,81,0,0,68,0,60,0›7260 DATA 81,0,0,81,0,0,91,0,86,0›7270 DATA 81,0,0,81,0,0,68,0,60,0›7280 DATA 81,0,0,81,0,Y}0,91,0,86,0›7290 DATA 81›7300 DATA -1›7310 SOUND :RETURN ›,91,0,86,0›7270 DATA 81,0,0,81,0,0,68,0,60,0›7280 DATA 81,0,0,81,0,:1000 REM --  ĚĹÖĹĚ ˛ˇ  --›1010 POSITION 0,0›1020 DATA 153,66,36,173,181,36,66,153›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE č}1000 REM --  ĚĹÖĹĚ ˛  --›1010 POSITION 0,0›1020 DATA 255,2,5,136,80,32,255,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSET \}+29*8+I,B:NEXT I›1040 DATA 65,131,4,4,56,64,158,161›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 SETCOLOR 1,0,0:SETCOL ]}OR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1070 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1080 ? #6;"==^==€==^==€==^==€==";›109 ^}0 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"====€€====€€==ź=€€==";›1120 ? #6;"€€€€€€€€€€€€€€€ _}€€€€€";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1140 ? #6;"€====€€=ź==€€====€€€";›1150 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"€€€€ `}€€€€€€€€€€€€€€€€";›1170 ? #6;"€€====€€====€€====€€";›1180 ? #6;"€€€€€€^€€€€€€€€€€€€€";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 a} ? #6;"€=ź==€€====€€====€€€";›1210 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"==€€====€€====€€ b}====";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1250 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1260 SETCOLOR 2,7,4:SETCOLOR 0,9,6:SETCOLOR 1,13,1 c}0:SETCOLOR 3,0,2:REG=PEEK(711):RN=75:A$="ÔČŀŇÁĆÔĹŇÓ":RETURN ›1400 PX=0:PY=0:PXB=PX:PYB=PY:CX=16:CY=0:CXB=CX:CYB=CY›1410 RETU ń}1000 REM --  ĚĹÖĹĚ ľ  --›1010 POSITION 0,0›1020 DATA 248,124,254,95,34,31,0,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSEe}T+29*8+I,B:NEXT I›1040 DATA 145,209,177,159,145,145,145,145›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€Ű€€€f}€€€€€€Ű€€€";›1070 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1080 ? #6;"=======€€€€^========";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ? g}#6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"====€€€€Ű€€€€€€€€€==";›1120 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€€€€€€€€€€€€====€€€h}€";›1140 ? #6;"==€€€€€€€€€€€€€€€€==";›1150 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"€€€€€=ź====ź==€€€€€€";›1170 ? #6;"€€€€€€€€i}€€€€€€€€€€€€";›1180 ? #6;"€€€^€€€€€€€€€€€€^€==";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 ? #6;"€€€€€^€€===?===€€€€€";›1210 ? #j}6;"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"===ź=€€€€€€€€€€=ź===";›1230 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1240 SETCOLOR 2,9,6:SETCOLOR 0,k}13,4:SETCOLOR 1,1,10:SETCOLOR 3,7,0:REG=PEEK(711):RN=52:A$="ÔČŀÖÁŐĚÔ":RETURN ›1400 PX=0:PY=1:PXB=PX:PYB=PY:CX=16:CY=19:CXB=C}1000 REM --  ĚĹÖĹĚ ˛ą  --›1010 POSITION 0,0›1020 DATA 124,186,146,17,17,146,186,124›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKm}E CHSET+29*8+I,B:NEXT I›1040 DATA 65,65,136,20,20,34,34,34›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€Ű€€€n}€€Ű€€€€€Ű€€€";›1070 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1080 ? #6;"===€€€===€€€===€€€==";›1090 ? #6;"€€€€€€€€€€^€€€€€€€€€";›1100 ? #o}6;"€€€===€€€===€€€===€€";›1110 ? #6;"€^€€€€€€€€€€€€€€€€€^";›1120 ? #6;"===€€€===€€€===€€€==";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€p}";›1140 ? #6;"€€€===€€€=ź=€€€===€€";›1150 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"=ź=€€€===€€€===€€€=ź";›1170 ? #6;"€€€€€€€€€q}€^€€€€€€€€€";›1180 ? #6;"€€€===€€€===€€€===€€";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 ? #6;"===€€€===€€€===€€€==";›1210 ? #6r};"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"€€€===€€€=ź=€€€===€€";›1230 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€"s};›1250 SETCOLOR 2,9,4:SETCOLOR 1,12,4:SETCOLOR 0,3,10:SETCOLOR 3,4,2:REG=PEEK(711):RN=76:A$="ĂÉÎÎÁÍĎ΀ĂČÁÍÂĹŇ":RETURN ›1400 Pq}1000 REM --  ĚĹÖĹĚ ś  --›1010 POSITION 0,0›1020 DATA 60,126,129,129,126,60,0,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSu}ET+29*8+I,B:NEXT I›1040 DATA 98,74,238,8,107,59,146,246›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€€v}€€€€€€€€€";›1070 ? #6;"€=======€€€€=======€";›1080 ? #6;"€€€€€€€€€€^€€€€€€€€€";›1090 ? #6;"€€€€€€€€€€€€€€€€€€";›1100 ? #6;"w}€€======€€€€======€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€€===ź==€€€€======€€";›x}1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"ۀ€€€€€€€€€€€€€€€Ű";›1160 ? #6;"€€======€€€€======€€";›1170 ? #6;"€€€€€€€€€€€€y}€€€€€€€€";›1180 ? #6;"^€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€======€€€€======€€";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"€z}€€€€€€€€€€€€€€€€€";›1220 ? #6;"========€€€€======ź=";›1230 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1240 ? #6;"€€€€€€€€=€€=€€€€€€€€";›1{}250 SETCOLOR 2,1,4:SETCOLOR 0,6,2:SETCOLOR 1,8,10:SETCOLOR 3,10,0:REG=PEEK(711):RN=78:A$="ÁÔĚÁÎÔÁ€ÓÔĎĐĎÖĹŇÓ":RETURN ›1400 PX=H}1000 TITLE$="The Chase":CMP$="Giorgio Moroder":RETURN ›1010 DIM SO$(40),S1$(40),S2$(40),S3$(40),S4$(40)›1020 RESTORE 1230:SO$}}="":S1$="":S2$="":S3$="":S4$="":FLAG=0›1030 FOR I=1 TO 16:READ A:S1$(I,I)=CHR$(A):NEXT I›1040 FOR I=1 TO 16:READ A:S2$(I,I)=C!}VWŻŽ@Ä@S¤TEMP¤C1¤C2¤X¤CUR¤PAGCLR¤FN¤FN2¤T¤SC¤COLR¤ROÍINTĚRAÍGŇMEÍFŘFŮMENŐDRA×PM_SETUĐÉSTRING_OFFSEÔŘŮACČCHŇMISĚPąÁDŘDŮ}IAĂBEEĐSŘSŮYÂYLIMIÔMENU_SELECÔCHAR_SEÔLOAD_SCREEÎSAVE_SCREEÎSET_COLORÓGR_MODĹQUIÔLOAD_CHAŇDIRECTORŮCNÔPAGĹSET_COORDINATEÓDISP€}LAY_LIST_INTERRUPÔDĚGTIATAÂCOLTAÂREÇOGŇSETĂP°GRMODĹÔÄGTIÁFLAÇPAGCLŇPMBASĹVÔSĆÓHÓLÓHSĆLSĆMEMLOĂTITLE_SCREE΁ŔŔŔŔ}€€ 8¸ š Ĺ 0ő ý      ‚}Á„AÂG=ÁňrÁv !ƒ}Á"+_#$%&Á'.^Á(eDÁ)ůJÁ*°LÁ+5NÁ,tXÁ-o]Á.ŻFÁ/CH0Á„}1QJÁ2ś\Á3”_456789:;<=>?@…}ABCDEFGHIÁJĺa}€;A `,#6€7A `,.};A `†},‚;A$,ƒ;@V,„;@,…;@,†;@H,‡;@,ˆ;@,&&‰;@,Š;@,‹;@ ,P‡}Ę }€;A `,#6€7A `,.};A `,‚;A$,ƒ;@V,„;@,…;@,†;@H,‡;@,ˆ;@ˆ}, &&‰;@,Š;@,‹;@ , &6…. ˙˙&6‹. Rf(ʔF + 6.67A `,.+67@,.BB‰}6ƒ.8""""""DDDDDDffffffˆˆˆˆˆˆŞŞŞŞŞŞĚĚĚĚĚĚîîîîîîR6Œ- BsD6- B"$<6Ž-AV$+F:A,&@,D6‡Š}.ŇR9ŒŽA$66-@6-F:A,*6‘-@—@66’-@pP“d]”e[P•–-@@ 1A%–‹}@:‹7–<–,,5 –IAVŽ'AV[AfP— 6€.A”nd6˜-A6™-A#6„.!,6š-@:Œ}„,d6›-š%@d$+š @2,&@2$+š@2*š@•,xWB2I˜B2U˜/B2T˜%@CB2S˜%@}WB2R˜%@‚Q%9Ž%›$@œ%™%@@;8œ%™&@Q8œ%™%@Œ9C:…,%™&@Ž}@–6ž-R:, UG6Ÿ-+ž"@)ž"@)ž"@,&+ž"@ )ž"@)ž"@,U6Ÿ-Ÿ$@ŞUG6 -+ž"@ })ž"@)ž"@,&+ž"@)ž"@)ž"@,U6 - $@´ 6˜-˜%Ÿ6™-™% ž116˜-˜&@$+˜!A,%@}$+˜ @F,Č116™-™&@$+™!A,%@$+™ @1,ŇJ 6„.Y6š-@:„,J6›-š%@d$+š @2,&@2$+š@2*‘}š@•,ÓUš!A(6Ą-š&A(U6›-Ą%@d$+Ą @2,&@2$+Ą@2*Ą@•,Ü&F:B2y,"@6.€’}"P“&\”áCF:B2y,"@?A”A($+F:A”,",CP˘úT:,A '6Ł-+˜&@F,'‘'6¤-“}+™&@1,'’ š ,٤+ A čO“é!6™-@6Ľ-™!6Ś-@ň•A!8B2H++E0”}@@_0@qAR@ƒ@‚•-ó9B2P•}'8B2R98B2Tü( ÔĺřôÄňá÷Ą Íáéî Íĺîő((--> Character Set( Load Screen$–}( Save Screen.( Set Colors8""( Graphics Mode= B( Return to DrawingL( QuitV(—}`++(# Use joystick to select functionj-™(-->tP§œ™"@P¨ AŚ™"@PŠ ˜}A°™"@PŞ Aş™"@PŤ AÄ™"@PŹ AΙ"@A™Ř™"™}@P­ AĎQĐO¨Ń ` 6‰.‡Ú!( Ăčáňáăôĺň Óĺô Íĺîő!(ä%%(--> ROM Default Character Setî''( š} International Character Setř##( Load Disk Character Setý!!( Directory of D1:*.FNT( Exit -(-(" ›} The current character set is: 2 ‡4Ň(( the default ROM set.2 A! > ‡4É4($ the international charœ}acter set.> A!*( ‡4&(&( Use joystick to select.>%6™-@6Ľ-™!6Ś-@%P§H%™"@}9ŒŽA$%6‡.ŇR%™"@9ŽA$%6‡.É\™"@PŽa™"@PŻ A fQ˜OŽ˘#`ž}#(Enter the disk filename.Ź--(%(No Device Name or extender, filenameś&&(MUST be a .FNT 9-sector font).ť--(%PressŸ} RETURN without input to cancel.Ŕ4(AR"-->‡4AR@Ę A"Ô$ ‡46‡.‰ B$ } A"™Ů4 6ˆ.D:6ˆ7@,.‡46ˆ7B:ˆ,%@,..FNTŢK@+@@ˆ@C@ŽA$Ą}K@űQüOŻý`ţ (Äéňĺăôďňů ďć ÄąşŞŽĆÎÔ ( 2(@@D:*.FNT2 A#` 3-˘}@!6°-@3@‚ c@ˆ@ˆ7@<@,4 )ˆ7@<@,4*U(ˆ7@<@,c6Ł}°-°%@$ …°"@!6°-@8@‚F:@‚,%@M-F:@‚,@bF:@‚,!@(t@‚¤}xPą{`… A# . A#08 J-@"8(Press joystick button for menuJ@‚B >T:,?Ľ}G ` <=T:,L @V Q` Oąj C-@"C((More directory -- Press joystick button.t >T:Ś},?~ ` <=T:,ƒ /-/(Äéňĺăôďňů ďć ÄąşŞŽĆÎÔˆ Q¸ OŠš  A0@ `(§} Ěďáä ÓăňĺĺîĚ (Ö ##(Enter screen filename belowŕ ++(#(No device name, just the filename)ę 4(AR"¨}-->Š4AR@ô Š4A9™ţ  6ˆ.D:6ˆ7@,.Š +@+@@ˆ Q)@Š}6-'@2–-@@ ?)@žM6‹7–<–,.>:ž,Q – 6–-@A `$)@ž267–<–,.>:ž,6 –! Ş}P˛& @ŸQ OŞĄ A@@Ş`( Óáöĺ Óăňĺĺî´(ž##(Enter screen filename belowČ++(Ť}#(No device name, just the filename)Ň4(AR"-->Š4AR@ÜŠ4AI™ć 6ˆ.D:6ˆ7@Ź},.Šđ+@+@@ˆúE*@$@,–-@@ A*@@:‹7–<–,,E –­}(@@‡ BQˆOŤ‰ ` PłŠ+–-´%@´%@('–A0+ –‹7Ad%@@$Ž}7Ad%@@#Œ#–-ľľ%@#–@# –#–-śś%@#–# –Ž'–-@@ 'ľŻ}%–@:‹7–<–,,36ž-@:‹7–<–,,a@'6ž-ž%@/ś%–ž3 –’!!( Ăďěďň Ňĺçéóôĺň Óĺěĺăôœ(Ś.(--> Color 704 °}&^:,"? .(*B°0(( Color 705 )^:,"? 0(*ş0(( Color 706 )^:,"? 0(*Ä0(ą}( Color 707 )^:,"? 0(*Î?(( Setcolor 0 8+*^:,",)"? ?(*Ř>(( Setco˛}lor 1 7^:,?*^:,?0>(*ݏ"(Lâ;(( Setcolor 2 4^:,")"? ;(*ăł}"(Bě@(( Setcolor 3 9*^:,?*^:,?0@(*í"? (*ö<(( Setc´}olor 4 *5^:,? *!<(B÷"(Fř(( Exit( KH(: Registers with a * are usľ}ed in Graphics Mode .K(( B=Background Color,",( F=Frame Border Color0"ś}0( L=Luminance Control Only2(2(' Make a selection with the joystick.%6™-@6Ľ-™!6Ś-@%P§(ˇ}™"@AY™2[6ˇ-™&@6¸-6‚.(+:8A >P—U9ŽU:@ˆ,A `[6‚.€3A`–-A ¸}YA#=6‚7–%@<–%@,.>:F:Ž%–,,A –4g6-6š-@P•1A@=6š-I6‘-@š}U6’-@gAR@5K6Ł-@:‹7ˇ<ˇ,,a@'6Ł-Ł%@=6¤-@:‹7ˇ<ˇ,,]@K6¤-¤%@6#6˜-‘$Ł%@F#ş}6™-’$¤%@1<PłFAVŽ'AVS9ŒŽA$Z9C:ƒ,Ž%A @Vd'@‚@'-@@ť}n@–-@@*(. –@@‚x+-@+(Ăďěďň Óĺěĺăô Íĺîő‚'-@ź}@ '( Ăőňňĺîô Ăďěďň‡@-@@"@(&Čéçčěéçčô äĺóéňĺä ăďěďň ÷éôč ęďůóôéă뎈7-@@#7(Đňĺóó ćéňĺ ˝}âőôôďî ôď óĺěĺăôŽŒ;'9C:…7@,,ş%™&@@;B2H˜%@–'6Ł-+˜&@F,'‘'6¤-+™&@1,'’ 76Ł-Łž}&@6¤-¤&@7ś%@¤$@%ŁŞš6ž-R:,V6Ÿ-+ž"@)ž"@)ž"@,&+ž"@ )ž"@)ž"ż}@,š6 -+ž"@ )ž"@)ž"@,&+ž"@)ž"@)ž"@,Ż T:,"ASP´ž"@AŔ}Rľ/–-ş%™&@ş%™%@+–/ –śB2y@ž#6˜-˜%@$Ÿ#6™-™%@$ Č116˜-˜&@Á}$+˜!AW,%@$+˜ @“,Ň116™-™&@$+™!AhP,%@$+™@9,Ü AR`ć0`9C:‚,ŽA$06‹7ˇ<ˇÂ},.>:F:ś%@,,đ 6-¸ P˛oQpOŹq`z!( Çňáđčéăó Íďäĺ Íĺîő!(( Graphics 0„( Graphics Ă}0.1‰( Graphics 0.2Ž( Graphics 0.3“( Graphics 1˜( Graphics 1.1( Graphics 1.2˘Ä}( Graphics 1.3§( Graphics 2¨( Graphics 2.1Š( Graphics 2.2Ş( Graphics 2.3Ź( Ĺ} Graphics 12ą( Graphics 13˛( Exitś+(+( Use your joystick to select.ťĎĎ6™-@$+",%@Ć}$+"?,%@$+"? ,%@$+"?0,%@$+"@,%@$+"@,%@$+"@ ,%@ $Ç}+"@0,%@$+"@,%@$+"@,źmY6™-™%@$+"@ ,%@$+"@0,%@$+"@,%@Č}$+"@,e-™m(-->Ŕ 6Ľ-™6Ś-@P§Ĺ™"@A`™ĆŰŰ6-?$+™"@,%? $+™"@É},%?0$+™"@,%+™"@,%@$+™"@,%@ $+™"@,%@0$+™"@ ,%@$+™"@,%@Ę}$+™"@,%@ $+™"@,%@0$+™"@,Ç116-%@$+™"@,%@$+™"@,Ę 6ť-P:,ĎP˛ÓË}QÔO˛ŮVV6‘-@—@$+P:,")"@)"@,%@€$+P:,"@)P:,"@,ŢVV6’-@p$+P:,")Ě}"@)P:,"@,%@$+P:,"@)"@,WQ@O­J`( Ńőéôż(T(--> Yes^( No(hÍ}""( Use joystick to selectr+6™-@6Ľ-@'6Ś-@+P§|.™"@++@‚@.†Î}Q(#O§-#06ž-R:,06™-™%+ž"@,&+ž"@,2#6™-™%+™ @,&+™!Ś,<#cž"@)ž"@%-Ľ-(Ď} 9-™A(-->G6Ľ-™YB2y@cM@F#T:,AG#-™( K#<=T:,Đ}P#Q%O˘&%\ ź-@6?0<2A@źX2@A@ź\ ź:%Q'Oł'B6´-Ń}U:A`,*–-´%@´%@(>–@%A(B –'Q #B0!˝-@™%"ž3Ad%˝ž7 ˝C6ľ-AŇ}Q6ś-ľ%@$'l6˝-?:A“,$AA(6A@HBB†A’ZA@lA $'Ó}Q.'JJ72,138,72,174,156,6,189,176,6,141,10,212,141,27,208,189,200,6,141,26›8'JJ208,238,156,6,104,170,104,64,25,104,169,7,Ô}160,168,162,6,32,92,228,96›B'??169,1,141,156,6,76,98,228,0,64,64,64,64,64,64,64,64,64,64›L'++64,64,64,64,64,64,64,64,0,0,0,Ő}0,0,0,0›V'GG16,32,48,64,80,96,112,128,144,160,176,192,208,224,240,0,0,0,0,0,0›ř*OĘ+Ż +AR@1A#Ö}A(CA@UA@–gA@˜yAA‹AAA @$ŻA×}@& +A@(+AY?+aa6€.W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4t%e8x4t$d2r!aŘ}7w@ @@@@@@@@@@@@@@@@H+tt6€7@ˆ,.a@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ů}R+tt6€7A…,.a@@@@@@!a@4t%e8x4t@-m/o$d%e@@@@@@@GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGÚ}@\+tt6€7A‚,.a@'g2r!a0p(h)i#c@#c2r%e!a4t/o2r@@EEEEEEEEEEEEEEf+Ű}tt6€7Ay,.aEEEEEEEEEEEEEEEEEEE€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€@0p2r/o'g2r!a-m@$d%e3s)i'g.n@p+GG6€7AvÜ},.4€€€€DDDDDDDDDDDDDDDDDDDDDDDDDDDDD€€€€@z+/6€7A(,.>:@4,/6€7A),.b9y@„+.6€7A3,.>:Ý}@4,.6€7A4,.b/oŽ+,6€7A7,.>:@4,,6€7A8,.b˜+6€7A9,.>:@4,6€7A@,.Tb9y@#c,l!a2Ţ}r+k@€€€€DDDDDDDDDDDDDDDDDDDDDDDDDDDDD€€FFFFFFFFFFFFFFFFFFF˘+tt6€7A$,.aFFFFFFFFFFFFFFß}AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAŹ+tt6€7A!,.a@+k.n/o8x6v)i,l,l%e@@!a4t!a2r)i@ŕ}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC@@@@@5u3s%e2rś+tt6€7A,.a3s@@'g2r/o5u0p@@@@@á}Ŕ+AA6€7A ,.. @0p2r%e3s3s@@3s4t!a2r4t@@+k%e9y@ Ę+9C:€,U:â}@ˆ,A `&/336‚.)Qbs„tcRQ&7Ht3UQ&7„G6R&7Hw6%U0/26‚7@B,.>:@4,26‚7@C,.3„G6RQ:/76‚7ă}@P,.>:@4,76‚7@Q,. sHG6RU&7„t3D/26‚7@c,.>:@4,26‚7@d,.Q&7ˆGcN/U6‚7@q,.>:@4,Uä}6‚7@r,.*Q&wHw6Rf<˙:@4,?6‚7A,.3DDcR 0`@&7HG6b/26ĺ}‚7A5,.>:@4,26‚7A6,.&3DD3l/:6‚7AC,.>:@4,:6‚7AD,.&7DD6%&3DD6v/26‚7AY,.>:@4ć},26‚7A`,.&7HG3€/26‚7Ag,.>:@4,26‚7Ah,.&7HD6Š/26‚7Au,.>:@4,26‚7Av,.&7Hç}G6”/-6‚7Aƒ,.>:@4,-6‚7A„,.ž/76‚7A†,.>:@4,76‚7A‡,. 3DD6%&7DG6¨/6‚7A™,.>:@4Ľ}CHSET+29*8+I,B:NEXT I›1040 DATA 107,170,136,148,65,42,170,73›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€ é}€€€€€€";›1070 ? #6;"ꀀ€€€€€€€€€€€€€€€€ź";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ? #6;"=€=€=€=€€€€€=€=€=€=€";›1100 ? ę} #6;"€=€=€=€=€€€€€=€=€=€=";›1110 ? #6;"€€€€€€€€€€=€€€€€€€€€";›1120 ? #6;"€=€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€€€€€€^€€€€€€€^€€€ ë}€€";›1140 ? #6;"€€€€€€€€€€=€€€€€€€€=";›1150 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"€=€=€=€€€€€€€€€=€=€=";›1170 ? #6;"€€€€€€€ ě}=€€Ű€€=€€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€€€€€€€€€=€€€€€€€€€";›1200 ? #6;"€=€=€=^=€€€€€=€=€=€=";›1210 ? í}#6;"€€€€€€€€€€`€€€€€€€€€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"€€€€€€€€=€=€€€€€€€€€";›1240 ? #6;"€€ź€€€€€€€€€€€€€€€ź î}€";›1250 SETCOLOR 2,3,14:SETCOLOR 1,0,14:SETCOLOR 0,2,2:SETCOLOR 3,1,0:REG=PEEK(711):RN=39:A$="ĆĎŇÂÉÄÄĹ΀ĂČÁÍÂĹŇ":RETURN ›140 ď}0 PX=3:PY=0:PXB=PX:PYB=PY:CX=0:CY=12:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7060›7010 FOR I=1 TO 95›7020 READ N1,N2:TT=(I/!K}1000 REM --  ĚĹÖĹĚ ˇ  --›1010 POSITION 0,0›1020 DATA 1,198,57,131,131,57,198,1›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHS$ń}ET+29*8+I,B:NEXT I›1040 DATA 126,90,255,126,102,60,24,255›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€€$ň}€€€€€€€€€€€";›1070 ? #6;"=======€====€=======";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ? #6$ó};"€€€==€€€€€€€€€€==€€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"€€====€€€€€€€€====€€";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€"$ô};›1140 ? #6;"=€€€€€€€€€€€€€€€€€€=";›1150 ? #6;"€€€€€€Ű€€Ű€€€Ű€€€€€€";›1160 ? #6;"==€€€€€€€€€€€€€€€€==";›1170 ? #6;"€€€€€€€€€€$ő}€€€€€€€€€€";›1180 ? #6;"€€€==€€€€€€€€€€==€€€";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 ? #6;"€€====€€€€€€€€====€€";›1210 ? #6;$ö}"€€€€€€^€€€€€€^€€€€€€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"==ź===€======€===ź==";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";$÷}›1250 SETCOLOR 2,4,4:SETCOLOR 0,9,4:SETCOLOR 1,5,10:SETCOLOR 4,7,0:SETCOLOR 3,0,0:REG=0:RN=64:A$="ÔČŀÁŇĹÎÁ":RETURN ›1400 PX=&}1000 REM --  ĚĹÖĹĚ ¸  --›1010 POSITION 0,0›1020 DATA 16,56,126,125,252,124,56,16›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE C(ů}HSET+29*8+I,B:NEXT I›1040 DATA 170,34,251,16,189,128,174,170›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€(ú}€€€€€€€€€€€€€€";›1070 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1080 ? #6;"€€===?========?===€€";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ?(ű} #6;"€€€€€==€€€€€€€€€€€€€";›1110 ? #6;"==€€€€€€€€€€€€€€==€€";›1120 ? #6;"€€€€€€€€€€€€€==€€€€€";›1130 ? #6;"€€€€€€€€€€€€€€€€€€(ü}€€";›1140 ? #6;"€€€==€€€€€€€€€€€€€€€";›1150 ? #6;"€€€€€€€€€==€€€€€€€€€";›1160 ? #6;"€€€€€€€€€€€€€€=ꀀ€€";›1170 ? #6;"==€€==€(ý}€€€€€€€€€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€€€€€€€€€€€€€€€==€€";›1200 ? #6;"€€€€€€€==€€€€€€€€€€€";›1210 ? (ţ}#6;"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"=€=======€€=======€=";›1230 ? #6;"€€€€Ű€Ű€€€€€€€€Ű€€€€";›1240 ? #6;"€===€=======€===(˙}€";›1250 SETCOLOR 2,0,4:SETCOLOR 0,1,4:SETCOLOR 1,15,10:RN=64:SETCOLOR 3,4,0:REG=PEEK(711):A$="ÔČŀÂĚÉÎĀÁĚĚĹŮ":RETURN ›1400 * }1000 REM --  ĚĹÖĹĚ š  --›1010 POSITION 0,0›1020 DATA 255,66,36,24,24,36,66,255›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHS-}ET+29*8+I,B:NEXT I›1040 DATA 255,128,162,128,128,128,162,128›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€-}€€€€€€€€€€€€€€";›1070 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1080 ? #6;"===€€€€€€€€€€€€€€===";›1090 ? #6;"€€€====€€€€€€====€€€";›1100 ?-} #6;"€€€€€€€==€€==€€€€€€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"€€€€€€€===ź==€€€€€€€";›1130 ? #6;"€€€==€=€€€€€€=€==€-}€€";›1140 ? #6;"===€€€€€€€€€€€€€€===";›1150 ? #6;"€€€€€€€€€?€€^€€€€€€€";›1160 ? #6;"€==€€€€€€€€€€€€€€==€";›1170 ? #6;"€€€====-}€€€€€€====€€€";›1180 ? #6;"€€€€€€€======€€€€€€€";›1190 ? #6;"€€^€€€€€€€€€€€€€€€€€";›1200 ? #6;"€€€€€€€===ź==€€€€€€€";›1210 ? -}#6;"€€€====€€€€€€====€€€";›1220 ? #6;"===€€€€€€?€€€€€€€===";›1230 ? #6;"€€€=============€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€-}€";›1250 SETCOLOR 2,12,4:SETCOLOR 1,6,4:SETCOLOR 0,3,8:SETCOLOR 3,8,0:REG=PEEK(711):RN=85:A$="ĂĎÎÓÔŇŐĂÔÉĎ΀ŇĎĎÍ":RETURN ›1400.}1000 POSITION 0,0›1010 DATA 238,0,187,0,238,0,187,0›1020 RESTORE 1010:FOR I=0 TO 7:READ B:POKE CHSET+29*8+I,B:NEXT I›1030 SET1 }COLOR 1,0,0:SETCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1040 DATA 128,64,34,20,8,4,34,65›1050 FOR I=0 TO 7:RE1 }AD B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1070 ? #6;"===€====€€=====€€===";›1080 ? #6;"€€€^€€€€€€€€€€€€€€€1 }€";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ? #6;"€€===€€==ź==€€====€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"€€€€€€€€1 }€€€€€€€€^€€€";›1130 ? #6;"===€===€€=====€=====";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€€€€€€€€^€€€€€€€€€€€";›1160 ? #1 }6;"€€==€=====€€===€==€€";›1170 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€=====€€€====€€=ź==€1}";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"=====ź======ź=======";›1230 ? #6;"€€€€€€€€€1}€€€€€€€€€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1250 SETCOLOR 2,1,4:SETCOLOR 0,3,4:SETCOLOR 1,2,10:SETCOLOR 4,0,0:SETCOLOR 3,1}0,2:REG=PEEK(711)›1260 RN=84:A$="ÔČŀĆĎŐÎÄÁÔÉĎÎ":RETURN ›1400 PX=0:PY=15:PXB=PX:PYB=PY:CX=0:CY=8:CXB=CX:CYB=CY›1410 RETURN ›71ş}1000 REM --  ĚĹÖĹĚ ą°  --›1010 POSITION 0,0›1020 DATA 255,8,4,2,255,1,1,255›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSET+5}29*8+I,B:NEXT I›1040 DATA 255,8,4,2,255,1,1,1›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€^€€€€€€€€€€€€€€"5};›1070 ? #6;"=€€€€€€€€==€€€€€€€€=";›1080 ? #6;"€€€€€€€€€€€€€€€^€€€€";›1090 ? #6;"€==€€€€==€€==€€€€==€";›1100 ? #6;"€€€€€€€€€€5}€€€€€€€€€€";›1110 ? #6;"€€€€€==€€€€€€==€€€€€";›1120 ? #6;"==€€€€€€ŰŰŰۀ€€€€€==";›1130 ? #6;"€€€==€€€€€€€€€€==€€€";›1140 ? #6;5}"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€==€€€€€€==€€€€€€==€";›1160 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"€€€==€€€€€€€€€€==€€€";5}›1180 ? #6;"==€€€€€€€€€€€€€€€€==";›1190 ? #6;"€€€€€==€€€`€€==€€€€€";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"€=ꀀ€€==€€5}==€€€€==€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"^€€===ź===ź======€€€";›1240 ? #6;"=€€€€€€€€€€€€€€€€€€=";›1250 SETCOL5}OR 2,12,4:SETCOLOR 0,0,6:SETCOLOR 1,0,14:SETCOLOR 3,7,0:REG=PEEK(711):RN=63:A$="ÔČŀĚÁÂ":RETURN ›1400 PX=9:PY=0:PXB=PX:PYB=PY6\}1000 REM --  ĚĹÖĹĚ ąą  --›1010 POSITION 0,0›1020 DATA 252,132,191,165,165,253,33,63›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POK9}E CHSET+29*8+I,B:NEXT I›1040 DATA 126,63,159,207,231,243,249,252›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€9}€€€€€€€€€€€€€€€€€€";›1070 ? #6;"€€€€€€€€€==€€€€€€€€€";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ? #6;"€€€======€€======€€€";›119}00 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"€€€€=====€€=====€€€€";›1120 ? #6;"€€€€€€€€€^€€€€€€€€€€";›1130 ? #6;"€€€€€====€€===9}ꀀ€€€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€€€€€€===€€===€€€€€€";›1160 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"€€€9}€€€€==€€==€€€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€€€€€€€=€€=€€€€€€€€";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1219}0 ? #6;"==€€€€€€€€^€€€€€€€==";›1220 ? #6;"€€=€€€€€€€€€€€€€€=€€";›1230 ? #6;"€€€==ź===€€======€€€";›1240 ? #6;"€€€€€€€€€€€€€€€9 }€€€€€";›1250 SETCOLOR 2,2,4:SETCOLOR 0,6,4:SETCOLOR 1,4,14:SETCOLOR 3,1,2:REG=PEEK(711):RN=60:A$="ÔČŀĂĎÂŇÁ":RETURN ›1400 PX=:Ë}1000 REM --  ĚĹÖĹĚ ą˛  --›1010 POSITION 0,0›1020 DATA 24,60,24,24,60,126,126,129›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE C="}HSET+29*8+I,B:NEXT I›1040 DATA 42,81,138,84,162,21,168,69›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€€=#}€€€€€€€€€€€";›1070 ? #6;"€€€€€€===€€€€€€€€€€€";›1080 ? #6;"======€€€€€€€€======";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ? #6=$};"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"=====€€^€€€€€=======";›1120 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€"=%};›1140 ? #6;"====€€€€€€€€========";›1150 ? #6;"€€€€€€€€?€€€€€€€€€€€";›1160 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"===€€€€€€€=&}€=========";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 ? #6;"==€€€€€€€€===ź======";›1210 ? #6;='}"€€^€€€€€€€€€€€€€€€€€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"=€€€€€€€€==ź========";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";=(}›1250 SETCOLOR 2,6,4:SETCOLOR 0,14,4:SETCOLOR 1,11,14:SETCOLOR 3,5,0:REG=PEEK(711):RN=73:A$="ÔČŀÓÔÁÉŇĂÁÓĹ":RETURN ›1400 PX=0>Ó}1000 REM --  ĚĹÖĹĚ ął  --›1010 POSITION 0,0›1020 DATA 255,24,24,24,24,24,0,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSETA*}+29*8+I,B:NEXT I›1040 DATA 144,112,24,18,18,24,112,144›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 SETCOLOR 1,0,0:SETA+}COLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1070 ? #6;"€€€€€€€€€€€€€€€€€€";›1080 ? #6;"=====ź==€€€€========";›A,}1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ? #6;"=======€€==€€=======";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"======€€=€€=A-}€€======";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1140 ? #6;"=====€€=€€€€=€€==ź==";›1150 ? #6;"^€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"=A.}===€€=€€??€€=€€====";›1170 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1180 ? #6;"===€€=€€€€€€€€=€€===";›1190 ? #6;"€€€€€€€^€Űۀ€€€€€€€€";›1A/}200 ? #6;"==€€=€€€€€€€€€€=€€==";›1210 ? #6;"€€€€€€€€€€€€€`€€€€€€";›1220 ? #6;"=€€=€€€€€==€€€€€=€€=";›1230 ? #6;"€€€€€€€€€€€€€A0}€€€€€^€";›1240 ? #6;"=========€€==ź======";›1250 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1260 SETCOLOR 2,6,4:SETCOLOR 0,5,6:SETCOLOR 1,3A1},14:SETCOLOR 3,11,0:REG=PEEK(711):RN=103:A$="ÔČŀÔĹÍĐĚĹ":RETURN ›1400 PX=0:PY=0:PXB=PX:PYB=PY:CX=9:CY=14:CXB=CX:CYB=CY›1410 RC7}1000 REM --  ĚĹÖĹĚ ą´  --›1010 POSITION 0,0›1020 DATA 24,60,66,195,0,0,0,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSET+2E3}9*8+I,B:NEXT I›1040 DATA 136,136,136,136,156,170,201,136›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€E4}€€€€€€€€";›1070 ? #6;"€€€€===€€€€€€===€€€€";›1080 ? #6;"===€€€€€€€€€€€€€€===";›1090 ? #6;"€€€€€€€€====€€€€€€€€";›1100 ? #6;E5}"€€€€===€€€€€€===€€€€";›1110 ? #6;"===€€€€€€€€€€€€€€===";›1120 ? #6;"€€€€€€€€====€€€€€€€€";›1130 ? #6;"€€€€===€€€€€€===€€€€";E6}›1140 ? #6;"===€€€€€€€€€€€€€€===";›1150 ? #6;"€€€€€€€€==ź=€€€€€€€€";›1160 ? #6;"€€€€===€€€€€€===€€€€";›1170 ? #6;"===€€€€€€€€E7}€€€€€€===";›1180 ? #6;"€€€€€€€€====€€€€€€€€";›1190 ? #6;"€€€€===€€€€€€===€€€^";›1200 ? #6;"===€€€€€€€€€€€€€€===";›1210 ? #6;"E8}^€€€€€€€====€€€€€€€€";›1220 ? #6;"€€€€=ź=€€€€€€=ź=€€€€";›1230 ? #6;"====€€€======€€€====";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›E9}1250 SETCOLOR 2,8,4:SETCOLOR 0,12,14:SETCOLOR 1,15,4:RN=97:SETCOLOR 3,9,0:REG=PEEK(711):A$="ÔČŀÓĂÁĆĆĎĚÄÉÎÇ":RETURN ›1400 PX=G=}1000 REM --  ĚĹÖĹĚ ąľ  --›1010 POSITION 0,0›1020 DATA 16,40,68,68,68,68,40,16›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSEI;}T+29*8+I,B:NEXT I›1040 DATA 85,136,170,136,85,34,170,34›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 SETCOLOR 1,0,0:SEI<}TCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1070 ? #6;"€€€€€€€€€€€€€€€€€€";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";I=}›1090 ? #6;"€======€=€€=€======€";›1100 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"=€====ź=€€€I>}€======€=";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"==€======^€======€==";›1160 ? #6;"I?}€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1180 ? #6;"=€======€€€€=====ź€=";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›I@}1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"€==ź===€€€€€€======€";›1220 ? #6;"€€€€€€^€€€Ű€€€€€€€€€";›1230 ? #6;"€€€€€€€€€€€€IA}€€€€€€€€";›1240 ? #6;"======€€€€€€€€======";›1250 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1260 SETCOLOR 2,11,4:SETCOLOR 0,10,4:SETCOLOR IB}1,7,10:SETCOLOR 3,1,2:REG=PEEK(711):RN=79:A$="ÔČŀÔĹĂČÎÉĂÁ̀ŇĎĎÍ":RETURN ›1400 PX=0:PY=1:PXB=PX:PYB=PY:CX=9:CY=16:CXB=CX:CYB=Js}1000 REM --  ĚĹÖĹĚ ˛°  --›1010 POSITION 0,0›1020 DATA 31,63,95,159,159,162,196,248›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKEMD} CHSET+29*8+I,B:NEXT I›1040 SETCOLOR 1,0,0:SETCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1050 DATA 204,102,51,1ME}53,204,102,51,153›1060 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1070 ? #6;"€€€€€€€€€€€€€€€€";›1080 ? #6;"€€€€€€€€€€€€€€€MF}€€€€€";›1090 ? #6;"€€=€========€===€=€€";›1100 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"€€€=€==€=======€=€€€";›1120 ? #6;"€€€€MG}€€€€€€€€€€€€€€€^";›1130 ? #6;"€€€=€====€===€=€€€";›1140 ? #6;"€^€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€€€€=€==`ź==€=€€€€";›1160MH} ? #6;"€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"€€€€€=€=€==€=€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€€€€€=€==€=€€€MI}€€€";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"€€€€€€€=€==€€€€€€€";›1220 ? #6;"€€€€€€€€€€€€€€";›1230 ? #6;"€€€€€MJ}ź=€€€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1250 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1260 SETCOLOR 2,1,4:SETCOLOR 0,5,14:SETN]}2=INT(I/2))›7030 FOR T=6 TO 1 STEP -0.12:SOUND TT,N1,10,T:SOUND TT+2,N2,10,T:NEXT T›7040 NEXT I›7050 SOUND :FOR I=6 TO 0 ST!L}EP -0.05:SOUND 3,96,10,I:NEXT I:RETURN ›7060 DATA 64,0,31,0,33,0,31,0,33,0,31,0,42,0,35,0,40,0›7070 DATA 47,193,0,129,0,96,81!M},0,64,0,47,0›7080 DATA 42,255,0,145,0,129,64,0,50,0,42,0›7090 DATA 40,193,0,129,0,96,64,0›7100 DATA 31,0,33,0,31,0,33,0,31,0,!N}42,0,35,0,40,0›7110 DATA 47,193,0,129,0,96,81,0,64,0,47,0›7120 DATA 42,255,0,145,0,129,64,0,40,0,42,0›7130 DATA 47,193,0,129,!O}0,96,42,0,40,0,35,0›7140 DATA 31,163,0,108,0,81,53,0,29,0,31,0›7150 DATA 35,218,0,121,0,108,60,0,31,0,35,0›7160 DATA 40,193,0!P},129,0,96,64,0,35,0,40,0›7170 DATA 42,255,0,145,0,129,64,0›7180 DATA 31,0,33,0,31,0,33,0,31,0,42,0,35,0,40,0›7190 DATA 47,193!Q},0,129,0,96,81,0,64,0,47,0›7200 DATA 42,255,0,145,0,129,64,0,40,0,42,0›7210 DATA 47,193,0,129›42,0,35,0,40,0›7190 DATA 47,193 ^1000 REM --  ĚĹÖĹĚ ˛¸  --›1010 POSITION 0,0›1020 DATA 252,120,48,0,252,72,48,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSu[}1000 REM --  ĚĹÖĹĚ ąś  --›1010 POSITION 0,0›1020 DATA 60,126,255,126,189,66,60,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CUT}HSET+29*8+I,B:NEXT I›1040 DATA 17,17,17,255,17,17,17,255›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€€€UU}€€€€€€€€€€";›1070 ? #6;"==€€€€€€=€€=€€€€€€==";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ? #6;"€€€€€€€=€€€€=€€€€€€€";›1100 ? #6;UV}"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"€€€€€€=€=€€=€=€€€€€€";›1120 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€€^€€=€€€==€€€=€€^€€";UW}›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€=€€=€=€=€€=€=€=€€=€";›1160 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"€€€=€€€?€==UX}€?€€€=€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€=€=€=€=€€=€=€=€=€€";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"UY}€=€Ű€=€€€==€€€=€Ű€=€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"======ź==€€==ź======";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›UZ}1250 SETCOLOR 2,12,4:SETCOLOR 0,9,4:SETCOLOR 1,3,6:SETCOLOR 3,0,2:REG=2:RN=58:A$="ÔČŀÇŇĹĹÎČĎŐÓĹ":RETURN ›1400 PX=8:PY=0:PXB=V}ET+29*8+I,B:NEXT I›1040 DATA 153,24,36,195,195,36,24,153›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 SETCOLOR 1,0,0:Su\}ETCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1070 ? #6;"=====€€====€€=====";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€"u]};›1090 ? #6;"€=€=€=€==€===€=€=€=€";›1100 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"€==€=€€€==€=€€€=€==€";›1120 ? #6;"^€€€€€€€€€u^}€€€€€€€€€€";›1130 ? #6;"€=€=€€€€=€==€€€€=€=€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€€=€€€€€ź=€=€€€€€=€^";›1160 ? #6;u_}"€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"€=€€€€€€=€==€€€€€€=€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€€€€€€€==€=€€€€€€€€";u`}›1200 ? #6;"€€€€Ű€€€€€€€€€€Ű€€€€";›1210 ? #6;"€€€€€€€€=€==€^€€€€€€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"€€€€€€€===€ua}==€€€€€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1250 ? #6;"€€€€€€€€===ꀀ€€€€€€";›1260 SETCOLOR 2,4,4:SETCOLOR 1,4,10:SETCOLOR ub}0,5,6:SETCOLOR 3,2,0:REG=PEEK(711):RN=64:A$="ÔČŀÔĹÁŇĎĎÍ":RETURN ›1400 PX=7:PY=3:PXB=PX:PYB=PY:CX=0:CY=0:CXB=CX:CYB=CY›1410 Ru„}1000 REM --  ĚĹÖĹĚ ąˇ  --›1010 POSITION 0,0›1020 DATA 129,66,165,219,219,165,66,129›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POK]d}E CHSET+29*8+I,B:NEXT I›1040 DATA 35,166,106,50,35,166,106,50›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€Ű€€€]e}€€€€€€€€€€€Ű€";›1070 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1080 ? #6;"€€€====€====€====€€€";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ]f}? #6;"€€======€==€======€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"€=ź======€€=======ź€";›1130 ? #6;"€€€€€€€€€?€€€€€€€]g}€€€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"^€€€==€======€==€€€€";›1160 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"€€€===]q}ň¤˙˙˙˙˙˙˙˙˙˙˙˙˙€ţ˙ţ`řŔ€ƒ~TEXTDRAWTURCSCRAPER HI bESCRAPER 26 #[SCRAPER 2 #dSCRAPER 5 #lSCRAPER 21 #tSCRAPER 6 €|THECHASEMUSbZSCRAPER 27 #đSCRAPER 7 #řSCRAPER 8 #SCRAPER 9 bSCRAPER 1 #SCRAPER 10 #SCRAPER 11 #!SCRAPER 12 #)SCRAPER 13 #2SCRAPER 14 #:SCRAPER 15 bCSCRAPER 20 b SCRAPER 24 #SSCRAPER 16 b0SCRAPER 25 #cSCRAPER 17 #tSCRAPER 18 # |SCRAPER 19 b SCRAPER 22 bSCRAPER 23 #•SCRAPER 3 bRSCRAPER 28 €%`MAGNETICMUSbŒSCRAPER 29 #ŻSCRAPER 37 #&ťSCRAPER 31 €!CLOSEDITMUS#ĘSCRAPER 38 #7SCRAPER 4 bŚSCRAPER 32 #!SCRAPER 39 b¨SCRAPER 30 ¸SCRAPER HI #OSCRAPER 35 #ćSCRAPER 33 #SCRAPER 34 #şSCRAPER 40 #ŘSCRAPER 36 €ťSCRAPER HI €ŢXX € îSECURTIY €äTEMP =€====€====€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€======€==€======€^";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ?]r} #6;"€=======ꀀ========€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"€€€€€€€€€==€€€€€€€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€]s}€€";›1250 SETCOLOR 2,5,4:SETCOLOR 1,4,8:SETCOLOR 0,6,4:SETCOLOR 3,14,0:REG=PEEK(711):RN=93:A$="ĐŮŇÁÍÉÄӀĎƀÍÁŇÓ":RETURN ›1400_M}1000 REM --  ĚĹÖĹĚ ą¸  --›1010 POSITION 0,0›1020 DATA 255,24,219,219,219,219,24,255›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKau}E CHSET+29*8+I,B:NEXT I›1040 DATA 255,0,255,0,255,0,255,0›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€av}€€€€€€€€€";›1070 ? #6;"€===€===€€€^===€===€";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ? #6aw};"€==€=€==€€€€==€=€==€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€=€===€=€€^€=€=ź=€=€"ax};›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"€===`===€€€€===€===€";›1170 ? #6;"€€€€€€€€€€ay}€€€€€€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"€€==ź==€€€€€€=====€€";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;az}"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"€=€€€€€=€€€€=€€€€€=€";›1230 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";a{}›1250 SETCOLOR 2,1,8:SETCOLOR 0,0,14:SETCOLOR 1,3,4:SETCOLOR 3,10,4:POKE 712,4:REG=PEEK(711):RN=56:A$="ÔČŀÇÉŇÄĹŇÓ":RETURN ›1bY}1000 REM --  ĚĹÖĹĚ ąš  --›1010 POSITION 0,0›1020 DATA 28,34,73,85,85,73,34,28›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSEe}}T+29*8+I,B:NEXT I›1040 DATA 18,33,192,0,0,3,132,72›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€€€€€€€€€e~}€€€€";›1070 ? #6;"€€€€€€€€==€€€€€€==€€";›1080 ? #6;"==€€€€€€€€€€€==€€€€€";›1090 ? #6;"€€€€€€€€€€=€€€€€€€€€";›1100 ? #6;"€€€€€e}€==€€€€€€€€€€€€";›1110 ? #6;"€€€€€€€€€€€€=€€€€==€";›1120 ? #6;"€€==€€€€€€€€€€€€€€€€";›1130 ? #6;"€€€€€€€€ź€€€€€€€€€€€";›1140 e€}? #6;"€€€€==€€€€==€€ź€€€€€";›1150 ? #6;"==€€€€€€€€€€€€€€€€€€";›1160 ? #6;"€€€€€€€€€€€€€€€€==€€";›1170 ? #6;"€€€€€=ꀀ€€€€€€€€e}€€€";›1180 ? #6;"€€€€€€€€€€^€€€==€€€€";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 ? #6;"€€€€€€€==€€€€€€€€€€€";›1210 ? #6;"€€€€€€e‚}€€^€€€€€€€€€€€";›1220 ? #6;"===€€€€€€€€€€€€€€€==";›1230 ? #6;"€€€==€==€=€€==€€=€€€";›1240 ? #6;"€€€€€€€€ź€€€€€€€€€€€";›1250 Seƒ}ETCOLOR 2,1,4:SETCOLOR 0,4,4:SETCOLOR 1,6,10:SETCOLOR 3,6,0:REG=PEEK(711):RN=42:A$="ÔČŀÇŮÍÎÁÓÉŐÍ":RETURN ›1400 PX=0:PY=0:PXBgű}ETURN ›7000 RESTORE 7000›7010 FOR I=1 TO 114›7020 READ N1,N2:TT=(I/2=INT(I/2))›7030 FOR T=6 TO 1 STEP -0.15:SOUND TT,N1,1u…}0,T:SOUND TT+2,N2,10,T:NEXT T›7040 NEXT I›7050 SOUND :FOR I=6 TO 0 STEP -0.02:SOUND 0,182,10,I:SOUND 1,45,10,I:NEXT I:RETURN u†}›7060 DATA 182,0,0,0,0,0,129,0,0,0,0,0,121,0,0,0,0,0,193,0,0,0,0,0›7070 DATA 182,0,0,0,0,0,60,0,57,0,53,0,50,0,53,0,57,0,60,0u‡},0,0,0,0›7080 DATA 163,45,0,0,136,0,108,0,0,0,91,53,96,47,0,0,121,0,145,0,0,0,182,53›7090 DATA 163,45,0,0,136,0,108,0,0,0,91,uˆ}53,96,47,0,0,121,0,145,0,0,0,193,0›7100 DATA 182,47,0,0,145,0,121,0,0,0,96,60,108,53,0,0,121,0,145,0,0,0,193,60›7110 DATA 182u‰},47,0,0,145,0,121,0,0,0,96,60,108,53,0,0,121,0,145,0,0,0,182,0›7120 DATA 163,45,0,0,136,0,108,0,0,0,91,53,96,47,0,0,121,0,145uŠ},0,0,0,182,53›7130 DATA 163,45,0,0,136,0,108,0,0,0,91,53,96,47,0,0,121,0,145,35,0,0,193,0›7140 DATA 182,60,0,57,0,53,129,50,0u‹},53,0,57,121,57,0,53,0,50,193,47,0,50,0,60›7150 DATA 182,45,0,0,0,0,0,0,0,0,0,0›0,0,193,0›7140 DATA 182,60,0,57,0,53,129,50,0tP1000 REM --  ĚĹÖĹĚ ˛š  --›1010 POSITION 0,0›1020 DATA 62,234,170,162,135,129,195,126›1030 RESTORE 1020:FOR I=0 TO 7:READ B:PO}}KE CHSET+29*8+I,B:NEXT I›1040 DATA 0,0,0,0,0,0,0,0›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 SETCOLOR 1,0,0:SETCOLO}Ž}R 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1070 ? #6;"=€€€€€€Ű^€=€^ۀ€€€€=";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090}} ? #6;"€€€€€=€€€€€€€€€=€€€€";›1100 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"€€€€€=€€€€=€€€€=}}€€€€";›1130 ? #6;"€€^€€€€€€€€€€€€€€€^€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€€€€€=€€€€Ű€€€€=€€€€";›1160 ? #6;"€€€€€}‘}€€€€€€€€€€€€€€€";›1170 ? #6;"=€€€€€€€€€€€€€€€€€€=";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"=€€€€€===€€€===€€€€=";›1200 }’}? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"=€€€€€€€€€€€€€€€€€€=";›1220 ? #6;"€€€===€€€===€€€===€€";›1230 ? #6;"€€€€€€€€€€€€€€€€€}“}€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1250 ? #6;"====ź=====ź=====ź===";›1260 SETCOLOR 2,3,4:SETCOLOR 1,9,6:SETCOLOR 0,0,14:}”}SETCOLOR 4,0,14:RN=48:A$="the€invisible€room":RETURN ›1400 PX=13:PY=17:PXB=PX:PYB=PY:CX=1:CY=12:CXB=CX:CYB=CY›1410 RETURN ›70}}1000 REM --  ĚĹÖĹĚ ł  --›1010 POSITION 0,0›1020 DATA 248,196,162,159,145,81,49,31›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE q–}CHSET+29*8+I,B:NEXT I›1040 DATA 68,34,31,152,84,50,17,136›1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€€q—}€€€€€€€€€€€";›1070 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1080 ? #6;"€€€==€==€==€==€==€€€";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ? #6q˜};"€€€€==€==€€==€==€€€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"€€€€€==€==ź=€==€€€€€";›1130 ? #6;"€€^€€€€€€^€€€€€€€€€€"q™};›1140 ? #6;"€€€€€€==€==€==€€€€€€";›1150 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"€€€€€€€==€€==€€€€€€€";›1170 ? #6;"€€€€€€€€€€qš}€€€€€€€€€€";›1180 ? #6;"€€€€€€€€====€€€€€€€€";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 ? #6;"€€€€€€€€€==€€€Ű€Ű€Ű€";›1210 ? #6;q›}"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"==========ź=========";›1230 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1240 SETCOLOR 2,4,4:SETCOLOR 0,5,qœ}4:SETCOLOR 1,12,10:SETCOLOR 3,9,0:REG=PEEK(711):RN=60:A$="ĆÁĚĚĎŐԀÓČĹĚÔĹŇ":RETURN ›1400 PX=0:PY=15:PXB=PX:PYB=PY:CX=16:CY=15:qř}00 RESTORE 7120:SO$=""›7010 FOR I=1 TO 32:READ A:SO$(I,I)=CHR$(A):NEXT I›7020 FOR I=1 TO 2:RESTORE 7140:FOR T=1 TO 3:READ A›7}ž}030 FOR TT=15 TO 0 STEP -0.35:SOUND 0,A,8,TT:NEXT TT:NEXT T:PAUSE 4:NEXT I›7040 FOR I=1 TO 32›7050 N=I-16*(I>16)›7060 }Ÿ} N1=ASC(SO$(I,I)):N2=100*(N=1 OR N=8 OR N=9 OR N=14 OR N=16)+50*(N=3 OR N=7 OR N=11 OR N=15)›7070 READ N3,N4:IF N3=-1 THEN } }POP :GOTO 7110›7080 FOR T=15 TO 0 STEP -0.75:SOUND 0,N1,12,T:SOUND 1,N2,8,T/1.2:SOUND 2,N3,10,T:SOUND 3,N4,10,T:NEXT T›7090}Ą} NEXT I›7100 GOTO 7040›7110 FOR T=15 TO 0 STEP -0.1:SOUND 0,86,12,T:SOUND 1,89,10,T:SOUND 2,71,10,T:SOUND 3,100,8,T/2:NEXT T:}˘}RETURN ›7120 DATA 143,119,143,119,119,119,119,191,143,119,143,119,119,95,71,95›7130 DATA 143,119,143,119,119,119,119,143,86,8}Ł}6,86,86,95,95,95,95›7140 DATA 20,20,40›7150 DATA 0,0,89,66,89,66,89,66,89,66,0,0,89,71,0,0,106,89,0,0,106,89,0,0,106,89,0,0,9}¤}5,79,0,0›7160 DATA 0,0,89,66,89,66,89,66,89,66,0,0,89,71,0,0,106,89,0,0,106,89,0,0,106,89,0,0,95,79,0,0›7170 DATA 0,0,89,66,8}Ś},6‚7A,.T&7DD3%0 0 ~~`0 0`=0.2)›1270 YODD=INT(RND(1)*15)+2:IF YODD/2=INT(YODD/2) THEN 1260›1280 XODD=INT(RND(1)*20)+1:IF XODD…Ä}/2=INT(XODD/2) THEN 1280›1290 YEVEN=INT(RND(1)*13)+3:IF YEVEN/2<>INT(YEVEN/2) THEN 1290›1300 XEVEN=INT(RND(1)*20):IF XEVEN/2<…Ĺ}>INT(XEVEN/2) THEN 1300›1310 IF XEVEN=2 AND (YEVEN=8 OR YEVEN=14) THEN 1330›1320 LOCATE XEVEN,YEVEN,Z:IF Z=128 THEN COLOR N:P…Ć}LOT XEVEN,YEVEN:IF N=61 THEN RN=RN+1›1330 LOCATE XODD,YODD,Z:IF Z=128 THEN COLOR N:PLOT XODD,YODD:IF N=61 THEN RN=RN+1›1340 C…Ç}OUNT=COUNT-1:IF COUNT>0 THEN 1260›1350 SETCOLOR 2,7,4:SETCOLOR 0,9,6:SETCOLOR 1,13,10:SETCOLOR 3,3,0:REG=PEEK(711):A$="ÔČŀĐņ›}=5 OR I=8 OR I=10 OR I=12 OR I=13 OR I=15):READ N2›7030 N4=58*(TT=1)+255*(TTT=1):IF STRIG(0)=0 THEN 7070›7040 SOUND 1,1821É},12,N3:FOR T=12 TO 2 STEP -0.25›7050 SOUND 0,N4,8,T:SOUND 3,N2,12,T:NEXT T:FOR A=1 TO 3:NEXT A:NEXT I›7060 GOTO 7010›70701Ó}1000 REM --  ĚĹÖĹĚ ł¸  --›1010 POSITION 0,0:SETCOLOR 0,0,0:SETCOLOR 4,0,0:SETCOLOR 3,0,0›1020 DATA 68,170,170,170,170,170,170Ë},17›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSET+29*8+I,B:NEXT I›1040 SETCOLOR 1,0,0:SETCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLĚ}OR 4,0,0:SETCOLOR 0,0,0›1050 DATA 0,0,0,0,0,0,0,0›1060 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1070 ? #6;"Í}";›1080 ? #6;"źźźźźźŰ€€€€€€Űźźźźźź";›1090 ? #6;"??";›1100 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"€€€€€€Î}€€€€€€€€€€€€€€";›1120 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ?Ď} #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1170 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€Đ}€€";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"€€€€€€€Ń}€€€€€€€€€€€€€";›1230 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1250 ? #6;"";›1260 XXŇ}=INT(RND(1)*19)+1:YY=INT(RND(1)*12)+5:COLOR ASC("="):PLOT XX,YY›1270 FOR I=1 TO 10›1280 XX=INT(RND(1)*19)+1:YY=INT(RND(1)*1Žr} FOR J=13 TO 0 STEP -0.1:SOUND 0,161,12,J:SOUND 3,58,8,J:NEXT J:GOTO 7220›7080 GOTO -7060›7090 NEXT I›7100 GOTO -7060›7110 RE1Ô}STORE 7130:GOTO 7010›7120 GOTO 7220›7130 DATA 0,161,119,119,161,161,119,119,161,119,182,161,137,122,119,137,119›7140 DATA 0,11Ő}61,119,119,161,161,119,119,161,119,182,161,137,122,119,137,119›7150 DATA 5,182,119,119,182,182,119,119,182,119,182,161,137,121Ö}2,119,137,119›7160 DATA 0,161,119,119,161,161,119,119,161,119,182,161,137,122,119,137,119›7170 DATA 0,161,119,119,161,161,1191ć}6ź/J6‚7A‡,.>:@4,J6‚7Aˆ,.&7HG6%&7HG6%&7HG6%&7HG6Ć/56‚7A,.>:@4,56‚7A ,. &7HG6ă}1000 REM --  ĚĹÖĹĚ łś  --›1010 POSITION 0,0›1020 DATA 255,0,255,0,255,0,255,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSEľŮ}T+29*8+I,B:NEXT I›1040 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1050 DATA 0,6,6,0,15,105,105,15›1060 SETCOLOR 1,0,0:SETCOLORľÚ} 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1070 ? #6;"";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ľŰ}? #6;"€==================€";›1100 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"€€================€€";›1120 ? #6;"€€€€€€€€€€€€€€€€€ľÜ}€€€";›1130 ? #6;"€€€==============€€€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€€€€============€€€€";›1160 ? #6;"€€€€€€ľÝ}€€€€€€€€€€€€€€";›1170 ? #6;"€€€€^==========^€€€€";›1180 ? #6;"€€€^^€€€€€€€€€€^^€€€";›1190 ? #6;"€€€^^^========^^^€€€";›1200 ?ľŢ} #6;"€€^^^^€€€€€€€€^^^^€€";›1210 ? #6;"€€^^^^^======^^^^^€€";›1220 ? #6;"€^ź^^^^€€€€€€^^^^ź^€";›1230 ? #6;"€^^^^^^^====^^^^^^ľß}^€";›1240 ? #6;"^^Ű^^Ű^^€€€€^^Ű^^Ű^^";›1250 ? #6;"^^^^^^^^^==^^^^^^^^^";›1260 SETCOLOR 2,4,8:SETCOLOR 0,9,4:SETCOLOR 1,14,10:ľŕ}SETCOLOR 4,0,0:SETCOLOR 3,6,2:REG=PEEK(711)›1270 RN=90:A$="ČÁÎĎɀÔĎ×ĹŇ":RETURN ›1400 PX=1:PY=1:PXB=PX:PYB=PY:CX=18:CY=8:CXB=Cľá}X:CYB=CY›1410 RETURN ›7000 RESTORE 7000:C=PEEK(711)›7010 READ A:IF A=-1 THEN 7060›7020 SOUND 2,A,10,8:SOUND 3,A+1,10,8›7030 Fľâ}OR T=12 TO 0 STEP -0.5›7040 SOUND 0,146,12,T:SOUND 1,143,12,T:SETCOLOR 3,6,T:NEXT T›7050 GOTO 7010›7060 FOR T=15 TO 0 STEP ˇ6}%Đ/26‚7A0,.>:@4,26‚7A1,.3DD3%Ú//6‚7A8,.>:@4,/6‚7A9,.3DD6ä/R6‚7AC,.>:@4ä},R6‚7AD,.'&7HG6%&7HG6%&7HG6%&7HG6%&7HG6î/:6‚7Aƒ,.>:@4,:6‚7A„,.&7HG6%&7HG6ř/:6‚7Aĺ}™,.>:@4,:6‚7A,.&7HG6%&7DD60-6‚7A,.>:@4,-6‚7A,. 0/6‚7A,.>:@4,/6‚7é},119,161,119,182,161,137,122,119,137,119›7180 DATA 0,161,119,119,161,161,119,119,161,119,182,161,137,122,119,137,119›7190 DAT1ç}A 5,182,119,119,182,182,119,119,182,119,182,161,137,122,119,137,119›7200 DATA 0,161,119,119,161,161,119,119,161,119,182,161,11č}37,122,119,137,119›7210 DATA -1›7220 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I:RETURN ›,161,119,119,161,161,119,119,161,119,182,161,10OA,.3DD30:6‚7A#,.>:@4,:6‚7A$,.&7HG6%&7HG6 0B6‚7A9,.>:@4,B6‚7A@,.&7HG6%ę}&3DD6%&7DD3*0-6‚7Ac,.>:@4,-6‚7Ad,.40Z6‚7Af,.>:@4,Z6‚7Ag,./3DD6%@`0 ë}xx6c˙>0/6‚7A,.>:@4,/6‚7A,.3DD3H016‚7A,.>:@4,16‚7A ,.R01ě}6‚7A&,.>:@4,16‚7A',.3DD3\046‚7A3,.>:@4,46‚7A4,. DC42#1f06‚7AC,.>:@4,pí}06‚7AD,.>:@4,6‚7AE,.TUUffwwˆˆUev‡&7H 0@VgxˆˆQ`s€s`Q€Ŕŕđřüţ˙đđđđ˙˙î}z0tt6‚7A),.a˙˙đđđđww˙˙˙˙<~~~<˙˙˙˙ŔŔŔŔŔŔŔŔ˙˙˙˙đđđđđđđđ„0gg6‚7ď}A&,.Tx`x`~<~~<0~0 ~ <~~<Q&7ˆG6%Q&7„G6RQ&3DD6RQ&7HG6RUŽ026‚7A,.>:@4,26‚đ}7A,.3„D3UU˜0/6‚7A,.>:@4,/6‚7A,.3„D3˘0U6‚7A#,.>:@4,U6‚7A$,.*Q&3DG6U&7ˆG6%}RN ›7000 RESTORE 7000›7010 READ N1,N2›7020 IF N1=-1 THEN 7050›7030 FOR I=15 TO 0 STEP -0.5:SOUND 1,N1,10,I:SOUND 2,N2,10,I/2: ň}SOUND 3,N2+1,10,I:NEXT I›7040 GOTO 7010›7050 FOR I=15 TO 0 STEP -0.1:SOUND 1,60,10,I:SOUND 2,121,10,I:SOUND 3,122,10,I:NEXT I ó}›7060 GOTO 7150›7070 DATA 60,121, 0,96, 60,161, 0,96, 53,161, 45,126, 47,215, 53,126›7080 DATA 40,121, 0,96, ô} 40,161, 0,96, 40,121, 35,96, 47,161, 45,96›7090 DATA 53,161, 0,126, 53,215, 0,126, 53,161, 45,126, 47,2 ő}15, 53,126›7100 DATA 60,121, 29,96, 31,161, 35,96, 40,161, 45,126, 47,215, 53,126›7110 DATA 60,121, 0,96, 6 ö}0,161, 0,96, 53,161, 45,126, 47,215, 53,126›7120 DATA 40,121, 0,96, 40,161, 0,96, 40,121, 35,96, 47,16 ÷}1, 45,96›7130 DATA 53,161, 0,126, 53,215, 0,126, 53,161, 45,126, 47,215, 53,126›7140 DATA 60,121, 40,96, 53,á}CXB=CX:CYB=CY›1410 RETURN ›7000 POKE 53768,0:SOUND 3,0,0,0:RESTORE 7100›7010 FOR I=1 TO 16›7020 TT=45*(I=1 OR I=7 OR I=11 Oqů}R I=15)+10*(I=5 OR I=13)›7030 POKE 53766,TT›7040 READ N:IF N=-1 THEN POP :GOTO 7090›7050 IF N THEN POKE 53760,N›7060 qú}FOR II=14 TO 0 STEP -1.2:POKE 53761,12*16+II*(N>0)+2:POKE 53767,8*16+II/2›7070 NEXT II:NEXT I›7080 GOTO 7010›7090 SOUND :FOqű}R I=15 TO 0 STEP -0.1:SOUND 1,173,12,I:NEXT I›7100 DATA 86,0,86,0,86,0,86,86,86,0,116,0,0,0,86,0›7110 DATA 86,0,86,0,86,0,86,qü}86,86,0,116,0,0,0,0,0›7120 DATA 86,0,86,0,86,0,86,86,86,0,116,0,0,0,86,0›7130 DATA 86,0,86,0,86,0,86,86,86,0,116,0,0,0,0,0›71qý}40 DATA 173,0,0,0,0,0,0,0,0,0,173,0,146,0,173,0›7150 DATA 131,0,0,0,0,0,0,0,0,0,146,0,131,0,146,0›7160 DATA 173,0,0,0,0,0,0,0qţ},0,0,221,0,191,0,221,0›7170 DATA 251,0,0,0,0,0,0,0,0,0,146,173,146,0,146,0›7180 DATA 173,0,0,0,0,0,0,0,0,0,173,0,146,0,173,0›q˙}7190 DATA 131,0,0,0,0,0,0,0,0,0,146,0,131,0,146,0›7200 DATA 173,0,0,0,0,0,0,0,0,0,221,0,191,0,221,0›7210 DATA 251,0,0,0,0,0,0râ}X:CYB=CY›1410 RETURN ›7000 RESTORE 7120:TTT=0:TRAP 7110›7010 FOR II=1 TO 16›7020 READ N1,N2,N3:TTT=TTT+1›7030 TT=100*(II=;}0:PY=0:PXB=PX:PYB=PY:CX=9:CY=16:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7100›7010 READ N1,N2,N3:IF N1=-1 THEN 7080›7020 SOUND&} 0,N1,10,4:SOUND 1,N2,10,2:SOUND 2,N3,10,2›7030 FOR I=1 TO 4›7040 READ N4:IF N4=-1 THEN POP :GOTO 7070›7050 FOR II=15 TO &}1 STEP -0.6:SOUND 3,N4,10,6:SOUND 1,N2,10,II/2:SOUND 2,N3,10,II/2:NEXT II›7060 NEXT I›7070 GOTO 7010›7080 FOR I=8 TO 0 STEP -&}0.07:SOUND 0,182,10,I:SOUND 1,155,10,I:SOUND 2,121,10,I:SOUND 3,91,10,I:NEXT I›7090 RETURN ›7100 DATA 182,155,121,0,91,77,91›&}7110 DATA 205,163,121,81,81,68,0›7120 DATA 182,155,121,0,91,77,91›7130 DATA 205,155,121,102,102,121,0›7140 DATA 182,155,121,0&},91,77,91›7150 DATA 205,163,121,81,81,68,0›7160 DATA 182,155,121,0,91,77,91›7170 DATA 205,155,121,102,102,121,0›7180 DATA 182&},155,115,0,91,77,91›7190 DATA 205,163,115,81,81,68,0›7200 DATA 205,163,121,0,60,50,60›7210 DATA 182,155,121,45,45,45,0›7220 D&}ATA 182,155,115,0,45,38,45›7230 DATA 182,155,115,29,29,38,0›7240 DATA 182,136,115,33,33,33,0›7250 DATA 182,136,115,0,0,0,33›7'ç}PX=0:PY=10:PXB=PX:PYB=PY:CX=9:CY=15:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7110›7010 FOR I=1 TO 24›7020 READ N1:IF N1=-1 T* }HEN POP :GOTO 7090›7030 NTE=100*(I=1 OR I=7 OR I=13 OR I=19 OR I=22)+1*(I=4 OR I=6 OR I=10 OR I=12 OR I=16 OR I=18 OR I=24)* }›7040 IF I=1 THEN SOUND 3,N1,10,2›7050 SOUND 1,N1,10,4:SOUND 2,N1+1,10,4›7060 FOR II=15 TO 1 STEP -0.7:SOUND 0,NTE,8,II* }*(NTE>0):NEXT II›7070 NEXT I›7080 GOTO 7010›7090 FOR I=15 TO 0 STEP -0.1:SOUND 0,255,10,I:SOUND 1,129,10,I:SOUND 2,128,10,I:N* }EXT I›7100 RETURN ›7110 DATA 132,131,130,129,129,129,105,104,103,102,102,102,88,87,86,86,86,64,0,0,0,0,0,0›7120 DATA 155,155,*}163,155,0,0,129,129,136,129,0,0,102,102,108,102,102,77,0,0,0,0,0,0›7130 DATA 163,163,172,163,0,0,129,129,136,129,0,0,108,108,*}115,108,0,0,86,85,84,83,82,86›7140 DATA 172,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›7150 DATA 132,131,130,129,129,129,1*}05,104,103,102,102,102,88,87,86,86,86,64,0,0,0,0,0,0›7160 DATA 155,155,163,155,0,0,129,129,136,129,0,0,102,102,108,102,102,77*},0,0,0,0,0,0›7170 DATA 163,163,172,163,0,0,129,129,136,129,0,0,108,108,115,108,0,0,86,85,84,83,82,86›7180 DATA 0,0,172,0,0,0,+č} PX=9:PY=5:PXB=PX:PYB=PY:CX=9:CY=8:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7070:TT=0›7010 FOR I=1 TO 16:READ N2,N3:TT=TT+1:IF.L}Ubs„tcE&7HG6R&s„t6%Ź0O6‚7Af,.>:@4,O6‚7Ag,.$3DD3UfwHG6%Q&7HG6%Q&7HG6RQ&7Ht3ś06‚7A ,.>:}@4,6‚7A ,.TQ&7HG6UQ&7Ht7%A%3„G6RUbs„tcR&7HG6U&7HG6R&7Hwf%&s„t6%&7„tcRU&s„t3U<Ŕ0886‚7A ˆ,.}%~~<~x|nf8x8 Ę0p/9C:‚,AV$+F:A,&@,A$LAVF:A,&@^A}@0pAY@4Ô0>@&F:B2y,?Ţ0 +Q NO•*N6ž-^:,$@6ť-P:,4N1ť"*š"}%6ť-@16ż-@>Nš"6ť-ť%@RN 6Ŕ-C:†,\N1 #Bp!˜-@@H%"ž16†7˜,.>:ž,aN ˜}ŽNO BByF:A,&@=AF:A,&@OA@˜N+ť˘NQ6Á-F:A,$AV,AY@}b>B2w@Q6˜-?:Ŕ<Á<@,ŹN-6ş-Á%A$6-Á%A€-6œ-Á%AhąNE'A#ž$@d%@3%@}3ž"@EA#A€˛Nż"BPłN6ż-´NN6´-U:A`,&´%@@f>–-´%@´%}@(J–@N –śNQĘN104,201,2,240,16,133›ÔN206,162,0,228,206,208›ŢN1,96,104,104,232,169›čN0,240,244,10}4,133,204›ňN104,133,203,104,104,133›üN205,169,0,168,170,145›O203,200,208,251,230,204›O232,228,205,208,244,96›0u}O—:uG%6Â-F:A4,%AV$F:A5,G6Ă-F:A@,%AV$F:AA,DuN%6Ä-F:@ˆ,%F:@‰,$AV-6Ä-Ä&Ă>6Ĺ-}P:Ä'AV,N6Ć-Ä&Ĺ$AVNuÂ%@ĆÂ%@ĹXuQ€D:TEXTDRAW.TUR,%F:@‰,$AV-6Ä-Ä&Ă>6Ĺ-X------›50000›------›50000›------›50000›------›50000›------›50000›------›50000›------›50000›------›50000›------›50000›------›5 }0000›-›50000›------›50000›------›50000›------›50000›------›50000›------›50000›------›50000›------›50000›------›50000›------›5HR$(A):NEXT I›1050 FOR I=1 TO 16:READ A:S3$(I,I)=CHR$(A):NEXT I›1060 FOR I=1 TO 16:READ A:S4$(I,I)=CHR$(A):NEXT I›1070 CNT=0:"}SO$=S1$:FAC=1.1›1080 FOR I=1 TO 16:CNT=CNT+1›1090 TT=(I=1 OR I=5 OR I=9 OR I=13)*100+(I=3 OR I=7 OR I=11 OR I=15)*58›1100 #} READ A,B›1110 SOUND 2,A,10,4/FAC:SOUND 3,A+1,10,4/FAC›1120 FOR T=15 TO 2 STEP -1.5:SOUND 0,ASC(SO$(I,I)),12,T/FAC:SOUND $}1,TT,8,T/FAC:NEXT T›1130 SOUND 2,B,10,4/FAC:SOUND 3,B+1,10,4/FAC:FOR T=8 TO 2 STEP -0.7:SOUND 0,ASC(SO$(I,I)),12,T/FAC:NEXT%} T›1140 IF STRIG(0)=0 THEN FLAG=1›1150 IF FLAG THEN FAC=FAC+0.375:IF FAC>12 THEN POP :GOTO 1220›1160 NEXT I›1170 IF CNT>1&}76 THEN SO$=S2$›1180 IF CNT>223 THEN SO$=S3$›1190 IF CNT>255 THEN SO$=S4$›1200 IF CNT>271 THEN SO$=S1$:RESTORE 1310:CNT=32:FL'}AG=1›1210 GOTO 1080›1220 SOUND :RETURN ›1230 DATA 107,95,95,95,107,95,80,95,143,128,128,128,143,128,107,86›1240 DATA 215,161,(}128,161,215,161,128,161,245,182,146,182,245,182,146,182›1250 DATA 128,95,80,95,128,95,80,95,128,86,71,86,128,86,71,86›1260 DA)}TA 95,95,95,95,95,95,95,95,95,95,95,95,95,95,95,95›1270 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›1280 DATA 0,0,0,0,0,0,0,0,0,0,0,*}0,0,0,0,0›1290 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›1300 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›1310 DATA 100,100,120,120,107,1+}07,135,120,120,120,107,107,100,100,89,89›1320 DATA 79,79,52,52,52,52,66,66,66,66,66,66,66,66,66,66›1330 DATA 100,100,120,120,,}107,107,135,120,120,120,107,107,100,100,89,89›1340 DATA 79,79,66,66,66,66,89,89,89,89,89,89,89,89,89,89›1350 DATA 100,100,120-},120,107,107,135,120,120,120,107,107,100,100,89,89›1360 DATA 79,79,52,52,52,52,66,66,66,66,66,66,66,66,59,52›1370 DATA 49,49,.}49,49,49,49,52,59,52,52,52,52,52,52,59,66,59,59,79,79,79,79,89,89,89,89,89,89,89,89,59,52›1380 DATA 49,49,49,49,49,49,52,59,5/}2,52,52,52,52,52,59,66,59,59,79,79,79,79,89,89,89,89,89,89,89,89,89,89›1390 DATA 100,100,120,120,107,107,135,120,120,120,107,0}107,100,100,89,89›1400 DATA 79,79,52,52,52,52,66,66,66,66,66,66,66,66,66,66›1410 DATA 100,100,120,120,107,107,135,120,120,1201},107,107,100,100,89,89›1420 DATA 79,79,66,66,66,66,89,89,89,89,89,89,89,89,89,89›1430 DATA 100,100,120,120,107,107,135,120,122}0,120,107,107,100,100,89,89›1440 DATA 79,79,52,52,52,52,66,66,66,66,66,66,66,66,59,52›1450 DATA 49,49,49,49,49,49,52,59,52,523},52,52,52,52,59,66,59,59,79,79,79,79,89,89,89,89,89,89,89,89,59,52›1460 DATA 49,49,49,49,49,49,52,59,52,52,52,52,52,52,59,66,4}59,59,79,79,79,79,89,89,89,89,89,89,89,89,89,89›1470 DATA 80,80,80,80,80,80,90,90,80,80,80,80,80,80,101,101›1480 DATA 90,90,15}14,114,114,114,101,101,101,101,90,90,90,90,75,75›1490 DATA 80,80,80,80,80,80,90,90,80,80,80,80,80,80,101,101›1500 DATA 90,90,6}114,114,114,114,101,101,101,101,90,90,90,90,75,75›1510 DATA 59,59,59,59,59,59,63,63,59,59,59,59,59,59,79,79›1520 DATA 75,75,89}1000 REM  ĚĹÖĹĚ ´ ›1010 DATA 24,36,91,164,91,164,67,128›1020 RESTORE 1010:FOR I=0 TO 7:READ B:POKE CHSET+29*8+I,B:NEXT I›1030’8} SETCOLOR 1,0,0:SETCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0:POSITION 0,0›1040 DATA 92,58,93,186,92,58,93,186›’ă}9,89,89,89,107,107,107,107,127,127,127,127,158,158›1530 DATA 59,59,59,59,59,59,63,63,59,59,59,59,59,59,79,79›1540 DATA 75,75,:}89,89,89,89,107,107,107,107,127,127,127,127,158,158›1550 DATA 59,59,59,59,59,59,59,59,59,59,59,59,59,59,59,59›1560 DATA 59,59Ž}1 OR II=5 OR II=8 OR II=12 OR II=13)+58*(II=3 OR II=7 OR II=11 OR II=15)›7040 FOR I=7 TO 1 STEP -0.35:SOUND 0,N1,12,I:SOUND<} 3,TT,8,(I-0)*(TTT>30)›7050 IF N2>0 THEN SOUND 1,N2,10,I:SOUND 2,N3,10,I:GOTO 7070›7060 FOR T=1 TO 4:NEXT T›7070 NE=}XT I›7080 PAUSE TTT<30›7090 NEXT II›7100 GOTO 7010›7110 POP :FOR I=15 TO 0 STEP -0.1:SOUND 0,131,12,I:SOUND 1,58,8,I:SOUND >}2,81,10,I:SOUND 3,81,10,I:NEXT I:RETURN ›7120 DATA 119,91,81,131,0,0,119,96,81,131,0,0,131,0,0,131,0,0,131,0,0,146,0,0›7130 D?}ATA 119,81,68,131,0,0,119,0,0,131,81,68,131,0,0,173,81,68,155,108,72,95,0,0›7140 DATA 119,121,81,95,0,0,119,0,0,95,121,81,95,@}0,0,95,0,0,119,0,0,95,0,0›7150 DATA 119,121,81,95,121,81,119,0,0,95,108,72,110,0,0,173,0,0,146,0,0,131,0,0›7160 DATA 119,91,8A}1,131,0,0,119,96,81,131,0,0,131,0,0,131,0,0,131,0,0,146,0,0›7170 DATA 119,81,68,131,0,0,119,0,0,131,81,68,131,0,0,173,81,68,1B}55,108,72,95,0,0›7180 DATA 119,121,81,95,0,0,119,0,0,95,121,81,95,0,0,95,0,0,119,0,0,95,0,0›7190 DATA 119,121,81,95,121,81,11C}9,0,0,95,108,72,110,0,0,173,121,120,146,108,107,131,0,0›7200 DATA 119,91,90,131,91,90,119,91,90,131,91,90,131,0,0,131,108,107D},131,91,90,146,0,0›7210 DATA 119,68,67,131,0,0,119,0,0,131,0,0,131,72,71,173,0,0,155,0,0,95,81,80›7220 DATA 119,81,80,95,0,0,E}119,0,0,95,0,0,95,0,0,95,0,0,119,0,0,95,0,0›7230 DATA 119,121,120,95,108,107,119,96,95,95,91,90,110,0,0,173,0,0,146,96,95,131F},108,107›7240 DATA 119,0,0,131,0,0,119,0,0,131,0,0,131,0,0,131,0,0,131,0,0,146,0,0›7250 DATA 119,68,67,131,0,0,119,0,0,131,0,G}0,131,60,59,173,0,0,155,0,0,95,81,80›7260 DATA 119,81,80,95,0,0,119,0,0,95,0,0,95,0,0,95,0,0,119,0,0,95,0,0›7270 DATA 119,121ĺ}0:PY=15:PXB=PX:PYB=PY:CX=9:CY=1:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7090:TTT=0:TRAP 7080›7010 FOR T=1 TO 16›7020 READ NI}1,N2:TTT=TTT+1:IF TTT=64 THEN TTT=0›7030 TT=100*(T=1 OR T=4 OR T=6 OR T=9 OR T=12 OR T=14)+50*(T=3 OR T=7 OR T=11 OR T=15)›J}7040 FOR I=8 TO 1 STEP -1.5:SOUND 0,N1,12,I:SOUND 1,N2,10,I/2:SOUND 2,TT,8,(I/1.5)*(TTT>32):SOUND 3,N2+1,10,I/1.2›7050 NEK}XT I:PAUSE (TTT<=32)›7060 NEXT T›7070 GOTO 7010›7080 POP :FOR I=8 TO 0 STEP -0.1:SOUND 1,173,12,I:SOUND 2,26,10,I:SOUND 0,50,V} N2=-1 THEN POP :GOTO 7060›7020 N1=100*(I=1 OR I=9)+50*(I=5 OR I=13)›7030 SOUND 1,N2,10,8:SOUND 2,16-I,12,3›7040 FOR T=.M}15 TO 2 STEP -0.6:SOUND 0,N3,12,T:SOUND 3,N1,8,T*(TT>31):NEXT T:PAUSE (TT<=31):NEXT I›7050 GOTO 7010›7060 FOR I=15 TO 0 STEP .N}-0.1:SOUND 0,191,12,I:SOUND 1,243,10,I:SOUND 2,244,10,I:NEXT I:GOTO 7200›7070 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,.O}0,0,0,0,0,0,0,0,0,0,0›7080 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›7090 DATA 0,0,0,0,0,0,0,0,0,0.P},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›7100 DATA 0,191,0,131,0,155,0,131,0,131,0,119,0,116,0,119,0,110,0,119,0,116,0,11.Q}9,0,131,0,119,0,155,0,119›7110 DATA 0,191,0,131,0,155,0,131,0,131,0,119,0,116,0,119,0,110,0,119,0,116,0,119,0,131,0,146,0,155.R},0,119›7120 DATA 0,146,0,95,0,116,0,95,0,95,0,119,0,86,0,119,0,80,0,119,0,86,0,119,0,95,0,119,0,116,0,119›7130 DATA 0,146,0,9.S}5,0,116,0,95,0,95,0,119,0,86,0,119,0,80,0,119,0,86,0,119,0,95,0,110,0,116,0,119›7140 DATA 81,191,96,131,121,155,136,131,0,131.T},0,119,0,116,0,119,0,110,0,119,0,116,0,119,0,131,0,119,0,155,0,119›7150 DATA 81,191,96,131,121,155,136,131,0,131,0,119,0,116,.U}0,119,0,110,0,119,0,116,0,119,0,131,0,146,0,155,0,119›7160 DATA 72,146,91,95,102,116,121,95,0,95,0,119,0,86,0,119,0,80,0,119,.Z}8,I/1.5:NEXT I:RETURN ›7090 DATA 173,108,140,86,119,0,116,72,101,64,119,0,116,72,119,0,119,0,119,0,173,53,119,0,173,53,119,0,W}119,0,119,0›7100 DATA 173,108,140,86,119,0,116,72,101,64,119,0,116,72,119,0,119,0,119,0,236,96,119,0,236,96,119,0,119,0,119,0X}›7110 DATA 173,108,119,86,140,0,173,72,119,64,173,0,140,72,119,0›7120 DATA 131,81,119,64,101,0,131,53,119,47,131,0,101,53,119ž}400 PX=3:PY=0:PXB=PX:PYB=PY:CX=9:CY=14:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7090:SO$=""›7010 FOR I=1 TO 32:READ A:SO$(I,I)bç}0,86,0,119,0,95,0,119,0,116,0,119›7170 DATA 72,146,91,95,102,116,121,95,0,95,0,119,0,86,0,119,0,80,0,119,0,86,0,119,0,95,0,11.[}0,0,116,0,119›7180 DATA 0,95,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0,95,0,119,0,119,0,119,0,119,0,119,0,119,0,95›7190 DAT/ę}:CX=9:CY=15:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7070›7010 FOR I=1 TO 96›7020 READ N1,N2:SOUND 1,N2,10,2:SOUND 2,N2+1,106Ä}COLOR 1,9,4:RN=52:SETCOLOR 3,2,0:REG=PEEK(711)›1270 A$="ÔČŀĆŇĹĹÚĹŇ":RETURN ›1400 PX=0:PY=14:PXB=PX:PYB=PY:CX=0:CY=0:CXB=CX:CN^}YB=CY›1410 RETURN ›7000 RESTORE 7110›7010 FOR I=1 TO 32:IF I/2<>INT(I/2) THEN READ N3:IF N3=-1 THEN POP :GOTO 7090›7020 TT=N_}(I=5 OR I=13 OR I=21 OR I=29):TTT=(I=1 OR I=9 OR I=10 OR I=11 OR I=12 OR I=15 OR I=16 OR I=17 OR I=25)›7030 TTT=TTT+(I=14)›Ne}1000 TITLE$="Magnetic Fields":CMP$="Jean M. Jarre":RETURN ›1010 RESTORE 1120:FAC=1.1:FLAG=0›1020 FOR I=1 TO 8:READ N1,N2:IF Nza}1=-1 THEN POP :RESTORE 1200:FLAG=1:GOTO 1020›1030 TT=100*(I=1 OR I=4 OR I=5)+30*(I=3 OR I=4 OR I=6 OR I=7)›1040 SOUND 0,Nzb}2,10,5/FAC:SOUND 1,N2+1,10,5/FAC›1050 FOR T=13 TO 2 STEP -1.15:SOUND 2,N1,12,T/FAC:SOUND 3,TT,8,T/(2*FAC):NEXT T›1060 IF zc}FLAG=0 THEN FOR D=0 TO 1:NEXT D›1070 IF FLAG THEN FAC=FAC+0.1875:IF FAC>16.1 THEN POP :GOTO 1110›1080 IF STRIG(0)=0 THEN zd}FLAG=1›1090 NEXT I›1100 GOTO 1020›1110 SOUND :RETURN ›1120 DATA 119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0›1130 DATA 119zŔ}7040 N4=30*(TT=1)+100*(TTT=1):IF STRIG(0)=0 THEN 7090›7050 IF I/2<>INT(I/2) THEN READ N2:SOUND 1,N3,10,3:SOUND 2,N3+1,10,Nf}3›7060 FOR T=14 TO 1 STEP -1.14›7070 SOUND 0,N4,8,(T+1)/1.5:SOUND 3,N2,12,T:NEXT T:NEXT I›7080 GOTO 7010›7090 FOR J=15 Ng}TO 0 STEP -0.1:SOUND 0,170,12,J:SOUND 1,106,10,J:SOUND 2,107,10,J:SOUND 3,255,8,J:NEXT J›7100 RETURN ›7110 DATA 0,119,0,119,0Nh},119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0,119›7120 DATA 0,143,0,71,0,143,0,71,0,191,0,95Ni},0,191,0,95,0,170,0,83,0,170,0,83,0,170,0,83,0,170,0,83›7130 DATA 0,128,0,62,0,128,0,62,0,191,0,95,0,191,0,95,0,170,0,83,0,17Nj}0,0,83,0,170,0,83,69,170,69,83›7140 DATA 94,143,94,71,94,143,94,71,94,191,94,95,94,191,89,95›7150 DATA 89,170,89,83,89,170,89Nk},83,89,170,89,83,69,170,69,83›7160 DATA 94,128,94,62,94,128,94,62,94,191,94,95,94,191,106,95›7170 DATA 106,170,106,83,106,170Nl},106,83,106,170,106,83,69,170,69,83›7180 DATA 59,143,59,71,61,143,61,71,69,191,69,95,89,191,89,95›7190 DATA 89,170,89,83,89,1Nm}70,89,83,89,170,89,83,89,170,89,83›7200 DATA 59,128,59,62,61,128,61,62,69,191,69,95,46,191,46,95›7210 DATA 46,170,46,83,46,17Nn}0,46,83,46,170,46,83,69,170,69,83›7220 DATA 59,143,59,71,61,143,61,71,69,191,69,95,69,191,94,95›7230 DATA 94,170,89,83,89,170No},89,83,89,170,89,83,89,170,89,83›7240 DATA 61,128,61,62,69,128,69,62,89,191,89,95,89,191,106,95›7250 DATA 106,170,106,83,106,Np}170,106,83,106,170,106,83,106,170,106,83›7260 DATA -1›7270 DATA -1›7280 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I:RETURN ›106,83,106,LrX=0:PY=0:PXB=PX:PYB=PY:CX=9:CY=15:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7070›7010 FOR I=0 TO 89›7020 READ N1,N2›7030 TTˆ}2)+5:LOCATE XX,YY,ZZ:IF ZZ<>128 THEN 1280›1290 N=RND(1):IF N<0.5 THEN COLOR ASC("^"):PLOT XX,YY:GOTO 1310›1300 COLOR ASC(Ž÷}CY›1410 RETURN ›7000 RESTORE 7070›7010 FOR I=1 TO 8:READ N1,N2:IF N1=-1 THEN POP :GOTO 7060›7020 TT=100*(I=1 OR I=5)+30*(I=Jt}3 OR I=4 OR I=6 OR I=7)›7030 SOUND 0,N2,10,5:SOUND 1,N2+1,10,5›7040 FOR T=15 TO 1 STEP -0.55:SOUND 2,N1,12,T:SOUND 3,TT,8Ju},T/2:NEXT T:NEXT I›7050 GOTO 7010›7060 FOR T=15 TO 0 STEP -0.1:SOUND 0,28,10,T:SOUND 1,57,10,T/2:SOUND 2,185,12,T/2:SOUND 3,1Jv}00,8,T/2:NEXT T:RETURN ›7070 DATA 119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0›7080 DATA 119,0,119,0,119,0,119,0,119,0,119Jw},0,119,0,119,0›7090 DATA 119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0›7100 DATA 119,0,119,0,119,0,119,0,119,0,119,0,119,0,Jx}119,0›7110 DATA 185,0,185,0,119,0,185,0,185,0,92,0,185,0,185,0›7120 DATA 185,0,185,0,119,0,185,0,185,0,92,0,185,0,185,0›7130 Jy}DATA 185,0,185,0,119,47,185,42,185,37,92,42,185,47,185,37›7140 DATA 185,37,185,37,119,47,185,42,185,37,92,42,185,47,185,37›71Jz}50 DATA 251,37,251,37,119,50,251,47,251,42,125,47,251,50,125,42›7160 DATA 251,42,251,42,119,50,251,47,251,42,125,47,251,50,12J{}5,42›7170 DATA 236,42,236,42,119,57,236,50,236,47,116,50,236,57,116,47›7180 DATA 236,47,236,47,119,57,236,50,236,47,116,50,23J|}6,57,116,57›7190 DATA 236,47,236,47,119,47,236,47,236,50,116,57,236,57,116,57›7200 DATA 206,64,206,64,119,64,206,64,206,64,10J}}1,64,206,64,101,64›7210 DATA 236,72,236,72,119,72,236,72,236,64,116,72,236,72,119,72›7220 DATA 251,77,251,77,119,77,251,77,25J~}1,77,125,77,251,77,125,77›7230 DATA 251,60,251,60,119,60,251,60,251,60,125,60,251,60,125,60›7240 DATA 251,50,251,50,119,50,25J}1,50,251,50,125,50,251,50,125,50›7250 DATA 251,42,251,42,119,42,251,42,251,42,125,42,251,42,125,42›7260 DATA 251,35,251,35,11J€}9,35,251,35,251,35,125,35,251,35,125,35›7270 DATA 251,29,251,29,119,29,251,29,251,29,125,29,251,29,125,29›7280 DATA 251,29,25K÷}PX:PYB=PY:CX=9:CY=16:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7070›7010 FOR I=0 TO 91›7020 READ N1,N2›7030 TT=(I/2=INT(I/2V‚}))›7040 FOR T=15 TO 2 STEP -0.35:SOUND TT,N1,10,T:SOUND TT+2,N2,10,T:NEXT T›7050 NEXT I›7060 FOR I=15 TO 0 STEP -0.1:SOUND Vƒ}3,129,10,I:SOUND 0,108,10,I/2:SOUND 1,86,10,I/2:SOUND 2,64,10,I:NEXT I:RETURN ›7070 DATA 0,64,0,0,129,53,0,0,108,0,0,0,86,47,V„}0,0›7080 DATA 193,42,0,0,155,0,0,38,129,42,0,0›7090 DATA 145,47,0,0,115,0,0,0,96,57,0,0›7100 DATA 218,72,0,0,172,0,0,64,145,5V…}7,0,0›7110 DATA 163,53,0,0,129,0,0,57,108,64,0,0›7120 DATA 229,64,0,0,182,72,0,0,155,64,0,0›7130 DATA 172,57,0,0,145,0,0,0,11V†}5,72,0,0›7140 DATA 218,86,0,0,172,0,0,0,145,64,0,0›7150 DATA 129,53,0,0,108,0,0,0,86,47,0,0›7160 DATA 193,42,0,0,155,0,0,38,1V‡}29,42,0,0›7170 DATA 145,47,0,0,115,0,0,0,96,57,0,0›7180 DATA 218,72,0,0,172,0,0,64,145,57,0,0›7190 DATA 193,53,0,0,163,0,0,57Wř}=(I/2=INT(I/2))›7040 FOR T=15 TO 2 STEP -0.35:SOUND TT,N1,10,T:SOUND TT+2,N2,10,T:NEXT T›7050 NEXT I›7060 SOUND :FOR I=15 T‰}O 0 STEP -0.1:SOUND 0,40,10,I:SOUND 1,163,10,I/2:NEXT I:RETURN ›7070 DATA 163,53,0,0,129,81,0,72,108,64,0,60›7080 DATA 163,53Š},0,0,129,81,0,0,108,81,0,0›7090 DATA 163,47,0,0,121,60,0,53,96,47,0,42›7100 DATA 163,40,0,0,129,81,0,0,108,81,0,0›7110 DATA 1‹}45,60,0,0,121,53,0,60,172,64,0,72›7120 DATA 163,64,0,0,129,60,0,64,108,72,0,81›7130 DATA 172,72,0,0,121,64,0,72,108,81,0,86›7Œ}140 DATA 163,81,0,0,108,0,0,0,81,0,0,0›7150 DATA 81,31,0,0,0,40,0,35,0,31,0,40›7160 DATA 108,35,0,0,0,53,0,47,0,42,0,53›7170 }DATA 115,40,72,0,81,47,86,53,96,57,115,47›7180 DATA 108,53,0,0,145,0,0,0,205,0,0,0›7190 DATA 218,53,0,47,121,53,0,0,108,29,0,˙}€€€€€€€€€€€€";›1250 ? #6;"€?€€€€€€€€€€€€€?€?€€";›1260 SETCOLOR 2,0,2:SETCOLOR 0,3,4:SETCOLOR 1,8,8:SETCOLOR 3,5,0:REG=PEEK(71ž}1):RN=32:A$="ÔČŀÂŐÎˀÂĹÄŇĎĎÍ":RETURN ›1400 PX=4:PY=8:PXB=PX:PYB=PY:CX=17:CY=8:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7000:Sž}O$=""›7010 FOR I=1 TO 12:READ A:SO$(I,I)=CHR$(A):NEXT I›7020 RESTORE 7140:SOUND :FOR I=1 TO 39:READ A,B:SOUND 0,A,10,4:SOUND ž‘}1,A+1,10,4›7030 FOR T=15 TO 0 STEP -0.25:SOUND 2,B,12,T:NEXT T:NEXT I›7040 FOR I=1 TO 12:READ A:IF A=-1 THEN POP :GOTO 7100ž’}›7050 SOUND 0,A,10,4:SOUND 1,A+1,10,4›7060 TT=100*(I=1 OR I=6 OR I=7 OR I=12)+45*(I=4 OR I=10)›7070 FOR T=15 TO 0 STEP ž“}-0.8:SOUND 2,ASC(SO$(I,I)),12,T:SOUND 3,TT,8,T/2:NEXT T›7080 NEXT I›7090 GOTO 7040›7100 SOUND :PAUSE 50›7110 FOR I=1 TO 4:FORž”} T=15 TO 2 STEP -0.3:SOUND 0,155,12,T:SOUND 1,129,10,T:SOUND 2,87,10,T:SOUND 3,86,10,T:NEXT T:NEXT I›7120 PAUSE 100:SOUND :REž•}TURN ›7130 DATA 206,0,0,191,0,167,173,0,0,185,0,173›7140 DATA 255,0,0,0,193,0,205,206,205,0,205,0,205,206,205,0,205,0,193,0,0ž–},0,129,0,136,206,136,0,136,0,136,206›7150 DATA 136,0,136,0›7160 DATA 129,0,0,0,96,0,102,206,102,0,102,0,102,206,102,0,102,0,9ž—}6,0,0,0,64,0,68,206,68,0,68,0,68,206›7170 DATA 68,0,68,0›7180 DATA 64,0,0,0,47,0›7190 DATA 50,50,50,50,50,50,50,50,50,50,50,5ž˜}0›7200 DATA 47,47,0,0,0,0,0,0,0,64,0,47›7210 DATA 50,50,50,50,50,50,50,50,50,50,50,64›7220 DATA 64,0,0,0,0,0,0,0,0,64,0,47›72ž™}30 DATA 50,50,0,53,57,60,64,64,0,64,68,72›7240 DATA 77,77,0,72,0,72,81,81,96,82,81,0›7250 DATA 96,96,96,96,96,96,96,96,96,96,žš}96,96,96,-1›0,0,53,57,60,64,64,0,64,68,72›7240 DATA 77,77,0,72,0,72,81,81,96,82,81,0›7250 DATA 96,96,96,96,96,96,96,96,96,96,œ ÎÔČĎŐÓĹ":RETURN ›1400 PX=2:PY=14:PXB=PX:PYB=PY:CX=2:CY=8:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7120:SO$="":TRAP 7110›7010 F†œ}OR I=1 TO 16:READ A:SO$(I,I)=CHR$(A):NEXT I:REM SOUND 3,163,10,2›7020 FOR I=1 TO 16:REM READ N1:IF N1=-1 THEN POP :GOTO 7080›†}7030 REM SOUND 1,N1,10,4›7040 TT=100*((I+7)/8=INT((I+7)/8))+20*((I+3)/8=INT((I+3)/8))›7050 READ N1,N2:SOUND 1,N1,10,3:S†ž}OUND 2,N2,10,3›7060 FOR T=15 TO 2 STEP -1›7070 IF SO$(I,I)="w" THEN 7090›7080 SOUND 0,ASC(SO$(I,I)),12,T›7090 NEX†Ÿ}T T:PAUSE SO$(I,I)="w":NEXT I›7100 GOTO 7020›7110 SOUND :SOUND 0,163,10,3:SOUND 1,185,12,3:FOR I=47 TO 40 STEP -0.05:SOUND 2,† }I,10,3:NEXT I›7120 PAUSE 90›7130 FOR T=1 TO 7:READ N1,N2:FOR I=15 TO 0 STEP -0.3:SOUND 0,N1,10,I:SOUND 2,N2,10,I:NEXT I:NEXT †Ą}T›7140 FOR I=1 TO 2›7150 FOR II=1 TO 3:FOR T=15 TO 2 STEP -0.5:SOUND 1,58,8,T:SOUND 1,191,12,T:NEXT T:NEXT II:SOUND 1,243,1†˘}0,4›7160 SOUND 0,191,12,2›7170 FOR II=1 TO 12:READ N1,N2:SOUND 2,N1,10,6:SOUND 3,N2,10,6:PAUSE 10:NEXT II:NEXT I›7180 PAU†Ł}SE 100:SOUND :RETURN ›7190 DATA 191,119,191,119,116,119,131,119,110,119,116,119,131,146,155,119›7200 DATA 121,81,121,81,121,8†¤}1,121,81,121,81,121,81,121,81,121,81›7210 DATA 121,81,121,81,121,81,121,81,145,96,145,96,145,96,145,96›7220 DATA 136,91,136,9†Ľ}1,136,91,136,91,136,91,136,91,136,91,136,91›7230 DATA 108,68,108,68,108,68,108,68,91,53,91,53,91,53,91,53›7240 DATA 96,60,96,†Ů}1000 REM --  ĚĹÖĹĚ łą  --›1010 POSITION 0,0›1020 DATA 255,130,173,138,181,170,213,170›1030 RESTORE 1020:FOR I=0 TO 7:READ B:P–§}OKE CHSET+29*8+I,B:NEXT I›1040 SETCOLOR 1,0,0:SETCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1050 DATA 0,0,0,0,0–¨},0,0,0›1060 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1070 ? #6;"źźźźźźźźźźźźźźźźźźźź";›1080 ? #6;"źźźź============źźźź";›109–Š}0 ? #6;"źź==€€€€€€€€€€€€==źź";›1100 ? #6;"==€€€€€€^€€€€€€€€€==";›1110 ? #6;"€€€=€€€==€€==€€€=€€€";›1120 ? #6;"€€€€€€€€€€€€€€^–Ş}€€€€€";›1130 ? #6;"€€€€===€€€€€€===€€€€";›1140 ? #6;"==€€€€€€====€€€€€€==";›1150 ? #6;"€€€€€=€€€€€€€€=€€€€€";›1160 ? #6;"€€€€–Ť}=€€€€€€€€€€=€€€€";›1170 ? #6;"==€€€€^€====€€€€€€==";›1180 ? #6;"€€€€===€€€€€€===€€€€";›1190 ? #6;"€€€€€€€€€€€^€€€€€€€€";›1200–Ź} ? #6;"€€€=€€€==€€==€€€=€€€";›1210 ? #6;"==€€€€€€€€€€€€€€€€==";›1220 ? #6;"€€==€€€€€€€€€€€€==€€";›1230 ? #6;"€€€€============–­}€€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1250 ? #6;"€Ű€Ű€€€€€€€€€€€€Ű€Ű€";›1260 SETCOLOR 2,9,4:SETCOLOR 1,12,4:SETCOLOR 0,3,1–Ž}0:RN=84:A$="ÔHe€ÓTrĎBe€ŇOoÍ":POKE 546,254:RETURN ›1400 PX=9:PY=6:PXB=PX:PYB=PY:CX=9:CY=15:CXB=CX:CYB=CY›1410 RETURN ›7000 DSO–Ż}UND :FOR I=0 TO 512 STEP 3:DSOUND 0,(I*I)/100,2,10*(I/2=INT(I/2)):DSOUND 1,(I*I)/100,4,15:NEXT I:DSOUND ›7010 RESTORE 7090:OL–°}D=0:SOUND ›7020 FOR I=1 TO 186:REM 186›7030 READ N1,A:IF N1<>OLD THEN AVG=(N1-OLD)/10:N2=OLD:OLD=N1›7040 TT=(I/2=INT(I/2)–ą})›7050 FOR T=15 TO 4 STEP -1.1›7060 N2=N2+AVG*(N2<>OLD)›7070 SOUND TT,A,12,T:SOUND 2,PEEK(20)/2,8,4:SOUND 3,N2,10,8–˛}*(OLD>0):NEXT T›7080 NEXT I›7090 DATA 129,43,129,43,129,43,60,43,60,48,60,57›7100 DATA 64,51,64,14,64,51,64,51,64,14,64,57,64–ł},51,64,51,64,51,64,51,64,14,64,57›7110 DATA 64,67,64,14,64,67,64,67,64,14,64,76,53,67,53,67,53,67,53,67,53,14,145,57›7120 DAT–´}A 129,51,129,14,129,51,129,51,129,14,129,57,129,51,129,51,129,51,129,51,129,14,129,57›7130 DATA 129,67,129,14,129,67,0,67,1,1–ľ}4,1,76,1,67,1,67,1,67,1,67,1,14,1,57›7140 DATA 64,51,64,14,64,51,81,51,81,14,81,57,129,51,129,51,129,51,129,51,129,14,129,57›–ś}7150 DATA 108,43,108,14,108,43,108,43,108,14,121,43,129,67,129,67,129,67,129,67,129,14,129,57›7160 DATA 0,51,1,51,1,51,1,51,1–ˇ},14,1,57,1,51,1,51,1,51,1,51,1,14,145,57›7170 DATA 129,67,129,14,129,67,129,67,60,14,60,76,60,67,60,67,64,67,64,67,64,14,64,7–¸}6›7180 DATA 64,67,64,14,64,67,64,67,64,14,64,76,64,57,64,57,0,57,1,57,1,191,1,76›7190 DATA 1,67,1,14,1,67,1,67,1,14,1,76,1,67–š},1,67,1,67,1,67,1,14,1,76›7200 DATA 1,67,1,14,1,67,1,67,1,14,1,57,129,43,129,43,129,43,60,43,60,48,60,57›7210 DATA 64,51,64,1–ş}4,64,51,64,51,64,14,64,57,64,51,64,51,64,51,64,51,64,14,64,57›7220 DATA 64,67,64,14,64,67,64,67,64,14,64,76,129,67,129,67,129–ť},67,60,67,60,14,60,57›7230 DATA 64,51,64,14,64,51,64,51,64,14,64,57,64,51,64,51,64,51,64,51,64,14,64,57›7240 DATA 64,67,64,14–ź},64,67,64,67,64,14,64,76,64,67,64,67,0,67,1,67,1,14,1,57›7250 SOUND :FOR I=0 TO 3000 STEP 3:DSOUND 1,I,12,15-(I/200):DSOUND 0–˝},8762,12,10:NEXT I:DSOUND :RETURN ›7,0,67,1,67,1,14,1,57›7250 SOUND :FOR I=0 TO 3000 STEP 3:DSOUND 1,I,12,15-(I/200):DSOUND 0”#,0›7130 DATA 116,72,140,86,119,0,131,81,155,96,119,0,173,108,119,0,119,0,119,0,173,53,119,0,173,53,119,0,119,0,119,0›7140 DATż}A 173,53,140,43,119,0,116,35,101,31,119,0,116,35,119,0,119,0,119,0,173,26,119,0,173,26,119,0,119,0,119,0›7150 DATA 173,53,140Â},0,119,0,119,0,119,0,119,0,119,0,119,0,119,0›1140 DATA 119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0›1150 DATA 119,0,119,0,zÁ}119,0,119,0,119,0,119,0,119,0,119,0›1160 DATA 185,0,185,0,119,0,185,0,185,0,92,0,185,0,185,0›1170 DATA 185,0,185,0,119,0,185,zŢ},42,119,0,116,35,101,31,119,0,116,35,119,0,119,0,119,0,236,47,119,0,236,47,119,0,119,0,119,0›7160 DATA 173,53,119,42,140,0,17Ă}3,35,119,31,173,0,140,35,119,0›7170 DATA 131,40,119,31,101,0,131,26,119,23,131,0,101,26,119,0›7180 DATA 116,35,140,42,119,0,1ć},2›7030 FOR T=0 TO 14 STEP 0.3:SOUND 0,N1,12,T:NEXT T›7040 FOR T=14 TO 0 STEP -0.3:SOUND 0,N1,12,T:NEXT T›7050 NEXT I›7066Ĺ}0 FOR T=15 TO 0 STEP -0.1:SOUND 1,161,12,T:SOUND 2,50,10,T:SOUND 0,51,10,T:NEXT T:RETURN ›7070 DATA 161,0,119,0,137,0,119,0,16Ć}07,0,119,0,80,0,119,0›7080 DATA 101,0,119,0,119,0,101,0,107,0,122,0,137,0,143,0›7090 DATA 161,0,119,0,137,0,119,0,107,0,119,06Ç},80,0,119,0›7100 DATA 101,0,119,0,119,0,101,0,107,0,122,0,137,0,143,0›7110 DATA 161,101,0,101,137,85,0,85,107,67,0,67,80,50,06Č},50›7120 DATA 101,64,0,64,0,0,101,64,107,68,122,77,137,86,143,91›7130 DATA 161,102,0,102,137,86,0,86,107,68,0,68,80,50,0,50›76É}140 DATA 101,44,0,44,0,44,101,50,107,53,122,50,137,44,143,42›7150 DATA 161,50,0,50,137,86,0,86,107,68,0,68,80,50,0,50›7160 DA6Ę}TA 101,64,0,64,0,0,101,64,107,68,122,77,137,86,143,91›7170 DATA 161,102,0,102,137,86,0,86,107,68,0,68,80,50,0,50›7180 DATA 107ë}9:PY=0:PXB=PX:PYB=PY:CX=9:CY=15:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7070›7010 READ N1,N2:IF N1=-1 THEN 7060›7020 SOUND 1,:Ě}N2,10,3:SOUND 2,N2+1,10,3›7030 FOR I=15 TO 1 STEP -0.5:SOUND 0,N1,12,I:SOUND 3,58,8,(I-1)/2:NEXT I›7040 FOR I=1 TO 3:READ N2::Í}SOUND 1,N2,10,3:SOUND 2,N2+1,10,3:PAUSE 10:NEXT I›7050 GOTO 7010›7060 FOR I=15 TO 0 STEP -0.15:SOUND 0,131,12,I:SOUND 1,81,10:Î},I:SOUND 2,82,10,I:SOUND 3,58,8,I/2:NEXT I:RETURN ›7070 DATA 131,81,81,81,0,173,81,81,0,81,131,81,81,81,0,167,102,102,102,68,:Ď}131,81,81,81,81,173,102,102,102,68›7080 DATA 131,81,81,81,81,173,0,0,0,0›7090 DATA 131,53,53,53,0,173,53,53,0,53,131,53,53,53:Ń},53,167,50,50,50,68,140,86,86,86,86,185,102,102,102,68›7100 DATA 131,81,81,81,81,173,0,0,0,0›7110 DATA 131,40,40,40,40,173,81:Ň},81,81,81,131,40,40,40,0,167,42,42,42,45,185,47,50,47,0,251,0,0,96,96›7120 DATA 185,57,57,57,0,251,60,60,60,64›7130 DATA 167,;ě}:PY=1:PXB=PX:PYB=PY:CX=9:CY=15:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7070›7010 FOR I=1 TO 58›7020 READ N1,N2:TT=(I/2=INT(>Ô}I/2))›7030 FOR T=6 TO 1 STEP -0.07:SOUND TT,N1+1,10,T:SOUND TT+2,N2,10,T:NEXT T›7040 NEXT I›7050 SOUND :FOR I=6 TO 1 STEP ->Ő}0.03:SOUND 2,145,10,I:SOUND 3,96,10,I:NEXT I›7060 SOUND :RETURN ›7070 DATA 145,145,121,121,96,96,145,145,155,155,121,121,96,9>Ö}6,155,155,163,163,121,121,96,96,163,163›7080 DATA 172,172,121,121,96,96,172,172›7090 DATA 182,182,121,121,96,96,121,121,182,1>×}82,96,96,108,108,121,121,163,163,145,145,145,145,0,0,0,0›7100 DATA 145,145,91,91,96,96›7110 DATA 145,145,121,121,96,96,145,72>Ř},155,64,121,77,96,96,155,64,163,60,121,72,96,96,163,72›7120 DATA 172,86,121,72,96,108,172,86›7130 DATA 182,60,121,72,96,91,12?í}60,96,60,96,60,96,60,96,60,96,60,96,60›7250 DATA 96,60,96,60,96,60,96,60,121,81,121,81,121,81,121,81›7260 DATA 145,96,145,96,†Ú}145,96,145,96,136,91,136,91,136,91,136,91›7270 DATA 136,91,136,91,136,91,136,91,136,91,136,91,136,91,136,91›7280 DATA 121,81,†Ű}121,81,121,81,121,81,121,81,121,81,121,81,121,81›7290 DATA 121,81,121,81,121,81,121,81,145,96,145,96,145,96,145,96›7300 DATA †Ü}136,91,136,91,136,91,136,91,136,91,136,91,136,91,136,91›7310 DATA 108,68,108,68,108,68,108,68,91,53,91,53,91,53,91,53›7320 DA†Ý}TA 60,47,60,47,60,47,60,47,60,47,60,47,60,47,60,47›7330 DATA 60,47,60,47,60,47,60,47,81,60,81,60,81,60,81,60›7340 DATA 72,57,‡}0,185,0,92,0,185,0,185,0›1180 DATA 185,0,185,0,119,0,185,0,185,0,92,0,185,0,185,0›1190 DATA 185,0,185,0,119,0,185,0,185,0,92,zß}0,185,0,185,0›1200 DATA 185,0,185,0,119,47,185,42,185,37,92,42,185,47,185,37›1210 DATA 185,37,185,37,119,47,185,42,185,37,92,zŕ}42,185,47,185,37›1220 DATA 251,37,251,37,119,50,251,47,251,42,125,47,251,50,125,42›1230 DATA 251,42,251,42,119,50,251,47,251,{s}161, 47,96, -1,-1›7150 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I:RETURN ›126, 47,215, 53,126›7140 DATA 60,121, 40,96, 53, G,0,0,0,146,173,146,0,146,0›7220 DATA -1›7230 SOUND :RETURN ›173,0,0,0,0,0,0,0,0,0,221,0,191,0,221,0›7210 DATA 251,0,0,0,0,0,0p<1050 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1060 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1070 ? #6;"€=?==€€€====€€€====€";›1080 ? #6;’ä}"€€€€€€€€€€€€€€€€€€€€";›1090 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1100 ? #6;"==€€=====€€=====€€==";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";’ĺ}›1120 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1130 ? #6;"€====€€€====€€€====€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"€€€€€€€€€€€“ }1000 REM --  ĚĹÖĹĚ łł  --›1010 POSITION 0,0›1020 DATA 63,97,113,49,61,31,6,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSETŞď}=CHR$(A):NEXT I:SOUND 3,163,10,2›7020 FOR I=1 TO 32:READ N1:IF N1=-1 THEN POP :GOTO 7080›7030 SOUND 1,N1,10,4›7040 TT=100bč}*((I+7)/8=INT((I+7)/8))+20*((I+3)/8=INT((I+3)/8))›7050 FOR T=15 TO 0 STEP -1.2›7060 SOUND 0,ASC(SO$(I,I)),12,T:SOUND 2,bé}TT,8,T/2:NEXT T:NEXT I›7070 GOTO 7020›7080 FOR I=15 TO 0 STEP -0.1:SOUND 0,155,12,I:SOUND 1,163,10,I/2:SOUND 2,129,10,I/2:SOUbę}ND 3,86,10,I/2:NEXT I:RETURN ›7090 DATA 155,119,140,140,140,119,140,119,119,119,155,119,155,119,155,119›7100 DATA 155,119,131bë},131,131,119,131,119,119,119,140,119,140,119,155,119›7110 DATA 129,129,129,129,129,129,129,129,121,121,121,121,121,121,121,12bě}1›7120 DATA 115,115,115,115,115,115,115,115,121,121,121,121,121,121,121,121›7130 DATA 129,129,129,129,129,129,129,129,121,121bí},121,121,121,121,121,121›7140 DATA 115,115,115,115,115,115,115,115,121,121,121,121,121,121,121,121›7150 DATA 96,96,81,81,0,0,bî}50,50,53,53,53,53,53,53,81,81›7160 DATA 68,68,64,64,64,64,64,64,64,64,64,64,64,64,64,64›7170 DATA 81,81,72,81,86,86,86,86,86,cú}+29*8+I,B:NEXT I›1040 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1050 DATA 152,68,64,3,128,1,160,2›1060 SETCOLOR 1,0,0:SETCOLOŞđ}R 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1070 ? #6;"ź=========ź";›1080 ? #6;"ꀀ€€€€€€€€€€€€€€€€ź";›1090Şń} ? #6;"ꀀ€€€€€€€€€€€€€€€€ź";›1100 ? #6;"ꀀ€€€€€€€€€€€€€€€€ź";›1110 ? #6;"ꀀ€€€€€€€€€^€€€€€€ź";›1120 ? #6;"ź€^€€€€€€€€€€€€€Şň}€€€ź";›1130 ? #6;"ꀀ€€€€€^€€€€€€€€€€ź";›1140 ? #6;"ꀀ€€€€€€€€€€€€^€€ź";›1150 ? #6;"ꀀ€€€€€€ź€€€€€€€€€ź";›1160 ? #6;"ꀀ€€Şó}€€€€€€€€€€€€€^ź";›1170 ? #6;"ꀀ€€^€€€€€€€€źźźź";›1180 ? #6;"ꀀ€€€€€€€€€€€€€ź";›1190 ? #6;"ꀀ€€€ź€€€€€€€^€€€ź";›1200 Şô}? #6;"ꀀ€^€€€€€€€€€€€ź";›1210 ? #6;"ꀀ€€€€^€€^€€€€€€€€ź";›1220 ? #6;"ꀀ€€€€€€€€€€€€€€€€ź";›1230 ? #6;"źźźźźź€ź€€€€ź€źźźŞő}źźź";›1240 ? #6;"ꀀ€€€€ź€€€€ź€€€€€€ź";›1250 ? #6;"ź==^^^^ꀀ€€ź^^^=?^ź";›1260 SETCOLOR 2,4,10:SETCOLOR 0,0,10:SETCOLOR 1,0,4Şö}:SETCOLOR 4,0,0:SETCOLOR 3,2,0:REG=PEEK(711)›1270 RN=12:A$="ÔČŀĐÉÔ":RETURN ›1400 PX=11:PY=9:PXB=PX:PYB=PY:CX=17:CY=12:CXB=CXŤ }"?"):PLOT XX,YY›1310 NEXT I:SETCOLOR 2,3,4:SETCOLOR 0,0,0:SETCOLOR 1,12,14:RN=1:A$="ÔČŀÄÁŇËŇĎĎÍ":POKE 546,226:RETURN ›1400 PŽř}X=0:PY=15:PXB=PX:PYB=PY:CX=0:CY=8:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7190›7010 FOR I=1 TO 4›7020 N1=35*(I=1 OR I=3)+33Žů}*(I=2)+45*(I=4)›7030 READ N2:IF N2=-1 THEN 7070›7040 FOR T=11 TO 2 STEP -0.45›7050 N=RAND(3):SOUND 0,N1+N,10,T:SOUND Žú}1,N1+1,10,T:SOUND 2,N2,10,5:SOUND 3,N2+1,10,5:NEXT T:NEXT I›7060 GOTO 7010›7070 SOUND 1,240,10,5:SOUND 2,245,10,5:SOUND 3,250Žű},10,5:SOUND 0,255,10,5›7080 PAUSE 10›7090 SOUND 1,230,10,5:SOUND 2,235,10,5:SOUND 3,240,10,5:SOUND 0,245,10,5›7100 PAUSE 10›7Žü}110 SOUND 1,140,10,5:SOUND 2,145,10,5:SOUND 3,150,10,5:SOUND 0,155,10,5›7120 PAUSE 150›7130 FOR I=1 TO 8›7140 READ N1›7150 Žý} FOR T=15 TO 1 STEP -1›7160 SOUND 0,N1,10,T:SOUND 2,N1+5,10,T:SOUND 3,N1+10,10,T:SOUND 1,N2+15,N1+15,T:NEXT T›7170 NEXT Žţ}I›7180 FOR T=15 TO 0 STEP -0.2:SOUND 1,255,10,T:SOUND 2,255,8,T:SOUND 3,100,8,T:SOUND 0,24,2,T:NEXT T:RETURN ›7190 DATA 0,0,0Ž˙},0,0,0,0,0›7200 DATA 0,0,252,254,254,254,254,0›7210 DATA 0,252,254,254,254,254,0,0›7220 DATA 252,254,254,254,254,0,0,0›7230 D}ATA -1›7240 DATA 135,145,155,165,175,195,225,255›7250 SOUND :RETURN ›4,254,254,0,0›7220 DATA 252,254,254,254,254,0,0,0›7230 DŒE72,57,72,57,72,57,68,53,68,53,68,53,68,53›7350 DATA 68,53,68,53,68,53,68,53,68,53,68,53,68,53,68,53›7360 DATA 121,60,121,60,1‡}21,60,121,60,121,60,121,60,121,60,121,60›7370 DATA 121,60,121,60,121,53,121,53,121,53,121,53,121,64,121,64›7380 DATA 121,60,1‡}21,60,121,53,121,53,121,53,121,53,121,64,121,64›7390 DATA 121,60,121,60,121,60,121,60,121,53,121,53,121,53,121,53›7400 DATA 9‡}6,47,96,47,96,47,96,47,96,47,96,47,96,47,96,47›7410 DATA 96,47,96,47,96,45,96,45,96,45,96,45,96,53,96,53›7420 DATA 96,47,96,4‡}7,96,45,96,45,96,45,96,45,96,53,96,53›7430 DATA 96,47,96,47,96,47,96,47,96,45,96,45,96,45,96,45›7440 DATA 81,40,81,40,81,40,8‡}1,40,91,40,91,40,91,40,91,40›7450 DATA 102,40,102,40,102,38,102,38,115,38,115,38,115,45,115,45›7460 DATA 121,40,121,40,121,38‡},121,38,136,38,136,38,136,45,136,45›7470 DATA 145,40,145,40,145,40,145,40,155,38,155,38,155,38,155,38,-1,-1›7480 DATA 57,68,7‡}7,91,91,108,115,136,155,182,182,218,229,243›7490 DATA 0,0,0,0,0,0,0,0,163,0,121,0,86,0,86,0,81,0,81,0,81,0,81,0›7500 DATA 0,0‡ },0,0,0,0,0,0,163,81,121,60,50,43,50,43,47,40,47,40,47,40,47,40›,0,0,0,163,0,121,0,86,0,86,0,81,0,81,0,81,0,81,0›7500 DATA 0,0„?:CYB=CY›1410 RETURN ›7000 RESTORE 7070:POKE 20,0:C=0.06›7010 FOR I=1 TO 80›7020 READ N1,N2:TT=(I/2=INT(I/2))›7030 FOR T=6Ť } TO 1 STEP -C:SOUND TT,N1,10,T:SOUND TT+2,N2,10,T:NEXT T›7040 IF I>64 THEN C=C-2.0E-03›7050 NEXT I›7060 SOUND :RETURN ›7070Ť } DATA 136,45,86,50,91,57,0,50,136,57,91,60,136,68,0,0›7080 DATA 136,57,86,68,91,72,0,57,136,68,91,0,68,0,0,0›7090 DATA 136,45Ť },86,50,91,57,0,50,136,57,91,60,136,68,0,0›7100 DATA 136,57,86,68,91,72,0,57,136,68,91,0,68,0,0,0›7110 DATA 205,42,136,50,102,Ť}53,0,42,136,45,86,50,136,57,0,0›7120 DATA 172,50,115,57,86,60,0,50,136,57,91,60,136,68,0,0›7130 DATA 145,57,0,60,172,68,182,5Ť}7,205,60,0,68,182,72,0,91›7140 DATA 136,57,86,68,91,72,0,57,136,68,91,0,68,0,0,0›7150 DATA 145,57,0,60,172,68,182,57,205,60,0Ť},68,182,72,0,91›7160 DATA 136,57,86,68,91,72,0,57,136,68,91,0,68,0,0,0›,68,0,0,0›7150 DATA 145,57,0,60,172,68,182,57,205,60,0¨G1000 REM --  ĚĹÖĹĚ ł´  --›1010 POSITION 0,0›1020 DATA 84,254,84,254,84,254,84,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHŻ}SET+29*8+I,B:NEXT I›1040 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1050 DATA 80,160,80,160,250,245,250,245›1060 SETCOLOR 1,0,Ż}0:SETCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1070 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1080 ? #6;"€€€=€€€€????€€€€=€Ż}€€";›1090 ? #6;"€=€€€€??€€€€??€€€€=€";›1100 ? #6;"€€€€??€€€=€€€€??€€€€";›1110 ? #6;"€€??€€€€€€€€€€€€??€€";›1120 ? #6;"??€€€=€Ż}€€=€€€=€€€€??";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1140 ? #6;"€=€=€=€=€=€=€=€=€=€=";›1150 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1160 ? Ż}#6;"€=€€€?€€€=€€€?€€€=€€";›1170 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1180 ? #6;"€=€=€=€=€=€=€=€=€=€=";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€Ż}€";›1200 ? #6;"€=€€€?€€€=€€€?€€€=€€";›1210 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"€=€=€=€=€=€=€=€=€=€=";›1230 ? #6;"€€€€€€€€Ż}€€€€€€€€€€€€";›1240 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1250 ? #6;"€€?€?€?€?€€€?€?€?€?€";›1260 SETCOLOR 2,7,4:SETCOLOR 0,8,6:SETCOLOŻ+}EK(711)›7040 FOR I=0 TO 92›7050 READ N1,N2›7060 TT=(I/2=INT(I/2))›7070 FOR T=15 TO 2 STEP -0.35:SOUND TT,N1,10,T:SOUND ƒ}TT+2,N2,10,T:NEXT T›7080 NEXT I›7090 SOUND :FOR I=15 TO 0 STEP -0.1:SOUND 0,218,10,I:SOUND 1,53,10,I:NEXT I:RETURN ›7100 DATAƒ} 218,0,0,0,0,53,108,53,0,57,0,64›7110 DATA 145,57,0,0,0,53,145,47,0,0,0,145›7120 DATA 218,0,0,0,0,53,108,53,0,57,0,64›7130 DAƒ}TA 145,57,0,0,0,53,145,47,0,0,35,145›7140 DATA 218,53,0,0,0,35,108,29,0,0,0,33›7150 DATA 182,35,145,40,121,45,205,50,163,40,1ƒ}36,33›7160 DATA 108,53,91,0,72,53,72,47,96,0,115,45›7170 DATA 145,47,115,0,96,0,115,53,145,0,182,0›7180 DATA 218,0,0,0,0,53,1ƒ}08,53,0,57,0,64›7190 DATA 145,57,0,0,0,53,145,47,0,0,0,145›7200 DATA 218,0,0,0,0,53,108,53,0,57,0,64›7210 DATA 145,57,0,0,0,5ƒ}3,145,47,0,0,35,145›7220 DATA 218,53,0,0,0,35,108,29,0,0,0,33›7230 DATA 182,35,145,40,121,45,205,50,163,40,136,33›7240 DATA 7ƒ }2,53,91,0,108,53,72,47,96,0,115,45›7250 DATA 145,47,115,0,96,0,218,53,145,0,108,0›,40,121,45,205,50,163,40,136,33›7240 DATA 7€R1000 REM --  ĚĹÖĹĚ łš  --›1010 POSITION 0,0:SETCOLOR 0,0,0:SETCOLOR 4,0,0:SETCOLOR 3,0,0›1020 DATA 85,170,85,170,85,170,85,17›"}0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSET+29*8+I,B:NEXT I›1040 SETCOLOR 1,0,0:SETCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR›#} 4,0,0:SETCOLOR 0,0,0›1050 DATA 0,0,255,102,51,255,0,0›1060 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1070 ? #6;"›$}";›1080 ? #6;"€€";›1090 ? #6;"€€€€€€";›1100 ? #6;"€€==€€";›1110 ? #6;"€›%}€€€€€";›1120 ? #6;"€€€€";›1130 ? #6;"€€€";›1140 ? #6;"€€€€";›1›&}150 ? #6;"€€€€";›1160 ? #6;"€€€€";›1170 ? #6;"€€€";›1180 ? #6;"€€€›'}€";›1190 ? #6;"€€€€€€";›1200 ? #6;"€źź€";›1210 ? #6;"€źź€";›1220 ? #6;"€›(}źź€";›1230 ? #6;"€źź€";›1240 ? #6;"€€€€€€€€źꀀ€€€€€€";›1250 ? #6;"€źź€";›12›)}60 FOR I=1 TO 60›1270 X=RAND(18)+1:Y=RAND(17):LOCATE X,Y,Z:IF Z<>29 THEN 1270›1280 N=RND:COLOR 188*(N<0.7)+219*(N>=0.7):P›*}LOT X,Y:NEXT I›1290 SETCOLOR 2,3,2:SETCOLOR 0,0,14:SETCOLOR 1,0,4:SETCOLOR 3,2,0:REG=PEEK(711):RN=2:A$="ÔČŀÓĹĂŐŇÉÔـĚĹÖĹĚ":R›5}R 1,4,10:SETCOLOR 3,1,2:RN=44:A$="ÔČŀČÉÇČĚÁÎÄÓ":REG=PEEK(711)›1270 RETURN ›1400 PX=1:PY=14:PXB=PX:PYB=PY:CX=19:CY=14:CXB=CX:Ż,}CYB=CY›1410 RETURN ›7000 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:SOUND 3,0,0,0:RESTORE 7000›7010 POKE 53768,128+64+32+2›702Ż-}0 POKE 53761,4*16+2:POKE 53763,2*16+8:POKE 53765,12*16+2›7030 FOR I=1 TO 2›7040 POKE 53760,37:POKE 53762,13:PAUSE 5›7050 Ż.}POKE 53760,30:POKE 53762,11:PAUSE 100›7060 NEXT I›7070 POKE 53760,37:POKE 53762,13:PAUSE 5›7080 POKE 53760,30:POKE 53762,11›7Ż/}090 FOR I=1 TO 7›7100 READ A,B,D:IF A=-1 THEN POP :GOTO 7240›7110 IF A=-2 THEN POP :GOTO 7070›7120 POKE 53764,A:PAUSE 2Ż0}›7130 POKE 53764,B:PAUSE D/2›7140 NEXT I›7150 GOTO 7070›7160 DATA 254,255,50,254,255,33,254, 229,17,229,204,33,254,255,1Ż1}7,229, 204,33,193,169,17›7170 DATA 144,127,50,144,127,33,153, 144,17,144,127, 33,193,169,17,229, 204,33,254,255, 17›Ż2}7180 DATA 222,193,50,169,153,33,222, 193,17,229,204, 33,193,169,17,229, 204,33,254,255, 17›7190 DATA 255,229,125,254,25Ż3}5,125,-2,-2,-2›7200 DATA 193,169,50,222,193,50,229,204,33,254,255,67,-2,-2,-2,144,127,50,162,144,50,169,153,33,222,193,67›721Ż4}0 DATA -2,-2,-2,193,169,50,222,193,50,229,204,33,193,169,17,229,204,33,254,255,17,-2,-2,-2›7220 DATA 255,229,125,254,255,125›ŻN}ETURN ›1400 PX=1:PY=17:PXB=PX:PYB=PY:CX=10:CY=2:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7000›7010 READ A:IF A=-1 THEN 7090›70›Ö}-0.1:SOUND 0,146,12,T:SOUND 1,143,12,T:SETCOLOR 3,6,T:NEXT T:POKE 711,C:RETURN ›7070 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›708ˇc}ETURN ›7000 RESTORE 7060›7010 FOR I=1 TO 80›7020 READ N1,N2:SOUND 1,N2,10,4:SOUND 2,N2+1,10,4›7030 FOR T=14 TO 0 STEP -0.C8}15:SOUND 0,N1,12,T:NEXT T›7040 NEXT I›7050 FOR T=15 TO 0 STEP -0.1:SOUND 1,173,12,T:SOUND 2,53,10,T:SOUND 0,54,10,T:NEXT T:REC9}TURN ›7060 DATA 173,0,0,0,236,0,0,0,173,0,0,0,236,0,0,0›7070 DATA 173,0,0,0,236,0,0,0,173,0,0,0,236,86,0,81›7080 DATA 173,72,C:}0,53,236,53,0,53,173,53,0,53,236,96,0,86›7090 DATA 173,81,0,81,236,81,0,81,173,81,0,81,236,72,0,64›7100 DATA 173,57,0,40,236,C;}40,0,40,173,40,0,40,236,64,0,57›7110 DATA 173,53,0,53,236,47,0,47,173,42,0,42,236,86,0,81›7120 DATA 173,72,0,53,236,53,0,53,1C<}73,53,0,53,236,47,0,42›7130 DATA 167,40,0,40,221,40,0,40,167,40,0,72,221,0,0,72›7140 DATA 173,42,0,42,236,47,0,72,173,42,0,42Cő}0:PY=0:PXB=PX:PYB=PY:CX=9:CY=14:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7090:TT=0›7010 FOR I=1 TO 16:READ N2,N3:TT=TT+1:IF N2G>}=-1 THEN POP :GOTO 7060›7020 N1=100*(I=1 OR I=9)+50*(I=5 OR I=13)›7030 SOUND 1,N3,10,6:SOUND 2,N3+1,10,6›7040 FOR T=15 G?}TO 2 STEP -0.7:SOUND 0,N2,12,T:SOUND 3,N1,8,T*(TT>31):NEXT T:PAUSE (TT<=31):NEXT I›7050 GOTO 7010›7060 FOR I=15 TO 1 STEP -1:G@}SOUND 0,236,12,I:SOUND 1,96,10,I:SOUND 2,72,10,I:SOUND 3,57,10,I:NEXT I:PAUSE 10›7070 FOR I=15 TO 1 STEP -1:SOUND 0,173,12,I:GA}SOUND 1,91,10,I:SOUND 2,72,10,I:SOUND 3,53,10,I:NEXT I:PAUSE 50›7080 SOUND :RETURN ›7090 DATA 146,91,146,91,146,91,146,91,146GB},91,146,91,146,91,146,91›7100 DATA 155,96,155,96,155,96,155,96,155,96,155,96,155,96,155,96›7110 DATA 155,96,155,96,155,96,155GC},96,173,108,173,108,173,108,173,108›7120 DATA 155,96,155,96,155,96,155,96,146,91,146,91,146,91,146,91›7130 DATA 125,77,125,77GD},125,77,125,77,125,77,125,77,125,77,125,77›7140 DATA 125,77,125,77,125,77,125,77,116,72,116,72,116,72,116,72›7150 DATA 191,12GE}1,191,121,191,121,191,121,191,121,191,121,191,121,191,121›7160 DATA 191,121,191,121,191,121,191,0,191,121,191,121,191,0,191,1GF}21›7170 DATA 110,108,110,108,110,108,110,108,110,108,110,108,110,108,110,108›7180 DATA 110,0,110,0,110,0,110,0,110,108,110,10GG}8,110,0,110,108›7190 DATA 131,96,131,96,131,96,131,96,131,96,131,96,131,96,131,96›7200 DATA 131,0,131,0,131,0,131,0,131,96,13GH}1,96,131,0,131,96›7210 DATA 173,86,86,86,95,0,110,0,116,0,131,0,146,0,155,0›7220 DATA 173,0,86,0,95,0,110,0,116,0,131,0,146,0GI},155,0›7230 DATA 173,0,173,96,86,96,86,91,173,96,173,108,86,96,86,91›7240 DATA 173,81,173,0,86,72,86,0,173,96,173,96,86,96,86GJ},96›7250 DATA 173,0,173,96,86,96,86,91,173,96,173,108,86,96,86,91›7260 DATA 173,81,173,0,86,72,86,0,173,96,173,96,86,96,86,96GK}›7270 DATA 173,0,173,96,86,96,86,91,173,96,173,108,86,121,86,96›7280 DATA 173,108,173,121,86,136,86,108,173,145,173,145,86,14GL}5,86,145›7290 DATA 173,0,173,96,86,96,86,91,173,96,173,108,86,121,86,96›7300 DATA 173,108,173,121,86,136,86,108,173,145,173,1Gö} PX=3:PY=0:PXB=PX:PYB=PY:CX=9:CY=14:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7000›7010 READ A,B:IF A=-1 THEN 7040›7020 SOUND 2_g}7230 DATA -1,-1,-1›7240 SOUND :RETURN ›29,204,33,193,169,17,229,204,33,254,255,17,-2,-2,-2›7220 DATA 255,229,125,254,255,125›Ź'1000 REM --  ĚĹÖĹĚ łľ  --›1010 POSITION 0,0›1020 DATA 93,34,85,73,85,34,93,0›1030 RESTORE 1020:FOR I=0 TO 7:READ B:POKE CHSET§P}+29*8+I,B:NEXT I›1040 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1050 DATA 0,6,9,18,60,18,9,134›1060 SETCOLOR 1,0,0:SETCOLOR 2§Q},0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1070 ? #6;"";›1080 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1090 ? §R}#6;"€ź=€€==€€==€€==€€ź=€";›1100 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1110 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1120 ? #6;"==€€==€€ź=€€==€€==€§S}€";›1130 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1140 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1150 ? #6;"=€€ź=€€==€€==€€==€€=";›1160 ? #6;"€€€€€€€€§T}€€€€€€€€€€€€";›1170 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1180 ? #6;"€€==€€==€€ź=€€==€€==";›1190 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1200 ? #§U}6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"€==€€ź=€€==€€==€€==€";›1220 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1230 ? #6;"€€€€€€€€€€€€€€€€€€€€§V}";›1240 ? #6;"==€€==€€==€€==€€==€€";›1250 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1260 SETCOLOR 2,0,14:SETCOLOR 0,4,8:SETCOLOR 1,8,4:SET§W}COLOR 4,0,0:SETCOLOR 3,8,4:REG=PEEK(711)›1270 RN=54:A$="ĂČÁÍĹĚĹĎ΀ĂČÁÍÂĹŇ":RETURN ›1400 PX=0:PY=16:PXB=PX:PYB=PY:CX=16:CY=16:§X}CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7000›7010 FOR TT=1 TO 2›7020 FOR T=0 TO 15 STEP 0.03:SOUND 0,155,12,T:POKE 711,T:NE§Y}XT T›7030 FOR I=1 TO 2:FOR T=15 TO 0 STEP -0.15:SOUND 0,146,12,T:POKE 711,T:NEXT T:NEXT I›7040 SOUND :PAUSE 20›7050 NEXT §Z}TT›7060 FOR T=15 TO 0 STEP -0.15:SOUND 0,146,12,T:POKE 711,T:NEXT T:C=0.15›7070 FOR I=1 TO 77›7080 READ N1,N2:SOUND 2,N2,10§[},4:SOUND 1,N2+1,10,4›7090 FOR T=15 TO 0 STEP -C:SOUND 0,N1,12,T:POKE 711,T:NEXT T:C=C+2.0E-03:IF C>0.292 THEN C=0.03›7100 N§\}EXT I›7110 POKE 711,REG:SOUND :RETURN ›7120 DATA 155,0,146,0,173,0,155,0›7130 DATA 155,0,146,0,173,0,155,0›7140 DATA 155,0,14§]}6,0,173,0,155,0›7150 DATA 155,205,146,193,173,115,155,115›7160 DATA 155,115,146,115,173,115,155,115›7170 DATA 155,115,146,115§^},173,115,155,115›7180 DATA 155,27,146,0,173,0,155,26›7190 DATA 155,0,146,0,173,25,155,0›7200 DATA 155,24,146,0,173,0,155,23›7§_}210 DATA 155,0,146,0,173,22,155,0›7220 DATA 155,21,146,0,173,0,155,20›7230 DATA 155,0,146,0,173,19,155,0›7240 DATA 155,18,146§`},0,173,0,155,17›7250 DATA 155,0,146,0,173,16,155,0›7260 DATA 155,15,146,14,173,13,155,12›7270 DATA 155,11,146,10,173,9,155,8›§a}7280 DATA 155,7,146,6,173,5,155,4›7290 DATA 155,3,146,2,173,1,155,0›7300 DATA 155,255,146,243,173,255,155,243›7310 DATA 155,2§b}55›0 DATA 155,7,146,6,173,5,155,4›7290 DATA 155,3,146,2,173,1,155,0›7300 DATA 155,255,146,243,173,255,155,243›7310 DATA 155,2¤0 DATA 89,0,89,0,0,0,0,0,0,0,0,0,0,0,0,0›7090 DATA 89,0,89,0,0,0,0,0,0,0,0,0,0,0,0,0›7100 DATA 89,0,0,0,0,0,0,0,89,0,0,0,0,0,ˇd}0,0›7110 DATA 89,0,89,0,0,0,0,0,0,0,0,0,0,59,59,59›7120 DATA 59,59,67,75,67,67,75,79,75,75,89,89,0,79,75,67›7130 DATA 59,59,6ˇe}7,75,67,67,75,79,75,75,89,89,0,75,67,67›7140 DATA 59,59,89,0,0,0,0,0,0,0,89,89,0,75,67,67›7150 DATA 59,59,89,0,0,0,0,0,0,0,0,ˇf}0,0,59,59,59›7160 DATA 59,59,67,75,67,67,75,79,75,75,89,89,0,79,75,67›7170 DATA 59,59,67,75,67,67,75,79,75,75,89,89,0,75,67,6ˇq},B,10,5:SOUND 3,B+1,10,5›7030 SOUND 0,A,10,5:SOUND 1,A+1,10,5:PAUSE 8:SOUND 0,0,0,0:SOUND 1,0,0,0:PAUSE 1:GOTO 7010›7040 FOR _h}T=15 TO 0 STEP -0.05:SOUND 1,243,10,T:SOUND 2,244,10,T:NEXT T:RETURN ›7050 DATA 243,0,0,0,57,0,57,0,68,0,68,0,60,0,0,0,243,0,_i}0,0,0,0,0,0,229,0,182,0,155,0,115,0›7060 DATA 243,0,0,0,57,0,57,0,68,0,68,0,60,0,0,0,243,0,0,0,0,0,0,0,229,0,182,0,155,163,11_j}5,163›7070 DATA 243,163,0,163,57,121,57,0,68,121,68,121,60,121,0,121,243,121,0,121,0,121,0,0,229,0,182,0,155,136,115,121›7080_k} DATA 243,115,0,115,57,121,57,115,68,91,68,96,60,81,0,81,243,81,0,81,0,81,0,81,229,0,182,0,155,81,115,81›7090 DATA 243,81,0,8_l}1,57,60,57,60,68,68,68,68,60,68,0,68,243,68,0,68,0,68,0,68,229,68,182,68,155,72,115,81›7100 DATA 243,91,0,81,57,81,57,0,68,91_m},68,81,60,81,0,81,243,81,0,0,0,0,0,0,229,0,182,0,155,163,115,163›7110 DATA 243,163,0,163,57,121,57,0,68,121,68,121,60,121,0,1_n}21,243,121,0,121,0,121,0,0,229,0,182,0,155,136,115,121›7120 DATA 243,115,0,115,57,121,57,115,68,91,68,96,60,81,0,81,243,81,0,_o}81,0,81,0,81,229,0,182,0,155,81,115,81›7130 DATA 243,81,0,81,57,60,57,60,68,68,68,68,60,68,0,68,243,68,0,68,0,68,0,68,229,68,_p}182,68,155,72,115,81›7140 DATA 243,91,0,81,57,81,57,0,68,91,68,81,60,81,0,81,243,81,0,81,0,81,0,81,229,0,182,0,155,0,115,0›71_ů}7›7180 DATA 59,59,89,0,0,0,0,0,0,0,89,89,0,75,67,67›7190 DATA 59,59,89,0,0,0,0,0,0,0,0,0,0,0,0,0›7200 DATA 89,0,89,0,0,0,0,0,ˇr}0,0,0,0,0,0,0,0›7210 DATA 89,0,89,0,0,0,0,0,0,0,0,0,0,0,0,0,-1›9,59,89,0,0,0,0,0,0,0,0,0,0,0,0,0›7200 DATA 89,0,89,0,0,0,0,0,´?42,125,47,251,50,125,42›1240 DATA 236,42,236,42,119,57,236,50,236,47,116,50,236,57,116,47›1250 DATA 236,47,236,47,119,57,236,{t}50,236,47,116,50,236,57,116,57›1260 DATA 236,47,236,47,119,47,236,47,236,50,116,57,236,57,116,57›1270 DATA 206,64,206,64,119,{u}64,206,64,206,64,101,64,206,64,101,64›1280 DATA 236,72,236,72,119,72,236,72,236,64,116,72,236,72,119,72›1290 DATA 251,77,251,{v}77,119,77,251,77,251,77,125,77,251,77,125,77›1300 DATA 251,60,251,60,119,60,251,60,251,60,125,60,251,60,125,60›1310 DATA 251,{w}50,251,50,119,50,251,50,251,50,125,50,251,50,125,50›1320 DATA 251,42,251,42,119,42,251,42,251,42,125,42,251,42,125,42›1330 DA{x}TA 251,35,251,35,119,35,251,35,251,35,125,35,251,35,125,35›1340 DATA 251,29,251,29,119,29,251,29,251,29,125,29,251,29,125,29›{y}1350 DATA 251,29,251,29,119,29,251,29,251,29,125,29,251,29,125,29›1360 DATA 185,0,185,0,119,47,185,42,185,37,92,42,185,47,185{z},37›1370 DATA 185,37,185,37,119,47,185,42,185,37,92,42,185,47,185,37›1380 DATA 251,37,251,37,119,50,251,47,251,42,125,47,251,{{}50,125,42›1390 DATA 251,42,251,42,119,50,251,47,251,42,125,47,251,50,125,42›1400 DATA 236,42,236,42,119,57,236,50,236,47,116,{|}50,236,57,116,47›1410 DATA 236,47,236,47,119,57,236,50,236,47,116,50,236,57,116,57›1420 DATA 236,47,236,47,119,47,236,47,236,{}}50,116,57,236,57,116,57›1430 DATA 206,64,206,64,119,64,206,64,206,64,101,64,206,64,101,64›1440 DATA 236,72,236,72,119,72,236,{~}72,236,64,116,72,236,72,119,72›1450 DATA 251,77,251,77,119,77,251,77,251,77,125,77,251,77,125,77›1460 DATA 251,60,251,60,119,{}60,251,60,251,60,125,60,251,60,125,60›1470 DATA 251,50,251,50,119,50,251,50,251,50,125,50,251,50,125,50›1480 DATA 251,42,251,{€}42,119,42,251,42,251,42,125,42,251,42,125,42›1490 DATA 251,35,251,35,119,35,251,35,251,35,125,35,251,35,125,35›1500 DATA 251,{}29,251,29,119,29,251,29,251,29,125,29,251,29,125,29›1510 DATA 251,29,251,29,119,29,251,29,251,29,125,29,251,29,125,29›1520 DA{‚}TA 158,0,158,0,119,47,158,42,158,37,77,42,158,47,77,37›1530 DATA 158,37,158,37,119,47,158,42,158,37,77,42,158,47,77,37›1540 D{ƒ}ATA 206,37,206,37,119,50,206,47,206,42,101,47,206,50,101,42›1550 DATA 206,42,206,42,119,50,206,47,206,42,101,47,206,50,101,42{„}›1560 DATA 185,42,185,42,119,57,185,50,185,47,92,50,185,57,92,47›1570 DATA 185,47,185,47,119,57,185,50,185,47,92,50,185,57,92{…},47›1580 DATA 236,47,236,47,119,57,236,50,236,47,116,50,236,57,119,47›1590 DATA 236,47,236,47,119,57,236,50,236,47,116,50,236{†},57,119,47›1600 DATA 137,47,137,47,119,57,137,50,137,47,68,50,137,57,119,47›1610 DATA 137,47,137,47,119,57,137,50,137,47,68,5{‡}0,137,57,119,47›1620 DATA 251,50,251,50,119,50,251,50,251,50,125,50,251,50,125,50›1630 DATA 251,50,251,50,119,50,251,50,251,5{ˆ}0,125,50,251,50,125,50›1640 DATA 251,50,251,50,119,50,251,50,251,50,125,50,251,50,125,50›1650 DATA 251,50,251,50,119,50,251,5{‰}0,251,50,125,50,251,50,125,50›1660 DATA 251,0,251,0,119,0,251,0,251,0,125,0,251,0,125,0›1670 DATA 251,0,251,0,119,0,251,0,251{Š},0,125,0,251,0,125,0›1680 DATA 119,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0›1690 DATA 119,0,119,0,119,0,119,0,119,0,119,0,{‹}119,0,119,0›1700 DATA 119,225,119,226,119,227,119,228,119,229,119,230,119,231,119,232›1710 DATA 119,233,119,234,119,235,119,2{Œ}36,119,237,119,238,119,239,119,240›1720 DATA 119,241,119,242,119,243,119,244,119,245,119,246,119,247,119,248›1730 DATA 119,24{}9,119,250,119,251,119,252,119,253,119,254,119,255,119,255›1740 DATA -1,-1›44,119,245,119,246,119,247,119,248›1730 DATA 119,24xJ,59,59,59,59,59,59,59,59,59,59,59,59,59,59›1570 DATA 59,59,59,59,59,59,59,59,59,59,59,59,59,59,59,59›1580 DATA 59,59,59,59,59},59,59,59,59,59,59,59,59,59,59,59›59,59,59›1570 DATA 59,59,59,59,59,59,59,59,59,59,59,59,59,59,59,59›1580 DATA 59,59,59,59,59"1000 TITLE$="Close to the Edit":CMP$="Dudley/Jeczalik":RETURN ›1010 RESTORE 1120:TT=0›1020 FOR I=1 TO 16:READ N2,N3:TT=TT+1:I‹‘}F N2=-1 THEN POP :GOTO 1110›1030 N1=100*(I=1 OR I=9)+50*(I=5 OR I=13)›1040 SOUND 1,N2,10,6:SOUND 2,16-I,12,2›1050 FOR T‹’}=14 TO 2 STEP -1.8:SOUND 0,N3,12,T:SOUND 3,N1,8,T*(TT>96):NEXT T:PAUSE TT>96:PAUSE 2+(I=0)›1060 FOR II=0 TO (TT<=96) STEP 0‹“}.03:NEXT II›1070 IF TT=284 THEN TT=28›1080 IF STRIG(0)=0 THEN POP :GOTO 1110›1090 NEXT I›1100 GOTO 1020›1110 FOR I=15 TO ‹”}0 STEP -0.1:SOUND 0,191,12,I:SOUND 1,243,10,I:SOUND 2,244,10,I:NEXT I:SOUND :RETURN ›1120 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,‹•}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›1130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›1140 DATA 0,191,0‹–},131,0,155,0,131,0,131,0,119,0,116,0,119,0,110,0,119,0,116,0,119,0,131,0,119,0,155,0,119›1150 DATA 0,191,0,131,0,155,0,131,0,‹—}131,0,119,0,116,0,119,0,110,0,119,0,116,0,119,0,131,0,146,0,155,0,119›1160 DATA 0,146,0,95,0,116,0,95,0,95,0,119,0,86,0,119,0‹˜},80,0,119,0,86,0,119,0,95,0,119,0,116,0,119›1170 DATA 0,146,0,95,0,116,0,95,0,95,0,119,0,86,0,119,0,80,0,119,0,86,0,119,0,95,‹™}0,110,0,116,0,119›1180 DATA 0,191,0,131,0,155,0,131,0,131,0,119,0,116,0,119,0,110,0,119,0,116,0,119,0,131,0,119,0,155,0,119›1‹š}190 DATA 0,191,0,131,0,155,0,131,0,131,0,119,0,116,0,119,0,110,0,119,0,116,0,119,0,131,0,146,0,155,0,119›1200 DATA 0,146,0,95‹›},0,116,0,95,0,95,0,119,0,86,0,119,0,80,0,119,0,86,0,119,0,95,0,119,0,116,0,119›1210 DATA 0,146,0,95,0,116,0,95,0,95,0,119,0,8‹œ}6,0,119,0,80,0,119,0,86,0,119,0,95,0,110,0,116,0,119›1220 DATA 81,191,96,131,121,155,136,131,0,131,0,119,0,116,0,119,0,110,0,‹}119,0,116,0,119,0,131,0,119,0,155,0,119›1230 DATA 81,191,96,131,121,155,136,131,0,131,0,119,0,116,0,119,0,110,0,119,0,116,0,1‹ž}19,0,131,0,146,0,155,0,119›1240 DATA 72,146,91,95,102,116,121,95,0,95,0,119,0,86,0,119,0,80,0,119,0,86,0,119,0,95,0,119,0,116‹Ÿ},0,119›1250 DATA 72,146,91,95,102,116,121,95,0,95,0,119,0,86,0,119,0,80,0,119,0,86,0,119,0,95,0,110,0,116,0,119›1260 DATA 0,9‹§}€€€€€€€€€";›1160 ? #6;"==€€=====€€=====€€==";›1170 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1180 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1190 ? #6;"“Ą}€====€€€==?=€€€====€";›1200 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1210 ? #6;"€€€€€€€€€€€€€€€€€€€€";›1220 ? #6;"===?================";›“˘}1230 ? #6;"";›1240 ? #6;"˝˝˝˝˝˝˝˝˝˝˝˝˝˝˝˝˝˝˝˝";›1250 ? #6;"";›1260 ? #6;"€€€€€€€€€€€€“Ł}€€€€€€€€";›1270 SETCOLOR 2,3,6:SETCOLOR 1,8,10:SETCOLOR 0,2,4:SETCOLOR 4,0,0:SETCOLOR 3,1,0:REG=PEEK(711)›1280 RN=81:A$="ÔČŀ“¤}ĂĎÄĹĀĂČÁÍÂĹŇ":RETURN ›1400 PX=0:PY=15:PXB=PX:PYB=PY:CX=0:CY=8:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7100:SO$=""›7010 FOR I“Ľ}=1 TO 16:READ A:SO$(I,I)=CHR$(A):NEXT I›7020 FOR I=1 TO 16›7030 TT=(I=1 OR I=5 OR I=9 OR I=13)*100+(I=3 OR I=7 OR I=11 OR I“Ś}=15)*58›7040 READ A,B:IF A=-1 THEN POP :GOTO 7090›7050 SOUND 2,A,10,4:SOUND 3,A+1,10,4›7060 FOR T=15 TO 2 STEP -0.6:SOU“Ŕ}5,0,119,0,119,0,119,0,119,0,119,0,119,0,119,0,95,0,119,0,119,0,119,0,119,0,119,0,119,0,95›1270 DATA 0,95,0,119,0,110,0,119,0,‹¨}131,0,119,0,155,0,119›1280 DATA 0,95,0,119,0,119,0,119,0,119,0,119,0,119,0,119›1290 DATA 0,110,0,119,0,119,0,119,0,119,0,119,‹Š}0,119,0,119,0,110,0,119,0,119,0,119,0,119,0,119,0,119,0,110›1300 DATA 0,95,0,119,0,110,0,119,145,131,160,119,181,155,0,119›13‹Ş}10 DATA 120,95,0,119,0,119,0,119,0,119,0,119,0,119,0,119›1320 DATA 160,191,160,191,160,191,160,191,160,191,160,191,160,191,16‹Ť}0,191›1330 DATA 160,191,160,191,160,191,160,191,160,191,160,191,160,191,160,191›1340 DATA 153,191,153,191,153,191,153,191,153‹Ź},191,153,191,153,191,153,191›1350 DATA 153,191,153,191,153,191,153,191,153,191,153,191,153,191,153,191›1360 DATA 137,191,137,‹­}191,137,191,137,191,137,191,137,191,137,191,137,191›1370 DATA 137,191,137,191,137,191,137,191,137,191,137,191,137,191,137,191‹Ž}›1380 DATA 120,191,120,191,120,191,120,191,120,191,120,191,120,191,120,191›1390 DATA 120,191,120,191,120,191,120,191,120,191,‹Ż}120,191,120,191,120,191›1400 DATA 81,191,96,131,121,155,136,131,0,131,0,119,0,116,0,119,0,110,0,119,0,116,0,119,0,131,0,119,0‹°},155,0,119›1410 DATA 81,191,96,131,121,155,136,131,0,131,0,119,0,116,0,119,0,110,0,119,0,116,0,119,0,131,0,146,0,155,0,119›14‹ą}20 DATA 72,146,91,95,102,116,121,95,0,95,0,119,0,86,0,119,0,80,0,119,0,86,0,119,0,95,0,119,0,116,0,119›1430 DATA 72,146,91,95‹˛},102,116,121,95,0,95,0,119,0,86,0,119,0,80,0,119,0,86,0,119,0,95,0,110,0,116,0,119›1440 DATA 60,146,60,119,0,119,0,119,60,146‹ł},60,119,0,119,0,119›1450 DATA 60,146,60,119,0,119,0,119,60,146,60,119,0,119,0,119›1460 DATA 64,146,64,119,0,119,0,119,64,146,‹´}64,119,0,119,0,119›1470 DATA 64,146,64,119,0,119,0,119,64,146,64,119,0,119,0,119›1480 DATA 68,146,68,119,0,119,0,119,68,146,6‹ľ}8,119,0,119,0,119›1490 DATA 68,146,68,119,0,119,0,119,68,146,68,119,0,119,0,119›1500 DATA 64,146,64,119,0,119,0,119,64,146,64‹ś},119,0,119,0,119›1510 DATA 64,146,64,119,0,119,0,119,64,146,64,119,0,119,0,119›1520 DATA 60,191,61,131,62,155,63,131,64,131,0‹ˇ},119,0,116,0,119,0,110,0,119,0,116,0,119,0,131,0,119,0,155,0,119›1530 DATA -1,-1›20 DATA 60,191,61,131,62,155,63,131,64,131,0ˆQ193100›BOBBY ›175700›BOBBY ›170700›BOBBY ›119400›AAAAAA›106700›AAAAAA›105200›AAAAAA›89800›BOBBY ›84900›AAAAAA›84600›BOBBY ›81Łš}200›AAAAAA›Y ›175700›BOBBY ›170700›BOBBY ›119400›AAAAAA›106700›AAAAAA›105200›AAAAAA›89800›BOBBY ›84900›AAAAAA›84600›BOBBY ›81  1000 REM --  ÔČĹ ĐÁŇÔŮ ŇĎĎÍĄ  --›1010 POSITION 0,0›1020 DATA 170,85,170,85,170,85,170,85›1030 RESTORE 1020:FOR I=0 TO 7:READ łż}193100›BOBBY ›170700›BOBBY ›119400›AAAAAA›106700›AAAAAA›105200›AAAAAA›89800›BOBBY ›84900›AAAAAA›84600›BOBBY ›81200›AAAAAA›734ťź}00›DAAAAA›BY ›170700›BOBBY ›119400›AAAAAA›106700›AAAAAA›105200›AAAAAA›89800›BOBBY ›84900›AAAAAA›84600›BOBBY ›81200›AAAAAA›734¸ octor Who"36‚. Ron Grainer6$ňaü #A 6˜-2‰-@A %T:,"'% Až}3 "Š˜!6™-+&˜,'@'6‘-˜-6˜-36“-$ 6-+‰'@"P:‰'@,,. -@@6@`86‘-‘%Ô}B:POKE CHSET+29*8+I,B:NEXT I›1040 SETCOLOR 1,0,0:SETCOLOR 2,0,0:SETCOLOR 3,0,0:SETCOLOR 4,0,0:SETCOLOR 0,0,0›1050 DATA 0,0,0,łÂ}ND 0,ASC(SO$(I,I)),12,T:SOUND 1,TT,8,T:NEXT T›7070 SOUND 2,B,10,4:SOUND 3,B+1,10,4:FOR T=8 TO 2 STEP -0.3:SOUND 0,ASC(SO$(I“Á},I)),12,T:NEXT T:NEXT I›7080 GOTO 7020›7090 SOUND :FOR T=15 TO 0 STEP -0.1:SOUND 0,191,12,T:SOUND 1,59,10,T:SOUND 2,60,10,T:N“Ý}0,0,0,0,0›1060 FOR I=0 TO 7:READ B:POKE CHSET+I,B:NEXT I›1070 ? #6;"  WELCOME TO THE  ";›1080 ? #6;"  PARTY ROOM!  ";›łĂ}1090 ? #6;"  "›1100 ? #6;" ŇĹĚÁŘ ÁÎÄ ČÁÖĹ Á ";›1110 ? #6;"    ĂĎĚÄ ĎÎĹĄĄ    ";›1120 ? #6;" łÄ} ";›1130 ? #6;" ===== ";›1140 ? #6;" = = ";›1150 ? #6;" ======== ";›1160 ? #6;" łĹ} ==== ";›1170 ? #6;" =bud= = ";›1180 ? #6;" ==== ";›1190 ? #6;" =light== ";›12łĆ}00 ? #6;" == ";›1210 ? #6;" == ";›1220 ? #6;" == ";›1230 ? #6;" ===== łÇ} ";›1240 ? #6;" ";›1250 SETCOLOR 0,12,4:SETCOLOR 1,0,10:SETCOLOR 2,4,6:SETCOLOR 3,8,8›1260 PAUSE 250›łČ}1270 ? #6;" ‘ đďéîô âďîőó ";›1280 ? #6;" ćďň ĺáăč íáî ěĺćô ";›1290 ? #6›1300 ? #6;" ÂĎÎŐÓş 0";›1310 BONUS=0›1320 FOR IłÉ}=1 TO L:BONUS=BONUS+10000›1330 POSITION 9,22:? #6;BONUS;›1340 FOR T=15 TO 0 STEP -0.1:SOUND 1,191,12,T:SOUND 0,188,12,T:SłĘ}ETCOLOR 0,12,T:NEXT T›1350 NEXT I›1360 SETCOLOR 0,12,4:SETCOLOR 1,0,10:SETCOLOR 2,4,6:SETCOLOR 3,8,8›1370 PAUSE 250:SC=SC+BONłË}US›1380 POSITION 0,19:FOR I=1 TO 4:? #6;" ";:NEXT I›1390 POP :GOTO 7000›7000 I=0:REPEAT :I=I+1›7010 RESTłĚ}ORE 7100›7020 READ A,B:IF A=-1 THEN 7060›7030 SETCOLOR 4,A,B:SETCOLOR 1,B,A:SETCOLOR 0,6,A:SETCOLOR 2,4,A:POKE 711,A›7040łÍ} FOR T=15 TO 0 STEP -0.4:SOUND 0,A,12,T:SOUND 1,B,10,T:SOUND 2,B+1,10,T:NEXT T›7050 GOTO 7020›7060 UNTIL I=2›7070 POKE 71łÎ}2,0:FOR T=15 TO 0 STEP -0.1›7080 SOUND 0,110,12,T:SOUND 1,68,10,T:SOUND 2,69,10,T:POKE 708,T:POKE 709,T:POKE 710,T:POKE 711łĎ},T:NEXT T›7090 LVL=1000:GOTO 800›7100 DATA 110,0,0,0,146,0,0,0,110,0,0,108,146,102,0,91›7110 DATA 167,81,0,0,221,0,0,0,167,0,łĐ}0,81,221,72,0,68›7120 DATA 167,60,0,68,221,68,0,72,167,72,0,81,221,81,0,91›7130 DATA 110,91,0,53,146,53,0,0,110,0,0,108,146,1łŃ}02,0,91›7140 DATA 167,81,0,0,221,0,0,0,167,0,0,81,221,72,0,68›7150 DATA 167,60,0,68,221,68,0,72,167,72,0,81,221,81,0,91›7160 łŇ}DATA 110,91,0,53,146,53,0,0,110,0,0,53,146,50,0,53›7170 DATA 167,60,0,0,155,0,0,0,146,0,0,60,191,53,0,60›7180 DATA 110,68,0,0łÓ},146,0,0,0,110,0,0,0,146,0,0,0,-1,-1›3,146,50,0,53›7170 DATA 167,60,0,0,155,0,0,0,146,0,0,60,191,53,0,60›7180 DATA 110,68,0,0°%™$+‘˜,B‹2Š@C2@“%@@@$+“!@,k2@‘@@$+˜!,ƒ’-Ő}+“"@,‡ ’‹ L ‰Vv2"‰-A0@Ja@‰@@&+‰'A,laA‡b@Ü}20 FOR I=1 TO 12›7030 TT=(I=1 OR I=4 OR I=5 OR I=6 OR I=7 OR I=10 OR I=11 OR I=12)*38›7040 READ B›7050 SOUND 0,B,10,4:S›×}OUND 1,B+1,10,4›7060 FOR T=10 TO 1 STEP -1:SOUND 2,TT,8,(T/1.2)*(TT>0)+TT*(TT=0):SOUND 3,A*(TT=38)+119*(TT=0),12,T+1:NEXT T›Ř}›7070 NEXT I›7080 GOTO 7010›7090 SOUND 0,81,10,4:SOUND 1,72,10,4›7100 FOR I=1 TO 32:FOR T=15 TO 0 STEP -1:SOUND 2,38,8,T/1.2:›Ů}SOUND 3,173,12,T:POKE 712,T:NEXT T:NEXT I›7110 SOUND 0,86,10,4:SOUND 1,72,10,4›7120 FOR I=1 TO 16:FOR T=15 TO 0 STEP -0.7:SOU›Ú}ND 2,38,8,T/1.2:SOUND 3,173,12,T:POKE 712,T:NEXT T:NEXT I›7130 FOR T=15 TO 0 STEP -0.1:SOUND 0,81,10,T:SOUND 1,68,10,T:SOUND ›Ű}2,131,12,T:SOUND 3,38,8,T:POKE 712,T:NEXT T›7140 RETURN ›7150 DATA 119,0,0,0,0,0,0,0,0,0,0,0,0›7160 DATA 119,0,0,0,0,0,0,0,0,›î}@p ‰sav$`AA1,51,1,14,1,51,1,51,1,14,1,57,1,51,1,14,1,51,1,51,1,14,1,57›jAA1,51,1,51,1,51,1,51,1,14,1,57,1,4ß}EXT T:RETURN ›7100 DATA 107,95,95,95,107,95,80,95,143,128,128,128,143,128,107,86›7110 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›71“Ţ}20 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›7130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›7140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0›7“ŕ}3,1,43,1,43,1,43,1,48,0,57›tAA1,51,1,14,1,51,1,51,1,14,1,57,1,51,1,14,1,51,1,51,1,14,1,57›~##1,51,1,51,1,51,1,51,1,14,1,5é}150 DATA 100,100,120,120,107,107,135,120,120,120,107,107,100,100,89,89›7160 DATA 79,79,52,52,52,52,66,66,66,66,66,66,66,66,66“á},66›7170 DATA 100,100,120,120,107,107,135,120,120,120,107,107,100,100,89,89›7180 DATA 79,79,66,66,66,66,89,89,89,89,89,89,89,“â}89,89,89›7190 DATA 100,100,120,120,107,107,135,120,120,120,107,107,100,100,89,89›7200 DATA 79,79,52,52,52,52,66,66,66,66,66,6“ă}6,66,66,59,52›7210 DATA 49,49,49,49,49,49,52,59,52,52,52,52,52,52,59,66,59,59,79,79,79,79,89,89,89,89,89,89,89,89,59,52›7220 “ä}DATA 49,49,49,49,49,49,52,59,52,52,52,52,52,52,59,66,59,59,79,79,79,79,89,89,89,89,89,89,89,89,89,89›7230 DATA -1,-1›52›7220 u,120,95,108,107,119,96,95,95,91,90,95,0,0,95,0,0,119,0,0,110,0,0,-1,-1,-1›,0,0,95,0,0,95,0,0,119,0,0,95,0,0›7270 DATA 119,121J31,40,155,47,119,0,173,53,119,0,119,0,119,0,173,26,119,0,-1,-1›1,26,119,23,131,0,101,26,119,0›7180 DATA 116,35,140,42,119,0,1?260 DATA 182,163,121,29,29,0,29›7270 DATA 193,163,121,29,29,29,0›7280 DATA -1,-1,-1›,33,33,0›7250 DATA 182,136,115,0,0,0,33›7$T172,0,0,0,0,172,0,0,172,193,0,0,205,0,0,229,0,0›7190 DATA -1›0,108,108,115,108,0,0,86,85,84,83,82,86›7180 DATA 0,0,172,0,0,0,(=7›ˆ,,129,43,129,43,129,43,60,43,60,48,60,57›’MM64,51,64,14,64,51,64,51,64,14,64,57,64,51,64,51,64,51,64,51,64,14,64,57›œ}A 0,95,0,119,0,110,0,119,0,131,0,119,0,155,0,119,-1,-1›7200 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I:RETURN ›119,0,119,0,95›7190 DAT,f1,44,0,44,0,44,101,50,107,53,122,50,137,44,143,42›,91›7170 DATA 161,102,0,102,137,86,0,86,107,68,0,68,80,50,0,50›7180 DATA 104268,72,68,0,221,0,0,102,102,167,86,86,86,86,140,102,102,102,68,131,81,81,81,81,167,102,102,102,68›7140 DATA -1,-1›30 DATA 167,8q1,121,182,182,96,96,108,108,121,121,163,108,145,96,145,96›0 DATA 172,86,121,72,96,108,172,86›7130 DATA 182,60,121,72,96,91,12<:0,0,0,0›7170 DATA 131,218,0,0,218,218,218,218,0,0,218,218,218›7180 DATA 146,182,0,0,182,182,182,182,0,0,182,182,182›7190 DATA›ď} 131,163,0,0,163,163,163,163,0,0,163,163,163›7200 DATA 146,155,0,0,155,155,155,155,0,0,155,155,155›7210 DATA 131,108,108,108,›đ}108,108,108,108,108,108,81,81,68›7220 DATA 146,72,72,72,72,72,72,72,72,72,72,72,72›7230 DATA 131,108,108,108,108,108,108,108,›ń}108,108,81,81,68›7240 DATA 146,72,72,72,72,72,72,72,72,72,68,68,72›7250 DATA 131,60,53,53,53,53,53,53,53,53,68,68,53›7260 DAT›ň}A 191,60,60,60,60,60,0,81,81,0,81,81,0›7270 DATA 131,60,53,53,53,53,53,53,53,53,68,68,53›7280 DATA 191,60,60,60,60,60,0,81,81›ó},0,81,81,0›7290 DATA 131,40,40,81,45,45,81,53,53,53,53,53,53›7300 DATA 191,50,50,60,60,60,60,60,60,60,60,60,60›7310 DATA 131,›ô}40,40,81,45,45,81,53,53,53,53,53,53›7320 DATA 191,50,50,60,60,60,60,60,60,60,60,60,60,-1›,60,60,60,60,60,60,60›7310 DATA 131,˜Y,236,47,0,72›7150 DATA 173,42,0,42,236,47,0,42,173,47,0,53,236,53,0,0›21,0,0,72›7140 DATA 173,42,0,42,236,47,0,72,173,42,0,42@F45,-1,-1›7290 DATA 173,0,173,96,86,96,86,91,173,96,173,108,86,121,86,96›7300 DATA 173,108,173,121,86,136,86,108,173,145,173,1D 1,29,119,29,251,29,251,29,125,29,251,29,125,29›7290 DATA -1,-1›,119,29,251,29,251,29,125,29,251,29,125,29›7280 DATA 251,29,25H?,129,64,0,0›7200 DATA 172,68,0,0,136,0,0,77,115,68,0,0›7210 DATA 129,64,0,0,108,0,0,0,86,0,0,0›190 DATA 193,53,0,0,163,0,0,57T_50 DATA -1,-1›115,81›7140 DATA 243,91,0,81,57,81,57,0,68,91,68,81,60,81,0,81,243,81,0,81,0,81,0,81,229,0,182,0,155,0,115,0›71\86,86,86,86,86,129,129›7180 DATA 102,102,96,96,96,96,96,96,96,96,96,96,96,96,96,96›7190 DATA -1›A 81,81,72,81,86,86,86,86,86,``=PX:PYB=PY:CX=9:CY=15:CXB=CX:CYB=CY›1410 RETURN ›7000 RESTORE 7000›7010 SOUND 0,243,10,3:SOUND 1,242,10,3›7020 READ A,D:IF A=gü}-1 THEN 7040›7030 SOUND 2,A,10,3:SOUND 3,A+1,10,3:PAUSE D*1.5:GOTO 7020›7040 SOUND :RETURN ›7050 DATA 121,25,81,100,121,12,81gý},12,91,100›7060 DATA 72,25,91,25,121,25,163,150›7070 DATA 121,25,81,100,121,12,81,12,91,100›7080 DATA 72,25,60,100,64,25,81,2gţ}5,121,100›7090 DATA -1,-1›,91,25,121,25,163,150›7070 DATA 121,25,81,100,121,12,81,12,91,100›7080 DATA 72,25,60,100,64,25,81,2d0›7200 DATA 218,53,0,47,129,53,0,0,108,31,0,0›7210 DATA 172,53,163,47,145,53,129,0,121,42,172,0›,53,0,47,121,53,0,0,108,29,0,`˙˙˙˙˙˙˙˙˙˙˙˙˙€ţ˙ţ`řŔ€˙˙˙˙˙˙˙ @J