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