2 ! +++++++++++++++++++++++++++++++++++
3 ! Program ....     TXTPRINT.800
4 ! Utg}va  1.2      1983-04-25
5 ! av (c) Bo Kullmar
8 ! Ins{nt av Bo Kullmr, 1789.
9 ! +++++++++++++++++++++++++++++++++++
50 ON ERROR GOTO 10000
60 FLOAT 
80 EXTEND 
300 DIM Rad$=200
1000 ; CHR$(12) DBLE '  Utskrift av textfil p} skrivare!' : ; : ; : ; : ; : ; 
1010 ; 'Utskrift sker i f|rekommande fall med   understryckning' : ; 
1020 ; 'Styrtecken f|r start av underskrift {r  "_" och stopp {r ocks} "_".' : ; : ; 
1030 INPUT 'Form Fed? (J/<N>) '\$
1050 ; 
1060 INPUT 'Antal ex? 'Ex
1070 ; 
1080 INPUT 'Filnamn? (Ext .TXT {r def) 'Fil$
1090 S|k=INSTR(1,Fil$,'.')
1100 IF S|k=0 THEN Fil$=Fil$+'.TXT' : ; CUR(PEEK(-173)-1,27) Fil$
1110 FOR Y=1 TO Ex
1115   ; CUR(20,0) 'Ex nr' Y 'skrivs nu ut!'
1120   OPEN Fil$ AS FILE 1
1130   PREPARE 'PR:' AS FILE 9
1135   IF \$='J' AND \$='j' THEN ; #9,CHR$(12);
1140   WHILE -1. ! Dummyvillkor alltid uppfyllt
1150     INPUT LINE #1,Rad$
1160     S|k=INSTR(1,Rad$,'_')
1170     WHILE S|k<>0
1180       Rad$=LEFT$(Rad$,S|k-1)+CHR$(29)+RIGHT$(Rad$,S|k+1)
1190       S|k=INSTR(S|k+1,Rad$,'_')
1200       Rad$=LEFT$(Rad$,S|k-1)+CHR$(31)+RIGHT$(Rad$,S|k+1)
1210       S|k=0
1220     WEND 
1230     ; #9,Rad$;
1240   WEND 
1250   CLOSE 
1260 NEXT Y 
1270 ; : ; : ; 'Datorn {r klar!' : ; 
1280 END 
10000 IF ERRCODE=34 THEN RESUME 1260
10010 ; 'Fel nr' ERRCODE
10020 END