1 REM Ins{nd av Bo Kullmar <1789>    1985-06-14 06.54.22
2 ! **********************************************************************
3 ! Program          HCTELED.BAS      Utg}va  1.0      1985-06-14
4 ! av Bo Kullmar
5 ! Ins{nd av Bo Kullmar
6 ! F|r ABC806, med ASCII-grafik och printer FACIT 4510
8 ! Testad p} ABC806
9 ! Halvd}lig rutin f|r hardcopy av Teledatabild. Rutinen kan g|as mycket
10 ! b{ttre. Nu skriver den enbart ut text och dubbel texth|jd skrivs p}
11 ! tv} rader. [r det n}gon som f|rb{ttrar den s} skicka in den f|rb{ttrade
12 ! versionen. Rutinen {r avsedd f|r printer FACIT 4510.
13 ! **********************************************************************
50 EXTEND : INTEGER 
15100 DEF FNHardcopy LOCAL Tkn,Attr,I
15110   PREPARE 'PR:VSA36C72.55' AS FILE 9 : I=30720
15120   WHILE I<=32719
15130     Tkn=PEEK(I) : Attr=INP(53)
15140     IF Attr=255 THEN ; #9,CHR$(30,Tkn,31); : I=I+1 : GOTO 15180 ! EL
15150     IF Attr=246 THEN ; #9,CHR$(30,Tkn,31); : I=I+1 : GOTO 15180 ! \vre delen av DBLE
15160     IF Attr=237 THEN ; #9,CHR$(32,32); : I=I+1 : GOTO 15180 ! Undre delen av DBLE
15170     IF Tkn>31 AND Tkn<128 ; #9,CHR$(Tkn); ELSE ; #9,' ';
15180     IF MOD(I+1,80)=0 THEN ; #9
15190     I=I+1
15200   WEND 
15210   RETURN 0
15220 FNEND