MZ-800 CAD GId:'MZ-800 MINI-CAD V2.3$n:' NASLEDUJICI RADEK NENI DLEo:' ORIGINALU !!!!!s .,I:"CRT:M3"x:'. B$(),FA$(p),BT$(H): - I p: FA$(I)::AD.5PT:P$(,~,~,~,~,~,~,)@RX :RY :MS :SF:DT$"Z N."@BC:"POKE": :  ,H:X1:Y14 "NOLIST",#,"FD1:BAUTEILLISTE":#,BT( I BT:#,BT$(I)::C@,:"INSTALLATION:":@,,~,J @,:"SPEICHERN AUF FLOPPY-DISC/RAM-DISC/TAPE ? [F/R/T]" T$: T$"" T$"F" SM$"FD1:": H,:":FLOPPY-DISC":: T$"R"SM$"RAM:": H,:":RAM-DISC":: T$"T" SM$"CMT:": P,:":TAPE": , : F `, :"LADEN VON FLOPPY-DISC/RAM-DISC/TAPE ? [F/R/T]" T$: T$""  T$"F" LM$"FD1:": P, :":FLOPPY-DISC":: T$"R" LM$"RAM:": P, :":RAM-DISC":: T$"T" LM$"CMT:": P, :":TAPE" : , : E @,(:"SOLL DIE EINGABEN GESPEICHERT WERDEN ? [J/N]"" T$: T$"" "f, T$"J" FL: H,(:":JA":: T$"N" FL: T:: , : "86 @,0:"DATEINAME ?:";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 () 8(T$(P))(()) H:   Y[]@,YY,@,YY`,: ,YY,B$(ZY),,2 () YYYY:ZYZY2 () YYYY:ZYZY. YYAZ@ YY@:ZY* YY@ YYAZ@:ZYAZ H,: W ZY , , *, , 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,Y1Z0 T$: 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:2D () , , (, 2, <, F, P, ZN[PT],X1,Y1:[LO]X1,Y1:[RO]X1,Y1:[LU]X1,Y1:[RU]X1,Y1:X1XA:Y1YA:  X"MANU"8bE$"MIT CURSORTASTEN STEUERN. [CR]=ENDE":"INFO2"XlXAX1:YAY1:PX:PY:BF:[CO]X1,Y1: FL #,,CO,XA,YA v T$ () *(())(T$(P))  v2 () , , (, 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$"" < T$(P) NE:"SAVE": : T$"N" "NEIN"  *"BOX",4LXX1:LYY1:NE@:BF:"MOVE"/>"INFO":[CO]LX,LY,X1,Y1: H,H T$: T$"" HR T$"N" "NEIN":\"SAVE":NE: f"PAINT"ApNE:BF :"MOVE": MO@ "COL" : ZMO:COMO8z"INFO":PT(X1,Y1):[Z]X1,Y1,CO: H, T$: T$"" " T$"N" "NEIN":"AUSWAHL":#"SAVE":NE:"AUSWAHL":"CIRCLE":LXX1:LYY1>E$"RADIUS IN X UND Y-RICHTUNG FESTLEGEN":"INFO2": ;R(X1LX):AS((R(Y1LY))): H,T[],>,,F,:E$"ANFANGS/ENDWINKEL:":"EINGABE"P"AUSWERT":AWXA()4:EWYA()4: H,3E$"SEGMENT? [J/N]:":"EINGABE": B$"J" H[CO]LX,LY,R,AS,AW,EW:NE :BF@: H,:"INFO" T$: T$""  T$"N" "NEIN":  "SAVE"NE:X1LX:Y1LY:A:'KREISSEGMENT----------------------------------------------J[CO]LX,LY,R,AS,AW,EW,O:NE@:BF`: H,:"INFO" $  ."COLOR".8"COL":COZ: H,:"AUSWAHL":B"BOR":BF@lL[],>,,F,: H,?,"MIT [_] UND [] AUSWAHLEN",,JV[],>,G,F,:T$"RANDFARBE: "FA$(BC).` @,?,T$,,:"POKE"#j T$: () t T$(P) "SAVE": ~ j% ()` BCBC% ()@ BCBC3 BC BCp : BCp BC  VE"POKE"(',>,BC,,,,,y,('): ,: "RASTER" E$"ABSTAND ? :":"EINGABE" (B$) B$"20":RX(B$):RYRX: MO@ "COL" : Z IRY < RY6 JRX @ RX: (J,I) [Z] J,I:B  H,@:[],>,,F,CE$B$" PUNKTE ENTSPRECHEN WIEVIEL CM ?:":"EINGABE":MS(B$)(B$) MSRX("AUSWAHL":C2"BEMASS"C<E$"ERSTEN BEMAUNGSPUNKT ANFAHREN UND [CR] DRUCKEN":"INFO2"'F :XVX1:YVY1: H,@DPE$"ZWEITEN BEMAUNGSPUNKT ANFAHREN UND [CR] DRUCKEN":"INFO2"'Z :XBX1:YBY1: H,d YVYB "SENK"Gn:'WAAGERECHT------------------------------------------------------1x[],>,,F,6E$"BEMAUNG OBEN ODER UNTEN [O/U] ?:":"EINGABE"c B$"O"BM :ZI:ZJ :ZK:: BM :ZI:ZJ :ZK XVXB HXV:XVXB:XBHVLXXV@: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$"BEMAUNG RECHTS ODER LINKS [R/L] ?:":"EINGABE"d B$"R" BM :ZI:ZJ :ZK:: BM :ZI:ZJ :ZK  YVYB HYV:YVYB:YBHV"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":Zr BT @,?,"KEINE BUTEILLE VORHANDEN !!!",,: ,@: a: TX((XBXV)XV)LR:TYYVBMZK:XA:YAXA:BFA|E$"REFERENZPUNKT ANFAHREN UND [CR] DRUCKEN":"INFO2": NXRX1:YRY1:[],?,,F,: H,PE$"FAKTOR FUR VERKLEIN/GROERUNG:":"EINGABE":V(B$): V Vi @,?,"BAUTEIL:",,: H,?,"MIT [_] UND [] AUSWAHLEN",,o[],?,"",,: ,?,BT$(Z),,: ,@ T$:(T$(P))(())  UB"EINGABE"U ()@ ZZ: :: ()` ZZ: -   HYV:YVYB:YBHW Z ZBT : ZBT ZYB: [CO]LX,LY,X1,Y1:BF:"SAVE"  "#@,"FD1:"BT$(Z)".BTL"#@,BF= (#@)#@:X1XR:Y1YR:COMO: AXA:BF/ 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,?,"MIT [_] UND [] AUSWAHLEN",,F[],>,G,F,:T$"FARBE: "FA$(PC)? @,?,T$,,: Z,PC: ,# T$: () ) T$(P) "SAVE":"AUSWAHL":  %  ()` PCPC% ()@ PCPC3  PC PCp : PCp PC * |4"CLS" E$"SICHER ? [J/N]:":"EINGABE":BF0.>E$"S ? [J/N]:":"EINGABE":BF0H B$"J" ;R[],,,;,:"SAVE": \"LOSCH"<fE$"MIT CURSORTASTEN STEUERN. [CR]=ENDE":"INFO2"cpXAX1:YAY1:PX:PY:BF : XA,YA:[MO],P$: FL #, ,XA,YA z T$ () V(())(T$(P)) XA,YA:[]," ":   z3 () , , (, 2, <, F, P, Z9 XA,YA:[MO],P$: FL #, ,XA,YA  z FL #, ,XA,YAX1XA:Y1YA:U"COL":MO@ ZB@:ZX1:ZS@ : ZB:ZX:ZS4E$"FARBE AUSWAHLEN UND [CR] DRUCKEN":"INFO2":Y :[],,,;, IZS  = ,Y,,Y ,I:YY@::Y :ZMO, ,Y,"->",,: H  T$ () 8 7$ (T$(P))(()) H: t .  *8 [],Y,"",,.B () YY@:ZZ.L () YY@:ZZV YZX Y :ZZB` Y YZX:Zj H,:  t J~ "TEXT"9 "MOVE":[],>,,F,. E$"GROE ? (X/Y):":"EINGABE":"AUSWERT"1 E$"HORIZONTAL/VERTIKAL ? (H/V):":"EINGABE"+ TX$"":TL:TXX1:TYY1:BF B$"V" "VERT"' T$:PT(X1XA,Y1)A 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":BF P T$BZ 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 8 "LOAD":(FL)(SM$"CMT:")(LM$"CMT:") 6 E$DT$NR$" SICHER ZUMACHEN ? [J/N]:":"EINGABE", B$"J" :: #:FL:NR$"" "LOERR"1 H,@:E$"WELCHE "DT$:"EINGABE" FL  & B$NR$ , :  B$""  + (SM$"CMT:")(LM$"CMT:") #:X E$"SOLL DIE EINGABEN GESPEICHERT WERDEN [J/N] ?:":"EINGABE": B$"J" #:P E$"DATEINAME ?:"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 1 , : ::'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:KX "ENDE"$b E$"SICHER ? [J/N]:":"EINGABE"l B$"J" v FL 0 E$DT$NR$" SPEICHERN ? [J/N]:":"EINGABE" B$"N" #! BC:"POKE"::"MENUE" "EINGABE" H:B$"":BLD CX(E$) : @,?,E$,,:B$"" T$# CX,?,"",, T$"" * []CX,?,"",,D T$(P) [],>,,F,: T$() "DEL"< CX,?,T$,,:CXCX:BLBL B$B$T$:  "DEL":CXCX6 CX(E$) CX(E$) 9 BL : BLBL:B$(B$,BL): 9* "AUSWAHL"4 ,,@,<:,=,,G:[],>,,F,:,,,<,p> Y@: I AZ: ,Y,B$(I),,:YY::[],,,<_H [],>,,F,: ,?,"MINI-CAD 800",,R 8\ "AUSWERT" f L(B$)p I L'z ((B$,I,))0 JI:IL - XA((B$,J)):YA((B$,LJ)) 8 "INFO" [],>,,F,: ,?,"[CR]=MENUE/FUNKTION AUSFUHREN [N]=FUNKTION RUCKGANGIG",,  "INFO1" [],>,,F,:  ,?,"CURSOR POSITIONIEREN [S]=SCHNELL [L]=LANGSAM [R]=RASTER",,  "INFO2"S [],>,,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:K`"FEHLER"tj[],>,,F,:  ,?,"F E H L E R !!!",,: , t z:"QUIT":"MENUE" ~"FDERR"+ h  : H w[],>,,F:  ,?,"SCHON VORHANDEN ...",,:,@:a1[],>,,F,  6"NOLIST": :'NOT READYh[],>,,F,:  ,?,"DISKETTE EINLEGEN !!!",, T$: T$"" :'KEINE RAM-DISCu[],>,,F,:  ,?,"KEINE RAM-DISC VORHANDEN !!! [CR]",, T$: T$"" : :'YAYAPY: dXAXAPX:YAYAPY: d(XAXAPX: d2XAXAPX:YAYAPY: d<YAYAPY: dFXAXAPX:YAYAPY: dPXAXAPX: dZXAXAPX:YAYAPYd XA XAn YA; YA;x XA XA YA 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@ SCWARC,BLAU,ROT,MAGENTA,GRUN,CYAN,DELB,WEI,GRAU,HELLBLAU> HELLROT,HELLMAGENTA,HELLGRUN,HELLCYAN,HELLGELB,HELLWEI% (.)I "MENUE": , ,: A$ %: B: A,B: A%"LPT:M0,S3":P (X);"1";B A D:P (X);"K";();();4 B @:AD A B7*,AD :*,(AD):(),TX$,TX$)P TX$;: 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,356 58,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