1 REM Ins{nt av 2635
10 REM 
20 REM 
30 REM ****  UTSKRIFT  ****************
40 REM ****  Mli 81-01-12 *************
50 REM skriver program, lagrade med 
60 REM LIST-kommando, p} skrivaren med
70 REM ordentliga radavst}nd och
80 REM utan att g} ut i marginalen
90 REM ********************************
100 DIM R$=123
110 GOSUB 310
120 ; CHR$(12)
130 ; "Dubbelt radavst}nd (J/N)?"; : GET C$ : IF C$="J" OR C$="j" C=10 : ; " Ja" : ; ELSE C=0 : ; " Nej" : ; 
140 ; "VILKET PROGRAM? (ange {ven filtyp," : ; "                 t ex .BAS)"
150 INPUTLINE P$
160 P$=LEFT$(P$,LEN(P$)-2)
170 OPEN P$ ASFILE 1
180 OPEN "PR:" ASFILE 9
190 ; #9CHR$(13,13);
200 ONERRORGOTO 280
210 INPUTLINE #1,R$
220 IF LEN(R$)=2 THEN 280
230 R$=LEFT$(R$,LEN(R$)-2)
240 IF LEN(R$)<71 THEN 260
250 ; #9TAB(4)LEFT$(R$,70)CHR$(13,10,C)TAB(8)RIGHT$(R$,71); : GOTO 270
260 ; #9TAB(4)R$;
270 ; #9CHR$(13,10,C); : GOTO 210
280 ; #9CHR$(13,10,28,14)TAB(4)"DONE" : ; #9CHR$(25,15)
290 CLOSE 1 : CLOSE 9
300 END 
310 REM Printer-VFU-laddning ***********
320 REM ************ 80-12-03 Mli ******
330 OPEN "PR:" ASFILE 9
340 ; #9CHR$(29,65,64); : REM T.O.F.-kod rad 1
350 FOR V=1 TO 10 : FOR V1=1 TO 5 : ; #9CHR$(64,64); : NEXT V1 : ; #9CHR$(66,64); : NEXT V
360 REM Tab i kanal 2 var 6 : e rad (60 r)
370 ; #9CHR$(64,64,67,64); : REM B.O.F.-kod rad 63
380 FOR V=1 TO 9 : ; #9CHR$(64,64); : NEXT V : REM Rad 64 t o m 72
390 ; #9CHR$(65,64,30); : REM T.O.F.-kod rad 73
400 CLOSE 9
410 RETURN