15 lines
489 B
Text
15 lines
489 B
Text
|
10 rem load the entire contents of some text file as a single string variable.
|
||
|
|
20 rem should avoid reading an entire file at once if the file is large
|
||
|
|
30 rem ================================
|
||
|
|
40 print chr$(14) : rem switch to upper+lowercase character set
|
||
|
|
50 open 4,8,4,"data.txt,seq,read"
|
||
|
|
60 n=0
|
||
|
|
70 for i=0 to 1
|
||
|
|
80 get#4,x$
|
||
|
|
90 i=st and 64 : rem check for 'end-of-file'
|
||
|
|
100 if i=0 then a$=a$+x$ : n=n+1
|
||
|
|
110 if n=255 then i=1 : rem max string length is 255 only
|
||
|
|
120 next
|
||
|
|
130 close 4
|
||
|
|
140 end
|