home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 75 / 075.d81 / mandala (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  89 lines
  1. 10 poke 55,0:poke 56,57:clr:rem protect ml from basic strings
  2. 20 gosub60000
  3. 30 dn=peek(186)
  4. 40 sys57812"graph.ml",dn,0:poke780,0:poke781,0:poke782,161:sys65493
  5. 50 sys57812"mandala.ml",dn,0:poke780,0:poke781,237:poke782,57:sys65493
  6. 55 sys57812"save pics.o",dn,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 60 fori=54272to54296:pokei,0:next:rem sid prep
  8. 70 poke53280,0:poke53281,0:print""chr$(142)"[147][150]            m a n d a l a"
  9. 80 print" copyright 1987, 1990 by victor grauer"
  10. 90 gosub140
  11. 100 for i=0to10:geta$:next
  12. 110 geta$:ifa$="" then 110
  13. 112 ifa$="q"then400
  14. 113 ifa$="s"ands=1then500
  15. 115 poke792,193:rem nmi out in case user hits restore key
  16. 120 sys14829:s=1:rem $39ed
  17. 122 sys49152:rem save
  18. 125 poke792,71:rem restore nmi to alter basic code if needed
  19. 130 goto70
  20. 140 print"[156][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  21. 150 print"[221]   f1 [152]-- change plot color           [156][221]"
  22. 160 print"[221]   f3 [152]-- change background color     [156][221]"
  23. 170 print"[221]   f5 [152]-- turn on color cycling       [156][221]"
  24. 180 print"[221]   f7 [152]-- turn off color cycling      [156][221]"
  25. 190 print"[221]   +  [152]-- increase dot density        [156][221]"
  26. 200 print"[221]   -  [152]-- decrease dot density        [156][221]"
  27. 210 print"[221]   crsr right [152]-- faster expansion    [156][221]"
  28. 220 print"[221]   crsr left [152]-- slower expansion     [156][221]"
  29. 225 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  30. 230 print"[221]   > [152]-- increase tempo of music      [156][221]"
  31. 240 print"[221]   < [152]-- decrease tempo of music      [156][221]"
  32. 250 print"[221]   m [152]-- music on  n [152]-- music off     [156][221]
  33. 260 [153]"(NULL)   ^ print#-- new melody waveform          clr(NULL)"
  34. 270 [153]"(NULL)   * print#-- new drone waveform           clr(NULL)"
  35. 280 [153]"(NULL)   space bar print#-- new drone note       clr(NULL)"
  36. 285 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<"
  37. 290 [153]"(NULL)   _ print#-- pause (any key resumes)      clr(NULL)"
  38. 300 [153]"(NULL)   s print#-- save (use only while paused) clr(NULL)
  39. 310 print"[221]   return [152]-- return to this screen   [156][221]
  40. 320 [153]"mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)"
  41. 330 [153]"open  press q opento quit -- any key to begin"
  42. 340 [142]
  43. 400 [153]"loadopen   insert forloadstaropen disk in drive 8"
  44. 402 [153]"           and press space."
  45. 405 [161]a$:[139]a$[179][177]" "[167]405
  46. 410 [159]15,dn,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  47. 420 [139]er[179][177]63[167][128]
  48. 430 [153]"stopload"[199](34)"hello connect"[199](34)","dn
  49. 440 [153]"run"
  50. 450 [151]631,13:[151]632,13:[151]198,2:[128]
  51. 500 [153]"loadfor             save the picture"
  52. 510 [153]"    cont(kcont)oala format"
  53. 520 [153]"    (acont)dvanced ocp format"
  54. 530 [153]"    (mcont)enu"
  55. 540 [161]k$:[139]k$[179][177]"k"[175]k$[179][177]"a"[175]k$[179][177]"m"[167]540
  56. 550 [139]k$[178]"m"[167]70
  57. 560 g$[178]"atnwaitpic openprefix.  ":[139]k$[178]"a"[167]g$[178]"mpic opensuffix.  "
  58. 570 [153]"open insert save disk in drive"dn"and"
  59. 580 [153]" enter a filename.  do not enter the"
  60. 590 [153]" "g$;
  61. 600 [141]50000:[139]q9$[178]""[167]500
  62. 610 [139]k$[178]"k"[167]q9$[178][199](129)[170]"pic "[170]q9$[170]"            ":q9$[178][200](q9$,15)
  63. 620 [139]k$[178]"a"[167]q9$[178][200](q9$[170]"               ",12)[170]"mpic"
  64. 630 [158]49155,q9$
  65. 640 [153]"clr saved!":[129]t[178]0[164]2000:[130]:[137]70
  66. 10000 [159]15,8,15,"s0:mandala":[160]15:[148]"mandala",8:[128]
  67. 50000 q9$[178]"":[151]198,0
  68. 50010 [161]a$
  69. 50020 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]50010
  70. 50030 [139]a$[178][199](13)[167][153]" ":[142]
  71. 50040 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50080
  72. 50050 [139][195](q9$)[177][178]12[167]50010
  73. 50060 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]50010
  74. 50070 q9$[178]q9$[170]a$
  75. 50080 [153]""a$;:[137]50010
  76. 60000 b9$[178]"                                      "
  77. 60002 [153]"loadfor          (NULL)  atn  (NULL)  str$  atn  (NULL)  atn"
  78. 60004 [153]"    contatn (NULL)agical (NULL)ystery (NULL)our-de-ascorce"
  79. 60010 [151]214,14:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  80. 60020 [129]i[178]0[164]7:[153]b9$:[130]:[153]"  pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  81. 60030 b9$(0)[178]"(NULL) atn (NULL) str$ atn (NULL) atn
  82. 60040 b9$(1)="by [214]ictor [199]rauer"
  83. 60050 b9$(2)="([195]) 1990 by [211]oftdisk, [201]nc."
  84. 60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #75"
  85. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  86. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  87. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  88. 60099 return
  89.