home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 18 / 64er_Magazin_Sonderheft_18_19xx_Markt__Technik_de_Side_A.d64 / epson-grafik (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1004 b   |  40 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 for x=0 to 2880
  36. 80 u=int(rnd(1)*255)
  37. 82 poke a+x,u:print u;
  38. 84 next x
  39. 86 return
  40.