home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 February / 64er_Magazin_88-02_1988_Markt__Technik_de_Side_A.d64 / demo plotter-gr (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  793 b   |  47 lines
  1. 10 rem demo zu "plotter-graf"
  2. 20 rem
  3. 30 rem druckt ein exaktes quadrat
  4. 40 rem    von 10 cm mal 10 cm
  5. 50 rem
  6. 60 rem
  7. 70 rem (c) 29.6.1987 by oliver fromme
  8. 80 rem   klingestr. 2, 3380 goslar
  9. 90 rem  tel.: (05321)/40194
  10. 100 :
  11. 110 :
  12. 120 ifa=0thena=1:load"plotter-graf",8,1
  13. 130 rem "plotter-graf" laden
  14. 140 :
  15. 150 open4,4:  rem file oeffnen
  16. 160 :
  17. 170 sys49161,8:rem zeilenabs.: 8 punkte
  18. 180 :
  19. 190 sys49152,285: rem 285 punkte
  20. 200 :
  21. 210 sys49155,255
  22. 220 for i=1 to 283:sys 49155,128:next i
  23. 230 sys49155,255
  24. 240 :
  25. 250 sys49158: rem 1. zeile drucken
  26. 260 :
  27. 261 print#4
  28. 262 :
  29. 270 fori=1to34:sys49152,285
  30. 280 sys49155,255
  31. 290 for t=1 to 283:sys 49155,0:next t
  32. 300 sys49155,255
  33. 310 sys49158: rem mittlere zeilen
  34. 315 print#4
  35. 320 next i
  36. 330 :
  37. 340 sys49152,285
  38. 350 :
  39. 360 sys49155,248
  40. 370 for i=1 to 283:sys 49155,8:next i
  41. 380 sys49155,248
  42. 390 sys49158: rem letzte zeile
  43. 400 :
  44. 410 print#4
  45. 420 close4 : rem ende
  46. 430 end
  47.