Spielerrei am Rande:
1 x=0
10 A$=INKEY$ : IF A$=““GOTO10
20 IF A$=“P“THEN X=X+1
21 IF A$=“O“THEN X=X-1
22 SOUND X,0,0,0,31,0
30 GOTO10
Das ganze ist KC-Basic (lauffähig ab KC 85/2 aufwärts), enstanden zur lösung eines kleinen Problems. Ich habe da noch keine Fehlerroutinen eingebaut, es ist sogar noch mehr möglich!
Das kleine Basic-Progi erklärt sich von selber. Daher nur der Soundbefehl in kurzfassung für andere Dialekte: SOUND T1,V1,T2,V2,LS,D
T1u2 = Tonhöhe, Werte von 0 bis 255 gültig
V1u2 = Vorteiler, nur 0 oder 1
LS = Lautstärke, Werte von 0 bis 32 gültig, wirkt nur auf dem AV-Anschluß
D = Tondauer, 0 gibt Dauerton
Bei manchen Dialekten muß dafür eine FORNEXT-Schleife herhalten.
Manchmal muß aber auch der Befehl INKEY durch GET ersetzt werden, also in den Handbüchern nachschauen
also dann frohes schaffen...