home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 November / 64er_Magazin_87-11_1987_Markt__Technik_de.d64 / plo-demo64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  63 lines
  1. 1 goto90:rem save"@0:plo-demo64",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. 100 [153]"load"
  31. 110 ae[178]1:[141]41:[143] aspekt ja
  32. 119 [153]"(NULL)eichensatz
  33. 120 fori=0to1:forj=32to95step16
  34. 121 xx%=0:yy%=ya*(1-(i*4+j/16)/9):gosub3:gosub2
  35. 122 zz$="":fork=0to15:zz$=zz$+chr$(i*128+j+k):next:gosub15
  36. 123 next:next
  37. 129 print"[204]iniengrafik
  38. 130 x2[178]16[172]cs[172]6:ae[178]0:[141]41:[143] aspekt nein
  39. 131 x(0)[178]x2:y(0)[178]0:x(1)[178](x9[170]x2)[173]2:y(1)[178]y9[171]50:x(2)[178]x9:y(2)[178]0
  40. 140 xx%[178]x(2):yy%[178]y(2):[141]3:[141]2:[141]6
  41. 141 [129]i[178]0[164]2:xx%[178]x(i):yy%[178]y(i):[141]2:[130]
  42. 142 x1[178]xx%:y1[178]yy%:f[178].9
  43. 150 i[178]i[170]1:[139]i[177]2[167]i[178]0:[139][182](x(0)[171]x(1))[170][182](y(0)[171]y(1))[179]9[167][141]3:[137]160
  44. 151 xx%[178]x1[170]f[172](x(i)[171]x1):yy%[178]y1[170]f[172](y(i)[171]y1):[141]2
  45. 152 x(i)[178]xx%:y(i)[178]yy%:x1[178]xx%:y1[178]yy%:[137]150
  46. 160 [141]19
  47. 170 [153]"(NULL)reise
  48. 171 r=int(x9/4):x2=r+10:y2=10:ae=1:gosub41:rem aspekt ja
  49. 175 fori=10to1step-1:xx%=x2:yy%=y2:gosub3:gosub2
  50. 176 xx%=r*i/10:yy%=6+5*8:gosub31
  51. 177 next
  52. 180 ri=r:x2=3*r+20:y2=10:xx%=x2:yy%=y2:gosub3:gosub2
  53. 181 o1=6:o9=5:od=7
  54. 185 xx%=ri:yy%=o1+o9*8:gosub31
  55. 186 ri=ri*.9:ifri<y9/100then190
  56. 187 o1=(o9+1)and7:od=(od+7)and7:o9=(o1+od)and7:goto185
  57. 190 gosub19
  58. 200 print"[211]chriftzug 64'er
  59. 210 xx%[178]0:yy%[178]0:[141]3:[141]2
  60. 220 cs[178]25:[141]30:zz$[178]"64'er":[141]15
  61. 230 [141]19
  62. 999 [128]
  63.