;===ׯ
[@ׯϷA]
#IF
EQUAL G12 0
#ACT
MOVR G211 10
GMEXECUTE ʼ @ׯʼ
INC G12 1
BREAK
#IF
EQUAL G12 20
#ACT
GMEXECUTE ʼ @ׯ
INC G12 1
BREAK
#IF
EQUAL G12 21
#ACT
GMEXECUTE ʼ @עʼ
INC G12 1
BREAK
#IF
EQUAL G12 77
#ACT
GMEXECUTE ʼ @ע
INC G12 1
BREAK

#IF
EQUAL G12 78
EQUAL A133 
#ACT
MOV G42 <$STR(G92)>
MOV G43 <$STR(G93)>
MOV G44 <$STR(G94)>

MOV G45 <$STR(G42)>
INC G45 <$STR(G43)>
INC G45 <$STR(G44)>
INC G12 1
BREAK

#IF
EQUAL G12 78
#ACT
MOVR G42 6
inc G42 1
MOVR G43 6
inc G43 1
MOVR G44 6
inc G44 1
MOV G45 <$STR(G42)>
INC G45 <$STR(G43)>
INC G45 <$STR(G44)>
INC G12 1
BREAK

#IF
EQUAL G12 79
EQUAL G455 1
#ACT
MOV G42 2
MOV G43 1
MOV G44 3
MOV G45 <$STR(G42)>
INC G45 <$STR(G43)>
INC G45 <$STR(G44)>
MOV G455 0
INC G12 1
BREAK

#IF
EQUAL G12 80
#ACT
GMEXECUTE ʼ @µ㿪ʼ
INC G12 1
BREAK

#IF
EQUAL G12 86
#ACT
GMEXECUTE ʼ @Ĳ
INC G12 1
BREAK
#IF
EQUAL G12 88
#ACT
GMEXECUTE ʼ @Ĳ
MOV A133 
MOV A33 
MOV G16 0
MOV G17 0
MOV G11 0
MOV G13 0
MOV G14 0
MOV G29 0
MOV G42 0
MOV G43 0
MOV G44 0
MOV G45 0
INC G12 1
MOV G196 0
MOV A134 
BREAK
#IF
EQUAL G12 90
#ACT
MOV A34 
MOV G12 0
BREAK
#IF
#ACT
INC G12 1
BREAK

[@ׯϷB]
#IF
#ACT
MOV G18 0
MOV G19 0
MOV G15 90
DEC G15 <$STR(G12)>
MOV G11 <$STR(G13)>
INC G11 <$STR(G14)>
MOV G16 <$STR(G29)>
INC G16 <$STR(G14)>
DEC G16 <$STR(G13)>
MOV G17 <$STR(G29)>
INC G17 <$STR(G13)>
DEC G17 <$STR(G14)>
BREAK

[@ׯϷC]
#IF
EQUAL G12 82
EQUAL G42 <$STR(G43)>
EQUAL G42 <$STR(G44)>
#ACT
MOV A33 
BREAK
#IF
EQUAL G12 82
SMALL G45 11
#ACT
MOV A33 С
BREAK
#IF
EQUAL G12 82
LARGE G45 10
#ACT
MOV A33 
BREAK

;ʱ㡣
#IF
LARGE G4 0
#ACT
DEC G4 1
break

#IF
#ACT
DEC G40 1
BREAK




[@ׯϷD]
#IF
equal G196 0
EQUAL G12 79
LARGE G211 1
EQUAL G42 <$STR(G43)>
EQUAL G42 <$STR(G44)>
#ACT
MOVR G42 6
inc G42 1
MOVR G43 6
inc G43 1
MOVR G44 6
inc G44 1
MOV G45 <$STR(G42)>
INC G45 <$STR(G43)>
INC G45 <$STR(G44)>
BREAK
