10 REM **********************************
20 REM *         FILM-COVERTER:         *
30 REM *     GIGA-CAD  <->  HI-EDDI     *
40 REM * -------------------------------*
50 REM *       WRITTEN IN 1986 BY       *
60 REM *        STEFAN VILSMEIER &      *
70 REM *        STEFAN LIPPSTREU        *
80 REM **********************************
90 :
100 :
110 A=PEEK(836)+1:POKE836,A:IFA=1THENLOAD"HICON.OBJ",8,1
120 POKE53280,14:POKE53281,15:POKE646,11:OPEN1,8,15,"U9":CLOSE1:PRINTTCHR$(14);CHR$(8)
130 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
140 PRINT"  [198]ILM-[195]ONVERTER: [199]IGA-[195][193][196] <-> [200]I-[197]DDI [146]"
150 FORI=0TO21:PRINT" [180]                                    [170]":NEXT
160 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
170 FL=0:PRINT" [193]. - [199]IGA-[195][193][196] --> [200]I-[197]DDI"
180 PRINT" [194]. - [200]I-[197]DDI  --> [199]IGA-[195][193][196]"
190 PRINT" [195]. - [196]ISKETTENKOMMANDO SENDEN"
200 PRINT" [196]. - [196]IRECTORY ANZEIGEN"
210 PRINT" [197]. - [199]RAFIK ANSEHEN"
220 FORI=1TO9:PRINT" [180]                                    [170]":NEXT
230 PRINT" [180]         [215]RITTEN IN 1986 BY         [170]"
240 PRINT" [180][211]TEFAN [214]ILSMEIER &  [211]TEFAN [204]IPPSTREU[170]"
250 GETA$:IFA$<"A"ORA$>"E"GOTO250
260 A=ASC(A$):B=4+2*40+(A-64)*80:POKE1024+B,122:POKE55296+B,11
270 ONA-64GOTO850,1060,450,340,1210
280 :
290 :
300 REM *********************************
310 REM *     DIRECTORY ANZEIGEN        *
320 REM *********************************
330 :
340 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
350 PRINT"           [196]IRECTORY ANZEIGEN          ":PRINT
360 OPEN1,8,15:OPEN2,8,0,"$0":GOSUB530:IFFGOTO100
370 SYS50182:CLOSE2:GOSUB530:IFF=0THENGOSUB580
380 GOTO100
390 :
400 :
410 REM *********************************
420 REM *     DISKETTENKOMMANDO SENDEN  *
430 REM *********************************
440 :
450 GOSUB600
460 POKE631,34:POKE198,1
470 INPUT"[203]OMMANDO ";C$:IFC$=""ORC$="_"GOTO170
480 OPEN1,8,15,C$:GOSUB530:IFF=0THENGOSUB550
490 GOTO170
500 GETX$:IFX$=""GOTO500
510 RETURN
520 SYS50179,0:PRINTCHR$(14)CHR$(8);:RETURN
530 INPUT#1,F,F$,T,S:IFF=0THENRETURN
540 IFFLTHENGOSUB520
550 PRINT:PRINT" [196]ISKETTENSTATUS :"
560 PRINT""F","F$","T","S
570 POKE198,0
580 GOSUB500
590 CLOSE2:PRINT#1,"U9":CLOSE1:RETURN
600 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
610 FORI=1TO9:PRINT"                                       ":NEXT
620 RETURN
630 :
640 :
650 REM *********************************
660 REM *     EINGABE-ROUTINEN          *
670 REM *********************************
680 :
690 FORI=1TO4:N1$=N$(I-1):IFN1$="-"GOTO720
700 W=2:IFN1$<>""THENIFMID$(N1$,LEN(N1$)-1,1)<>" "THENW=3
710 IFN1$<>""THENN$=LEFT$(N1$,LEN(N1$)-W)+STR$(VAL(RIGHT$(N1$,W))+1)
720 PRINT"                 ";N$;"          "
730 INPUT"[198]ILMBILD ";N$(I)
740 IFN$(I)="_"ORN$(I)=""THENF=1:RETURN
750 NEXT:F=0:N$(0)=N$(4):RETURN
760 PRINT"                                    "
770 INPUT"[199]RAFIK-[206]AME ";N$:F=0:IFN$=""ORN$="_"THENF=1
780 RETURN
790 :
800 :
810 REM *********************************
820 REM *     GIGA-CAD --> HI-EDDI      *
830 REM *********************************
840 :
850 GOSUB600:GOSUB690:IFFGOTO170
860 FL=1:PRINT"[198]ILM-[196]ISKETTE EINLEGEN!":GOSUB500
870 PRINT"[145]                             [145][145][145]"
880 SYS50176,11,15:SYS50179,1:FORI=1TO4:IFN$(I)="-"GOTO910
890 OPEN1,8,15:OPEN2,8,2,"FI."+N$(I)+",P,R":GOSUB530:IFFGOTO170
900 SYS50185,I:GOSUB530:IFFGOTO170
910 CLOSE2:CLOSE1:NEXT
920 GOSUB520
930 GOSUB760:IFFGOTO170
940 PRINT"[218]IEL-[196]ISKETTE EINLEGEN!":GOSUB500
950 PRINT"[145]                             [145][145][145]"
960 SYS50179,1
970 OPEN1,8,15:OPEN2,8,2,"PI."+N$+",P,W":GOSUB530:IFFGOTO170
980 SYS50194:GOSUB530:IFFGOTO170
990 CLOSE2:CLOSE1:GOSUB520:GOTO170
1000 :
1010 :
1020 REM ********************************
1030 REM *     HI-EDDI  --> GIGA-CAD    *
1040 REM ********************************
1050 :
1060 GOSUB600:GOSUB760:IFFGOTO170
1070 FL=1:PRINT"[199]RAFIK-[196]ISKETTE EINLEGEN!":GOSUB500
1080 PRINT"[145]                             [145][145][145]"
1090 SYS50176,11,15:SYS50179,1
1100 OPEN1,8,15:OPEN2,8,2,"PI."+N$+",P,R":GOSUB530:IFFGOTO170
1110 SYS50191:GOSUB530:IFFGOTO170
1120 CLOSE2:CLOSE1:GOSUB520
1130 GOSUB690:IFFGOTO170
1140 PRINT"[218]IEL-[196]ISKETTE EINLEGEN!":GOSUB500
1150 PRINT"[145]                             [145][145][145]"
1160 SYS50179,1:FORI=1TO4:IFN$(I)="-"GOTO910
1170 OPEN1,8,15:OPEN2,8,2,"FI."+N$(I)+",P,W":GOSUB530:IFFGOTO170
1180 SYS50188,I:GOSUB530:IFFGOTO170
1190 CLOSE2:CLOSE1:NEXT
1200 GOSUB520:GOTO170
1210 SYS50179,1:GOSUB500:SYS50179,0:GOSUB520:GOTO170