home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh44b.d64 / l2.tedmon (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  765b  |  36 lines
  1. 100 REM *********************
  2. 110 REM *                   *
  3. 120 REM *  ASCII - TABELLE  *
  4. 130 REM *                   *
  5. 140 REM *********************
  6. 150 REM *                   *
  7. 160 REM *  FLORIAN MUELLER  *
  8. 170 REM *                   *
  9. 180 REM *********************
  10. 190 :
  11. 200 (null):INPUT "DRUCKER (D) ODER BILDSCHIRM (B)";A$:(null) (null) A$<>"D" AND A$<>"B"
  12. 210 IF A$="D" THEN (null)
  13. 220 INPUT"GERAETENUMMER";G:INPUT"SEKUNDAERADRESSE";S
  14. 230 OPEN 4,G,S:CMD 4
  15. 240 (null)
  16. 250 :
  17. 260 LE$=CHR$(32):REM LEERZEICHEN
  18. 270 Z$="0123456789ABCDEF":REM ZIFFERN FUER HEX-ZAHLEN
  19. 280 PRINTSPC(2);
  20. 290 :
  21. 300 FOR J = 1 TO 16
  22. 310 :PRINT MID$(Z$,J,1);LE$;
  23. 320 NEXT J
  24. 330 PRINT
  25. 340 :
  26. 350 FOR J = 0 TO 15
  27. 360 :PRINT MID$(Z$,J+1,1);SPC(5)
  28. 370 :FOR K = 2 TO 15:IF K>7 AND K<10 THEN 400
  29. 380 ::PRINT CHR$(J+(K*16));LE$;
  30. 390 ::IF K=7 THEN PRINT LE$;LE$;LE$;LE$;
  31. 400 :NEXT K
  32. 410 :PRINT
  33. 420 NEXT J
  34. 430 :
  35. 440 IF A$="D" THEN PRINT# 4:CLOSE 4
  36.