5 CLOSE 1:CLOSE 2:CLOSE 3
10 PRINT"[147]";CHR$(14):INPUT"[206]AME DER [212]EXT-[196]ATEI: ";NA$
15 INPUT"[206]AME DER [193]USGABE-DATEI: ";AUS$
20 OPEN 2,8,2,NA$+",P,R"
30 OPEN3,8,3,"@:"+AUS$+",S,W"
35 GET#2,A$:GET#2,A$:PRINT"[147]"
36 :
37 FOR I = 1TO 80:EN =0
40 GET#2,A$:IFA$="" THEN A$=CHR$(0)
50 IF ST <> 64 THEN GOSUB 100:IF EN=1 THEN 37
60 IF ST = 64 THEN PRINT#3,CHR$(64):CLOSE 2:CLOSE 3
65 NEXT I
70 PRINT "[147][198]ERTIG!":END
90 :
95 :
100 IF ASC(A$)=0 THEN RETURN
102 IF ASC(A$) >=1 AND ASC(A$) <=26 THENA$ = CHR$(ASC(A$)+64):GOSUB 500:RETURN
103 IF ASC(A$) >=32AND ASC(A$) <=64 THEN GOSUB 500:RETURN
105 IF ASC(A$) >=65 AND ASC(A$) <=90 THEN A$ =CHR$(ASC(A$)+128):GOSUB500:RETURN
111 IFASC(A$)=142THEN A$=CHR$(13)+CHR$(10):GOSUB500:GOSUB 200: EN=1: RETURN
115 IF ASC(A$) >=127 AND ASC(A$) <= 192 THEN RETURN
150 RETURN
160 :
200 X= 80 - I
205 FOR Z = 1 TO X : GET#2,A$::NEXT Z:RETURN
499 :
500 PRINT#3,A$;:PRINTA$;:RETURN