M M/32 2 & *******************************& *** M M 32B .2 ***& *** LK 12/1987 ***&( ******************************* 2 0u7P ( )"T1"(P)"LK"(P)4Z (  )(0)"CONS.:CLS"(P)LdSC$(,,$,,,,,E, ,", ,, ,,,)JnST$ ( , ,,D,,@,,,@,,,",, ,)x + CO$(p),BR(`) :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"M () "CRT:M2" : ::();"NENI PRIDAVNA VRAM !":3Z@:C`:M:FL:VL @,X :YH', -------------CYKLUS-------------*1[p],?, ,?6 xF, <@ X,Y: X,Y: X,Y: X,YJ CC$:CC(CC$) T,Q)^ CC  C CC)h CC  Cp CC1r 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;" ";i,@:[p]Z;" ";:  ,@:CO$(C);: [pM],@,,G,C9 CC Z Q~ " SET";:[C,M]X,Y:: v' CC  " RESET";:[C,M]X,Y5 CC A " LINE ";:AXX:AYY:LFf LF  xF, :[p,]AX,AY,X,Y: H: [p,]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, :[p,]VX,VY,X,Y:  : [p,]VX,VY,X,Y:xF,+ CC B " BOX";:[C,M]VX,VY,X,Y2 CC N " BOX";:[C,M]VX,VY,X,Y,C CC P " PAINT ";:[]CO$(C);: " - OK ? ";Q$: Q$"Y" [C,M]X,Y,,,@,, ,@,`,,, ,0,@,P,`,pX Q? " CLEAR";: X,Y: [,],""" CC X " SPRAY";: 8 CC Q " CIRCLE-";:QXX:QYY:CFh  CF  xF, :[p,]QX,QY,X,Y:  : [p,]QX,QY,X,Y:xF,& CC W " CIRCLE";: < CC ? BA(X,Y):[ ] "";CO$(BA);:FL& CC ^ "CLS - ? ";Q$: Q$"Y" \,@:"D Y REALLY CLEAR ? ";Q$: Q$"Y" " OK...";: 0,F: y: : ,!0 CC T " TEXT";: X: CC @ " S PAINT ";:[]CO$(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: ,  ,' ---------------SPRAY------------ X,Y[C,M],SC$ X,Y[C,M],ST$ POSITION X,Y $ v' --------------CIRCLE------------&R((QXX)(QXX)(QYY)(QYY))[C,M]QX,QY,R& ---------------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$) & .X QQ yh,: ();: v] QQ ();_ QQ ();{` QQ DI XXXM : DI YYXM : DI XXXM : YYXM)b 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 & -------------------------------) QQ  C CC) QQ  Cp CCI  ,@:CO$(C);: [pM],@,,G,C ,@ : & ------------------------------- xF, @ DI [p,]X,Y,XXM,YYM@ DI [p,]X,Y,XYM,YXM@ DI [p,]X,Y,XXM,YYM@ DI@ [p,]X,Y,XYM,YXM xF,& ----------SPECIAL PAINT--------NBO"BORDER (16=END) ? ";BC:NBNB: BC NBp  INB ` BR(I)BC I  [C,M]X,Y,BR(),BR(),BR(),BR(@),BR(),BR( ),BR(@),BR(`),BR(),BR(),BR( ),BR(0),BR(@),BR(P),BR(`)  ,% ------------ERROR------------- ,@: ,  ,$0u -------------UVOD------------:u: "CRT:M2"?u xF,Du1Nu[P]@,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 32 B VRAM",,;u[]*,8," L.K. 12/1987",, y "y G$: G$"" "y,y}:: ( )"s" ( )"" ( @)"q" ( )"" (  )""