6 lines
189 B
Text
6 lines
189 B
Text
10 rem create a file
|
|
20 open 10,8,10,"0:output.txt,seq,write"
|
|
30 print#10,chr$(0)
|
|
40 close 10
|
|
50 rem check device status for error
|
|
60 open 15,8,15:input#15,a,b$,c,d:print a;b$;c;d:close 15
|