MACRO &lab _GetTick &lab ldx #$2503 jsl $E10000 MEND MACRO &lab _Random &lab ldx #$8604 jsl $E10000 MEND MACRO &lab _SetRandSeed &lab ldx #$8704 jsl $E10000 MEND MACRO &lab _SetSolidPenPat &lab ldx #$3704 jsl $E10000 MEND macro &l ~FrameOval &p1 &l ph4 &p1 ldx #$5804 jsl $E10000 mend macro &l ~InsetRect &p1,&p2,&p3 &l ph4 &p1 ph2 &p2 ph2 &p3 ldx #$4C04 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 &l ~FrameRect &p1 &l ph4 &p1 ldx #$5304 jsl $E10000 mend macro &l ~SetColorTable &p1,&p2 &l ph2 &p1 ph4 &p2 ldx #$0E04 jsl $E10000 mend macro &l ~NewControl2 &p1,&p2,&p3 &l ph4 &p1 ph2 &p2 ph4 &p3 ldx #$3110 jsl $E10000 mend MACRO &lab _GetCtlValue &lab ldx #$1A10 jsl $E10000 MEND macro &l ~GetCtlHandleFromID &p1,&p2 &l ph4 &p1 ph4 &p2 ldx #$3010 jsl $E10000 mend macro &l ~SetPenMode &p1 &l ph2 &p1 ldx #$2E04 jsl $E10000 mend macro &lab pStr &text &lab dc i1'L:&text' dc c"&text" mend MACRO &lab _SetCtlValue &lab ldx #$1910 jsl $E10000 MEND MACRO &lab _GetCurResourceFile &lab ldx #$121E jsl $E10000 MEND MACRO &lab _SetCurResourceFile &lab ldx #$111E jsl $E10000 MEND macro &l ~SetCurResourceFile &p1 &l ph2 &p1 ldx #$111E jsl $E10000 mend macro &l plax &loc &l pla plx aif c:&loc,.store mexit .store sta &loc stx &loc+2 mend macro &l ~DisposeHandle &p1 &l ph4 &p1 ldx #$1002 jsl $E10000 mend macro &l ~HLock &p1 &l ph4 &p1 ldx #$2002 jsl $E10000 mend macro &l ~NewHandle &p1,&p2,&p3,&p4 &l ph4 &p1 ph2 &p2 ph2 &p3 ph4 &p4 ldx #$0902 jsl $E10000 mend macro &l ~AddResource &p1,&p2,&p3,&p4 &l ph4 &p1 ph2 &p2 ph2 &p3 ph4 &p4 ldx #$0C1E jsl $E10000 mend macro &l ~LoadResource &p1,&p2 &l ph2 &p1 ph4 &p2 ldx #$0E1E jsl $E10000 mend macro &l ~ReleaseResource &p1,&p2,&p3 &l ph2 &p1 ph2 &p2 ph4 &p3 ldx #$171E jsl $E10000 mend macro &l ~RemoveResource &p1,&p2 &l ph2 &p1 ph4 &p2 ldx #$0F1E jsl $E10000 mend macro &l ~UpdateResourceFile &p1 &l ph2 &p1 ldx #$0D1E jsl $E10000 mend macro &l ~RMFindNamedResource &p1,&p2,&p3 &l ph2 &p1 ph4 &p2 ph4 &p3 ldx #$2A1E jsl $E10000 mend macro &l ~RMSetResourceName &p1,&p2,&p3 &l ph2 &p1 ph4 &p2 ph4 &p3 ldx #$2D1E jsl $E10000 mend macro &l ~UniqueResourceID &p1,&p2 &l ph2 &p1 ph2 &p2 ldx #$191E jsl $E10000 mend MACRO &lab _MMStartUp &lab ldx #$0202 jsl $E10000 MEND macro &l ~ClearScreen &p1 &l ph2 &p1 ldx #$1504 jsl $E10000 mend