home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 44 / 64er_Magazin_Sonderheft_44_19xx_Markt__Technik_de_Side_B.d64 / l2.tedmon (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.