3 REM DIESES PRG IST FUER ROF-FD SERIE
4 REM --------------------------------
8 PRINTCHR$(142)
10 PRINT"[155][147]";:POKE808,237:POKE53280,0:POKE53281,0  : REM   ^ DISABLE 'STOP'
118 PRINT"[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][164][164]";
120 PRINT" PROGRAMM ZUM AUSDRUCKEN VON SEQ-TEXTEN "
125 :
130 PRINT"     BITTE GEBEN SIE DEN FILENAMEN"
131 PRINT"      DES TEXTES EIN, WELCHEN SIE"
132 PRINT"      NUN AUSDRUCKEN WOLLEN!"
140 INPUT"      ?";B$
230 OPEN1,4,7:Q=1
240 OPEN5,8,5,B$+",S,R":GOSUB420
245 PRINT"[155]":POKE53280,0:POKE53281,0
250 PRINT"                                   "
260 PRINT"      DRUECKEN SIE EINE BELIEBIGE  "
270 PRINT"      TASTE UM DEN AUSDRUCK ANZU-  "
280 PRINT"      HALTEN/FORTZUSETZEN. Q=ENDE! "
290 PRINT"                                   "
300 GET#5,F$
310 IFST=0THEN330
320 IFST=64THEN440
330 IFQ<>1THENPRINTF$;:GOTO350
340 PRINT#1,F$;
350 GETA$
360 IFA$<>""THENGOSUB380
370 GOTO300
380 IFA$="Q"THEN440
390 GETA$:IFA$=""THEN390
400 IFA$="Q"THEN440
410 RETURN
420 CLOSE15:OPEN15,8,15:INPUT#15,D,E$,F,G
430 RETURN
440 Q=0:CLOSE1:CLOSE5:PRINT"      BITTE DRUECKEN SIE NUN ..Y.. "
450 FORA=1TO10000:GETA$:IFA$<>"Y"ANDA$<>"N"THENNEXT
460 IFA$="Y"THEN480
470 POKE808,237:PRINT"	[145]":GOTO4
480 PRINT"[147]LOAD"CHR$(34)"MENU"CHR$(34)",8":PRINT"RUN";
490 POKE631,13:POKE632,13:POKE198,2:END