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