home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / TRANSLAT.BAS < prev    next >
BASIC Source File  |  1993-11-07  |  620b  |  26 lines
  1. SUB translate (b$)
  2. SHARED CommonVarFile$
  3. DO
  4. A = INSTR(b$, "<")
  5. IF A = 0 THEN EXIT DO
  6. b = INSTR(A, b$, ">"): IF b = 0 THEN EXIT DO
  7. IF b = A + 1 THEN EXIT DO
  8. C = b - (A + 1)
  9. v$ = MID$(b$, A + 1, C)
  10. Va$=GETVAR$((V$))
  11. IF Va$="" THEN
  12.     Fi%=FREEFILE
  13.     OPEN COMMONVARFILE$ FOR RANDOM SHARED AS #Fi% LEN=LEN(CommonVar)
  14.     FOR r% = 1 TO LOF(Fi%)\LEN(CommonVar)
  15.         GET Fi%, r%, CommonVar
  16.         IF ucase$(LEFT$(CommonVar.Variable,LEN(v$)+1))_
  17.              = ucase$(v$)+"=" THEN_
  18.             va$=rtrim$(ltrim$(CommonVar.Value)):EXIT FOR
  19.        NEXT r%
  20.     Close Fi%
  21. end if
  22. REPLACE "<"+v$+">" WITH Va$ IN b$ 'added 10/20
  23. LOOP
  24. END SUB
  25.  
  26.