MALIR/16.2 O( 2 0u"F  ,,,7P ( )"T1"(P)"LK"(P)7Z (  )(0)"CONS.:CLS:L."(P)LdSC$(,,$,,,,,E, ,", ,, ,,,)JnST$ ( , ,,D,,@,,,@,,,",, ,)x 4 CO$(p),BR(`),CP(@):yh,DCO$() " BLACK 0":CO$() " BLUE 1"DCO$() " RED 2":CO$(@) " MAGENDA 3"DCO$() " GREEN 4":CO$( ) " CYAN 5"DCO$(@) " YELLOW 6":CO$(`) " WHITE 7"DCO$() " GRAY 8":CO$() " LIGHT BLUE 9"BCO$( )" LIGHT RED 10":CO$(0)"LIGHT MAGENDA 11"BCO$(@)" LIGHT GREEN 12":CO$(P)" LIGHT CYAN 13"BCO$(`)"LIGHT YELLOW 14":CO$(p)" LIGHT WHITE 15"3Z@:C@:M:FL:VLLCP():CP():CP():CP(@)p @,X :YH', 300 ---------CYKLUS-------------*1[@],?, ,?6 xF, <@ X,Y: X,Y: X,Y: X,YJ CC$:CC(CC$) T,Q4^ CC  CC : C C@@c CC  CP(C) CP(C)CP(C): C,CP(C)4h CC  CC : C@ C@m CC  CP(C)p CP(C)CP(C): C,CP(C)1r CC . FLFL : " ";du CC  VLVL : VL A1XAX:A2YAY:V1XVX:V2YVY:Q1XQX:Q2YQY: : " ";/w CC  LF:BF:CFcz VL  "";: AXXA1:AYYA2:VXXV1:VYYV2:QXXQ1:QYYQ2: ,<| X,Y: X,Y: X,Y: X,Y xF,@ FL ,@: [@]X;Y;" ";,@:[]Z;" ";:  ,@:CO$(CP(C));: [@M],@,,G,C: ,@: C;- CC Z " SET";:[C,M]X,Y:: v' CC  " RESET";:[C,M]X,Y5 CC A " LINE ";:AXX:AYY:LFf LF  xF, :[@,]AX,AY,X,Y: H: [@,]AX,AY,X,Y:xF,< CC S " . LINE";:[C,M]AX,AY,X,Y:AXX:AYY, CC D " LINE";:[C,M]AX,AY,X,Y4 CC V " BOX ";:VXX:VYY:BFi BF  xF, :[@,]VX,VY,X,Y:  : [@,]VX,VY,X,Y:xF,+ CC B " BOX";:[C,M]VX,VY,X,Y2 CC N " BOX";:[C,M]VX,VY,X,Y,Cl CC P " PAINT ";:[]CO$(CP(C));: " - OK ? ";Q$: Q$"Y" [C,M]X,Y,,,@X Q? " CLEAR";: X,Y: [,],""" CC X " SPRAY";: 8 CC Q " CIRCLE-";:QXX:QYY:CFh  CF  xF, :[@,]QX,QY,X,Y:  : [@,]QX,QY,X,Y:xF,& CC W " CIRCLE";: @ CC ? BA(X,Y):[] "";CO$(CP(BA));:FL& CC ^ "CLS - ? ";Q$: Q$"Y" \,@:"D Y REALLY CLEAR ? ";Q$: Q$"Y" " OK...";: 0,F: y: : ,!0 CC T " TEXT";: \: CC @ " S PAINT ";:[]CO$(CP(C));:" - OK ?";:"";Q$: Q$"Y" D CC 1 ZZN CC2 ZZX CC3 ZZb CC4 ZZ?l CCM M M : M : M=%vB():U()@% B YYZU: ,' B YYZU:XXZU: ,% B@ XXZU: ,' B YYZU:XXZU: ,# B YYZU : ,' B@ YYZU:XXZU: ,% B` XXZU: ,' B YYZU:XXZU: ,  ,' 1000-----------SPRAY------------ X,Y[C,M],SC$ X,Y[C,M],ST$ POSITION X,Y $ v' 2000----------CIRCLE------------&R((QXX)(QXX)(QYY)(QYY))[C,M]QX,QY,R& 3000-----------TEXT------------X "TEXT (1,^2,_3,4,0=) ? ";DI :DIDI: DI@ DI  DI v XM:YM  yh,, B():,Q:U()` B  Q $ B YYU: 1 B YYU:XXU: $ B@ XXU: 1 B YYU:XXU: $ B YYU: 1 B@ YYU:XXU: $ B` XXU: 1 B YYU:XXU:  : : / B Q YMYM: / B@ Q XMXM: / B Q YMYM: / B` Q XMXM:  XM XM YM YM : :  Q$:QQ(Q$) & IX QQ yh,: ();: v] QQ ();_ QQ ();|` QQ DI XXXM : DI YYXM : DI XXXM : YYXM9b QQ QQ QQ QQ : 2d QQ [,]X,Y,"",XM,YM,DIg QQ l [C,M]X,Y,Q$,XM,YM,DI6v DI XXXM: X X 6 DI YYXM: Y Y6 DI XXXM: X X6 DI@ YYXM: YH YH & 3200---------------------------4 QQ  CC : C C@@ QQ  CP(C) CP(C)CP(C): C,CP(C)4 QQ  CC : C@ C@ QQ  CP(C)p CP(C)CP(C): C,CP(C)M  ,@:CO$(CP(C));: [@M],@,,G,C ,@ : & 3500--------------------------- xF, @ DI [@,]X,Y,XXM,YYM@ DI [@,]X,Y,XYM,YXM@ DI [@,]X,Y,XXM,YYM@ DI@ [@,]X,Y,XYM,YXM xF,& 4000------SPECIAL PAINT--------NBP"BORDER (4=END) ? ";BC:NBNB: BC NB@  INB @ BR(I)BC I  ;[C,M]X,Y,BR(),BR(),BR(),BR(@)  ,% 10000-------ERROR------------- ,@: ,  ,%J ------------------------------&0u 30000--------NAVOD-------------:u "CRT:M1"Du xF,2Nu[@ ]@,0,"", ,1Su[] , ,"", ,0Xu[@]@,x,"MAL",`,`0]u[] ,p,"MAL",`,`/bu[@]&,x,"IR",`,`/gu[]$,p,"IR",`,`/lu[@];,,"'", , /qu[@]@,," '", , /vu[]9,,"'", , /{u[]>,," '", , 0u[]T,p,".2",@,@>u[]@,.,"V 16 B VRAM",,;u[]*,8," L.K. 12/1987",,"y G$: G$"" "y,y6y" T BASIC 800 .";@y" P .":" V "qJy" , 3 1 ( - 0 ).";Ty" U () . N , ."^y" V , , ( )."+hy @,@:"S ";ry G$: G$"" rywy|y" V :"%y"Q - "y"W - "y"A - "-y"S - + "1y"D - ";y"ALPHA - "y"Z - "y"X - ( 1)"y"V - " y"B - "'y"B - "y"P - "/y"@ - "z"^ - CLS"#z"CTRL - 88 ""z"INST,DEL - "+&z"CLR,HOME - "0z"T - "*:z". - /"'Dz"? - "Nz"M - 0 / 1"+Xz @,@:"S ";bz G$: G$"" bzgz/lz"1,2 - "/vz"3,4 - -''- ")z"TAB - /"(z" ( N. , ...)"z:" P . P 12."z:" TEXTOVY REZIM:"/z"CTRL+ - "z"TAB - ""z"CTRL+D - "@z"INST,DEL,CLR,HOME, - "%z:"CR - "+ { @,@:"S ";{ G$: G$"" { {p{" N :"z{: "P , CTRL X - ."0{:: " P ",{: " L K"({" . 75 15 38"+{ @,@:"S ";{ G$: G$"" {{} "J  " --------