10 KEY(1) ON:ON KEY(1) GOSUB 240
20 CLS:KEY OFF:COLOR 10
30 LOCATE 23,28:PRINT "PRESS F1 FOR EXIT"
40 LOCATE 12,22:COLOR 13,1
50 PRINT "PLEASE WAIT WHILE PLAY MUSIC"
60 PLAY"O3T180B2E2L8D8D8D8D8B8"
70 PLAY"A8B8A8G8P8A8A8C8B8A8G8"
80 PLAY"A4P8B8C8B8A8P8C8C8C8A8"
90 PLAY"B2E2A8G8A8G8F4C8C8C8A8"
100 PLAY"G8F4G8F8G8A8B8C8B2E2D8"
110 PLAY"P8D8D8D8C8B8A8B8A8G8P8"
120 PLAY"A8A8B8B8A8G8A8P8B8C8B8"
130 PLAY"B2E2A8P8C8C8C8A8A8G8A8"
140 PLAY"G8F4P4C8C8C8A8A8G8A8G8"
150 PLAY"F4A8G8B8A8A8G8F8B2E2G4."
160 PLAY"G4.B8B8P8B8P8D8D8C8C8B8"
170 PLAY"B8A8P8C8B8A8G8A8A8P8A8"
180 PLAY"P8C8C8B8B8B8A8A8B2E2G8"
190 PLAY"P8B8A8G8F8G8F8G8A8B8C8"
200 PLAY"G8F8G8A8B8C8G4.G4.G4.G4.P4"
210 PLAY"GAFE1C2CEG2.ECFEDC2C2"
220 PLAY"C2CCC2.EFEDDC1"
230 I=I+1:IF I>1 THEN 240 ELSE GOTO 180
240 COLOR 7,0:CLS