Sayprog (#  t(9 ) 1f=19 :t(f)=45--(4*f):f 0:7:6: (1,1 2$0,0:255,0 <'0,175:-255,0 F0,-175 P&1,7;"Speech System III" ZL19,2;"Written by Andrew Toone";20,11 ;"X to Quit" d&0,152:255,0 nX4,2;1;"Speed : < O --- P >" x<76L,141: speed=65131k Aspeed*2,0:0,-1:-speed*2,0 S0,-1:speed*2,0:0,-1:-speed*2,0 &0,120x:255,0 8,2;"Start :"; +start=23730\+256*23731\ start; (20);"End :"; )end=23670v\+256*23671w\ end !9 ,14;"< Q --- W >" %0,88X:255,0 312 ,2;"R-Record";(16);"T-Play" 214,2;"G-Graph";(16);"E-Edit" 116,2;"S-Save";(16);"L-Load" %0,32 :255,0 :speed=speed+(="p"speed<60<)-(="o"speed>1) "V76L+2*speed,141:0,-3:1,0:0,3 ,h1:78N+2*speed,141:0,-3:1,0:0,3:0 665131k,speed @Nend=end+502*(="w"end<64000)-502*(="q"end>start+502) J8,25;end Tend ^="e"430 h="r"490 r="s"540 |="l"640 ="t"740  ="x" ="g"1090B  280 "Space to end ";q$ =""l=65100L  6 =" "280  6  440 "Press ENTER when ready ";a$ 65231,speed l=65200 ""Recording over,press ENTER";a$  280  start,speed &len=end-start 0.start+1,len-256*(len/256) : start+2,(len/256) D"Record"start,end-start N"Press ENTER to verify";a$ X21,0; b "Record" l!"Verified O.K.,press ENTER";a$ v "Press ENTER to load";a$ 21,0; "Record"300000u "Press ENTER to continue";a$ )len=300011u+256*300022u speed=300000u 65131k,speed (300000u+len) ?300000u,0:300011u,0:300022u,0   7: 1,1;"Use the number keys to select a note, then 'O' and 'P' to tune the note. Keys A-'ENTER' will then play the notes." O7,3;"Q to return to main program"'''" q to leave tuning stage" f=19  (f*20)+20,10 @0,t(f):3,0:0,-t(f):-3,0  f *a$= 4a$"9"a$"0"980 >="Q"30 H%a$="a"speed=t(1):940 R%a$="s"speed=t(2):940 \%a$="d"speed=t(3):940 f%a$="f"speed=t(4):940 p%a$="g"speed=t(5):940 z%a$="h"speed=t(6):940 %a$="j"speed=t(7):940 %a$="k"speed=t(8):940 %a$="l"speed=t(9 ):940  810* 65131k,speed l=65100L a$=  840H a=a$ 6t(a)=t(a)+(="p"t(a)<60<)-(="o"t(a)>2) 620+(20*a),t(a)+10 :3,0 H1;20+(20*a),t(a)+11 :1;3,0 $20+(20*a),t(a)+9 1;3,0 $23+(20*a),t(a)+9 65131k,t(a) $l=65100L ."q"Ʀ"Q"990 8 810* B LM7;" ";1,9 ;1;1;"Graph of sound" Vfreq=0 `"Start address :";st j+st<300000ust>645001120` t2,162:0,-160:250,0:21,13 ;"Time>";8,0;"^"'"F"'"r"'"e"'"q":3,2;"X to return to main program." ~f=stst+125010 g=010 16384@+g,(f+g) g  last=freq freq=0  ="x" g=079O 3freq=freq+((g,175)ɩ(g+1,175)) g 1((f-st)/5)+2,(2*last)+2 2,2*(freq-last) f &"Press ENTER to return to prog.";a$   #( 300000u #2 31000y #< "Earsay" #F 0 $.9<<< pee<tar0unlLaAQre Earsay L*\#>~(/w<#{8[v\R*\#>0 ˾o #[v\R8MuNk{