COLOR 10, 9
CLS
LOCATE 10, 32
PRINT "soltan & shaban"
LOCATE 12, 25
PRINT "WRITTEN BY SADEGH NASIRY VATAN"
LOCATE 20, 30
PRINT "press <F10> for quit"
ON KEY(10) GOSUB quit
PLAY "t110 o3"
KEY(10) ON
DO
PLAY "cfff  fefg  f2 p2"
PLAY "cffffefge2 p2"
PLAY "ceeeedefd2 p2"
PLAY "cddddcedc2 p2"
PLAY "e2g2f2 p2"
PLAY "gfefe2g2f2 p2"
PLAY "gffe8 p6 gffe8 p6 f2p4 f2 g p4"
PLAY "gffe8 p6 gffe8 p6 f2 p2"
PLAY "ceeeedefd2 p2"
PLAY "cddddcedc2 p2"
PLAY "cddddcedc2 p1"
LOOP
quit: END