home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 18 / 64er_Magazin_Sonderheft_18_19xx_Markt__Technik_de_Side_A.d64 / drucker.zeichen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  67 lines
  1. 10 rem ********************************
  2. 20 rem * definition eines neuen       *
  3. 30 rem * zeichensatzes fuer epson und *
  4. 40 rem * kompatible drucker           *
  5. 50 rem * (c) markt & technik (aw)     *
  6. 60 rem ********************************
  7. 70 open1,4
  8. 80 print#1,chr$(27);":";chr$(0);chr$(0);chr$(0);
  9. 90 rem * rom character in ram kopieren *
  10. 100 print#1,chr$(27);"%";chr$(1);chr$(0);
  11. 110 rem * selbstdefinierte zeichen ein *
  12. 120 print#1,chr$(27);"&";chr$(0);"az";
  13. 130 rem * definiere neue zeichen ein *
  14. 140 forf=1to26
  15. 150 print#1,chr$(139);
  16. 160 for n=1to11
  17. 170 reada
  18. 180 print#1,chr$(a);
  19. 190 nextn
  20. 200 data 15,0,255,0,136,0,136,0,255,0,0
  21. 210 data 15,0,255,0,137,0,138,0,252,0,0
  22. 220 data 15,0,255,0,129,0,129,0,129,0,0
  23. 230 data 15,0,255,0,129,0,130,0,124,0,0
  24. 240 data 15,0,255,0,137,0,137,0,137,0,0
  25. 250 data 15,0,255,0,136,0,136,0,136,0,0
  26. 260 data 15,0,255,0,129,0,137,0,143,0,0
  27. 270 data 15,0,255,0,8,0,8,0,255,0,0
  28. 280 data 0,0,0,0,15,0,255,0,0,0,0
  29. 290 data 135,0,135,0,131,0,132,0,248,0,0
  30. 300 data 15,0,255,0,8,0,20,0,227,0,0
  31. 310 data 15,0,255,0,1,0,1,0,1,0,0
  32. 320 data 255,0,128,0,248,0,128,0,255,0,0
  33. 330 data 15,0,255,0,48,0,12,0,255,0,0
  34. 340 data 15,0,255,0,129,0,129,0,255,0,0
  35. 350 data 15,0,255,0,136,0,136,0,240,0,0
  36. 360 data 15,0,251,0,133,0,131,0,254,0,0
  37. 370 data 15,0,255,0,136,0,142,0,243,0,0
  38. 380 data 7,0,231,0,145,0,145,0,159,0,0
  39. 390 data 128,0,143,0,255,0,128,0,128,0,0
  40. 400 data 15,0,255,0,1,0,1,0,255,0,0
  41. 410 data 240,0,15,0,3,0,12,0,240,0,0
  42. 420 data 255,0,1,0,31,0,1,0,255,0,0
  43. 430 data 7,0,247,0,28,0,20,0,227,0,0
  44. 440 data 192,0,63,0,31,0,32,0,192,0,0
  45. 450 data 15,0,143,0,137,0,145,0,225,0,0
  46. 460 nextf
  47. 470 print#1,chr$(27);"&";chr$(0);"09";
  48. 480 forq=0to9
  49. 490 print#1,chr$(139);
  50. 500 for t=1to11
  51. 510 read a
  52. 520 print#1,chr$(a);
  53. 530 nextt
  54. 540 data15,0,255,0,129,0,129,0,255,0,0
  55. 550 data129,0,129,0,255,0,15,0,1,0,0
  56. 560 data15,0,143,0,137,0,137,0,249,0,0
  57. 570 data137,0,137,0,137,0,255,0,15,0,0
  58. 580 data248,0,8,0,8,0,15,0,63,0,0
  59. 590 data249,0,137,0,137,0,143,0,15,0,0
  60. 600 data15,0,255,0,137,0,137,0,143,0,0
  61. 610 data131,0,134,0,140,0,152,0,240,0,0
  62. 620 data15,0,255,0,137,0,137,0,255,0,0
  63. 630 data249,0,137,0,137,0,255,0,15,0,0
  64. 640 nextq
  65. 650 print#1,"1234567890 abcdefghijklmnopqrstuvwxyz"
  66. 660 close1
  67.