' YAP Example Code
' Coded by Lonny Pursell
' 10/7/2002
'
' message encoding
aid$="$irc"                                                           !set application id
op&=2                                                                 !set option
nick$="ozk040"                                                        !set nick
msg$="This is only a test!"                                           !set message
tmp$=aid$+HEX$(op&,2)+HEX$(LEN(nick$),2)+HEX$(LEN(msg$),4)+nick$+msg$ !generate message string
PRINT                                                                 !dump message to screen
PRINT tmp$
'
' message decoding
aid$=LEFT$(tmp$,4)           !get application id
op&=VAL("&H"+MID$(tmp$,5,2)) !get option
nl&=VAL("&H"+MID$(tmp$,7,2)) !get nick size
ml&=VAL("&H"+MID$(tmp$,9,4)) !get message size
nick$=MID$(tmp$,13,nl&)      !get nick name
msg$=MID$(tmp$,13+nl&,ml&)   !get message
PRINT                        !dump results to screen
PRINT "         id: ";aid$
PRINT "     option: ";op&
PRINT "nick length: ";nl&
PRINT " msg length: ";ml&
PRINT "       nick: ";nick$
PRINT "    message: ";msg$
'
' eof