ansisub 1/4

 BBS: Inland Empire Archive
Date: 03-13-93 (14:52)             Number: 264
From: JEFF FREEMAN                 Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: ansisub 1/4                    Conf: (2) Quik_Bas

I believe I have corrected the little error these routines
were having with some .ANS files.  I created 3 SCR?.ANS
files saving various blocks at different lengths each and
all 3 displayed properly.  Also took the suggestion of
using integer comparisons in DOANSI, but it's still not as
fast ANSI.SYS -- any of you super-optimizers care to give
it a whack?

'________O_/________________________| SNIP | ______________________\_O_______
'        O \                        | HERE |                       / O
'This file created by PostIt! v5.1.
'>>> Start of page 1.

DECLARE SUB DoAnsi (ansi$)
DECLARE SUB AnsiSub (Txt$)
DEFINT A-Z
CLS


FOR SNum = 1 TO 3
  F$ = "SCR" + FORMAT$(SNum) + ".ANS"
  OPEN F$ FOR INPUT AS #1
  WHILE NOT EOF(1)
    LINE INPUT #1, Txt$
    AnsiSub Txt$
  WEND
  CLOSE 1
NEXT SNum

'>>> Continued on page 2.

---
 * Origin: WarWorld's point away from home... (1:124/7006.1)