1000 IFA=0THENPRINT"[147] BITTE GIGADISK EINLEGEN":POKE198,0:WAIT198,1
1010 IFA=0THENPOKE55,0:POKE56,80:CLR:A=0
1020 IFA=0THENA=1:LOAD"HIRES1.CAD.OBJ",8,1
1030 IFA=1THENA=2:LOAD"HIRES2.CAD.OBJ",8,1
1040 IFA=2THENA=3:LOAD"HIRES3.CAD.OBJ",8,1
1050 IFA=3THENA=4:LOAD"HIRES4.CAD.OBJ",8,1
1060 SE=0:CLR:CLOSE14:OPEN14,8,15
1070 POKE53280,11:POKE53281,11
1080 SM$="[147]":PRINTSM$
1090 PRINT"[146][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
1100 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][221]         ";
1110 PRINT"                        "CHR$(34)"";
1120 POKE212,0
1130 PRINT"    [221][221]   3D - KONVERT BY ";
1140 PRINT"STEFAN SABLATNOG   [221][221]    ";
1150 PRINT" OBJEKTE VON GIGA-CAD UND";
1160 PRINT" PED     [221][221]  KOENNEN UNTE";
1170 PRINT"REINANDER AUSGETAUSCHT  [221]";
1180 PRINT"[221]                WERDEN  ";
1190 PRINT"              [221][221]         ";
1200 PRINT"                         ";
1210 PRINT"    [221][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
1220 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221] GIG";
1230 PRINT"A-CAD FILE-NAME :OB.-----";
1240 PRINT"-------- [221][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
1250 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
1260 PRINT"[221] PED      FILE-NAME :---";
1270 PRINT"------------- [221][171][192][192][192][192][192][192][192][192][192]";
1280 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
1290 PRINT"[192][192][192][192][179][221]                   ";
1300 PRINT"                   [221][221]   >";
1310 PRINT"F1<- GIGA-CAD -> PED     ";
1320 PRINT"         [221][221]              ";
1330 PRINT"                        [221]";
1340 PRINT"[221]   >F3<- PED -> GIGA-CAD";
1350 PRINT"              [221][221]         ";
1360 PRINT"                         ";
1370 PRINT"    [221][221]   >F5<- NAMEN FEST";
1380 PRINT"LEGEN              [221][221]    ";
1390 PRINT"                         ";
1400 PRINT"         [221][221]   >F7<- ENDE ";
1410 PRINT"                        [221]";
1420 PRINT"[221]                        ";
1430 PRINT"              [221][221]   >F8<- ";
1440 PRINT"DIRECTORY                ";
1450 PRINT"    [221][221]                    ";
1460 PRINT"                  [221][202][192][192][192][192][192]";
1470 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
1480 PRINT"[192][192][192][192][192][192][192][192][203]";
1490 PRINT"[158]";NG$
1500 PRINT"";NP$;""
1510 POKE198,0:WAIT198,1
1520 GETG$
1530 IFASC(G$+CHR$(0))=133THENIFSE=1THEN4430
1540 IFASC(G$+CHR$(0))=134THENIFSE=1THEN1680
1550 IFASC(G$+CHR$(0))=135THENGOTO1580
1560 IFASC(G$+CHR$(0))=136THENPRINT"[147]":CLOSE14:END
1565 IFASC(G$+CHR$(0))=140THENGOTO1571
1570 GOTO1510
1571 PRINT"[147]";
1572 OPEN2,8,0,"$0":SYS26134:CLOSE2
1573 POKE198,0:WAIT198,1:POKE198,0
1574 GOTO1080
1580 INPUT"[147]GIGA-CAD-FILE : ";NG$
1590 INPUT"PED FILE      : ";NP$
1600 IFLEFT$(NG$,3)<>"OB."THENNG$="OB."+NG$
1610 SE=1
1620 GOTO1080
1630 REM *****************************
1640 REM *                           *
1650 REM *   PED  -> GIGA-CAD        *
1660 REM *                           *
1670 REM *****************************
1680 SYS25919
1690 SYS37021
1700 OPEN1,8,2,NP$+",S,R"
1710 GOSUB4790
1720 IFER<>0THEN1700
1730 INPUT#1,K:INPUT#1,E
1740 DIMX(E+1),Y(E+1),Z(E+1),N%(E+1),F(K+1),T(K+1)
1750 FORI=1TOK+1
1760 INPUT#1,F(I):INPUT#1,T(I)
1770 NEXT
1780 FORI=1TOE+1
1790 INPUT#1,X(I):INPUT#1,Y(I):INPUT#1,Z(I):INPUT#1,N%(I)
1800 NEXT
1810 CLOSE1
1820 GOSUB4790
1830 IFER<>0THEN1810
1840 DIMF%(1500)
1850 PRINTSM$
1860 PRINT"  [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1870 PRINT"  [221]                                 [221]"
1880 PRINT"  [221]         FLAECHEN MENUE          [221]"
1890 PRINT"  [221]                                 [221]"
1900 PRINT"  [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1910 PRINT"  [221] -1-  FLAECHENFILE LADEN         [221]"
1920 PRINT"  [221]                                 [221]"
1930 PRINT"  [221] -2-  FLAECHENFILE SPEICHERN     [221]"
1940 PRINT"  [221]                                 [221]"
1950 PRINT"  [221] -3-  GIGA-CADFILE SPEICHERN     [221]"
1960 PRINT"  [221]                                 [221]"
1970 PRINT"  [221] -4-  FLAECHEN [158]NEU[146] EINGEBE       [221]"
1980 PRINT"  [221]                                 [221]"
1990 PRINT"  [221] -5-  FLAECHEN[160]EDITIEREN         [221]"
2000 PRINT"  [221]                                 [221]"
2010 PRINT"  [221] -6-  FLAECHEN LISTEN BILDSCHIRM [221]"
2020 PRINT"  [221]                                 [221]"
2030 PRINT"  [221] -7-  FLAECHEN LISTEN DRUCKER    [221]"
2040 PRINT"  [221]                                 [221]"
2050 PRINT"  [221] -0-  ZURUECK (MIT DATENVERLUST) [221]"
2060 PRINT"  [221]                                 [221]"
2070 PRINT"  [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
2080 POKE198,0:WAIT198,1:GETG$
2090 ONVAL(G$)GOTO3020,2890,2450,2150,3430,3310,3200
2100 IFG$="0"THEN1060
2110 GOTO2080
2120 REM *****************************
2130 REM ***** FLAECHEN EINGEBEN *****
2140 REM *****************************
2150 PJ=1:F%(0)=-4
2160 PRINTSM$
2170 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
2180 PRINT"[221] BITTE GEBEN SIE DIE PUNKTNUMMERN EIN [221]";
2190 PRINT"[221]DIE DIE GEWUENSCHTE FLAECHE DEFINIEREN[221]";
2200 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
2210 PRINT"[221]  ENDE DER FLAECHE MIT FE, ENDE DER   [221]";
2220 PRINT"[221]        LETZTEN FLAECHE MIT E         [221]";
2230 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
2240 FORLF=1TO17:PRINT:NEXT
2250 PRINT"";
2260 INPUTI$
2270 IFI$="E"THENF%(PJ)=-2:GOTO1850
2280 IFI$="FE"THENGOTO2400
2290 EP%=VAL(I$)
2300 FORI=1TOE+1
2310 IFN%(I)=EP%THENI=E+1:NEXT:GOTO2370
2320 NEXT
2340 GOSUB5120
2360 GOTO2260
2370 F%(PJ)=EP%
2380 PJ=PJ+1
2390 GOTO2260
2400 F%(PJ)=-4:PJ=PJ+1
2410 GOTO2160
2420 REM *****************************
2430 REM ******GIGAFILE SPEICHERN*****
2440 REM *****************************
2450 PRINTSM$
2470 GOSUB5020
2500 FORI=1TOPJ
2510 IFSGN(F%(I))=-1THEN2640
2520 FORJ=1TOE+1
2530 IFN%(J)=F%(I)THENF%(I)=J:J=E+1:NEXT:GOTO2640
2540 NEXT
2550 PRINTSM$
2560 PRINT"   [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
2570 PRINT"   [221] FEHLER IN DER FLAECHENTABELLE [221]"
2580 PRINT"   [221] WAHRSCHEINLICH HABEN SIE EIN  [221]"
2590 PRINT"   [221] FALSCHES FLAECHENFILE GELADEN [221]"
2595 PRINT"   [221]           >>TASTE<<           [221]"
2600 PRINT"   [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
2610 FORLF=1TO10:PRINT:NEXT
2620 POKE198,0:WAIT198,1:POKE198,0
2630 GOTO1850
2640 NEXT
2650 FS=1:PN=1:NF=1
2660 FORI=1TOPJ
2670 IFF%(I)=-4ANDF3=0THENSYS40206,FS,NF,1,0:FS=PN:NF=NF+1:F3=1:GOTO2720
2680 IFF%(I)=-2THEN2730
2690 IFF%(I)=-3ORF%(I)=-4THEN2720
2700 SYS39718,X(F%(I)),Y(F%(I)),-Z(F%(I)),PN
2710 PN=PN+1:F3=0
2720 NEXT
2730 SYS40206,FS,NF,1,0
2740 IFF3=1THENNF=NF-1:PRINTPN;FS
2750 SYS40206,PN,NF+1,0,0
2760 OPEN2,8,2,NG$+",S,W"
2770 UM=1:GOSUB4790
2780 IFER<>0THEN2760
2790 PRINT#2,NF+1:PRINT#2,PN-1:PRINT#2,1
2800 SYS22520,NF+1,PN-1
2810 FORI=1TO1:PRINT#2,"MACRO":NEXT
2820 CLOSE2
2830 UM=1:GOSUB4790
2840 IFER<>0THEN2820
2850 GOTO1060
2860 REM *****************************
2870 REM *****F%    SPEICHERN*********
2880 REM *****************************
2890 GOSUB3150
2900 OPEN1,8,2,NF$+",S,W"
2910 UM=1:GOSUB4790:IFER<>0THEN2900
2920 PRINT#1,PJ
2930 FORI=1TOPJ
2940 PRINT#1,F%(I)
2950 NEXT
2960 CLOSE1
2970 UM=1:GOSUB4790:IFER<>0THEN2960
2980 GOTO1850
2990 REM *****************************
3000 REM *****F%    LADEN    *********
3010 REM *****************************
3020 GOSUB3150
3030 OPEN1,8,2,NF$+",S,R"
3040 UM=1:GOSUB4790:IFER<>0THEN3030
3050 INPUT#1,PJ
3060 FORI=1TOPJ
3070 INPUT#1,F%(I)
3080 NEXT
3090 CLOSE1
3100 UM=1:GOSUB4790:IFER<>0THEN3090
3110 GOTO1850
3120 REM *****************************
3130 REM *****GET F%NAME     *********
3140 REM *****************************
3150 INPUT"[147]NAME DES FLAECHENFILES";NF$
3160 RETURN
3170 REM *****************************
3180 REM ***** F% DRUCKEN ************
3190 REM *****************************
3200 OPEN1,4:F=1
3210 FORI=1TOPJ
3220 IFF%(I)=-4THENPRINT#1,"--("F")":F=F+1:GOTO3260
3230 IFF%(I)=-2THENPRINT#1,"--("F")":PRINT#1:GOTO3260
3240 IFF%(I)=-3THEN3260
3250 PRINT#1,"- ";F%(I);
3260 NEXT
3270 CLOSE1:GOTO1850
3280 REM *****************************
3290 REM ***** F% AUSGEBEN ***********
3300 REM *****************************
3310 F=1:PRINT"[147]";
3320 FORI=1TOPJ
3330 IFF%(I)=-4THENPRINT"--("F")":F=F+1:GOTO3360
3340 IFF%(I)=-2ORF%(I)=-3THEN3360
3350 PRINT"- ";F%(I);:GETA$:IFA$<>""THENPOKE198,0:WAIT198,1:POKE198,0
3360 NEXT
3370 PRINT"--("F")"
3380 POKE198,0:WAIT198,1:POKE198,0
3390 GOTO1850
3400 REM *****************************
3410 REM ***** EDITMENUE   ***********
3420 REM *****************************
3430 PRINTSM$
3440 PRINT"       [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
3450 PRINT"       [221]                        [221]"
3460 PRINT"       [221]      EDIT - MENUE      [221]"
3470 PRINT"       [221]                        [221]"
3480 PRINT"       [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
3490 PRINT"       [221]                        [221]"
3500 PRINT"       [221] -1- FLAECHEN ANHAENGEN [221]"
3510 PRINT"       [221]                        [221]"
3520 PRINT"       [221] -2- FLAECHE  AENDERN   [221]"
3530 PRINT"       [221]                        [221]"
3540 PRINT"       [221] -3- FLAECHE  LOESCHEN  [221]"
3550 PRINT"       [221]                        [221]"
3560 PRINT"       [221] -4- ZURUECK            [221]"
3570 PRINT"       [221]                        [221]"
3580 PRINT"       [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
3590 FORLF=1TO5:PRINT:NEXT
3600 POKE198,0:WAIT198,1:GETG$
3610 ONVAL(G$)GOTO3640,3900,4100,1850
3620 GOTO3600
3630 REM FLAECHE ANH. ****************
3640 F%(PJ)=-4:PJ=PJ+1:PRINTSM$
3650 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
3660 PRINT"[221] BITTE GEBEN SIE DIE PUNKTNUMMERN EIN [221]";
3670 PRINT"[221]DIE DIE GEWUENSCHTE FLAECHE DEFINIEREN[221]";
3680 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
3690 PRINT"[221]  ENDE DER FLAECHE MIT FE, ENDE DER   [221]";
3700 PRINT"[221]        LETZTEN FLAECHE MIT E         [221]";
3710 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]";
3720 FORLF=1TO17:PRINT:NEXT
3730 PRINT"";
3740 REM PJ BLEIBT ALT
3750 INPUTI$
3760 IFI$="E"THENF%(PJ)=-2:GOTO3430
3770 IFI$="FE"THENGOTO3640
3780 EP%=VAL(I$)
3790 FORI=1TOE+1
3800 IFN%(I)=EP%THENI=E+1:NEXT:GOTO3860
3810 NEXT
3820 GOSUB5120
3850 GOTO3750
3860 F%(PJ)=EP%
3870 PJ=PJ+1
3880 GOTO3750
3890 REM FLAECHE AEND. ***************
3900 INPUT"[147]NUMMER DER ZU AENDERNDEN FLAECHE        ";NU
3910 F=1:I=1
3920 IFF%(I)=-4ORF%(I)=-2THEN4010
3930 I=I+1
3940 IFI=<PJTHEN3920
3950 GOSUB5070
4010 IFF=NUTHEN4040
4020 F=F+1
4030 GOTO3930
4040 I=I-1
4050 IFF%(I)=-4THEN3430
4060 PRINT"[147]OLD POINT";F%(I)
4070 INPUT"NEW POINT";F%(I)
4080 PRINT:PRINT:GOTO4040
4090 REM FLAECHE LOSC. ***************
4100 INPUT"[147]NUMMER DER ZU LOESCHENDEN FLAECHE       ";NU
4110 PRINTSM$
4120 PRINT"          [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
4130 PRINT"          [221] FLAECHE  NUMMER [221]"
4140 PRINT"          [221].................[221]"
4150 PRINT"          [221]   LOESCHEN ??   [221]"
4160 PRINT"          [221]     >>J/N<<     [221]"
4170 PRINT"          [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
4180 PRINT"[145][145][145][145][158]"NU""
4190 FORLF=1TO10:PRINT:NEXT:POKE198,0:WAIT198,1:GETG$:IFG$="N"THEN3410
4200 IFG$<>"J"THEN4110
4210 F=1:I=1
4220 IFF%(I)=-4ORF%(I)=-2THEN4310
4230 I=I+1
4240 IFI=<PJTHEN4220
4250 GOSUB5070
4310 IFF=NUTHEN4340
4320 F=F+1
4330 GOTO4230
4340 I=I-1
4350 IFF%(I)=-4THEN3430
4360 F%(I)=-3
4370 GOTO4340
4380 REM *****************************
4390 REM *                           *
4400 REM *    GIGA-CAD -> PED        *
4410 REM *                           *
4420 REM *****************************
4430 GOSUB5020
4480 SYS37021
4490 OPEN2,8,2,NG$+",S,R"
4500 GOSUB4790:IFER<>0THEN4490
4510 INPUT#2,V:INPUT#2,D:INPUT#2,K
4520 SYS22541,V,D
4530 FORI=1TOK:INPUT#2,B$(I):NEXT
4540 CLOSE2
4550 GOSUB4790:IFER<>0THEN4540
4560 SYS40206,D+1,V,0,0
4570 OPEN1,8,2,NP$+",S,W"
4580 GOSUB4790:IFER<>0THEN4570
4590 PRINT#1,D-1:PRINT#1,D-1
4600 FORI=1TOV-1
4610 SYS40344,I
4620 FB=USR(1):Y=USR(2):Z=USR(3)
4630 SYS40344,I+1
4640 FE=USR(1):Y=USR(2):Z=USR(3)
4650 FORJ=FBTOFE-1
4660 IFJ=FE-1THENPRINT#1,FB:PRINT#1,J:GOTO4680
4670 PRINT#1,J:PRINT#1,J+1
4680 NEXT
4690 NEXT
4700 FORI=1TOD
4710 SYS40052,I
4720 X=USR(1):Y=USR(2):Z=USR(3)
4730 PRINT#1,X:PRINT#1,Y:PRINT#1,-Z:PRINT#1,I
4740 NEXT
4750 CLOSE1
4760 GOSUB4790:IFER<>0THEN4750
4770 GOTO1060
4780 REM FLOPPYFEHLERKANAL
4790 INPUT#14,ER,ER$,TR,SE
4800 :
4810 IFER=0THENRETURN
4820 CLOSE1:CLOSE2
4830 PRINTSM$
4840 PRINT"          [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
4850 PRINT"          [221]  BITTE  BEHEBEN  [221]"
4860 PRINT"          [221]     SIE  DAS     [221]"
4870 PRINT"          [221] FLOPPY - PROBLEM [221]"
4880 PRINT"          [221]                  [221]"
4890 PRINT"          [221]  TASTE - NOCHMAL [221]"
4900 PRINT"          [221]  F1  -   ABBRUCH [221]"
4910 PRINT"          [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
4920 PRINT"          [221]                  [221]"
4930 PRINT"          [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
4940 FORLF=1TO10:PRINT:NEXTLF
4950 IFLEN(ER$)<17THENER$=" "+ER$+" ":GOTO4950
4960 IFLEN(ER$)=17THENER$=ER$+" "
4970 PRINT"[158]";ER$;"[146]"
4980 POKE198,0:WAIT198,1:GETG$:IFASC(G$+CHR$(0))=133THEN5000
4990 RETURN
5000 IFUM=1THENUM=0:GOTO1850
5010 GOTO1060
5020 PRINTSM$
5030 PRINT"            [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
5040 PRINT"            [221] BITTE WARTEN [221]"
5050 PRINT"            [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
5060 FORLF=1TO10:PRINT:NEXTLF
5065 RETURN
5070 PRINTSM$
5080 PRINT"   [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
5085 PRINT"   [221] DIESE FLAECHE EXISTIERT NICHT [221]"
5086 PRINT"   [221]           >>TASTE<<           [221]"
5088 PRINT"   [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
5100 FORLF=1TO10:PRINT:NEXT
5105 POKE198,0:WAIT198,1:POKE198,0
5110 RETURN
5120 PRINT"     [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
5130 PRINT"     [221] DER PUNKT EXISTIERT NICHT [221]"
5140 PRINT"     [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
5150 RETURN