1 REM Ins{nd av Leif Olsson <4483>    1985-07-12 12.13.47
10 ! Formkoll Hult`n,Data-ful DB
20 ! J{rvstigen 11 Falkenberg
30 EXTEND 
40 DEF FNS(S$)=((ASCII(S$) AND 95)=74) 
50 D0=0 : D1=1 : K=32 : Fil=0
60 IF PEEK(24678)=192 OR PEEK(24678)=195 D0=12 : D1=13 : K=1 ! Superdos
70 OPEN 'pr:' AS FILE 1
80 POKE 64256,213,17,0,0,205,102,96,6,0,33
90 POKE 64266,0,245,54,0,35,16,251,62,16,71
100 POKE 64276,79,175,209,205,54,251,205,62,251,219
110 POKE 64286,1,23,48,251,6,2,205,62,251,118
120 POKE 64296,118,6,0,33,0,245,205,96,251,119
130 POKE 64306,35,16,249,201,58,1,253,230,3,177
140 POKE 64316,79,201,205,96,96,211,2,219,1,203
150 POKE 64326,79,32,250,120,205,86,251,121,205,86
160 POKE 64336,251,122,205,86,251,123,245,219,1,15
170 POKE 64346,48,251,241,211,0,201,219,1,15,48
180 POKE 64356,251,219,0,201
190 POKE -749,245 : POKE -767,D0
200 ON ERROR GOTO 400
210 ; CHR$(10) 'Formkoll Hult`n,Data-ful DB' CHR$(10)
220 ; 'L{ser formaterings-sektorer','Drive 0' CHR$(10)
230 INPUT 'Fr}n sp}r  :'Fr}n
240 INPUT 'Till sp}r  :'Till
250 INPUT 'Printer J/N:'S$ : IF FNS(S$) Fil=1
260 IF Fil INPUT 'Ledtext p} printer :'Text$
270 ; #Fil,Text$;CHR$(10)
280 ! 
290 FOR Sp}r=Fr}n TO Till
300   ; #Fil,'Data f|r sp}r ';
310   ; #Fil, USING '##' Sp}r; : ; #Fil,':';
320   Z=CALL(64256,Sp}r*256)
330   FOR I=62720 TO 62725
340     ; #Fil, USING '###' PEEK(I);
350     ; #Fil,' ';
360   NEXT I 
370   ; #Fil,CHR$(10,13)
380   IF INP(46)=32 GET S$
390 NEXT Sp}r 
400 END