RA USER 2/2

 BBS: Inland Empire Archive
Date: 01-15-93 (16:24)             Number: 389
From: JOHN GALLAS                  Refer#: NONE
  To: MARK THOMAS                   Recvd: NO  
Subj: RA USER               2/2      Conf: (2) Quik_Bas

>>> Continued from previous message
StrToVal! = Vl!

END FUNCTION

FUNCTION UVal$ (Sumpin$)
UVal$ = MID$(Sumpin$, 2, ASC(LEFT$(Sumpin$, 1)))
END FUNCTION

FUNCTION ValToStr$ (WordValue!)

a! = WordValue!

Char2! = a! \ 256

c! = Char2! * 256

Char1! = a! - c!

ValToStr$ = CHR$(Char1!) + CHR$(Char2!)

END FUNCTION

 * OLX 2.1 TD * BASIC programmers don't die, they GOSUB without RETURN

--- TMail v1.30.4
 * Origin: TC-AMS MLTBBS 2.2 - Minnetonka, MN (612)-938-4799 (1:282/7)