1 line
738 B
Plaintext
1 line
738 B
Plaintext
10 CLS
|
|
20 DIM SCR(5000):DIM SCN(5000)
|
|
23 DIM WF%(256)
|
|
FOR I= 0 TO 127
|
|
WF%(I)=127
|
|
WF%(255-I)=-128
|
|
NEXT I
|
|
25 WAVE 0, WF%
|
|
|
|
30 SCORE = 0:NUM = 0
|
|
31 PRINT"":PRINT"":PRINT" PLEASE LISTEN TO THE TUNE"
|
|
32 PRINT" AND THE BAND PLAYED ON"
|
|
33 PRINT" WHILE I LOAD THE PROGRAM."
|
|
|
|
|
|
200 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3
|
|
202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6
|
|
203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5
|
|
|
|
210 SOUND GH,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND GH,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND G,4:SOUND 0,1
|