 MACRO
&lab _SysBeep
&lab ldx #$2C03
 jsl $E10000
 MEND
 MACRO
&lab str &string
&lab dc i1'L:&string',C'&string'
 MEND
 MACRO
&lab _SendCardMessage
&lab ldx #$0001
 jsl $E10220
 MEND
 MACRO
&lab _StrToNum
&lab ldx #$000A
 jsl $E10220
 MEND
 MACRO
&lab _ZeroToPas
&lab ldx #$0008
 jsl $E10220
 MEND
