User input/Text: Difference between revisions
User input/Text in various BASIC dialents
(Added solution for Action!) |
(User input/Text in various BASIC dialents) |
||
Line 527:
Print l&
</lang>
==={{header|BASIC256}}===
<lang freebasic>input string "Please enter a string: ", s
do
input "Please enter 75000 : ", i
until i = 75000
print
print s, i</lang>
==={{header|Run BASIC}}===
<lang runbasic>input "Please enter a string: "; s$
while i <> 75000
input "Please enter 75000 : "; i
wend
print
print s$; chr$(9); i</lang>
==={{header|True BASIC}}===
{{works with|QBasic}}
<lang qbasic>PRINT "Please enter a string";
INPUT s$
DO
PRINT "Please enter 75000 ";
INPUT i
LOOP Until i = 75000
PRINT
PRINT s$, i
END</lang>
==={{header|Yabasic}}===
<lang freebasic>input "Please enter a string: " s$
repeat
input "Please enter 75000 : " i
until i = 75000
print
print s$, chr$(9), i</lang>
==={{header|Sinclair ZX81 BASIC}}===
| |||