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")
I don't want to get involved in the programming of this, but all the
"I do it by..." reminds me of the QLers Do It In Black sayings...
Norman Dunbar Does It In Assembler
George Gwilt Does It Turbo-Charged
Tony Firshman Does It In Pearl(s)
Now all I need is one for Rich Mellor, which I failed to provide,
possibly something like Rich Mellor Does It With Second User Hardware,
but I thought that was too rude ;-)
Now, if you want something to puzzle with, try my little pointer
driven puzzle program at http://www.dilwyn.me.uk/games/djpuzzle.zip
Dilwyn Jones
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
