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?
'>>> Start of page 1.
DECLARE SUB DoAnsi (ansi$)
DECLARE SUB AnsiSub (Txt$)
FOR SNum = 1 TO 3
F$ = "SCR" + FORMAT$(SNum) + ".ANS"
OPEN F$ FOR INPUT AS #1
WHILE NOT EOF(1)
LINE INPUT #1, Txt$
'>>> Continued on page 2.
* Origin: WarWorld's point away from home... (1:124/7006.1)