Excuse me but this is dbPro, it should have been written:
init3dEngine()
mainLoop:
do
command$=getCommand(dummy)
processCommand(command$)
loop
function processCommand(command$)
command$=lower$(command$)
if command$="bash the architect over the head with a dbpro box"
print "YIPEE! I'll get right on it"
else
print "You cannot do that!"
endIf
endfunction
function getCommand(dummy)
input "What is your command? ";command$
result$=command$
endfunction result$
function init3dEngine
cls 0
ink rgb(255,255,255),0
endfunction
Pneumatic of Xev@EQ
God made the world in 7 days, but we're still waiting for the patch.