MINI CAD jD#d:'MZ-800 MINI-CAD V 2.3#n:' N o:' !!!s .,I:"CRT:M3"x:'. B$(),FA$(p),BT$(H): *Ip: FA$(I)::AD.5PT:P$(,~,~,~,~,~,~,)@RX :RY :MS :SF:DT$"Z N."2BC:"POKE": ::X1:Y14 "NOLIST",#,"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: T::, : "76@,0:"D ?:";DT$;":";:" ";NR$@ "FDERR"J#,SM$DT$NR$`T () "CRT:M3":MO:: "CRT:M4":,@:,0:MO@2^COMO:: AZ:IAZ:B$(I)::"AUSWAHL"+h"MENUE":,,@,<r "FEHLER"9|YY@:ZY:,/,,:,COX[MO]@,YY,@,YY`,MO:[],YY,B$(ZY),,~T$:T$"H"MO@,:@,p:,@:,0:: ,:,p() 5(T$(P))(())H:   Y[]@,YY,@,YY`,: ,YY,B$(ZY),,1() YYYY:ZYZY1() YYYY:ZYZY-YYAZ@ YY@:ZY)YY@ YYAZ@:ZYAZH,: TZY , , *, , f, , X, 2, h, ~ , ., , B, , , 4, \, , X "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,Y1V0T$: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:0D() , , (, 2, <, F, P, ZN[PT],X1,Y1:[LO]X1,Y1:[RO]X1,Y1:[LU]X1,Y1:[RU]X1,Y1:X1XA:Y1YA:  X"MANU"8bE$"M C . [CR]=ENDE":"INFO2"XlXAX1:YAY1:PX:PY:BF:[CO]X1,Y1: FL #,,CO,XA,YAvT$() *(())(T$(P))  v0() , , (, 2, <, F, P, Z.[CO]XA,YA: FL #,,CO,XA,YAX1XA:Y1YA: 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",4LXX1:LYY1:NE@:BF:"MOVE".>"INFO":[CO]LX,LY,X1,Y1:H,HT$:T$"" HRT$"N""NEIN":\"SAVE":NE: f"PAINT"@pNE:BF :"MOVE": MO@ "COL": ZMO:COMO7z"INFO":PT(X1,Y1):[Z]X1,Y1,CO:H,T$:T$""  T$"N""NEIN":"AUSWAHL":#"SAVE":NE:"AUSWAHL":"CIRCLE":LXX1:LYY1>E$"R X Y-R ":"INFO2": :R(X1LX):AS((R(Y1LY))):H,T[],>,,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"-8"COL":COZ:H,:"AUSWAHL":B"BOR":BF@kL[],>,,F,:H,?,"M [_] [] ",,JV[],>,G,F,:T$"R: "FA$(BC)-`@,?,T$,,:"POKE"jT$:() tT$(P)"SAVE": ~ j$()` BCBC$()@ BCBC/BC BCp:“BCp BC  V "POKE"(',>,BC,,,,,y,('):,:"RASTER" E$"A ? :":"EINGABE"(B$) B$"20":RX(B$):RYRX: MO@ "COL" : Z=IRY<RY:JRX@RX:(J,I)[Z]J,I:A H,@:[],>,,F,CE$B$" P ?:":"EINGABE":MS(B$)(B$) MSRX("AUSWAHL":2"BEMASS"C<E$"E B [CR] ":"INFO2"%F :XVX1:YVY1:H,@DPE$"Z B [CR] ":"INFO2"%Z :XBX1:YBY1:H,dYVYB"SENK"n:'WAAGERECHT1x[],>,,F,6E$"B O U [O/U] ?:":"EINGABE"bB$"O"BM :ZI:ZJ :ZK:: BM :ZI:ZJ :ZKXVXB HXV:XVXB:XBHTLXXV@:LYYVBM:X1XB@:Y1YBBM:[CO]LX,LY,X1,Y1:BF:"SAVE"LLXXV:LYYVBMZI:X1XV:Y1YVBMZJ:[CO]LX,LY,X1,Y1:BF:"SAVE"LLXXB:LYYBBMZI:X1XB:Y1YBBMZJ:[CO]LX,LY,X1,Y1:BF:"SAVE"KLRXBXV: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:YBHT"LXXVBM:LYYV:X1XVBM:Y1YB:[CO]LX,LY,X1,Y1:BF:"SAVE"L,LXXVBMZJ:LYYV:X1XVBMZI:Y1YV:[CO]LX,LY,X1,Y1:BF:"SAVE"L6LXXBBMZI:LYYB:X1XBBMZJ:Y1YB:[CO]LX,LY,X1,Y1:BF:"SAVE"K@LRYBYV:TX$(((LRMSRYH)H)):LR(TX$)KJTY((YBYV)YV)LR:TXXVBMZK:XA:YAXA:BF1T[CO]TX,TY,TX$,,,:"SAVE"^X1XV:Y1YV:h"TEIL":ZfrBT@,?,"K B !!!",,:,@:a:@|E$"R [CR] ":"INFO2": MXRX1:YRY1:[],?,,F,:H,OE$"F V/:":"EINGABE":V(B$):V Vg@,?,"B:",,:H,?,"M [_] [] ",,m[],?,"",,:,?,BT$(Z),,:,1T$:(T$(P))(()) M()@ ZZ: :: ()` ZZ:   ' Z ZBT : ZBT Z  "#@,"FD1:"BT$(Z)".BTL"#@,BF-(#@)#@:X1XR:Y1YR:COMO:,BF &, , &, :, N, b, v, , "SAVE": H#@,CO,X1,Y1,X2,Y2:LXXRX1V:LYYRY1V:X1XRX2V:Y1YRY2V[CO]LX,LY,X1,Y1:,&#@,CO,X1,Y1:XAXRX1V:YAYRY1V0[CO]XA,YA:H:#@,CO,X1,Y1,X2,Y2:LXXRX1V:LYYRY1V:X1XRX2V:Y1YRY2VD[CO]LX,LY,X1,Y1:.N#@,Z,X1,Y1,CO:X1XRX1V:Y1YRY1VX[Z]X1,Y1,CO:=b#@,CO,X1,Y1,R,AS,AW,EW:LXXRX1V:LYYRY1V:RRVl[CO]LX,LY,R,AS,AW,EW:=v#@,CO,X1,Y1,R,AS,AW,EW:LXXRX1V:LYYRY1V:RRV[CO]LX,LY,R,AS,AW,EW,O:6#@,CO,XT,YT,TX$,XA,YA:TXXRXTV:TYYRYTV[CO]TX,TY,TX$,XA,YA:6#@,CO,XT,YT,TX$,XA,YA:TXXRXTV:TYYRYTV#[CO]TX,TY,TX$,YA,XA,::"HCOPY":[],=,,=: : "PAL""COL":BFP:PCpk[],>,,F,:H,?,"M [_] [] ",,F[],>,G,F,:T$"F: "FA$(PC)<@,?,T$,,:Z,PC:, T$:() 'T$(P)"SAVE":"AUSWAHL":  $ ()` PCPC$()@ PCPC2 PC PCp : PCp PC *  4"CLS".>E$"S ? [J/N]:":"EINGABE":BF0 HB$"J";R[],,,;,:"SAVE": \"LOSCH"<fE$"M C . [CR]=E":"INFO2"cpXAX1:YAY1:PX:PY:BF : XA,YA:[MO],P$: FL #, ,XA,YAzT$() S(())(T$(P))XA,YA:[]," ":   z0() , , (, 2, <, F, P, Z8XA,YA:[MO],P$: FL #, ,XA,YA  z 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,"->",,:H T$ () 8 5$ (T$(P))(())H: t .  *8 [],Y,"",,-B () YY@:ZZ-L () YY@:ZZV YZX Y :ZZB` Y YZX:Zj H,:  t ~ "TEXT"9 "MOVE":[],>,,F,. E$"G ? (/):":"EINGABE":"AUSWERT"1 E$"H/V ? (H/V):":"EINGABE"+ TX$"":TL:TXX1:TYY1:BF B$"V""VERT"& T$:PT(X1XA,Y1)@ X1XA "SDEL" : X1 X1:TXX1 [MO]X1,Y1,"",XA,YA T$""  [PT]X1,Y1,"",XA,YA T$(P)  T$()"SDEL"G [CO]X1,Y1,T$,XA,YA:X1X1XA:TX$TX$T$:TLTL:  TX$"""SAVE":::  "SDEL"" X1X1XA: X1TX TXX1( TX$"" < 2 TLTL:TX$(TX$,TL) < F "VERT":BFP T$?Z Y1YA "VDEL": Y1< Y1<:TYY1Fd PT(X1,Y1YA):[MO]X1,Y1,"",YA,XA,n T$"" P !x [PT]X1,Y1,"",YA,XA, T$(P)  T$()"VDEL"N [CO]X1,Y1,T$,YA,XA,:Y1Y1YA:TX$TX$T$:TLTL: P  TX$"""SAVE": : "VDEL"" Y1Y1YA: Y1TY TYY1 TX$"" TLTL:TX$(TX$,TL) P 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, (#)#: <6 BF T , J , T , ^ , h , r , | , , , , , , @ " 0J #,CL,X1,Y1,X2,Y2:[CL]X1,Y1,X2,Y2:$T #,CL,X1,Y1:[CL]X1,Y1:0^ #,CL,X1,Y1,X2,Y2:[CL]X1,Y1,X2,Y2:*h #,CZ,X1,Y1,CL:[CZ]X1,Y1,CL::r #,CL,X1,Y1,R,AS,AW,EW:[CL]X1,Y1,R,AS,AW,EW:<| #,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":(gW) FL  #,BF< BF ,  , ,  ,  ,  ,  , & , & , 0 , : , D , N  #,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:0 #,XA,YA:: D #,BC:N #,Z,PC: X "ENDE"$b E$"S ? [J/N]:":"EINGABE" l B$"J"v FL 0 E$DT$NR$" ? [J/N]:":"EINGABE" B$"N"#! BC:"POKE"::"MENUE" "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"4 ,,@,<:,=,,G:[],>,,F,:,,,<,l> Y@:IAZ:,Y,B$(I),,:YY::[],,,<^H [],>,,F,:,?,"MINI-CAD 800",,R \ "AUSWERT" f L(B$)p IL&z ((B$,I,))0 JI:IL - 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, V([]LX,LY,X1,Y1:X1LX:Y1LY:$[PT]X1,Y1:(.[]LX,LY,X1,Y1:X1LX:Y1LY:8[PT]X1,Y1,CO:B[]LX,LY,R,AS:#L[]LX,LY,R,AS,AW,EW,O:FV,:,@:,0:@,p:`"FEHLER"rj[],>,,F,: ,?,"F E H L E R !!!",,:, tz:"QUIT":"MENUE" ~"FDERR"+ h  : H v[],>,,F: ,?,"S ...",,:,@:a1[],>,,F,  6"NOLIST": :'NOT READYh[],>,,F,:  ,?,"D !!!",,T$:T$"" :'KEINE RAM-DISCu[],>,,F,:  ,?,"K RAM-D !!! [CR]",,T$:T$"" : :'YAYAPY: dXAXAPX:YAYAPY: d(XAXAPX: d2XAXAPX:YAYAPY: d<YAYAPY: dFXAXAPX:YAYAPY: dPXAXAPX: dZXAXAPX:YAYAPYdXA XAnYA; YA;xXA XAYA 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?,,,,,,,,,=,,,,,"(.)I"MENUE":„% ,:A$%:B:A,B:A$"LPT:M0,S3":P(X);"1";>AD:P(X);"K";();();1B@:AD A B7*,AD :*,(AD):(),TX$,TX$)PTX$;:B:P:A%""LPT:M0,S2":P(X);"2":,219,224,62,1,211,205,221,42,0,42,62,4,50,2,42,62,20,50,3,42,33,0,43,62,8,50,4,42,221,70,0,203,24,245,203,22,241,203,22,35658,4,42,61,50,4,42,14,0,185,194,31,41,221,35,58,3,42,61,50,3,42,14,0,185,194,23,41,229,221,229,225,17,60,0,25,229,221,225,225F@ 58,2,42,61,50,2,42,14,0,185,194,15,41,219,225,17,0,43,6,160,201