gdgqler wrote, on 04/11/2010 10:52:
On 4 Nov 2010, at 10:44, gdgqler wrote:
My S*BASIC program is:
10 CLS:FOR x=1 to 100:PRINT x&isit$(3,"FIZZ")&isit$(5,"BUZZ"):PAUSE 5
20 DEFine FuNction isit$(m%,a$)
30 IF (x MOD m%):RETRurn "":ELSE:RETurn a$
40 END vDEFine
This will work better if you replace RETRurn by RETurn (which is what I had in
the QPC2 program).
(8-)#
Very neat indeed.
What is 'vDEFine'?
Tidier is:
PRINT x&" "&isit$(3,"FIZZ")&isit$(5,"BUZZ")
Tony
--
QBBS (QL fido BBS 2:257/67) +44(0)1442-828255
[email protected] http://firshman.co.uk
Voice: +44(0)1442-828254 Fax: +44(0)1442-828255 Skype: tonyfirshman
TF Services, 29 Longfield Road, TRING, Herts, HP23 4DG
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
