home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
interpre
/
liberty
/
windows
/
readdata.bas
< prev
next >
Wrap
BASIC Source File
|
1993-07-25
|
333b
|
20 lines
[start]
a$ = ""
while a$ <> "EOD"
read a$
if a$ <> "EOD" then print a$
wend
input r$
if flag = 0 then restore [two] : flag = 1 : goto [start]
flag = 0 : restore [one] : goto [start]
[one]
data this, is, not, "the end", EOD
[two]
data of, the, world, !!!!, EOD