MACRO &lab _CheckMItem &lab ldx #$320F jsl $E10000 MEND MACRO &lab _HiliteMenu &lab ldx #$2C0F jsl $E10000 MEND macro &l ~CheckMItem &p1,&p2 &l ph2 &p1 ph2 &p2 ldx #$320F jsl $E10000 mend macro &l ~DisableMItem &p1 &l ph2 &p1 ldx #$310F jsl $E10000 mend macro &l ~EnableMItem &p1 &l ph2 &p1 ldx #$300F jsl $E10000 mend MACRO &lab _AlertWindow &lab ldx #$590E 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 &lab _PrCloseDoc &lab ldx #$0F13 jsl $E10000 MEND MACRO &lab _PrClosePage &lab ldx #$1113 jsl $E10000 MEND MACRO &lab _PrJobDialog &lab ldx #$0C13 jsl $E10000 MEND MACRO &lab _PrOpenDoc &lab ldx #$0E13 jsl $E10000 MEND MACRO &lab _PrOpenPage &lab ldx #$1013 jsl $E10000 MEND MACRO &lab _PrPicFile &lab ldx #$1213 jsl $E10000 MEND MACRO &lab _PrSetError &lab ldx #$1513 jsl $E10000 MEND MACRO &lab _PrStlDialog &lab ldx #$0B13 jsl $E10000 MEND MACRO &lab _PrValidate &lab ldx #$0A13 jsl $E10000 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 _InitCursor &lab ldx #$CA04 jsl $E10000 MEND MACRO &lab _WaitCursor &lab ldx #$0A12 jsl $E10000 MEND