If C=55:Then 40ÞG
44ÞH
For 40ÞQ To 95 Step 4
cos Q©Q‰14ÞR
F-Line G,H,Q,R
RÞH
QÞG
Next
0ÞW
1ÞJ
V™30ÞV
For 1ÞT To 18
F-Line 95,11,Ran#©30‰80,Ran#©15‰10
Next
For 1ÞT To 600
Next
IfEnd
If C=2:Then F-Line A‰25,B‰49,A‰30,B‰39
F-Line A‰30,B‰39,A‰21,B‰25
F-Line A‰22,B‰27,A‰34,B‰20
F-Line A‰27,B‰35,A‰37,B‰29
F-Line A‰29,B‰23,A‰22,B‰16
F-Line A‰26,B‰20,A‰37,B‰9
F-Line A‰22,B‰16,A‰14,B‰5
F-Line A‰22,B‰16,A‰30,B‰4
IfEnd
If C=3:Then Cls
3ÞP
Prog "CLAD"
1ÞH
19ÞQ
For 18ÞG To 33 Step H
H‰0.2ÞH
Q™HÞQ
F-Line G,63,G,11
F-Line Q,63,Q,11
Next
IfEnd
If C=4:Then Cls
RclPict 1
2ÞP
Prog "CLAD"
For 94ÞF To 25 Step ™2
F-Line F,26,F™3,26
F-Line F™2,25,F™2,27
Next
For 1ÞT To 20
Int (Ran#©20‰5)ÞG
Int (Ran#©30‰10)ÞH
Int (Ran#©20‰5)ÞI
Int (Ran#©30‰10)ÞJ
F-Line G,H,I,J
Next
For 1ÞT To 400
Next
IfEnd
If C=5:Then Cls
RclPict 1
3ÞP
Prog "CLAD"
For 1ÞT To 30
Int (Ran#©30)ÞG
Int (Ran#©30)ÞR
PlotOn S‰G,R‰H
Next
For 1ÞT To 300
Next
IfEnd
If C=10 And Oá4:Then Cls
RclPict 1
1ÞP
Prog "CLAD"
F-Line 19,45,95,12
For 1ÞT To 20
Int (Ran#©40‰70)ÞQ
Int (Ran#©30‰10)ÞR
F-Line 95,12,Q,R
Next
For 1ÞT To 300
Next
IfEnd
If C=11 And O=1:Then For 45ÞT To 63 Step 2
F-Line 19,45,19,T
Next
For 63ÞT To 30 Step ™3
F-Line 95,63,95,T
F-Line 99,63,99,T
F-Line 103,63,103,T
Next
Circle 99,20,10
For 99ÞT To 19 Step ™5
F-Line 99,20,T,20
Next
Int (™V¹5)ÞW
Int (V™V¹5)ÞV
IfEnd
If C=11 And O=2:Then For 17ÞT To 47 Step 5
Text T,1,"              "
Next
40ÞA
1ÞB
1ÞX
Prog "MONSTRE"
Circle 58,29,5
For 1ÞT To 90
Int (Ran#©126‰1)ÞI
Int (Ran#©53‰10)ÞK
F-Line 58,29,I,K
Next
1000ÞW
Int (V¹3)ÞV
80ÞA
12ÞB
IfEnd
If C=12 And O=2:Then Circle 20,29,5
180ÞG
14ÞI
For 1ÞH To 300 Step 10
G‰3ÞG
I‰3ÞI
F-Line I‰5©cos H,29‰5©sin H,I‰cos G,29‰sin G
Next
For 1ÞT To 30
F-Line Ran#©30‰90,Ran#©40‰10,Ran#©30‰90,Ran#©40‰10
Next
V™150ÞV
For 1ÞT To 300
Next
IfEnd
If O=4 And C=10:Then AÞQ
BÞF
3ÞP
For 7ÞK To 47 Step 5
Text K,3,"            "
Next
70ÞA
9ÞB
0ÞH
Prog "SEPHIROT"
For 1ÞS To 300
Next
V™Int (Ran#©20‰50)ÞV
QÞA
FÞB
Return
IfEnd
If O=4 And C=11:Then For 7ÞG To 47 Step 5
Text G,3,"                "
Next
1ÞP
AÞQ
BÞF
3ÞA
9ÞB
Prog "SEPHIROT"
4ÞP
Prog "SEPHIROT"
0ÞH
0ÞI
For 16ÞG To 105 Step 2
F-Line G,B‰16,G‰2,B‰18
F-Line G,B‰16‰H,G,B‰16™I
B‰16‰H<63ãH‰0.5ÞH
B‰16™I>10ãI‰0.5ÞI
Next
0ÞW
QÞA
FÞB
V™Int (Ran#©100‰1)ÞV
IfEnd
If C=12 And O=4:Then For 7ÞG To 47 Step 5
Text G,3,"          "
Next
AÞQ
BÞF
3ÞA
9ÞB
1ÞP
Prog "SEPHIROT"
4ÞP
Prog "SEPHIROT"
For 16ÞA To 100 Step 2
F-Line A,B‰16,A‰2,B‰16
Next
For 100ÞA To 16 Step ™4
F-Line A,B‰17,A™2,B‰17
F-Line A,B‰15,A™2,B‰15
Next
11ÞC
QÞA
FÞB
™50ÞW
V™50ÞV
M>5ãM™5ÞM
Return
IfEnd