hehe the magic number guessing game has to be some sort of hello dark basic game starting point perhaps.
sync on : sync rate 30 : ink rgb(255,255,255),1 : randomize timer()
result$ = "" : guess$ = "" : gnum = 0 : magicnumber = rnd(9)+1
print "Ive guessed a number between [1 to 10]"
sync
disable escapekey : while escapekey()=0
input "what is your guess : ",guess$
gnum = VAL(guess$)
if gnum > magicnumber then result$="hmm, its too high"
if gnum < magicnumber then result$="hmm, its too low"
if gnum = magicnumber
cls
result$="congratulations! you guessed ["+STR$(magicnumber)+"] correctly!"
center text screen width()/2,screen height()/2,result$
center text screen width()/2,screen height()/2+16,"press a key"
sync
suspend for key
randomize timer()
magicnumber = rnd(9)+1
result$ ="Thinking of a new number.. ok ready"
cls
endif
print result$
sync : endwhile
cls
center text screen width()/2,screen height()/2,"bye...sniff"
sync
end