T?6CD:\؜8.l01^~~77{?y7~~/````p EEEEG)0` G1^~~77{?y7~~/GGGGEEGGGGEE ` G4   p   xxxx]````pGGGG````pGGGG`pGGGG``pGGGG````pGGGG* `08GGGGSGGGG|@ `08GGGG@@GGGGGGGG ``0 8GGGG ```GGGG I``0 8GGGG r```GGGG ````GGGG````GGGG $e(#'&$WWWWWWWW?mmmmmmmmFFFFh1^~~77{?y7~~/EEEEWWWW@@HD"BBAABBD"H@@FFFF GGGG*=\s#r++Ar+s0>2\"]\!A[\K\[8\*{\>?G@RBKT]C\S8\"{\"\!<"6\*\6>+++"=\V!:\!\"O\+"W\#"S\"K\6#"Y\6 #6#"a\"c\"e\>O2\2\2H\!#" \55!\61k  0I֠GRAPHICS BASIC interpreter v2.4Ͳ(Š0%,˱͖)Ϳ,>>60%p 8;(, ͂Ϳ%61v͕Ͱ>,v~ 0f(A*Y\ͧ6*Y\"]\x~ >0Fį n >O2\66 [vV(4;;::\() (%(!((<2L6*M"B\2D\N33vv0N::\ x 6 KE\>:N ͗::\<( ( 4 p\!D\ ~( 6 L>CI\*]\!v*a\7R`in ͸y=((+[S\U"S\*a\++*I\p+q+s+r>2G\=2:\Ϳ4  ʄ:(!A*]\O*y_9ڊO! N *t\~#"t\O 0! ^#V߹ŠT8vF( ~ q*B\|(!"E\*a\+[Y\:D\3n:D\( CG~x(0%*U\>V#^SE\#^#V#"U\"]\W6 r ͋(0% (:Êl؂z̿?nVͿ~M :t\!Ϳí˼į.lnpHV?A+7wDY+C-Q:mB I\D]=g#= O_k ":;B   z"P, 6  ,   ͂ͿͿ0%()"_\*W\~,( ͆0 wV"W\*_\6&x,(Ϳ0% $,Ŀ>90%(>9͍,0$ ( <)( ͍,Ҋ$ U##6, ) = :;\$@ŠͿ>>0%M Ϳ0%( 84ڄ0%(>n 6 Ϳà ,Š͂Ϳ-#,(Ϳw$͂ͿÔ#:t\ֵ2t\͌0%(<:t\(" > 6+! 0:t\ x(  # I:t\ʊͲ(0 !:t\=(Š0%(#~w #~w #q>q(COLOR BRON (BROFF 3ALTER ?WINDOW HALT ROLL SCROLL ~DEF CLP ERASE yDPOKE JGET .PUT CLW bFAST SLOW INVERTW \SCALE )PLACE DIRECT &SET }GO \STEP INVERTP CLRSP SPRON SPROFF MOVE SPRET SIZE MSPRINT ~START ATOFF ATON MODE ONERR @OFFERR gDRUM SOUND INTO FROM BERECT "MIRX MIRY SPOKE ^PLUS MAGNIFY kUSER XPOS(EYPOS(ZXVEC(lYVEC(cSCRN(CRSP(BIT$(ADDR(SPMOD(KEY(DEC(ERROR(MEMORY$(DPEEK(O*]\ (((#(% ((("]\^#V:;\"]\Ê Ϳv$|}o|g|%}o|g![[6X < @ Z;0%(#"ŠyͿ~D(-~C(-8÷$;Ϳ#C}\PYg8x8Bxgx K͐0y7 Ky 7?͐0{=7ȷy ͪ"G~8y"y;Šy;Š͂Ϳ#2#C#BCy:ާȁx :ާȀ!!WyW  :O  :_:W:w#  Ϳ> vͿدv2y;Šy;ŠyͿ#C#C#:W:޾#  :w:͂;Šy;ŠyͿ#C#C#_2~ާ~: G:!'''=:G:ހ:! = xð"88Äy,Š͂Ϳ#2#Cy~xҦW:2zښʊڛÊ:ާ ́͌*Kx!" ! = "_K!!!"":???((_:W:O"~T]#*͆ * :W:_:O~+ A+#͆ * _K!!!:O ":???((_:W:O"~T]+*͆ * :W:_:O~7?B#A#+͆ * ͨ_K!!!:=G": :???::"[:O:*T]͕:O*͕"= ͆![:O*= :ާ">͕= >"["K*͆= *͕"[S:K*͕*͕S"= [͆>"K*͆= *=ͨ_K!!!": ~:???(n*[>K"*͆= [:"SK*͆*͆= ![>SK*͆= *= :*"[K:[bk͆"K= *͕![K= :ާzXڲ_K!Wx8888x < = ":G8888x2͘:= = ͘:G:Ov"[#:\K * *͘K ":G:Ov"[+:\K * *":G:O"v[K*[7B"K * ![K*͘:G:O"[Kv*T] "K *7B![K*z28(84(K:>2>2͚= :>2X>2͊= :>2Ͳ>2͛= :>2>2= ͜HÄ.Iw>:\!w#q#p!:w#q#p> o gs#r= {222D2o:\ ![w#>ڊÊG`P} pPpP }ɰO͂;ŠyͿ#C#2ާ(Kx(y(:!KPE  :W:::8z( =  "*"߯R*\z8 {":w#[s#r#[s#ryͿ#C:ާ####]T#GO6# G8888xO:w# *G~x#^#V"#^#V"K*7B8#"*+[KK*ާBK "*~"###N#~! = ~G8888x( = *#s#r͂Ϳ#2ާͿvͿv ͂;Šy;Š͂Ϳ#2#C#vv: v###N#FC!!! #:ށڣ":ހڣң0>222(vNKv"2:v( vO!, ~2:*[K":ߧ(G:![<#= v~(*[:G:ߧ(w#*v^( K ͆"= Kx8888y9998 xGvv͂Ϳ#ң2_K!!!"::*Gv~ >w6#*͆"= ͂Ϳ#ʣ###N#F#Cx:G>w#= ͂Ϳ####N#F#""Cx*[K"+[K>= p+ = vNK*x = ":=:G8888xȯ2x*T]K "+9ANwy+= ͂Ϳ##^#V#N#F#"SCx= = "":?*[:GO~q#"*KB"= vNKx88888xȯ2xK* *ߧBS"KNwy#= ͂;ŠyŠ͂;Š͂Ϳv#2#ʣ###N#F#"C#C#ʣ###N#F#C"K:'''=ڣO:'''=ڣ:ހڣG:޸ڣ*:K( = :O999 "2ͺvNKx* = ":O9998 :G8888C*K:G:"CO9998 y2K*:( = :O "KC͔:ާ*[K:O ":O "= ͂Š͂;Šy;Š͂Ϳv#2#C#ʣ###N#F#"C#ʣ###N#F#C"yK'''=ڣO:'''=ڣ:ހڣG:޸ڣʣ*:K( = :O999 "2AvNKx* = ":O9998 :G8888CK:G:"CO9998 y2K*:( = :O "KC͔͂Ϳ͙CͿ6͂;Š>͂, < 2Ϳ! 6#:!O #(w+= #20|(y͑ !! = #(͂Ϳ#20E(B͑!#(͂Ϳ#0(͑ˆͿ!ˆ ͂;ŠyͿ#C#0ߧ(͑#Kq#p͂;ŠyͿ-W(D_z{2-W(D_z{2#0(͑###Kq#p#(`͂Ϳد2#0c(`͑F#N#FC###N# ~8B###N#F#"C!!! :ށ:ހ>2v0Ϳ>2>͖= #a͂ͿدM#0(_͑:\2\"F˶˾ ~IKy(!!!x(:'''2=2:=2* >2~O<82 # ~###N#F#"C: OT]# ~ 2 #~0v###N#F#"C*vf -###!!!Y ~0DW:#H ~0DW:*#N#FC#~80D_yK0DvO#~8D_xC0DvgiK!!!Q }O:80 v_yO{M>= >_= >= Ϳد27Ϳ>v͂;ŠyͿ#C#͑" :w*:G~ w#͂Ϳد2#͑F####Ϳ>2>= #(͂Ϳ#͑6#Ϳ!( ! = ![ 2 ͑F"#N#FCC###N# ~###N#F#"C:!!!=2:ހ=2>2ͳ*V ^>vvG: ߸xV͑FV#N#FC###N# ~###N!!!#F:߁=2:߀=2K[:߹(8( 8 :߹8v:߸8 ( ( 8 :߸8vvn( vv(*=¿#(?͂;ŠyͿد2#C#͖͑#Kq#p͖_;ŠyͿد2#C>͑FĆ= !##!"#(1͂;ŠyͿد2-C#͑F#K~w#~w;ŠyͿ>2-C>= -(D2-(DO:Gy;Š͂Ϳ#2L#y!xCJy;Šy;Š͌Ϳ+S #2#2[#C* ~ &&80 &*6\$ *{\֐O> = :\:[GĬOWv_Ćgowęv!"!"Y* #" K:LOC ±͂Ϳ͙'xZyCMv֯2LͿCMv!~?w#v!~+w##!~O'9w#!&#&#&###>#>#>!>#>#>###&#&#&!&#&#&###&#&#&!>##͑"Fvv(V(v?^(ˆÜ~f( vv ?n####*2/2g2 KJ[߯80G:߀80A8!0O'''=G:߀8Cv2 K"2Ky2!![*:J_~W' # ":J_#V:=2(z"!![B[ :K!!["A= vN)!:\_QHGͶ*8͂0% #2ާ(,͑#NG],͑#,͑#,͑###N0>G,͑GO~(,͑GOv(͂0%(?#_!{(6160##!:\7(*Y\z8 {87B++Ͷ*W͂0%S# KOCMDO,͑NM͂0%S#$)$O!b F8888>_~G#;GOC SABCDEUTSRQ12345edcba!"#$%utsrq͌0%S+x y0! (0(S)Š0%SKLܯGS*f nK"2*"K *[S:ߧ(:>8DDD801365U xZB+J+L+F=0I=1DB:P(D(I,2),D(I,1))=5=""I:1500  5600 LB=?KEY(K(7)):A=?KEY(K(6)):5325:ID=01700 A=11730 B=1100d  1100L  UJ PALYA  PN=PN+ID*10 "_SCROLL 0,3,24 0PA=PA+1:PA2000GS 6:6:1: e_COLOR 4,4;15,25;88X:_COLOR 3,3;15,25;120x &_ATOFF :_SIZE 1,1;7 9_SPRINT 82R,32 ;0,1;"GRATULLOK !" "E_SPRINT 32 ,568;0,1;" Teljestetted a sszes " 'F_SPRINT 32 ,68D;0,1;"nehzsgi szintet. Rajtad" ,@_SPRINT 32 ,82R;0,1;"nem tudtam kifogni." 1F_SPRINT 32 ,100d;0,1;" sszesen "+pn+" pontot" 68_SPRINT 32 ,112p;0,1;"szereztl." @ 1820 5:5:0: '1:_SIZE 1,2;8 c_COLOR 7,6;4,22;88X:_COLOR 6,5;4,22;120x H_ATOFF :_SPRINT 524,568;0,1;"Elfogyott az idd !" 'EL=EL-1:EL=01800 10 :300,:GS e_COLOR 11 ,6;4,22;88X:_COLOR 10 ,5;4,22;120x @_SPRINT 524,88X;0,1;" A jtknak vge ! " )i=10 1-1:pn>R(I)I ! I=I+1 &I=11 100d 0_ONERR 1860D :9J=10 I:R$(J)=R$(J-1):R(J)=R(J-1):J D"rd be a neved : ";r$(i) I_OFFERR :R(I)=PN N 200  TERVEZO  _ATON :5100 ^_SIZE 1,1;10 :_SPRINT 38&,8;64@,0;"LDATOLOGAT-JTK" _SIZE 1,1;8:_SPRINT 76L,64@;4,0;"Plya te"+("rvez"TV=2050)+("sztel"TV2050) '_ONERR 2040:"Szma (1-30) :";PA +PA<0PA>30PAɺPA2040 PA=0100d  _OFFERR :TV M=0:5000  MV=1:I=07:_PUT I+1;I*16,176;0:I _COLOR 22,0;2,2;199:_SIZE 1,1;5:_SPRINT 132,180;0,1;"Trl Msik Ksz Teszt" \i=03:_COLOR 22,16+I*4;2,4;96`+I*8:I uST=0:_SCALE 16;24:_PLACE 16;120x,80P:_MODE 16;1,0:_SET 16 4+5200P:B+J+L+F+T02110> 5 ST=0 6AA=?KEY(K(6)):B=?KEY(K(7)):A+B=021004 7 100d >7ST=ST+(ST<8):_DIRECT 16;ST*(J-B),ST*(L-F) H&_MOVE 16:T=021004 M Y=?YPOS(16):Y=Y+7 RY>1752150f WX=?XPOS(16):Y=(Y/16):X=((X+7)/16):_SET 16:_PUT V;X*16,Y*16;0:_SET 16:P(Y+1,X+1)=V:21004 f X=?XPOS(16):X=X+7 kX>1272190 p_SET 16:_PUT V;(V-1)*16,176;0:V=(X/16)+1:A=(22,(V-1)*2):_COLOR 22,(V-1)*2;2,2;A+128:_SET 16:21004 k_PUT V;(V-1)*16,176;0:_SET 16:2200+((X-128)/32 )*502 >Y=111 :X=116:P(Y,X)=1:X:Y 5100:2060  #2400` :A=02000 o_SIZE 1,2;7:_SPRINT 0,176;0,0;"Hibs plyt terveztl ! Javitsd ki!" 1:0 o_SIZE 1,2;7:_SPRINT 0,176;0,3;"Hibs plyt terveztl ! Javitsd ki!"  2060  #2400` :a=12255  100d .#2400` :A=12255 82M=3:GS=2370B :EL=2:PN=0 = 1010 B 100d `CIM=45000ȯ+(PA-1)*176:T(8):Y=111 :X=116:A=P(Y,X):CIM,A:CIM=CIM+1:T(A)=T(A)+1:X:Y jUA=0:T(2)T(5)T(2)>14T(5)>14A=1 tT(8)1A=1 ~  PALYA RAJZOLAS  D_ATON :5100:_COLOR 0,0;22,32 ;8 uDB=0:D(14,2):P(11 ,16):U(11 ,16):CIM=45000ȯ+(PA-1)*176 fY=010 :X=015:A=CIM:_PUT A;X*16,Y*16;0:CIM=CIM+1 U(Y+1,X+1)=A-((A-1)(A=4A=5A=8)):P(Y+1,X+1)=A-((A-1)(A=2A=3A=8)M0):A=2DB=DB+1:D(DB,1)=X+1:D(DB,2)=Y+1 A=8XX=X:YY=Y X:Y   MAGYARAZAT  1:1:2: 7A$=128+132+136+0+4  5110 a:a=05066 @I=312 :_PUT 8;I*16,80P;0:I  B,D,E,B$ _SIZE A,B;8*A FI=15:5:_SPRINT D,E;A$(I),0;B$:2:I @I=312 :_PUT 5;I*16,80P;0:I  5056 Y_ATON :I=-1.5@1.5@:_PUT 3+I;120x+I*32 ,144;0:I AI=312 :_PUT 6;I*16,160;0:I F150:_BRON :_OFFERR :5:_SCROLL 0,4,32 /5074:100d:A=17:5124 ," Ebben a jtkban egy raktrost kell he-" ,"lyettesitened,aki az egyes szinteken l-" +"v ldkat a kijellt helyekre tolja. " , "A jtkban a nehzsget az adja, hogy " ,"csak elre lehet mozogni, s nha egy-" +"egy kkolonc is akadlyozza utunkat," +"br ezeket el lehet az tbl tolni." +"A jtk plyaszerkesztvel is el van" +"ltva, igy sajt szintet is lehet k-" ,"sziteni.A program szalagra,lemezre ment." ,"A programr j ldatologatst kvn." W"","Sznestechnika:LM1889 chip"," Asszisztens:U L A chip"," Zene : 254-es port." &""," NYITRAI LSZL 2000."   CLS  C0:0:7:1:0:0:0:: )1,1,120x,16,"Az" )2,2,64@,40(,"NYL" /1,1,120x,480,"SZOFTVER" /1,1,96`,64@,"BEMUTATJA" 51,2,64@,104h,"a NYITRAI SOKO" 01,1,80P,132," JTKT"  0 AA$(40():_WINDOW 1;0,8;32 ,184 __SOUND 1;0,0;255,255:_DRUM 200,1;200,255 0_SIZE 1,1;6:I=1 A:A$  K=09 :K:_SPRINT K*24+8,184-K;0,1;A$(K*4+1 K*4+4):_SCROLL 1,3,1:9 -K:K  I:200:8 O BILLENTYUZET  PfB=?KEY(K(1)):J=?KEY(K(2)):L=?KEY(K(3)):F=?KEY(K(4)):T=?KEY(K(5)):  ADAT TABLA  t_SIZE 1,1;8:3:_SPRINT 0,176;4,0;" Szint Pont letek Id " G0:_SPRINT 36$-(PA)*4,184;4,0;PA >_SPRINT 96`-(PN)*4,184;4,0;PN ?_SPRINT 160-(EL)*4,184;4,0;EL G_SPRINT 212-(ID)*4,184;4,0;" "+ID+" " 2_COLOR 23,0;1,32 ;71G   ORA LEPTETES  V=23672x\:V<502 -VV=(V/502):23672x\,V-VV*502 "ID=ID-VV:ID<0ID=0  & DISC SAVE  &:A=?ADDR(0):_DPOKE 65534,A:*"GAME"9920&:*"chars2"65368X,168:*"gamecd"A,54500-A:*"levels/n"45000ȯ,5280 & & DISC LOAD  &O44999ǯ:*"gamecd":*"basic/sp":*"chars2":*"levels/n":54500 &"A=?DPEEK(65534):_START A: '  LOAD  ''44999ǯ:"":"":54500: '  SAVE  'z:"GAME"9990':A=?ADDR(0):"GAME CODE"A,65536-A:"LEVELS"45000ȯ,5280::"":"":"":"" abdPe  & &!(K(1234567890QWERTYUIOPASDFGHJKLZXCVBNM i NYITRAI NYITRAI NYITRAI NYITRAI NYITRAI NYITRAI NYITRAI NYITRAI NYITRAI NYITRAI 5  X,d}  7N0I7B JTKT+( NYITRAI LSZL 2000. .  %WMWMM P P P  \|83ttǯAبLL>' )             :      E  "   d GHJKL1234567890QWERTYUIOPASDFGHJKL1234567890QWERTYUIOPASDFGHJKLZXCVBNM1234567890QWERTYUIOPASDFGHJKLZXCVBNM1234567890QWERTYUIOPASDFGHJKLZXCVBNM +MWMM P P P |8qMN=N\GWq !ǯAب|8BM"3,6e3Y'-+46|8؜MT>Aب>' )             :      E  " 6      i    @@ /A98xD(8("<<0N$ 0<0O$ <`~O<^Ey=OQE89x898@BEDDDQD0@HE1@ @A/BQDPE@EQQ<!L!D$QDEE@E@B(x/DD0CD1888|8CP 1BO O=<OD<M< Bc<?@!PC A6<<<5100:K(7):20:I=17:K(I):I @19,20,21,11 ,38&,33!,40( MK$="1234567890QWERTYUIOPASDFGHJKL"+0+0+"ZXCVBNM"+0+" " ($R$(10 ,10 ):R(10 ) 2EI=110 :R$(I)="NYITRAI":R(I)=(11 -I)*100d:I 7R90Z:S(3,8):I=13:J=18:S(I,J):J:I Z10 ,11 ,10 ,9 ,12 ,13 ,12 ,9 ,15,16,15,14,17,18,17,14,20,21,20,19,22,23,22,19 dB_BRON :_OFFERR :6:23658j\,8:1:1: nd_COLOR 1,8;4,18;104h:_COLOR 0,7;4,18;120x x_ATOFF :_SIZE 1,2;12 :_SPRINT 568,1;4,1;"Ldatologat":_SPRINT 85U,15;4,1;" jtk" e_COLOR 7,4;14,28;96`:_COLOR 6,3;14,28;112p h_SIZE 1,1;7:_SPRINT 32 ,546;4,1;"1 - Plyatervezs-talakts" F_SPRINT 32 ,64@;4,1;"2 - Irnyts belltsa" H_SPRINT 32 ,74J;4,1;"3 - Sajt plyk betltse" H_SPRINT 32 ,84T;4,1;"4 - Sajt plyk kimentse" F_SPRINT 32 ,94^;4,1;"5 - Jtk 1-15 plykkal" J_SPRINT 32 ,104h;4,1;"6 - Ltez plya tesztelse" F_SPRINT 32 ,114r;4,1;"7 - A jtk ismertetje" G_SPRINT 32 ,124|;4,1;"8 - Visszatrs BASIC-be" Y_ATON :I=-1.5@1.5@:_PUT 3+I;120x+I*32 ,144;0:I AI=312 :_PUT 6;I*16,160;0:I k_SIZE 1,1;8:_SPRINT 0,184;4,1;"NYITRAI LSZL 2000 prilisban" 8I=1800 :I$=:I$<"1"I$>"8"I:200 #I$="1"TV=2050:2000 I$="2"500 i$="4"300, i$="3"320@ I$="5"1000 #I$="6"TV=23608 :2000 3I$="7"_SCROLL 0,1,32 :6 i$="8"_OFFERR :_BRON : 1_ATOFF :N$="0":1:1:7: e_COLOR 4,7;17,19;88X:_COLOR 3,6;17,19;104h X_SIZE 1,1;10 :_SPRINT 70F,36$;64@,0;"A LEGJOBBAK" _SIZE 1,1;8:I=110 :_SPRINT 568,60<+I*8;4,0;R$(I):A=R(I):_SPRINT 148,60<+I*8;4,0;N$(15-A)+R(I):I 8I=1400:I$=:I$<"1"I$>"7"I:250 175 100d ,g"Magnra vagy Lemezre ? ";a$:_ONERR 100d:a$="m"a$="M""LEVELS"45000ȯ,5280 -a$="l"a$="L"3106 1 100d 61"Neve :";a$:a$=0űa$>83106 7*a$45000ȯ,5280 ; 100d @S"Magnrl vagy Lemezrl ? ";a$:_ONERR 350^:a$="L"a$="L"330J C!"LEVELS"45000ȯ,5280 E 100d J1"Neve :";a$:a$=0űa$>8330J O'*A$45000ȯ,5280:100d T 100d ^3_COLOR 22,0;2,32 ;215 hc_ATOFF :_SIZE 1,1;8:_SPRINT 68D,180;4,0;"Olvassi hiba !" r200:100d S_SOUND 1;0,0;255,255::_SIZE 1,1;8 E_SPRINT 32 ,8;4,0;"Krem sorban a gombokat !" 600X:i=17 <i$:_SPRINT 80P,40(+I*16;4,0;I$ ""539 =""540 &2I$=:J=140(:I$K$(J)J:539 0n_DRUM 20,1;60<,253:K(I)=J:_SPRINT 160,40(+I*16;4,0;I$:I : 100d XB"Balra :","Jobbra :","Le :","Fel :","Tz :","jra :","Kilps :"   JATEK  >M=3:GS=1050:PA=1:EL=4:PN=0 U_SCALE 1;9 ,10 ,11 ,10 ,9 ,12 ,13 ,12 _SCALE 2;14,15,16,15,14,17,18,17:_SCALE 3;19,20,21,20,19,22,23,22 W_SCALE 4;19,20,21,20,19,22,23,22 _DIRECT 1;-2,0:_DIRECT 2;2,0:_DIRECT 3;0,2:_DIRECT 4;0,-2 (5000:ID=DB*70F:5300 $2_PLACE 1;16*XX,16*YY:R=1 B1_FAST :HP=15:S=5:_ONERR 1400x G23672x\,0 L)5200P:B+J+F+L11400x V71050+(B+2*J+3*L+4*F)*70F `QR1_PLACE 1;XX*16,YY*16:_SET R:_SET 1:R=1 e+A=P(YY+1,XX):A>31150~ jlI=18:_SOUND S;0,0;100d,100d:5600:_MOVE 1:I:XX=XX-1 o6B=?KEY(K(1)):B=1ID>01125e t 1400x ~A>51400x 3B=P(YY+1,XX-1):B>31400x _INTO U(YY+1,XX-1)25;0,0;0:_INTO U(YY+1,XX)25;16,0;0:_INTO U(YY+1,XX+1)25;32 ,0;0  I=18:5600:_INTO 2526;0,0;0:_INTO A26;16-I*2,0;0:_ATOFF :_INTO S(1,I)26;32 -I*2,0;3:_ATON :_PUT 26;(XX-2)*16,YY*16;0:I EP(YY+1,XX-1)=A:P(YY+1,XX)=1:XX=XX-1 '_PLACE 1;XX*16,YY*16 6B=?KEY(K(1)):B=1ID>01155  1400x QR2_PLACE 2;XX*16,YY*16:_SET R:_SET 2:R=2 3A=P(YY+1,XX+2):A>31220 lI=18:_SOUND S;0,0;100d,100d:5600:_MOVE 2:I:XX=XX+1 6J=?KEY(K(2)):J=1ID>01195  1400x A>51400x 3B=P(YY+1,XX+3):B>31400x _INTO U(YY+1,XX+1)25;0,0;0:_INTO U(YY+1,XX+2)25;16,0;0:_INTO U(YY+1,XX+3)25;32 ,0;0 I=18:5600:_INTO 2526;0,0;0:_INTO A26;16+I*2,0;0:_ATOFF :_INTO S(2,I)26;I*2,0;3:_ATON :_PUT 26;XX*16,YY*16;0:I MP(YY+1,XX+3)=A:P(YY+1,XX+2)=1:XX=XX+1 '_PLACE 2;XX*16,YY*16 6J=?KEY(K(2)):J=1ID>01225  1400x QR3_PLACE 3;XX*16,YY*16:_SET R:_SET 3:R=3 3A=P(YY+2,XX+1):A>31290  hI=18:_SOUND S;0,0;0,0:_MOVE 3:5600:I:YY=YY+1 6L=?KEY(K(3)):L=1ID>01265  1400x  A>51400x 3B=P(YY+3,XX+1):B>31400x _INTO U(YY+1,XX+1)27;0,0;0:_INTO U(YY+2,XX+1)27;0,16;0:_INTO U(YY+3,XX+1)27;0,32 ;0 I=18:5600:_INTO 2728;0,0;0:_INTO A28;0,16+I*2;0:_ATOFF :_INTO S(3,I)28;0,I*2;3:_ATON :_PUT 28;XX*16,YY*16;0:I MP(YY+3,XX+1)=A:P(YY+2,XX+1)=1:YY=YY+1 !'_PLACE 3;XX*16,YY*16 #6L=?KEY(K(3)):L=1ID>01295 ( 1400x 2QR4_PLACE 4;XX*16,YY*16:_SET R:_SET 4:R=4 7+A=P(YY,XX+1):A>31360P 013357 F 1400x PA>51400x U3B=P(YY-1,XX+1):B>31400x Z_INTO U(YY-1,XX+1)27;0,0;0:_INTO U(YY,XX+1)27;0,16;0:_INTO U(YY+1,XX+1)27;0,32 ;0 _ I=18:5600:_INTO 2728;0,0;0:_INTO A28;0,16-I*2;0:_ATOFF :_INTO S(3,I)28;0,32 -I*2 @ #  n 882620 LET x=8*m <2625 IF mazex=15 THEN GO SUB 600 A0: GO SUB 5000+(2000 AND m$(mazey+m,mazex-1)=" "): GO TO 26702626 IF mazex=1 THEN GO SUB 7000 B: GO SUB 4000+(2000 AND m$(mazey+m,mazex+1)=" "): GO TO 26702630 GO SUB 4000+(2000 AND m$(ma Fzey+m,mazex+1)=" ")2650 GO SUB 5000+(2000 AND m$(ma Zzey+m,mazex-1)=" ")2670 IF mazex+m+1 >= 15 THEN IF  nm$(mazey+m+1,mazex) <> " " THEN GO TO 3500 SPECTRUM 2680 NEXT m x2690 RETURN  3500 REM wall ahead  3510 LET x=x+8 AP8hq8p8p8p8p8p8p8p8p8p8p8p8''3520 PLOT x,x*5/8: DRAW 255-(2*x ),0azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1) 2470 IF mazex-m-1 >= 1 THEN IF m $(mazey-m-1,mazex) <> " " Tmazey-m,mazex+1)=" "): GO T"W" AND mazex=1) THEN RETURN < 351WNQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8SPECTRUtt [u