10 'TSM VOICE DATA WRITER
20 AD=&HD000
30 READ A$:IF A$="END" THEN 60
40 FOR I=0 TO 7:POKE AD+I,ASC(MID$(A$+STRING$(8," "),I+1,1)):NEXT
50 FOR I=8 TO 62:READ A:POKE AD+I,A:NEXT:AD=AD+64:GOTO 30
60 POKE AD,0
70 DEFUSR=&HB000:A=USR(0)
80 END
90 'VOICE DATA ---------------
100 '
110 DATA"BRASS 1"
120 ' AF OM WF SY SPPMDAMDPMSAMSPANO
130 DATA58,15, 2,0,200,30, 0, 2, 0,3,0
140 ' AR DR SR RR SL OL KS ML D1D2AM
150 DATA13, 6, 2, 8, 1,30, 2, 1, 0,0,0
160 DATA15, 8, 0, 8, 1,45, 1, 3, 2,0,0
170 DATA21,14, 0, 8, 2,36, 0, 1, 0,0,0
180 DATA18, 3, 0, 8, 2,14, 1, 1, 1,0,1
9980 '
9990 DATA"END"
|