1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program        TNSET
3 REM ! Utg}va  1.01   1981-06-13
4 REM ! av (c) G|ran Sundqvist
5 REM !    tel.0756/30310
7 REM ! Minne 16 Kbytes och skrivare
9 REM +++++++++++++++++++++++++++++++++
10 REM Testutskrift av alla tecken p}
11 REM en skrivare, med uppst{llning i
12 REM ASCII-tabell.
20 OPEN "PR:" ASFILE 1
30 ; #1' '
40 ; #1'Teckenupps{ttning skrivare'
50 ; #1''
60 ; #1' hex'
70 ; #1' kod  20  30  40  50  60  70'
80 FOR I%=0% TO 15%
90 ; #1' '; : IF I%<10 THEN ; #1I%; ELSE ; #1CHR$(32%,I%+55%);
100 FOR K%=32%+I% TO 127% STEP 16
110 ; #1'   'CHR$(K%); : NEXT K%
120 ; #1' '
130 NEXT I%