30 lines
443 B
Plaintext
30 lines
443 B
Plaintext
window 1,,(0,0,350,430)
|
|
Str255 d, x
|
|
read d
|
|
do
|
|
read x
|
|
print x
|
|
until len$(x) == 0
|
|
restore
|
|
do
|
|
read x
|
|
print d; chr$(34); x; chr$(34)
|
|
until len$(x) == 0
|
|
HandleEvents
|
|
|
|
data "data "
|
|
data "window 1,,(0,0,350,430)"
|
|
data "Str255 d, x"
|
|
data "read d"
|
|
data "do"
|
|
data " read x"
|
|
data " print x"
|
|
data "until len$(x) == 0"
|
|
data "restore"
|
|
data "do"
|
|
data " read x"
|
|
data " print d; chr$(34); x; chr$(34)"
|
|
data "until len$(x) == 0"
|
|
data "HandleEvents"
|
|
data ""
|