home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / c-art (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  107 lines
  1. 0 :
  2. 10 rem                 a
  3. 20 rem          computer
  4. 30 rem                 t
  5. 50 rem
  6. 60 rem  claus faber + bernd johannes
  7. 70 rem
  8. 80 rem  bearbeiter: nikolaus heusler
  9. 90 rem
  10. 99 rem  fuer 64'er sonderheft
  11. 100 rem
  12. 101 rem (c) markt & technik
  13. 102 rem (w) april 1987
  14. 103 rem     nh-200589-arr
  15. 107 :
  16. 108 ifpeek(49152)+peek(49153)<>164thenload"c-art.mc",8,1
  17. 109 :
  18. 110 ba=49842+peek(41234)-61-(480+peek(49265)/12-90.75)/sqr(676)
  19. 130 c1=ba+0:c2=ba+1
  20. 140 c3=ba+2:c4=ba+3
  21. 160 r1=ba+4:r2=ba+5
  22. 170 r3=ba+6:r4=ba+7
  23. 180 r5=ba+8
  24. 200 p1=ba+9:p2=ba+10
  25. 210 p3=ba+11:p5=ba+12
  26. 211 p4=ba+13
  27. 230 gx=ba+14:gh=ba+15
  28. 240 gy=ba+16
  29. 260 xo=ba+17:xm=ba+18
  30. 270 ho=ba+19:hm=ba+20
  31. 280 yo=ba+21:ym=ba+22
  32. 290 sys65409
  33. 325 gosub1100
  34. 330 poke53280,0:poke53281,0
  35. 340 print"[147][155][142][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  36. 342 print"                         [158]a[155]              ";
  37. 350 print"            c o m p u t e [158]r[155]              ";
  38. 360 print"                          [158]t[155]            "
  39. 380 print" 1) grafik   -parameter
  40. 390 [153]" 2) rechnungs-parameter
  41. 400 print" 3) prozess  -parameter
  42. 410 [153]" 4) start (multi-color)
  43. 420 print" 5) start (hochaufloesend)
  44. 424 [153]" 6) ende
  45. 430 print"    bitte waehlen
  46. 431 [153]"listvon c. faber, b. johannes & n. heusler
  47. 432 print"(c) sh 64'er, markt & technik, 1989":poke198,.
  48. 440 geta$:w=val(a$)
  49. 450 ifw<1orw>6goto440
  50. 460 onwgoto500,600,700,800,900,1200
  51. 500 print"[147] grafik-parameter
  52. 510 [153]" farben:":sr[178]0:g1[178]0:g2[178]15
  53. 520 [153]" rand       ";:re[178]w1:[141]1000:w1[178]re
  54. 530 [153]" hintergr.  ";:re[178]w2:[141]1000:w2[178]re
  55. 540 [153]" farbe 1    ";:re[178]w3:[141]1000:w3[178]re
  56. 550 [153]" farbe 2    ";:re[178]w4:[141]1000:w4[178]re
  57. 560 [153]" farbe 3    ";:re[178]w5:[141]1000:w5[178]re
  58. 570 g2[178]127:[153]" compound   ";:re[178]wk:[141]1000:wk[178]re
  59. 580 [137]330
  60. 600 [153]"load rechnungs-parameter
  61. 610 print"parameter, die in die funktion eingehen:[145]
  62. 620 sr[178]0:g1[178]1:g2[178]7
  63. 630 [153]" x-fract. ";:re[178]w6:[141]1000:w6[178]re
  64. 640 [153]" y-fract. ";:re[178]w7:[141]1000:w7[178]re
  65. 650 g2[178]3:[153]" x-vorzeichen ";:re[178]w8:[141]1000:w8[178]re
  66. 660 [153]" y-vorzeichen ";:re[178]w9:[141]1000:w9[178]re
  67. 670 g1[178]0:g2[178]1:[153]" kruemmung ";:re[178]wa:[141]1000:wa[178]re
  68. 680 [137]330
  69. 700 [153]"load prozess-parameter
  70. 710 print" ablaufsteuernde parameter:
  71. 720 g1[178]1:g2[178]255:sr[178]0
  72. 730 [153]" bildwiederholung ";:re[178]wb:[141]1000:wb[178]re
  73. 740 [153]" farbstetigkeit   ";:re[178]wc:[141]1000:wc[178]re
  74. 750 [153]" bildpause        ";:re[178]wd:[141]1000:wd[178]re
  75. 760 g2[178]320:[153]" x-grenze ";:re[178]we[170]wf[172]256:[141]1000:wf[178][181](re[173]256)
  76. 770 we[178]re[175]255:g2[178]200:[153]" y-grenze ";:re[178]wg:[141]1000:wg[178]re:g2[178]320
  77. 780 [153]" x-spiegelachse ";:re[178]wh[170]wi[172]256:[141]1000:wh[178]re[175]255:wi[178][181](re[173]256)
  78. 790 g2[178]200:[153]" y-spiegelachse ";:re[178]wj:[141]1000:wj[178]re:[137]330
  79. 800 [151]p4,0:[151]c1,w1:[151]c2,w2:[151]c3,w3:[151]c4,w4[172]16[170]w5
  80. 810 tt[178]2:[137]920
  81. 900 [151]p4,128:[151]c1,w1:[151]c4,w3[172]16[170]w2
  82. 910 tt[178]1
  83. 920 [151]r1,w6:[151]r2,w7:[151]r3,w8:[151]r4,w9:[151]r5,wa
  84. 930 [151]p1,wc:[151]p2,wb:[151]p3,wd
  85. 940 [151]gx,((we[170]wf[172]256)[173]tt)[175]255:[151]gh,wf[173]tt:[151]gy,wg
  86. 950 [151]xo,wh:[151]xm,((wh[170]wi[172]256)[173]2)[175]255:[151]ho,wi:[151]hm,wi[173]2
  87. 960 [151]yo,wj:[151]ym,wj:[151]p5,wk
  88. 970 [158]49152
  89. 999 [137]330
  90. 1000 [139]sr[179]0[167][153]"("g1$"-"g2$"):";:[137]1009
  91. 1003 g1$[178][196](g1):g2$[178][196](g2)
  92. 1006 [153]"("[201](g1$,[195](g1$)[171]1)"-"[201](g2$,[195](g2$)[171]1)"):";
  93. 1009 a[178][194](211)
  94. 1010 [139]sr[179]0[167][153]re$;:[137]1030
  95. 1020 [153]re;
  96. 1030 [151]211,a[171]1
  97. 1040 [133]re$:re[178][197](re$)
  98. 1050 [139]sr[179]0[167][142]
  99. 1060 [139]re[179]g1[176]re[177]g2[167][153]"onon":[137]1030
  100. 1070 [142]
  101. 1100 w1[178]0:w2[178]0:w3[178]1:w4[178]5:w5[178]2
  102. 1110 w6[178]2:w7[178]2:w8[178]1:w9[178]1:wa[178]1
  103. 1120 wb[178]3:wc[178]1:wd[178]18:we[178]160:wf[178]0:wg[178]100:wh[178]64:wi[178]1:wj[178]200:wk[178]0
  104. 1130 [143] defaultwerte koennen nach belieben geaendert werden !
  105. 1199 [142]
  106. 1200 [153]"loadtschuess / servus / salut / ade / ciaou":[128]
  107.