6 lines
98 B
Text
6 lines
98 B
Text
proc MAIN()
|
|
char array STRING
|
|
open (1,"D:FILE.TXT",4,0)
|
|
inputsd(1,STRING)
|
|
close(1)
|
|
return
|