MZ-CAD2 A w*:g ~ܯ2^ !+|(/8N! F͘ >2/ >^ >2>ͥ # :'MZ-800 MINI-CAD V 2.3#:' N :' !!!("CRT:M4"2:'.< B$(),FA$(p),BT$(H): *FIp: FA$(I)::AD.5PPT:P$(,~,~,~,~,~,~,)@ZRX :RY :MS :SF:DT$"Z N."2dBC:"POKE": ::X1:Y14n "NOLIST",x#,"FD1:BAUTEILLISTE":#,BT%IBT:#,BT$(I)::C@,:"I:":@,,~,I@,:"S F-D/RAM-D/T ? [F/R/T]"T$:T$"" T$"F"SM$"FD1:":H,:":F-D"::“T$"R"SM$"RAM:":H,:":RAM-D"::“T$"T"SM$"CMT:":P,:":T":, : E`, :"L F-D/RAM-D/T ? [F/R/T]"T$:T$"" T$"F"LM$"FD1:":P, :":F-D"::“T$"R"LM$"RAM:":P, :":RAM-D"::“T$"T"LM$"CMT:":P, :":T":, : D@,(:"S E ? [J/N]"T$:T$"" \T$"J"FL:H,(:":J"::“T$"N"FL: ::, : 7@,0:"D ?:";DT$;":";:" ";NR$ "FDERR"#,SM$DT$NR$` () "CRT:M3":MO:: "CRT:M4":,@:,0:MO@2COMO:: AZ:IAZ:B$(I)::"AUSWAHL"+""MENUE":,,@,<, "FEHLER"96YY@:ZY:,/,,:,COX@[MO]@,YY,@,YY`,MO:[],YY,B$(ZY),,~JT$:T$"H"MO@,:@,p:,@:,0:: ,:,pT() r5^(T$(P))(())H:  h JYr[]@,YY,@,YY`,: ,YY,B$(ZY),,1|() YYYY:ZYZY1() YYYY:ZYZY-YYAZ@ YY@:ZY)YY@ YYAZ@:ZYAZH,: @TZY , v, , \, , , , , ", 8 , , v, , , l, , , , N "QUIT":"MENUE""MOVE":"INFO1"XAX1:YAY1:PXRX:PYRY}PT(X1,Y1):LO(X1,Y1):RO(X1,Y1):LU(X1,Y1):RU(X1,Y1)[PT MO],X1,Y1:[LO MO]X1,Y1:[RO MO]X1,Y1:[LU MO]X1,Y1:[RU MO]X1,Y1VT$:T$"S"PXp::PYp::“T$"L"PX:PY::“T$"R"PXRX:PYRY(())(T$(P)) [PT],X1,Y1:[LO]X1,Y1:[RO]X1,Y1:[LU]X1,Y1:[RU]X1,Y1:0() , , , (, 2, <, F, P[PT],X1,Y1:[LO]X1,Y1:[RO]X1,Y1:[LU]X1,Y1:[RU]X1,Y1:X1XA:Y1YA:  "MANU"8E$"M C . [CR]=ENDE":"INFO2"X&XAX1:YAY1:PX:PY:BF:[CO]X1,Y1: FL #,,CO,XA,YA0T$:() X*D(())(T$(P)) N 00X() , , , (, 2, <, F, P.b[CO]XA,YA: FL #,,CO,XA,YAlX1XA:Y1YA: 0 v"LINE",LXX1:LYY1:NE:BF:"MOVE"."INFO":[CO]LX,LY,X1,Y1:H,T$:T$"" :T$(P) NE:"SAVE": :“T$"N""NEIN":"SAVE":  "SET"<"INFO":[CO]X1,Y1:NE:BF@:H,T$:T$"" 7T$(P)NE:"SAVE": :“T$"N""NEIN" "BOX",LXX1:LYY1:NE@:BF:"MOVE"."INFO":[CO]LX,LY,X1,Y1:H,T$:T$""  T$"N""NEIN":"SAVE":NE: "PAINT"@*NE:BF :"MOVE": MO@ "COL": ZMO:COMO74"INFO":PT(X1,Y1):[Z]X1,Y1,CO:H,>T$:T$"" > HT$"N""NEIN":"AUSWAHL":#R"SAVE":NE:"AUSWAHL":\"CIRCLE":LXX1:LYY1>fE$"R X Y-R ":"INFO2": :pR(X1LX):AS((R(Y1LY))):H,Tz[],>,,F,:E$"A/E:":"EINGABE"O"AUSWERT":AWXA()4:EWYA()4:H,0E$"S? [J/N]:":"EINGABE":B$"J" G[CO]LX,LY,R,AS,AW,EW:NE :BF@:H,:"INFO"T$:T$"" T$"N""NEIN":  "SAVE"NE:X1LX:Y1LY::'KREISSEGMENTI[CO]LX,LY,R,AS,AW,EW,O:NE@:BF`:H,:"INFO"   "COLOR"-"COL":COZ:H,:"AUSWAHL":"BOR":BF@k[],>,,F,:H,?,"M [_] [] ",,J[],>,G,F,:T$"R: "FA$(BC)-@,?,T$,,:"POKE"$T$:() B.T$(P)"SAVE": 8 $$B()` BCBC$L()@ BCBC/VBC BCp:“BCp BC `  j"POKE"(t<,>,BC,,,,,y,~(<):,:"RASTER" E$"A ? :":"EINGABE"(B$) B$"20":RX(B$):RYRX: MO@ "COL" : Z=IRY<RY:JRX@RX:(J,I)[Z]J,I:AH,@:[],>,,F,CE$B$" P ?:":"EINGABE":MS(B$)(B$) MSRX"AUSWAHL":"BEMASS"CE$"E B [CR] ":"INFO2"% :XVX1:YVY1:H,@D E$"Z B [CR] ":"INFO2"% :XBX1:YBY1:H,YVYB"SENK"(:'WAAGERECHT12[],>,,F,6<E$"B O U [O/U] ?:":"EINGABE"bFB$"O"BM :ZI:ZJ :ZK:: BM :ZI:ZJ :ZKPXVXB HXV:XVXB:XBHTZLXXV@:LYYVBM:X1XB@:Y1YBBM:[CO]LX,LY,X1,Y1:BF:"SAVE"LdLXXV:LYYVBMZI:X1XV:Y1YVBMZJ:[CO]LX,LY,X1,Y1:BF:"SAVE"LnLXXB:LYYBBMZI:X1XB:Y1YBBMZJ:[CO]LX,LY,X1,Y1:BF:"SAVE"KxLRXBXV:TX$(((LRMSRXH)H)):LR(TX$)KTX((XBXV)XV)LR:TYYVBMZK:XA:YAXA:BF*[CO]TX,TY,TX$,,:"SAVE"X1XV:Y1YV: "SENK" XVXB 1[],>,,F,8E$"B R L [R/L] ?:":"EINGABE"bB$"R"BM :ZI:ZJ :ZK:: BM :ZI:ZJ :ZK YVYB HYV:YVYB:YBHTLXXVBM:LYYV:X1XVBM:Y1YB:[CO]LX,LY,X1,Y1:BF:"SAVE"LLXXVBMZJ:LYYV:X1XVBMZI:Y1YV:[CO]LX,LY,X1,Y1:BF:"SAVE"LLXXBBMZI:LYYB:X1XBBMZJ:Y1YB:[CO]LX,LY,X1,Y1:BF:"SAVE"KLRYBYV:TX$(((LRMSRYH)H)):LR(TX$)KTY((YBYV)YV)LR:TXXVBMZK:XA:YAXA:BF1[CO]TX,TY,TX$,,,:"SAVE"X1XV:Y1YV:""TEIL":Zf,BT@,?,"K B !!!",,:,@:a:@6E$"R [CR] ":"INFO2": M@XRX1:YRY1:[],?,,F,:H,OJE$"F V/:":"EINGABE":V(B$):V VgT@,?,"B:",,:H,?,"M [_] [] ",,m^[],?,"",,:,?,BT$(Z),,:,1hT$:(T$(P))(()) Mr()@ ZZ: :: ()` ZZ:  | h' Z ZBT : ZBT Z  ^"#@,"FD1:"BT$(Z)".BTL"#@,BF-(#@)#@:X1XR:Y1YR:COMO:,BF , , , , , , 0, D, X"SAVE": H#@,CO,X1,Y1,X2,Y2:LXXRX1V:LYYRY1V:X1XRX2V:Y1YRY2V[CO]LX,LY,X1,Y1:,#@,CO,X1,Y1:XAXRX1V:YAYRY1V[CO]XA,YA:H#@,CO,X1,Y1,X2,Y2:LXXRX1V:LYYRY1V:X1XRX2V:Y1YRY2V[CO]LX,LY,X1,Y1:.#@,Z,X1,Y1,CO:X1XRX1V:Y1YRY1V[Z]X1,Y1,CO:=#@,CO,X1,Y1,R,AS,AW,EW:LXXRX1V:LYYRY1V:RRV&[CO]LX,LY,R,AS,AW,EW:=0#@,CO,X1,Y1,R,AS,AW,EW:LXXRX1V:LYYRY1V:RRV:[CO]LX,LY,R,AS,AW,EW,O:6D#@,CO,XT,YT,TX$,XA,YA:TXXRXTV:TYYRYTVN[CO]TX,TY,TX$,XA,YA:6X#@,CO,XT,YT,TX$,XA,YA:TXXRXTV:TYYRYTV#b[CO]TX,TY,TX$,YA,XA,:Bl"HCOPY":[],=,,=:"H CAD": v"PAL""COL":BFP:PCpk[],>,,F,:H,?,"M [_] [] ",,F[],>,G,F,:T$"F: "FA$(PC)<@,?,T$,,:Z,PC:, T$:() 'T$(P)"SAVE":"AUSWAHL":  $()` PCPC$()@ PCPC2PC PCp : PCp PC   "CLS".E$"S ? [J/N]:":"EINGABE":BF0 B$"J"; [],,,;,:"SAVE": "LOSCH"< E$"M C . [CR]=E":"INFO2"c*XAX1:YAY1:PX:PY:BF : XA,YA:[MO],P$: FL #, ,XA,YA4T$>() \SH(())(T$(P))XA,YA:[]," ": z R 40\() , , , (, 2, <, F, P8fXA,YA:[MO],P$: FL #, ,XA,YA p 4z FL #, ,XA,YAX1XA:Y1YA:U"COL":MO@ ZB@:ZX1:ZS@ : ZB:ZX:ZS4E$"F [CR] ":"INFO2":Y :[],,,;,IZS<,Y,,Y ,I:YY@::Y :ZMO*,Y,"->",,:HT$() 5(T$(P))(())H: .  *[],Y,"",,-() YY@:ZZ- () YY@:ZZ YZX Y :ZZB Y YZX:Z$ H,: . 8 "TEXT"9B "MOVE":[],>,,F,.L E$"G ? (/):":"EINGABE":"AUSWERT"1V E$"H/V ? (H/V):":"EINGABE"+` TX$"":TL:TXX1:TYY1:BFj B$"V""VERT"&t T$:PT(X1XA,Y1)@~ X1XA "SDEL" : X1 X1:TXX1 [MO]X1,Y1,"",XA,YA T$"" t  [PT]X1,Y1,"",XA,YA T$(P)  T$()"SDEL"G [CO]X1,Y1,T$,XA,YA:X1X1XA:TX$TX$T$:TLTL: t  TX$"""SAVE"::: "SDEL"" X1X1XA: X1TX TXX1 TX$"" TLTL:TX$(TX$,TL) t  "VERT":BF T$? Y1YA "VDEL": Y1< Y1<:TYY1F PT(X1,Y1YA):[MO]X1,Y1,"",YA,XA,( T$"" !2 [PT]X1,Y1,"",YA,XA,< T$(P) Z F T$()"VDEL"NP [CO]X1,Y1,T$,YA,XA,:Y1Y1YA:TX$TX$T$:TLTL: Z TX$"""SAVE": : d "VDEL""n Y1Y1YA: Y1TY TYY1x TX$"" TLTL:TX$(TX$,TL) 7 "LOAD":(FL)(SM$"CMT:")(LM$"CMT:") 6 E$DT$NR$" ? [J/N]:":"EINGABE") B$"J"::#:FL:NR$"" "LOERR"0 H,@:E$"W "DT$:"EINGABE" FL ! B$NR$, :  B$""  * (SM$"CMT:")(LM$"CMT:")#:U E$"S E [J/N] ?:":"EINGABE":B$"J"#:P E$"D ?:"DT$":":"EINGABE":NR$B$:FL:#,SM$DT$NR$  #,LM$DT$B$ #,BF" (#)#: <, BF J , @ , J , T , ^ , h , r , | , , , , , 6  0@ #,CL,X1,Y1,X2,Y2:[CL]X1,Y1,X2,Y2:$J #,CL,X1,Y1:[CL]X1,Y1:0T #,CL,X1,Y1,X2,Y2:[CL]X1,Y1,X2,Y2:*^ #,CZ,X1,Y1,CL:[CZ]X1,Y1,CL::h #,CL,X1,Y1,R,AS,AW,EW:[CL]X1,Y1,R,AS,AW,EW:<r #,CL,X1,Y1,R,AS,AW,EW:[CL]X1,Y1,R,AS,AW,EW,O:8| #,CL,XT,YT,TX$,XA,YA:[CL]XT,YT,TX$,XA,YA:? #,CL,XT,YT,TX$,XA,YA:[CL]XT,YT,TX$,YA,XA,:U #,XA,YA: XA,YA:[MO],P$: XA,YA:[]," ":3 [],,,;,:= #,BC:',>,BC,,,,,y,:(<): #,Z,PC: Z,PC: "LOERR": H / , : ::'FILE NOT FOUND . "SAVE" FL  #,BF< BF , , , ,  ,  ,  ,  ,  , & , 0 , : , D  #,CO,XA,YA: #,CO,LX,LY,X1,Y1: #,Z,X1,Y1,CO:# #,CO,LX,LY,R,AS,AW,EW:" #,CO,TX,TY,TX$,XA,YA:& #,XA,YA:0 : #,BC:D #,Z,PC: N "ENDE"$X E$"S ? [J/N]:":"EINGABE" b B$"J"l FL 0v E$DT$NR$" ? [J/N]:":"EINGABE" B$"N"# BC:"POKE"::: "EINGABE" H:B$"":BLD CX(E$) : @,?,E$,,:B$"" T$" CX,?,"",, T$"" * []CX,?,"",,C T$(P) [],>,,F,: T$()"DEL"; CX,?,T$,,:CXCX:BLBL B$B$T$:  "DEL":CXCX5 CX(E$) CX(E$) 7 BL : BLBL:B$(B$,BL):  "AUSWAHL"* ,,@,<:,=,,G:[],>,,F,:,,,<,l4 Y@:IAZ:,Y,B$(I),,:YY::[],,,<^> [],>,,F,:,?,"MINI-CAD 800",,H R "AUSWERT" \ L(B$)f IL&p ((B$,I,))0 JI:ILz - XA((B$,J)):YA((B$,LJ)) "INFO" [],>,,F,: ,?,"[CR]=M/F [N]=F ",,  "INFO1" [],>,,F,: ,?,"C [S]=S [L]=L [R]=R",,  "INFO2"R [],>,,F,: ,?,E$,, "NEIN"& NE , , $, ., 8, B, L([]LX,LY,X1,Y1:X1LX:Y1LY:[PT]X1,Y1:($[]LX,LY,X1,Y1:X1LX:Y1LY:.[PT]X1,Y1,CO:8[]LX,LY,R,AS:#B[]LX,LY,R,AS,AW,EW,O:FL,:,@:,0:@,p:V"FEHLER"r`[],>,,F,: ,?,"F E H L E R !!!",,:, jz:"QUIT":"MENUE" t"FDERR"+~ h  : H v[],>,,F: ,?,"S ...",,:,@:a1[],>,,F,  "NOLIST": :'NOT READYh[],>,,F,:  ,?,"D !!!",,T$:T$"" :'KEINE RAM-DISCu[],>,,F,:  ,?,"K RAM-D !!! [CR]",,T$:T$"" ::' YAYAPY: ZXAXAPX:YAYAPY: ZXAXAPX: Z(XAXAPX:YAYAPY: Z2YAYAPY: Z<XAXAPX:YAYAPY: ZFXAXAPX: ZPXAXAPX:YAYAPYZXA XAdYA; YA;nXA XAxYA YA9"QUIT":[],>,,F,Y[]@,YY,@,YY`,: ,YY,B$(ZY),,H,:;19,MOVE,LINE,BOX,CIRCLE,PAINT,SET,MANU.,BEMA.,B.TEIL=TEXT,COLOR,PAL,BORDER,RASTER,HCOPY,CLS,LOSCH.,LOAD,ENDE?,,,,,,,,,=,,,,,