home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 November / 64er_Magazin_87-11_1987_Markt__Technik_de.d64 / plo-skelett64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  30 lines
  1. 1 goto90:rem save"@0:plo-skelett64",8:rem p.kittel ffm 9.6.87
  2. 2 sysp:return:rem linie nach (xx%,yy%)
  3. 3 sysp+3:return:rem pen up
  4. 6 sysp+6:return:rem pen down
  5. 9 sysp+9:return:rem pen-stellung wechseln
  6. 15 sysp+15:return:rem text aus zz$ horiz schreiben
  7. 18 sysp+18:return:rem text aus zz$ vertikal schreiben
  8. 19 gosub37:open1,4,1:print#1,chr$(12);:close1:rem formfeed zum naechsten blatt
  9. 20 print"[206]eues [194]latt, [206]ullpunkt eingestellt.
  10. 21 [158]p[170]21:xx%[178]0:yy%[178]0:[142]:[143] nullpunkt festlegen
  11. 30 [151]p[170]30,cs:[142]:[143] character-size
  12. 31 [158]p[170]31:[142]:[143] kreisbogen geguhrsinn xx%=r, yy%=anfokt+8*endokt
  13. 34 [158]p[170]34:[142]:[143] kreisbogen mituhrsinn xx%=r, yy%=anfokt+8*endokt
  14. 37 [158]p[170]37:[142]:[143] buffer leeren
  15. 40 [151]p[170]40,as:[142]:[143] aspektverhaeltnis fest (132/80-1)*256=166 bei fx
  16. 41 [151]p[170]41,ae:[142]:[143] flag fuer aspekt: lahmgelegt bei =0
  17. 79 xx%[178]0:yy%[178]0:[141]37:[141]3:[137]2:[143] 'home'
  18. 80 [143] skelett fuer plotter-treiberprogramm
  19. 81 [143]
  20. 82 [143] aufrufe sollten nur ueber diese subroutinen erfolgen
  21. 83 [143] reservierte variablen: p,xx%,yy%,zz$,w1,w3,wg,cs,as,ae
  22. 84 [143] je nach zeichengeraet/computer folgende zeilen anpassen:
  23. 85 [143] 19,20,40,79,90,91,92
  24. 90 p[178]142[172]256:[139][194](p)[179][177]76[176][194](p[170]3)[179][177]76[167][151]56,142:[156]:[147]"fxplot12*",8,1
  25. 91 cs[178]4:[143] normale character-groesse
  26. 92 x9[178]750:y9[178]959:[143] max. koordinatenwerte
  27. 93 x0[178]0:y0[178]0:ya[178]y9[173]([194](p[170]40)[173]256[170]1):[143] min. koord, max. y bei aspekt
  28. 98 [141]20:[141]30
  29. 99 [143] folgt eigentliches programm
  30.