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