home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 222 / 222.d81 / mandel.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  45 lines
  1. 4 dv=peek(186)
  2. 5 ifa=10thena=11:load"reconnect.o",dv,1
  3. 6 ifa=11thensys828:end
  4. 10 ifa=0thena=1:poke56,19:load"mml",dv,1
  5. 12 poke4876,dv:poke4905,dv:poke840,dv
  6. 20 readd,xc,yc:data53248,166,138:poke820,3:poke821,91:poke822,49:poke823,93:poked+39,1:poked+40,1:goto510
  7. 40 gosub420:poked+21,0:sys4864:cx=xc:cy=yc:c0=c0and15:ifn>nlthennl=n
  8. 60 poked+17,27:poked+21,0:poked+22,8:poked+24,20:poked+32,11:poked+33,11:poke53281,0:poke53280,0
  9. 70 print"[147][159][205]agnification [158]="m:print"[159][195]enter [158]="x","y:print"[159][195]ursor [158]="(cx-xc)/2*h+x","(cy-yc)/2*v+y:print"[159][201]teration limit [158]="n:print"[158]([199][158])[159]: [212]oggle [199]raphics":print"[158]([204][158])[159]: [195]hange iteration limit":print"[158]([205][158])[159]: [205]agnify at cursor":print"[158]([195][158])[159]: [195]hange display colors
  10. 115 [153]"sys(right$sys)open: right$nterpolate for max resolution":[153]"sys((NULL)sys)open: lenhange color repeat count":[153]"sys((NULL)sys)open: (NULL)ave screen":[153]"sys(str$sys)open: (NULL)oad screen":[153]"sys((NULL)sys)open: (NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)":[153]"    sysasc(NULL)(NULL)(NULL)closechr$(NULL)atn(NULL)left$right$len(NULL) str$right$(NULL)(NULL)(NULL)atn(NULL):
  11. 150 print"[158]([200][158])[159]: [200]elp [211]creen":print"[158]([216][158])[159]: [195]ursor on/off ([195][210][211][210] keys move)":print"[158]([195][158])[159]: [195]hange cursor color":print"[158]([205][158])[159]: [205]agnify x10 at cursor
  12. 170 [161]a$:[139]a$[178]""[167]170
  13. 180 [139]a$[178]"g"[167][151]d[170]39,1:[151]d[170]40,1:[158]4867:[137]300
  14. 190 [139]a$[178]"l"[167][133]"loadvalnter new limit";b:[139]b[177]1[175]b[179]256[167]n[178]b:[137]40
  15. 200 [139]a$[178]"i"[167]c0[178]c0[170]128:[137]40
  16. 210 [139]a$[178]"c"[167][153]"loadlenurrent colors are"c0","c1","c2","c3:[137]280
  17. 211 [139]a$[178]"q"[167]a[178]10:[137]5
  18. 220 [139]a$[178]"r"[167][153]"loadlenurrent repeat="r:[133]"(NULL)ew value";r:[139]r[177]0[175]r[179]255[167]40
  19. 230 [139]a$[178]"s"[167][153]"load(NULL)atn(NULL)val";:[137]500
  20. 240 [139]a$[178]"d"[167][153]"load(NULL)(NULL)atnstr$";:[141]480:[137]510
  21. 250 [139]a$[179][177]"m"[167]70
  22. 260 ml[178]m:[133]"valnter new magnification";m:[139]m[179]1[176]m[177]ml[172]25[167]m[178]10[172]ml
  23. 270 m[178][171](m[179]1e6)[172]m[171](m[177][178]1e6)[172]1e6:x[178]x[170](cx[171]xc)[173]2[172]h:y[178]y[170](cy[171]yc)[173]2[172]v:nl[178]0:[137]40
  24. 280 [133]"valnter new colors";c0,c1,c2,c3:c0[178]c0[175]15:c1[178]c1[175]15:c2[178]c2[175]15:c3[178]c3[175]15:[141]420:[158]4867
  25. 300 [151]d[170]2,cx[170]256[172](cx[177]255):[151]d,cx[171]6[170]256[172](cx[177]261):[151]d[170]16,[171]2[172](cx[177]255)[171](cx[177]261):[151]d[170]1,cy[171]3:[151]d[170]3,cy
  26. 320 [161]a$:[139]a$[178]""[167]320
  27. 330 [139]a$[178]"cmd"[175]cx[177]22[167]cx[178]cx[171]2:[137]300
  28. 340 [139]a$[178]""[175]cx[179]310[167]cx[178]cx[170]2:[137]300
  29. 350 [139]a$[178]"on"[175]cy[177]48[167]cy[178]cy[171]2:[137]300
  30. 360 [139]a$[178]""[175]cy[179]228[167]cy[178]cy[170]2:[137]300
  31. 370 [139]a$[178]"t"[176]a$[178]" "[176]a$[178]"h"[176]a$[178]"g"[167]60
  32. 380 [139]a$[178]"x"[167]i[178][194](d[170]21):i[178]i[170]1:i[178]i[170]3[172](i[177]2):[151]d[170]21,i
  33. 390 [139]a$[178]"c"[167]i[178][194](d[170]39):i[178](i[170]1)[175]15:[151]d[170]39,i:[151]d[170]40,i
  34. 400 [139]a$[179][177]"m"[167]320
  35. 410 i[178][194](d[170]21):[139]i[179][177]0[167]i[178][171]10[172](i[178]2)[171]20[173]3[172](i[178]1):m[178]i[172]m:[137]270
  36. 415 [137]320
  37. 420 b[178]32192:[151]b,n:[151]b[170]1,nl:[151]b[170]2,r:[151]b[170]3,c0:[151]b[170]4,c1:[151]b[170]5,c2:a[178]2[174][181]([188](m)[173][188](2)[170]9.5):v[178].025[173]m:v[178][171][181](v[172]a[170].5)[173]a:[151]b[170]6,c3:b[178]b[170]7:h[178][171]v[172]3[173]4:a[178]x[171]80[172]h:[141]460:a[178]y[171]50[172]v[171]v[173]2[172](c0[177]16):[141]460:a[178]h:[141]460:a[178]v:[141]460:[142]
  38. 460 [151]b[170]6,[171]255[172](a[179]0):a[178][182](a)[173]2:t[178][181](a):[151]b[170]5,t:[129]i[178]b[170]4[164]b[169][171]1:a[178](a[171]t)[172]128:t[178][181](a):[151]i,t[170]t:[130]:b[178]b[170]7:[142]
  39. 480 [133]" (NULL)creen: valnter file name";a$:b[178][195](a$)[170]5:[151]820,b:[139]b[177]19[176]b[179]6[167]480
  40. 490 a$[178]"@0:["[170]a$[170]"]":[129]i[178]1[164]b:[151]820[170]i,[198]([202](a$,i)):[130]:[142]
  41. 500 [141]420:[141]480:[158]4870:[158]4867:[137]300
  42. 510 [158]4873:[158]4867:b[178]32192:n[178][194](b):nl[178][194](b[170]1):r[178][194](b[170]2):c0[178][194](b[170]3):c1[178][194](b[170]4):c2[178][194](b[170]5):c3[178][194](b[170]6):[141]540:x[178]a:[141]540:y[178]a:[141]540:h[178]a:m[178]3[173]160[173]h:v[178][171].025[173]m:x[178]x[170]80[172]h:y[178]y[170]50[172]v:cx[178]xc:cy[178]yc:[137]300
  43. 540 b[178]b[170]7:a[178]0:[129]i[178]0[164]4:a[178](a[170][194](b[170]i))[173]128:[130]:a[178]a[170]2[172][194](b[170]5):[139][194](b[170]6)[179][177]0[167]a[178][171]a
  44. 560 [142]
  45.