[futurebasic] Re: [FB] ASCII Text Not Being Print#ed??

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : December 2001 : Group Archive : Group : All Groups

From: Alain Pastor <apastor@...>
Date: Thu, 20 Dec 2001 10:34:44 +0100
Jeff810095@... wrote:
> 
> Can anyone ansewer my original question?
> 
> Hi,
> 
> Do these two functions work with the entire ASCII character set? [barring any
> known bugs in FB]
>           READ#1, rectRecord$;1
>           PRINT#2, rectRecord$;
> 

I would say yes (try this in the Console):

LOCAL FN SaveFile(fName AS STR63, vRef AS INT)
DIM AS INT    i
DIM AS STR255 theStr

DEF OPEN "TEXT"
OPEN "O",1,fName,,vRef
FOR i = 0 TO 255
theStr = CHR$(i)
//WRITE#1, theStr;1
PRINT#1, theStr;
NEXT
CLOSE #1
END FN

LOCAL FN ReadFile(fName AS STR63, vRef AS INT)
DIM AS INT    i
DIM AS STR255 theStr

OPEN "I",1,fName,,vRef
FOR i = 0 TO 255
READ#1, theStr;1
PRINT ASC(theStr)
NEXT
CLOSE #1
END FN

FN SaveFile("Test",SYSTEM(_aplVol))
FN ReadFile("Test",SYSTEM(_aplVol))

-- 

Alain

-----------------------------------------------------
FB^3 in Europe:  http://euro.futurebasic.com/
FB II Pouch:     http://www.pixmix.com/FB/outils.html
-----------------------------------------------------