MACRO &lab _QuitGS ¶ms &lab jsl $E100A8 dc i2"$2029" dc i4"¶ms" MEND MACRO &lab _ShutDownTools &lab ldx #$1901 jsl $E10000 MEND MACRO &lab _StartUpTools &lab ldx #$1801 jsl $E10000 MEND MACRO &lab _TLShutDown &lab ldx #$0301 jsl $E10000 MEND MACRO &lab _TLStartUp &lab ldx #$0201 jsl $E10000 MEND MACRO &lab _MMShutDown &lab ldx #$0302 jsl $E10000 MEND MACRO &lab _MMStartUp &lab ldx #$0202 jsl $E10000 MEND MACRO &lab _InitCursor &lab ldx #$CA04 jsl $E10000 MEND MACRO &lab _CloseWindow &lab ldx #$0b0e jsl $e10000 MEND MACRO &lab _SetSysBar &lab ldx #$120F jsl $E10000 MEND MACRO &lab _FixMenuBar &lab ldx #$130F jsl $e10000 MEND MACRO &lab _DrawMenuBar &lab ldx #$2A0F jsl $e10000 MEND macro &l ~CheckMItem &p1,&p2 &l ph2 &p1 ph2 &p2 ldx #$320F jsl $E10000 mend macro &l ~DrawControls &p1 &l ph4 &p1 ldx #$1010 jsl $E10000 mend macro &l ~SetMenuBar &p1 &l ph4 &p1 ldx #$390F jsl $E10000 mend macro &l ~FixAppleMenu &p1 &l ph2 &p1 ldx #$1E05 jsl $E10000 mend macro &l ~NewMenuBar2 &p1,&p2,&p3 &l ph2 &p1 ph4 &p2 ph4 &p3 ldx #$430F jsl $E10000 mend macro &l ~HiliteMenu &p1,&p2 &l ph2 &p1 ph2 &p2 ldx #$2C0F jsl $E10000 mend macro &l ~SetMenuFlag &p1,&p2 &l ph2 &p1 ph2 &p2 ldx #$1F0F jsl $E10000 mend macro &l ph2 &n1 &l anop aif "&n1"="*",.f lclc &c &c amid &n1,1,1 aif "&c"="#",.d aif s:longa=1,.a rep #%00100000 .a aif "&c"<>"{",.b &c amid &n1,l:&n1,1 aif "&c"<>"}",.g &n1 amid &n1,2,l:&n1-2 lda (&n1) pha ago .e .b aif "&c"="<",.c lda &n1 pha ago .e .c &n1 amid &n1,2,l:&n1-1 pei &n1 ago .e .d &n1 amid &n1,2,l:&n1-1 pea &n1 ago .f .e aif s:longa=1,.f sep #%00100000 .f mexit .g mnote "Missing closing '}'",16 mend macro &l ph4 &n1 &l anop aif "&n1"="*",.f lclc &c &c amid &n1,1,1 aif "&c"="#",.d aif s:longa=1,.a rep #%00100000 .a aif "&c"<>"{",.b &c amid &n1,l:&n1,1 aif "&c"<>"}",.g &n1 amid &n1,2,l:&n1-2 ldy #2 lda (&n1),y pha lda (&n1) pha ago .e .b aif "&c"<>"[",.c ldy #2 lda &n1,y pha lda &n1 pha ago .e .c aif "&c"<>"<",.c1 &n1 amid &n1,2,l:&n1-1 pei &n1+2 pei &n1 ago .e .c1 lda &n1+2 pha lda &n1 pha ago .e .d &n1 amid &n1,2,l:&n1-1 pea +(&n1)|-16 pea &n1 ago .f .e aif s:longa=1,.f sep #%00100000 .f mexit .g mnote "Missing closing '}'",16 mend macro &lab gStr &text &lab dc i2'L:&text' dc c"&text" mend