home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 40
/
040.d81
/
readfile.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
227b
|
11 lines
5 input"enter filename";fi$
10 open3,8,3,fi$:poke53280,5
20 get#3,a$:printa$;:get b$
30 if b$="p"then 70
40 if b$="a"then print:print: print"read aborted!!":goto60
50 if st=0 then 20
60 close 3:end
70 poke53280,2
80 get a$:if a$<>"c" then 70
90 poke53280,5:goto 50