LEX 'UTILEX' by Flavio Casseta [827] -- NOT TESTED (M.M.) ID #A0 MSG 0 POLL 0 ARGERR EQU #0BF19 ARGCK EQU #1C5A5 RNDAHX EQU #136CB HEXASC EQU #17148 STOD0 EQU #1C587 HDFLT EQU #1B31B STRHDR EQU #0F09A PKMID2 EQU #1C563 PKMID EQU #1C537 EXD0 EQU #06828 REV$ EQU #1B38E EXPR EQU #0F23C RCLD0 EQU #06832 FNTRN1 EQU #0F216 ENTRY ADP1 CHAR #F ENTRY ADP2 CHAR #F ENTRY PK1 CHAR #F ENTRY PK2 CHAR #F ENTRY REV CHAR #F ENTRY RPK CHAR #F ENTRY TEXT CHAR #F KEY 'ADPEEK$' TOKEN 18 KEY 'ADPEEK' TOKEN 19 KEY 'PEEK$' TOKEN 1A KEY 'PEEK' TOKEN 1B KEY 'REV$' TOKEN 1C KEY 'RPEEK$' TOKEN 1D KEY 'TEXT$' TOKEN 1E ENDTXT sto GOVLNG STOD0 rnd GOVLNG RNDAHX str GOVLNG STRHDR P2SD0X GOSUB sto P2HEX GOSUB rnd GONC ERROR D1=D1+ 16 R0=A POPARG C=DAT1 1 C=C+1 P GOC STRING GOSUB rnd GONC ERROR D1=D1+ 16 EX1 C=R0 RTNSC STRING GOSBVL ARGCK A=B A GOC EX1 SUBPOP GOSUB P2SD0X D=C A C=C+C A GOC ERROR R0=A RTN ERROR GOVLNG ARGERR FIVE R0=A ACEX A C=0 A LCHEX 5 ?C=C B GOYES GO A=A+B B GO DAT1=A B D1=D1+ 2 D0=D0+ 2 GOTO LOOP1 EX3 GOVLNG PKMID2 END