e444rs000b 8 -+j /or'///a SC 02394 H3-ll.0 ACT V - Part 2 /orä)ä)) WYYYW ZZZZZ ) ZIII'WYYYWYYBJZZZZä _=JE&&&R =)YYBJZZZZ Act V Subroutine ..... sqrt. xh6350',000000l'2f33wg0'u0038'xz0000',000000l'8000000'xs4806't002l'xb6343' d0044'xu5003'xd6339'xa4833'xh6343'u0059'm0057'xh480l' u0045',0000004'gf98000'50w44k40'wwfj0000'42'xb6343'm00l8'xu5003' ,000000l'3wwj507q'xh54ll'm0004'xh58l3'xb6357'm0058'u003l'a00l7' xm54ll'a00l9'xd6363'xh6357'xh6322'u0048'xt5547'xs60l8' xt4604'xh6363'xh6357'u0025',000000l'40000034'xb52l7'xe54ll'u0005' xb58l3'xd6357'xa6322'u0052'm0024'xh6339'xh4833'xb58l3' u00l0',0000002'40000000'l5800000'xb52l7'xa54ll'xe470l'a0020'u00l4' ;0004203'u0000' ;0006300'.0000000'iii'yybj??? X XIII')))) =))))' ACT V Subroutine...... ln log exp pwr. xz0000'xz0000',000000l'6w2q036q'xz0000',0000002'40000000'2w282k6'xz0000'h0322' u0009'h0324'u00ll'h0326'u0035'xz0000's0057'xt5547' m0259'a0l53'u0l57',0000002'l794l6f'5500002'xh6350',000000l'3433wg2'xb48l5' xh6336'xb5336'xt5932's0263't0ll2'a0058'xr48l5'u0l39' u0059'xz0000'xz0000'b0250'm0322'a0l52'm0324'a0304' m0326'u0042'a0328'm0322'a0002'm03l0's0004'm0005' h0020'u0ll4's0222'u0054'm03l0'u0007'n00l9'a0020' xu5003',0000002'2'2'xb6350'xr48l5'xu4638'xr48l5'u0238' xb6336'xy48l5'xb5336'xu48l3'a0ll9'u0359',000000l'3796w640'xh6350' ,000000l'2q33wg2'xb48l5'xh6336'u0l26'xb6350'u0l62'b0l20'xh480l' u0l54',0000002'5500002'7wwwwwwq'80xz0000'xz00l7'xh5336'u0l00'xm6048' h03l0'u0052'xb6350'xr48l5'u0l39'u0l33',000000l'l0000000'b0ll7' u0l04'b0l06'xr48l5'xu4638'u0l00'xh6350',000000l'2k33wg0'xt5547' xh58l2'e03l3'u00l4'n025l'a0l23'h0260'u0300'e0ll8' u0260's0l30'd0322'u0l24',0000002'jl48742'8000000'xb58l2'e0320' u0050'h0322'u0l49'b0ll7'e0ll8'u0233'xt5547'u0362' xh6350',000000l'3233wg0'u0238'xm6057',0000002'287f26jf'40000000'xz0000'h0322' u0209'h0324'u02ll'h0326'u0335'a0256't0l43'n0058' a0227'h0260'u02l9'y0234'u0l59',000000l'42'xz00l6',000000l'2q99kqgj' b03l0'xt4604'xu4905'xn565l'c0308's0308'm0309'h0ll7' u0245'm0205'xm0l43'a022l'xh480l'u0252'h03l0'e03ll' t0228'u0230'b0307'd0322'xu5003'b03l0'e03l8's03l9' t02l3'u0224',0000002'l87kjll4'wwwwwwwq'b0ll7't0l47'm03l2'u0260' ,000000l'6'b0322'xu5003',0000002'l94j583f'5500002'e0ll8'u0207',000000l'2' s020l't0l3l'b0334'xu48l4',0000009'l6g90gl0'lfk35l58'9567g86'jjjjjjj' 5500002'3796w626'5500002'wwwwww80'20000000',000000l'wwwwww80'b0329'xs480l' xh480l'u0242',0000009'7q'46'7q'lq8w92'5500002'53g834' 55000002'23fkfw2'5500002',0000004'5500000'2508w24f'82'208ww7wf'b03l0' t03l4'u0257',000000l'7wwwwwj0'b032l'm0322'a0323'm0324'a0325' m0326'a0306'u0343'm0322'a0330'm0324'm0204'a0305' u0350'z0206'm0322'a0223'm0324'a0204'h0326'm0326' xs4907'h0322'u033l'h0ll7'b0349'u02l9'xc6334'u0l2l' ;00042l0'u0l37' ;0004303'u0l07' ;0004503'u0200' ;00045l3'u002l' ;0006300'.0000000'wyyywyybjzzzzwyyyw' ACT V Subroutine...... artan. xh6350',000000l'2w33wg0'u00l7',0000002'6620w0'2'b0l4l'u0055',000000l'7q' z0000',000000l'42'xb6339'e0l6l'xm5046't0063'u0045'xz6057' ,000000l'wwwwww80'xh6339'u0020',000000l'f0k97gf'xh6328'e0007'xh480l's0009' t0l53'n0004's0062't0029'u0l05'a00l5'y0045'u0032' y0047'y0048'b0l20'u0036'xh480l'u00l0'xc54l0'xs58l3' xu5003'm0000'u0l08',0000002'wwwwww80'qq3273f6'a0000'xh54ll's0000' s0000'xd54ll'xh530l'r0l37'u0l50'm0l39'a00l9'xh58l3' xb6328't0038'xb58l3'xu5003',000000l'726kgjg2'xz6056'xz0007'xc6357' xs6357'u0045',0000003'2jj5948'ww7g28l8'w8k7wlq2'b0l20'xh480l'u0005' r0l37'u0l50'xu5003'a006l'y004l'xb6328'e0043'xh530l' u004l',0000004'l988l4g6'wwwwwwwq'k55679l0'42'b0l03'm0008'a0l02' xm54l0'a0l04'xm54ll'a0l63'xm6357'a0044'xm4702'a0ll7' xm54ll'a0ll9'xm58l3'a0l38'xm530l'u0000',0000002'7wwwwf68'jjjjjjj' xz0009',000000l'l4lg2w42'xh6357'h0008'xh4702'xh54l0'xh54ll'xh58l2' xh58l3'u0l2l'h0008'm0008'u0l42'n0ll8's0l40't0lll' xb6328'u0l58'e00l6'm0l38'xu5003',000000l'wwwwww80'xu48l3',000000l'j577kw4' ;00048l0'u0000' ;0006300'.0000000'e444r ' E&&&R ACT V Subroutine...... sin cos xh6350',000000l'2g33wg0'u0ll2',0000002'''a0020'n0049'a0222' u00l2'',0000002'20000002'20000000'y0034'u0028'b0200'xh480l' xb6345'u0l47'',0000002'5l7jjlf'q'80xz0000'b025l's0009' u0025'xh54ll'xh58l2'u0l56'b0200'xh480l'u0032',000000l'7wwwwwwq' b00l8'm00l9'nzzzz'u0050'xs5358't0228'xa52l7'h00l8' xb6362'e0063'xa4907'xh480l's0200't0l33'xs5033't0005' xu5547',000000l'2'xe6l29'h0009's00l0't0l59's02l2't0l50' s00ll't0022'b0009's003l'xh54ll'xh58l2'u0l29',000000l'7q' xh6350',000000l'2j33wg0'u02l9',0000002''',000000l'l45w306j'xz000l'80xz0000' ,000000l'20000000'xz6048',000000l'20000000'z0000'xh6362'u0l44'xb6359'xu48l3' xh6359'u0ll8'h0l04'xb6362'u0l2l'r0l43'u0230'u00l4' mzzzz'xh54ll't0260'u0l28'm0l07'a0l08'xh6345'u0l43' z0000'a0262't0ll4's0250'n0208'a0l09'y0l24'b00l8' m0l05'xh58l2'u0l24'uzzzz'xc6359'u0246',000000l'6glwf'xh58l2' n0l06'u0223'xb5629's0009'u0l53'xh54ll'xh58l2'u0l57' m002l's0l08'u0l30'a0ll0'xh54ll'xh58l2't0l29'u0l28' ,000000l'42'',000000l'ww66k99j'',000000l'f33457f'xz000l',0000005'fk5l0wf6'4w6gj' wwwwwwwq'l4lg2w74'7f8g2'xz000l',000000l'20000000'h0249'm0249'h020l' u02l7'h0203'u0233'xh6362'b0263'u0ll6'xz565l'r0245' u02l3'n02ll'xm58l2'xu5003'b0l04'xu48l3'e0252't0039' u0036'xh6362'u0235'b0207'm020l'a0202'm0203'a0204' xm6362'a0206'xm4928'm020l'a0209'uzzzz'h0l04'xb6362' u0257''xz0003',0000002'40000000'wwwwww80'xb54ll'n0205'u0223' z0000'r0l43'u0230'u0253'a00ll'u0l30'xz0003',000000l'7wwwwwj0' ;0004603'u0l00' ;00047l0'u0000' ;0006300'.0000000'iii'wyyywyybjzzzz wyyyw0000iii's000s' Act V Partial punch.v040lg00' flg08''llw58'2lw48'3lj00'flg44'32g4'3lj00' flg44'350j'3lj00'flg44'32q4'3lj00'flg44'3j00' flg78'llgw4'flj04'l3778'2lg64'l3780'2lg70'3lj00' flg44''3lj00'flg44''f37g8'l32q4'337qj' f37gj'glg4j'l32g4'qlgw4'w34j0'3lj00'flww4'3f00' llwqj'3lj00'flj04'3w78'l3w78'wlgj0'3lj00'flj04' 300'l3w7j'wlgk4'3lj00'flj04'l3q00'llwk8'k3wfj' 8l78j'3lj8j'flk00'2000'82000'4'20'flgf0' 0l4f6w64' v040lj00' lgk4'j3wk8'llj00'2lw84'qlq78'flw80'l3w00'qlk6j' flwf8'qlqk0'flj64'228'k3wj8'flkk8'w00'llk34' k3w6j'8l00j'flj30'qlqf4'fljwj'l3wfj'glj24'wlq98' flj64'202j'80q28'glj4j'wlqfj'glj4j'qlqg4'fljwj' wlqk8'jlqkj'j3wq0'glgqj'flqkj'20000'3j00'w00000' 5500000'w000000'5500000'5500000'2000'qlq7j'glq38'wlkw8' glkj4'flk54'5500000'wlqqj'glk38'wlj9j'glklj'wljf4' glk00'l3wfj'7ljg0'9lj98'qlj2j'2lj68'flj54'j3wf8' 27487qqj' v040lk00' l3wfj'7lj94'9lj98'qlqk4'2lkl8'20kj'802q0'l3wfj' 7lkg0'9lj98'qlqw0'2lkg8'flkg4'wwwwwwkj'l3wfj'7lkq8' 9lj98'qlqk4'2lk50'20l4'802q0'l3wfj'7lqg0'9lj98' qlqw0'2lkw0'flkqj'l00'l3wfj'203j'82040'gljq4' wlqw4'glq88'wlkwj'gljg4'fljjj'qlkk0'flk9j'2064' 8024j'j3w6j'flq38'l0'200000'207j'80264'flk38' l0000'qlj38'glqlj'flq00'4'24j'k3wf8'l3wjj' qljl8'flw50'2000000'20g4'80264'flq00'ww0'wwwq' 03j5wl26' v040lq00' l3wfj'6lq78'9lj98'qlqk4'2lql8'20kj'80qq0'l3wfj' 6lqjj'9lj98'qlkk4'2lkf0'l3w6j'flk94'l3wfj'6lw5j' 9lj98'qlkk4'2lq84'flq50'l3wf8'q3wj8'wlq94'glq6j' wlq9j'glq6j'flq70'qlqf8'k3wj8'flq80'4'www0' 2048'8024j'l3wq0'flj80'l0000'40000000'40000000'3wwwwwwq' 5500000'40000000'40000000'3wwwwwwq'20000000'2'5500000'l3w6j' l3w6j'glk70'flw60'40'40000000'2q0'wwwwj'wwkl3ql8' j3wf8'j3wfj'flqj0'w0000'264'2'j3wfj'l3wjj' 2gql0ljq' v040lw00' 6lkfj'qljl8'wlkk0'j3wq0'20k8'8lwkj'3lj8j'flk00' l3wj8'20qj'820w0'j3wfj'flw34'3lj8j'fljq8'2004' l3wfj'82060'flwg4'f3jl0'wlq90'flqw8'lwj8'400' llk34'202j'82030'j3w6j'l3wfj'4'8l040'flk7j' 2lw94'llgk4'2ljl8'l3wk8'wlwq8'glgk8'wlwk4'j3wk8' gljlj'llk6j'6lwq4'j3wjj'flj3j'llww0'64'80368' qlqg4'glwg8'lljl8'qlk6j'flw88'wj'4624'5500000' 5500000'4000'4'8'wwwwwwk0'3lw48'flj04'flwg4' 0j2fw8f4';0006300'.0002700'' YYBJ' 'WYYYW))))III'S)))S' Act V Normal punch.v0l8lgf0' llwqj'3lj00'flj04'3w78'l3w78'wlgj0'3lj00'flj04' 300'l3w7j'wlgk4'3lj00'flj04'l3q00'llwk8'k3wfj' 8l78j'3lj8j'flk00'2000'82000''20'flgf0' 008l0g54'v040lj00' lgk4'j3wk8'llj00'2lw84'qlq78'flw80'l3w00'qlk6j' flwf8'qlqk0'flj64'228'k3wj8'flkk8'w00'llk34' k3w6j'8l00j'flj30'qlqf4'fljwj'l3wfj'glj24'wlq98' flj64'202j'80q28'glj4j'wlqfj'glj4j'qlqg4'fljwj' wlqk8'jlqkj'j3wq0'glgqj'flqkj'20000'3j00'w00000' 5500000'w000000'5500000'5500000'2000'qlq7j'glq38'wlkw8' glkj4'flk54'5500000'wlqqj'glk38'wlj9j'glklj'wljf4' glk00'l3wfj'7ljg0'9lj98'qlj2j'2lj68'flj54'j3wf8' 27487qqj' v040lk00' l3wfj'7lj94'9lj98'qlqk4'2lkl8'20kj'802q0'l3wfj' 7lkg0'9lj98'qlqw0'2lkg8'flkg4'wwwwwwkj'l3wfj'7lkq8' 9lj98'qlqk4'2lk50'20l4'802q0'l3wfj'7lqg0'9lj98' qlqw0'2lkw0'flkqj'l00'l3wfj'203j'82040'gljq4' wlqw4'glq88'wlkwj'gljg4'fljjj'qlkk0'flk9j'2064' 8024j'j3w6j'flq38'l0'200000'207j'80264'flk38' l0000'qlj38'glqlj'flq00'4'24j'k3wf8'l3wjj' qljl8'flw50'2000000'20g4'80264'flq00'ww0'wwwq' 03j5wl26' v040lq00' l3wfj'6lq78'9lj98'qlqk4'2lql8'20kj'80qq0'l3wfj' 6lqjj'9lj98'qlkk4'2lkf0'l3w6j'flk94'l3wfj'6lw5j' 9lj98'qlkk4'2lq84'flq50'l3wf8'q3wj8'wlq94'glq6j' wlq9j'glq6j'flq70'qlqf8'k3wj8'flq80'4'www0' 2048'8024j'l3wq0'flj80'l0000'40000000'40000000'3wwwwwwq' 5500000'40000000'40000000'3wwwwwwq'20000000'2'5500000'l3w6j' l3w6j'glk70'flw60'40'40000000'2q0'wwwwj'wwkl3ql8' j3wf8'j3wfj'flqj0'w0000'264'2'j3wfj'l3wjj' 2gql0ljq' v040lw00' 6lkfj'qljl8'wlkk0'j3wq0'20k8'8lwkj'3lj8j'flk00' l3wj8'20qj'820w0'j3wfj'flw34'3lj8j'fljq8'2004' l3wfj'82060'flwg4'f3jl0'wlq90'flqw8'5500000'400' llk34'202j'82030'j3w6j'l3wfj'4'8l040'flk7j' 2lw94'llgk4'2ljl8'l3wk8'wlwq8'glgk8'wlwk4'j3wk8' gljlj'llk6j'6lwq4'j3wjj'flj3j'llww0'64'80368' qlqg4'glwg8'lljl8'qlk6j'flw88'wj'300'5500000' 5500000'4000'4'8'wwwwwwk0'5500000'5500000'5500000' 2l533fg8';0006300'.0002740'/// ' '/// yybj +/// ' P ã PIII'S)))S' Act V Emergency punch, for object programs that occupy beyond 2740. v0l820f0' l24qj'32l00'f2l04'3w78'l3w78'w20j0'32l00'f2l04' 300'l3w7j'w20k4'32l00'f2l04'l3q00'l24k8'k3wfj' 8l78j'32l8j'f2200'2000'82000''20'f20f0' 008l4j54'v0402l00' 20k4'j3wk8'l2l00'22484'q2378'f2480'l3w00'q226j' f24f8'q23k0'f2l64'228'k3wj8'f22k8'w00'l2234' k3w6j'8l00j'f2l30'q23f4'f2lwj'l3wfj'g2l24'w2398' f2l64'202j'80q28'g2l4j'w23fj'g2l4j'q23g4'f2lwj' w23k8'j23kj'j3wq0'g20qj'f23kj'20000'3j00'w00000' 5500000'w000000'5500000'5500000'2000'q237j'g2338'w22w8' g22j4'f2254'5500000'w23qj'g2238'w2l9j'g22lj'w2lf4' g2200'l3wfj'72lg0'92l98'q2l2j'22l68'f2l54'j3wf8' 274950qj' v0402200' l3wfj'72l94'92l98'q23k4'222l8'20kj'802q0'l3wfj' 722g0'92l98'q23w0'222g8'f22g4'wwwwwwkj'l3wfj'722q8' 92l98'q23k4'22250'20l4'802q0'l3wfj'723g0'92l98' q23w0'222w0'f22qj'l00'l3wfj'203j'82040'g2lq4' w23w4'g2388'w22wj'g2lg4'f2ljj'q22k0'f229j'2064' 8024j'j3w6j'f2338'l0'200000'207j'80264'f2238' l0000'q2l38'g23lj'f2300'4'24j'k3wf8'l3wjj' q2ll8'f2450'2000000'20g4'80264'f2300'ww0'wwwq' 03j69g26' v0402300' l3wfj'62378'92l98'q23k4'223l8'20kj'80qq0'l3wfj' 623jj'92l98'q22k4'222f0'l3w6j'f2294'l3wfj'6245j' 92l98'q22k4'22384'f2350'l3wf8'q3wj8'w2394'g236j' w239j'g236j'f2370'q23f8'k3wj8'f2380'4'www0' 2048'8024j'l3wq0'f2l80'l0000'40000000'40000000'3wwwwwwq' 5500000'40000000'40000000'3wwwwwwq'20000000'2'5500000'l3w6j' l3w6j'g2270'f2460'40'40000000'2q0'wwwwj'wwkl3ql8' j3wf8'j3wfj'f23j0'w0000'264'2'j3wfj'l3wjj' 2gql7qjq' v0402400' 622fj'q2ll8'w22k0'j3wq0'20k8'8lwkj'32l8j'f2200' l3wj8'20qj'820w0'j3wfj'f2434'32l8j'f2lq8'2004' l3wfj'82060'f24g4'f3jl0'w2390'f23w8'5500000'400' l2234'202j'82030'j3w6j'l3wfj'4'8l040'f227j' 22494'l20k4'22ll8'l3wk8'w24q8'g20k8'w24k4'j3wk8' g2llj'l226j'624q4'j3wjj'f2l3j'l24w0'64'80368' q23g4'g24g8'l2ll8'q226j'f2488'wj'300'5500000' 5500000'4000'4'8'wwwwwwk0'5500000'5500000'5500000' 2l53jgg8' ;0006300'.0003240' /// s000szzzz ACT V Checkout routine. xb424l'a0l3l't000l'xpl600'b0038'xi0000't0000'xp2400' xz0002'xp0000'xi0000'h0037'xr0063'xu0050's0l3l'y0l08' h0039'b0037's0032't0l4l's0033't0l05's0033't0l33' u0063'b0035'u0ll7'e00l4'xp0700'u0l23'xz0l00'u0048' ,0000008'840000'l0000'''wwwwwwq0''2000000'' b0l08'a0l3l'y0l08'y0l0l'b0039'a0l3l'h0039't006l' xpl600'b0036'h0039'b0038'xi0000't0000'b0l08'xr5330' xu5934'xz0000'xp2400'xz0000'b0035'uzzzz',000000l'7ww0j002'r006l' u0040'bzzzz'xr48l5'xu6037'u0040'xp0300'r006l'u0040' bzzzz'h0035'e0062'xs5624't0025'b0035'xr48l5'xu6037' u0l06'xp0346'xz0047'xp0348'xz0049't0027'xp0300'm0038' a0030'y0l27'xz3200'pzzzz'b0035'xr5330'xu5934'xz000l' u0l05'r006l'u0l55'bzzzz'xh6350'b0l35'xr5649'xu5639' u0l58'r006l'u0l55'b0l63'xy5408'u0l46'800t0l5l'xr48l5' xu5620'hzzzz'u0l58'xr48l5'xu4900'u0l49',000000l'l00000'b0l08' a0008'y0l08'b0l08's0l3l'y0l49'y0l08'y0l35'u0048' ;0006300'.0000000'zzzzyybjwyyyw /// ACT V Trace routine. u0052'xz000l'xr5330'xu5934'xb6344's0l53'y0007'b0000' t00l5'b0l52'xh5336'xb6360'xr48l5'xu5l30'u0020'b0l5l' xh5336'xb6360'xr48l5'xu5552'xr55l3'xu55l3',000000l'6l9ql86'b005l' xr5330'xu5934'u0l28'xz000l'b0000'xh636l'xr48l5'u0l54' xb636l'xm584l'xr48l5't0l54'u0l09's0l35't0l44'b0l40' s0027'y0042'b0000'a0027'xz0000'y0046'b0000'y0048' b0000'y005l'u0l45'xz0000'b0056'xy48l3'xz0000'u0054' xz48l4'xz0000'xz0000'xz0000'xz0000'xz0000'xz0000'z0000' xb48l5'y0ll6'y0l39'a0l53'y0l40'a0027'y0028'r0l29' u0ll6'xpl600'xz000l'xpl200'u0l36'xc6363'800t0l00'u0l24' b0000'y005l't0l40'e0l48's0l49't0l24's0l44't0l59' xb6360'xu48l4'z0l3l'xz0924'xz0000'u0000',000000l'wwwwwwwj'xh6360' t0ll3'800t0l00'xu48l4'xz4200'xb6360'xh5336'xz000l'u0000' b0000'r0l29'u0ll7'u0028'xz000l'xpl200'xb48l5'u000l' xs0000'xh0000',000000l'2'xz2500'xz2508'xz0002'y0l57'b0l27' xh5336'b0000'xu5552'b0l35's005l't0l24'xpl600'u0037' . ;00048l3'u0l3l' ;0006300'.0000000'e444rwyyyw' 'iii'0000/// iii'yybj +yybjwyyyw' ' dim'subs'640'' reserve space for function subroutines' PROCEDURE TO TEST INPUT / OUTPUT remark' enter'i/o'' sl' daprt'cr4'i'r'e'a'd'ap'a'ap'ap' ' '' iread'a''daprt'tab6'i'p'c'h'ap'a'ap'ap' ' ''ipch'a'' s2' daprt'cr4'r'e'a'd'ap'a'ap'ap' ' '' read'a''daprt'tab6'p'u'n'c'h'ap'a'ap'ap' ' ''punch'a'' s3' daprt'cr4'4'ap'r'd'f'l'o'ap'a'ap'ap' ' '' 4'rdflo'a''daprt'tab6'l'0'0'4'ap'd'p'r't'ap'a'ap'ap' ' ''l004'dprt'a'' s4' daprt'cr4'r'd'h'e'x'ap'a'ap'ap' ' '' rdhex'a''daprt'tab6'h'x'p'c'h'ap'a'ap'ap' ' ''hxpch'a'' daprt'cr4'cr4'cr4''exit'' end'' PROCEDURE TO TEST TRIG FUNCTIONS remark' enter'trig'' sl' daprt'cr4'uc2' ' ' ' 'a' ' ' ' ' ' ' ' ' 's'i'n' 'a' ' ' ' ' ' ' ' ' ' ' 'c'o's' 'a' ' ' ' ' ' ' ' ' ' ' 't'a'n' 'a' ' ' ' ' ' ' ' 'a'r't'a'n' ','t'a'n' 'a'.'lcl'cr4'' s2' 0'i-'360';'ia'' s3' machn'pl600''0'flo'ia'/'.5729'57795'e'2';'a'' sin'a';'sina''cos'a';'cosa'' sina'/'cosa';'tana'' artan'tana'x'.5729'57795'e'2';'art'' 600'iprt'ia''daprt' ' '' l608'print'sina',,'cosa',,'tana',,'art'' bkp4'exit'' for'ia'step'l5'until'360'rpeat's3'' daprt'cr4'cr4'cr4''exit'' end'' PROCEDURE TO TEST PELL FUNCTIONS remark' enter'pell'' sl' daprt'cr4'uc2' ' ' ' 'a' ' ' ' ' ' ' ' 's'q'r't' 'a' ' ' ' ' ' ' ' ' ' 'l'n' 'a' ' ' ' ' ' ' ' ' ' ' ' 'l'o'g' 'a' ' ' ' ' ' ' ' ' ' ' 'e'x'p' 'a' ' ' ' ' ' ' ' ' ' 'a' 'p'w'r' 'lcl'.'5'cr4'' s2' l';'ia'' s3' machn'pl600''l'flo'ia';'a'' sqrt'a';'sqrta''ln'a';'lna''log'a';'loga'' exp'a';'expa''a'pwr'.5''e'0';'roota'' 60l'iprt'ia''daprt' ' '' l608'print'sqrta',,'lna',,'loga',,'expa',,'roota'' bkp4'exit'' for'ia'step'l'until'25'rpeat's3'' daprt'cr4'cr4'cr4''exit'' end'' PROCEDURE TO TEST ARITHMETIC ROUTINES remark' enter'arith'' sl' daprt'cr4'uc2' ' ' ' 'a' ' ' ' ' ' ' 'b' ' ' ' ' ' ' ' ' ' 'a' 'lcl'+'uc2' 'b' ' ' ' ' ' ' ' ' ' ' 'a' 'lcl'-'uc2' 'b' ' ' ' ' ' ' ' ' ' ' 'a' 'lcl'x'uc2' 'b' ' ' ' ' ' ' ' ' ' ' 'a' 'lcl'/'uc2' 'b'lcl'cr4'' s2' 0'i-'l6';'ia'' s3' machn'pl600''ia'i+'3';'ib'' 0'flo'ia';'a''0'flo'ib';'b'' a'+'b';'a+b''a'-'b';'a-b'' a'x'b';'axb''a'/'b';'a/b'' 702'dprt'a',,'b''daprt' ' '' l608'print'a+b',,'a-b',,'axb',,'a/b'' bkp4'exit'' for'ia'step'2'until'20'rpeat's3'' daprt'cr4'cr4'cr4''exit'' end'' PROCEDURES TO TEST SUBSCRIPTS remark' enter'load'table'row'col'' sl' prev';'table'0'' s2' l';'j'' s3' l';'k'' s4' j'ix'l0'i+'k';'table'j'k'' for'k'step'l'until'col'0'rpeat's4'' for'j'step'l'until'row'0'rpeat's3'' exit'' end'' enter'dispy'block'ro'colmn'' s2' l';'m'' s3' l';'n'' daprt'cr4'tab6'' s4' 80l'iprt'block'm'n'' for'n'step'l'until'colmn'0'rpeat's4'' for'm'step'l'until'ro'0'rpeat's3'' daprt'cr4'cr4''exit'' end'' enter'list'line'' sl' prev';'last'' s2' daprt'cr4''400'iprt'line'0''l';'k'' s3' 40l'iprt'line'k'' for'k'step'l'until'last'rpeat's3'' daprt'cr4'cr4'cr4''exit'' end'' TEST PROGRAM FOR ACT V STARTS HERE remark' CONTROL PROGRAM remark' dim'matrx'2l'' sl' call'i/o',,'trig',,'pell',,'arith'' s2' if'5'call'load'arg'matrx',,'5',,'4'' s3' call'dispy'arg'matrx',,'5',,'4'' s4' if'20'call'list'arg'matrx'' s5' stop''''3