lang/basic/test/test30.b

   1 100 rem writing to a file
   2 110 open "o", #2, "tst/output"
   3 113 open "i", #3, "tst/output"
   4 120 a$="CAMERA": b$="93604-1"
   5 130 write a$,b$
   6 140 write #2, a$, b$
   7 145 input #3, b$: print b$
   8 150 write #3, a$, b$