100 REM *********************
110 REM *                   *
120 REM *  ASCII - TABELLE  *
130 REM *                   *
140 REM *********************
150 REM *                   *
160 REM *  FLORIAN MUELLER  *
170 REM *                   *
180 REM *********************
190 :
200 (null):INPUT "DRUCKER (D) ODER BILDSCHIRM (B)";A$:(null) (null) A$<>"D" AND A$<>"B"
210 IF A$="D" THEN (null)
220 INPUT"GERAETENUMMER";G:INPUT"SEKUNDAERADRESSE";S
230 OPEN 4,G,S:CMD 4
240 (null)
250 :
260 LE$=CHR$(32):REM LEERZEICHEN
270 Z$="0123456789ABCDEF":REM ZIFFERN FUER HEX-ZAHLEN
280 PRINTSPC(2);
290 :
300 FOR J = 1 TO 16
310 :PRINT MID$(Z$,J,1);LE$;
320 NEXT J
330 PRINT
340 :
350 FOR J = 0 TO 15
360 :PRINT MID$(Z$,J+1,1);SPC(5)
370 :FOR K = 2 TO 15:IF K>7 AND K<10 THEN 400
380 ::PRINT CHR$(J+(K*16));LE$;
390 ::IF K=7 THEN PRINT LE$;LE$;LE$;LE$;
400 :NEXT K
410 :PRINT
420 NEXT J
430 :
440 IF A$="D" THEN PRINT# 4:CLOSE 4