home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #6 / Commodore_Disk_User_Vol.1_6_1988_-.d64 / mandelbrot (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  101 lines
  1. 10 print"[147]         mandelzoom64"
  2. 20 rem copyright d.g.wilkinson feb 1988
  3. 30 dn=8:rem device no. 8=disk, 1=tape
  4. 40 ifpeek(16384)=76andpeek(16385)=33andpeek(16386)=64goto65
  5. 50 print"     loading machine code"
  6. 60 load"mandel",dn,1
  7. 65 :
  8. 70 ifpeek(52654)=27andpeek(52655)=51andpeek(52656)=23goto100
  9. 80 print"     loading multidump code"
  10. 90 load"multidump",dn,1
  11. 100 gosub 880:rem menu
  12. 110 getz$:ifz$=""goto110
  13. 120 z=val(z$)
  14. 130 ifz<1orz>7goto110
  15. 140 ifz=7goto990
  16. 150 ifz=6goto470
  17. 160 onzgosub190,810,520,670,720
  18. 170 goto100
  19. 180 :
  20. 190 print"[147]           mandelzoom64"
  21. 200 print"  range of acorner = -1.7 to +0.5
  22. 210 [153]"  range of bcorner = -1.0 to +1.0"
  23. 220 [133]"    give acorner (x)=";ac
  24. 230 [133]"    give bcorner (y)=";bc
  25. 240 [133]" give length of side=";s1
  26. 250 [153]"        select size of pattern"
  27. 260 [153]"         1 = 200 x 200 pixels"
  28. 270 [153]"         2 =  50 x  50 pixels"
  29. 280 [153]"          pattern size =?";
  30. 290 [161] z$:[139]z$[178]""[137]290
  31. 300 z[178][197](z$)
  32. 310 [139] z[179]1 [176] z[177]2 [167][153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd                  onon":[137]280
  33. 320 [153]"z"
  34. 330 [139] z[178]1 [167] xs[178]0:ys[178]0:xl[178]200:yl[178]200
  35. 340 [139] z[178]2 [167] xs[178]75:ys[178]75:xl[178]50:yl[178]50
  36. 350 [151]16413,xs
  37. 360 [151]16414,ys
  38. 370 [151]16415,xl
  39. 380 [151]16416,yl
  40. 390 [158]16393:[143] initialise hires
  41. 400 [158]16387:[143] clear screen
  42. 410 dt[178]s1[173]yl
  43. 420 [158]16384,ac,bc,s1,dt
  44. 430 [161]z$:[139]z$[178]""[137]430
  45. 440 [158]16396:[143] reset to basic
  46. 450 [142]
  47. 460 :
  48. 470 [153]"load           mandelzoom64"
  49. 480 [153]"   input a saved pattern"
  50. 490 [133]"    give filename";a$
  51. 500 [147] a$,dn,1
  52. 510 :
  53. 520 [153]"load           mandelzoom64"
  54. 530 [153]"     set colours for plotting"
  55. 540 [153]"       use number keys 1-8.
  56. 550 print"     colours are shown on keys.
  57. 560 [153]"     for extended colour range,"
  58. 570 [153]"         use numbers 9-16."
  59. 580 [153]"    (do not use ctrl or cbm keys)"
  60. 590 [133]"     foreground colour no.";c1
  61. 600 [139] c1[179]1 [176] c1[177]16 [137]590
  62. 610 [133]"   close background colour no.";c2
  63. 620 [139] c2[179]1 [176] c2[177]16 [137]610
  64. 630 c1[178]c1[171]1:c2[178]c2[171]1:c3[178]c1[172]16[170]c2
  65. 640 [151]16411,c3
  66. 650 [142]
  67. 660 :
  68. 670 [153]"load           mandelzoom64"
  69. 680 [153]"  save pattern on disk file"
  70. 690 [133]" give filename";a$
  71. 700 [158]16408 a$,dn,2,8192,16192
  72. 710 [142]
  73. 720 :
  74. 730 [153]"load           mandelzoom64"
  75. 740 [158]52662
  76. 750 [153]"       multidump activated"
  77. 760 [153]"       use f1 for small dump"
  78. 770 [153]"       use f3 for large dump"
  79. 780 [153]"  hit any key to return to main menu"
  80. 790 [161]z$:[139]z$[178]""[137]790
  81. 800 [142]
  82. 810 :
  83. 820 [158]16393:[143] back to hires
  84. 830 [158]16390:[143] set colours
  85. 840 [161] a$:[139]a$[178]""[137]840
  86. 850 [158]16396:[143] back to basic
  87. 860 [142]
  88. 870 :
  89. 880 [153]"loadstop":[151]53280,3:[151]53281,7
  90. 890 [153]"     mandelzoom64 - choose option"
  91. 900 [153]"      1   plot a new pattern"
  92. 910 [153]"      2   switch to hi-resolution"
  93. 920 [153]"          (hit any key to return)"
  94. 930 [153]"      3   change colours"
  95. 940 [153]"      4   save existing pattern"
  96. 950 [153]"      5   print pattern"
  97. 960 [153]"      6   input a saved pattern"
  98. 970 [153]"      7   exit"
  99. 980 [142]
  100. 990 [128]
  101.