10 REM ***************************
20 REM **  LAUFWERKE  ANPASSEN  **
30 REM **  FUER   PRODATEI 128  **
40 REM ** - - - - - - - - - - - **
50 REM **  GESCHRIEBEN     VON  **
60 REM **  CHRISTOPHER PRENZEL  **
70 REM **  (C) 1989  BY  64'ER  **
80 REM ***************************
90 (null)%
100 :
110 REM *** DATEN AUS FILE HOLEN
120 :
130 FI$="V.DEFAULT       "
140 VO$="":G$="":D$="":P$=""
150 OPEN2,8,2,FI$
160 FORI=1TO30
170 GET#2,A$
180 VO$=VO$+CHR$(ASC(A$))
190 NEXT I
200 CLOSE2
210 :
220 REM *** DATEN AENDERN
230 :
240 FOR I=1TO4
250 G=0:D=0:P=0
260 PRINT"";I;". ";
270 INPUT"LAUFWERK NUMMER (8-11,0=KEIN) : ";G
280 IFG=0THEN350
290 IFG<8ORG>11THEN260
300 INPUT"DRIVE (0/1)                  : ";D
310 IFD<>0ANDD<>1THEN300
320 INPUT"PARALLEL (J=1,N=0)           : ";P
330 IFP<>0ANDP<>1THEN320
340 IFP=1THENP=128
350 G$=G$+CHR$(G)
360 D$=D$+CHR$(48+D)
370 P$=P$+CHR$(P)
380 NEXTI
390 G$=G$+D$+P$
400 G$=LEFT$(VO$,10)+G$
410 VO$=G$+RIGHT$(VO$,8)
420 :
430 REM *** DATEN IN FILE SCHREIBEN
440 :
450 (null)(FI$)
460 OPEN2,8,2,(FI$)+",P,W"
470 FORI=1TO30
480 PRINT#2,MID$(VO$,I,1);
490 NEXT I
500 CLOSE2