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)
Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET