0 L=0:O=4
1 INPUT"[147][193]USGABE AUF [196][146]RUCKER ODER [194][146]ILDSCHIRM ";A$
2 IFA$="D"ORA$="[196]"THENO=4:GOTO5
3 IFA$="B"ORA$="[194]"THENO=3:PRINT"[211][200][201][198][212] DRUECKEN UM [193]USGABE ANZUHALTEN!":GOTO10
4 GOTO1
5 INPUT"[204]INEFEED SENDEN (J/N) ";A$
6 IFA$<>"J"ANDA$<>"N"THEN5
7 IFA$="J"THENL=1
10 OPEN1,8,0,"ANLEITUNG.ASCII,S,R"
20 OPEN2,O
30 GET#1,A$:A=ST
35 IFLTHENIFASC(A$)=13THENA$=A$+CHR$(10)
40 PRINT#2,A$;
41 IFPEEK(653)THEN41
45 IFST=-128THENCLOSE1:CLOSE2:PRINT"[196]RUCKER REAGIERT NICHT!":END
50 IFA<>64THEN30
60 CLOSE1:CLOSE2