11 lines
137 B
QBasic
11 lines
137 B
QBasic
10 data "a",b
|
|
20 data "c","d
|
|
40 read j$
|
|
50 print "j=";j$
|
|
60 restore 20
|
|
70 for i=1 to 3
|
|
80 read j$,k$
|
|
90 print "j=";j$;" k=";k$
|
|
100 next
|
|
|