Т > Sampler Т J.G.Harston 15-Jul-1985 : (К7:ч R%(3),S(3),mem%1023 2ins%=╧:Н ┘ ins%=ё <Гins%:Р_INSTRUC FН ┘ Р_ERROR P К7:Р_INIT ZУ dЯ┼0,0);"Waiting..." nT%=T%+1 x-Я┼0,13);"Run time: ";(D%*T%)/100;" sec " ┌У Щ ▒>t%:t%=▒+D% ▄-Я┼0,0);"Sampling...":ЦA%=0╦3:R%(A%)=0:МA% √EЦa%=1╦10:Ц A%=0 ╦ C%:R%(A%)=((√(A%+1) │ 64)*S(A%)+R%(A%)):МA%:Мa% ═ЦA%=0╦3 ╙R%(A%)=R%(A%)/10 Є Я┼12,4+2*A%);єd3n2(R%(A%)/4) Ў*МA%:Г F% ▄ Я┼0,0);"Printing...":Р_PLOT хГ і(1)=32 ▄ F%=F% ┌ 1 р$Я┼17,18);:Г F% ▄ Я"N. " ▀ Я"FF." эЩ ё Ф: ПщР_PLOT ЗО2:L%=0 Ц LO%=0 ╦ C% Р_PLOTTER(LO%,L%):L%=R%(LO%) МLO% ";Г DD$="Y" ▄ О1,13,1,27,1,≈"K",1,4,1,0,1,255,1,8,1,8,1,8 ,├Г (T% ┐ M%)=0 ▄ О1,13,1,27,1,75,1,188,1,1,1,0,1,0,1,0,1,0:Ц LO%=0 ╦ 10:Ц LP1%=1 ╦ 9:О1,28,1,8,1,8,1,8:МLP1%:О1,63,1,8,1,8,1,8:МLO% 6О1,10,1,13,3 @А J: TщР_PLOTTER(Z%,LA%) ^Г R%(Z%)>480 ▄ А h(A=R%(Z%):Г A-8Г і-1:Г ÷=17:Ю HZ=╔:Г і-1:Ю RГ ÷=17:А \ Р_INSERT("L."+ц(·)+Ґ(6)+Ґ13) f О21:Ю pА z: └щР_INSERT(A$) ▌ *FX15 ≤.Ц A=1 ╦ ╘ A$:Ъ"FX 138,0,"+ц(≈аA$,A,1)):М A ╒А ╛: ІщР_INSTRUC юш:Ъ "LOAD SampIns "+ц~mem% йЦA%=0╦879:Оmem%?A%└&80:М т,Я┼5,23)"Press space to continue...";:Z=╔ чА Ъ