

[@ׯϷA]
#IF
EQUAL G12 0
#ACT
GMEXECUTE ʼ @ׯʼ
INC G12 1
BREAK
#IF
EQUAL G12 60
#ACT
GMEXECUTE ʼ @ׯ
INC G12 1
BREAK
#IF
EQUAL G12 61
#ACT
GMEXECUTE ʼ @עʼ
INC G12 1
BREAK
#IF
EQUAL G12 117
#ACT
GMEXECUTE ʼ @ע
INC G12 1
BREAK

#IF
EQUAL G12 118
EQUAL G42 0
EQUAL G43 0
EQUAL G44 0
#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 118
#act
MOV G45 <$STR(G42)>
INC G45 <$STR(G43)>
INC G45 <$STR(G44)>
INC G12 1
break

#IF
EQUAL G12 119
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 120
#ACT
GMEXECUTE ʼ @µ㿪ʼ
INC G12 1
BREAK

#IF
EQUAL G12 126
#ACT
GMEXECUTE ʼ @Ĳ
INC G12 1
BREAK
#IF
EQUAL G12 128
#ACT
GMEXECUTE ʼ @Ĳ
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
BREAK
#IF
EQUAL G12 130
#ACT
MOV A34 
MOV G12 0
BREAK
#IF
#ACT
INC G12 1
BREAK

[@ׯϷB]
#IF
#ACT
MOV G18 0
MOV G19 0
MOV G15 130
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 122
EQUAL G42 <$STR(G43)>
EQUAL G42 <$STR(G44)>
#ACT
MOV A33 
BREAK
#IF
EQUAL G12 122
SMALL G45 11
#ACT
MOV A33 С
BREAK
#IF
EQUAL G12 122
LARGE G45 10
#ACT
MOV A33 
BREAK





