Turbo Basic 1.1.


Turbo Basic 1.1. - . 246


, -
. , - GOSUB
.
PLAY OFF.
PLAY STOP -
(
). RETURN -
PLAY ON, -
PLAY OFF.
PLAY , PlAY ON
. -
$EVENT.
$SOUND.
.堠 $EVENT
-------- PLAY()
$SOUND

𠠠 ON PLAY (n)
------- ' 30
$SOUND 100
'
PLAY ON

ON PLAY (S)GOSUB
S = "GEAFDCFECFEDGGG "
' 2 4
S ="MB"
FOR % =2 TO 4
S ="0" + STR$(%)
S = S + S + S
NEXT %
PLAY S
DO
LOOP UNTIL INSTAT
CLEAR
END '


---------------------
PRINT S
PLAY cS
RETURN


-150 -