Code: Select all
pi@raspberrypi: ~/Desktop/FreeBASIC $ fbc -lang deprecated customloop.bas
customloop.bas(14) error 10: Expected '='
140 pause
^
customloop.bas(19) error 10: Expected '='
190 pause
^
Code: Select all
10 cls
20 print "How many times to show?"
30 input "", a%
40 print "What will the phrase be?"
50 input "", b$
60 print "Show number? (y/n)"
70 input "", c$
80 cls
90 if c$="y" then
100 for d=1 to a%
110 print b$;
120 print " ";
130 print d%
140 pause
150 next d
160 else
170 for d=1 to a%
180 print b$
190 pause
200 next d
210 end if
220 e$=STRING$(10,45)
230 print e$;
240 print "Press enter to end.";
250 print e$
260 end