RosettaCodeData/Task/User-input-Text/True-BASIC/user-input-text.basic

PRINT "Please enter a string";
INPUT s$
DO
   PRINT "Please enter 75000   ";
   INPUT i
LOOP Until i = 75000
PRINT
PRINT s$, i
END