10 PRINT"[147]       ****  PRINTER-BASIC  ****"
20 PRINT"         INTERFACE -ANPASSUNG"
30 PRINT"  DISKETTE MIT PRINTER-BASIC[146] EINLEGEN,"
40 PRINT"      SCHREIBSCHUTZ ENTFERNEN UND"
50 PRINT"            RETURN[146] DRUECKEN"
60 GETA$:IFA$<>CHR$(13)THEN60
65 PRINT"[147]              BITTE WARTEN"
70 OPEN2,8,2,"PRINTER-BASIC,P,R"
80 DIMW$(1900):I=0
90 GET#2,A$:W$(I)=A$:IFST=0THENI=I+1:GOTO90
100 CLOSE2
110 PRINT"[147] DEVICENUMMER  ";ASC(W$(799)+CHR$(0))
115 INPUT"[145]";A
120 W$(799)=CHR$(A)
130 PRINT" FILENUMMER    ";ASC(W$(797)+CHR$(0))
135 INPUT"[145]";A
140 W$(797)=CHR$(A):W$(822)=W$(797)
150 PRINT" SEKUNDAERADR. ";ASC(W$(801)+CHR$(0))
155 INPUT"[145]";A
160 W$(801)=CHR$(A)
170 PRINT" SIND SIE SICHER (J/N) ?"
180 GETA$:IFA$="N"THEN110
190 IFA$<>"J"THEN180
195 PRINT"              BITTE WARTEN"
200 OPEN1,8,15,"S:PRINTER-BASIC"
210 OPEN2,8,2,"PRINTER-BASIC,P,W"
220 FORI=0TO1900:PRINT#2,CHR$(ASC(W$(I)+CHR$(0)));:NEXT
230 CLOSE2