home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 18 / 64er_Magazin_Sonderheft_18_19xx_Markt__Technik_de_Side_A.d64 / rahmen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  44 lines
  1. 10 rem programm epson-grafik
  2. 12 rem druckerkurs 64'er (aw)
  3. 14 print chr$(147)
  4. 16 rem*********************************
  5. 18 rem kanal zum drucker oeffnen
  6. 20 rem*********************************
  7. 22 open 1,4
  8. 24 a=8192:gosub 78
  9. 26 print#1,chr$(27);chr$(51);chr$(24)
  10. 28 rem*********************************
  11. 30 rem zeilenabstand auf 24/216
  12. 32 rem*********************************
  13. 34 for m=1 to 3:rem drei zeilen
  14. 36 rem*********************************
  15. 38 rem grafimodus esc "*" m=1 (960)
  16. 40 rem*********************************
  17. 42 print#1,chr$(27);chr$(42);chr$(1);chr$(195);chr$(3);
  18. 44 rem*********************************
  19. 46 rem eine zeile drucken (960) punkte
  20. 48 rem*********************************
  21. 50 for z=0 to 960
  22. 52 b=peek(a+z)
  23. 54 print#1,chr$(b);
  24. 56 next z
  25. 58 a=a+960
  26. 60 rem*********************************
  27. 62 rem einen zeilenvorschub
  28. 64 rem*********************************
  29. 66 print#1,chr$(13)
  30. 68 next m
  31. 70 end
  32. 72 rem*********************************
  33. 74 rem zufallsmuster ab 8192
  34. 76 rem*********************************
  35. 78 poke 8192,255
  36. 80 for x=8193 to 9150:poke x,128:next x
  37. 82 poke 9151,255
  38. 84 poke 9152,255
  39. 86 for x=9153 to 10110:poke x,0:next x
  40. 88 poke 10111,255
  41. 90 poke 10112,255
  42. 92 for x=10113 to 11070:poke x,1:next x
  43. 96 return
  44.