bbcmicro
cls
rnd(12)
print “Mijn naam is “ NAAM “. Hoe heet jij?”
input REPLY
repeat
until reply=correct or try=3
list 70,100
10 dim name$(50)
20 dim date$(50)
30 for item = 1 to 10
40 read name$(item), date$(item)
50 next item
60 data david, 3 nov, john, 6 aug ……
Sound
sound 1,-15,4,20 (channel,volume -15 (hard)…0 (stil), 4=C, 20=length
enveloppe: heeft veel parameters. maar kan samengestelde tonen genereren.
alternatief voor PEEK en POKE op de BBC Micro:
PEEK -> N = ?65088
POKE -> ?65120 = 108