Source code in the basic programming language

DIM f AS STRING
OPEN "file.txt" FOR BINARY AS 1
f = SPACE$(LOF(1))
GET #1, 1, f
CLOSE 1


 100 D$ =  CHR$ (4)
 110 F$ = "INPUT.TXT"
 120  PRINT D$"VERIFY"F$
 130  PRINT D$"OPEN"F$
 140  PRINT D$"READ"F$
 150  ONERR  GOTO 210
 160  GET C$
 170  POKE 216,0
 180 S$ = S$ + C$
 190  PRINT 
 200  GOTO 140
 210  POKE 216,0
 220 EOF =  PEEK (222) = 5
 230  IF  NOT EOF THEN  RESUME 
 240  PRINT D$"CLOSE"F$

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


f = freefile
open f, "input.txt"
while not eof(f)
    linea$ = readline(f)
    print linea$
end while
close f

string s

'AS FUNCTION
s=GetFile "t.txt"

'AS PROCEDURE
Getfile "t.txt",s


OPEN #2: NAME "input.txt", ORG TEXT, ACCESS INPUT, CREATE OLD
DO
   LINE INPUT #2: linea$
   PRINT linea$
LOOP UNTIL END #2
CLOSE #2
END


open "input.txt" for reading as #1
while not eof(1)
    line input #1 linea$
    print linea$
wend
close #1

a = open("input.txt")
while not eof(a)
    line input #a linea$
    print linea$
wend