ack/lang/basic/test/test21.bas

11 lines
160 B
QBasic
Raw Permalink Normal View History

1985-01-24 11:27:36 +00:00
80 open "i",#3,"tst/data"
100 input #3, a
105 print a
110 input #3, b
115 print b
120 input #3, c,d
125 print c,d
130 let x=a+b+c+d
140 print a,b,c,d,x
180 end