fc TAPE 126-269-25c DC-25 WALSH
0.03100|sps1
+0
s1,spk10		|s1, dolo, s2.
s2,spk1		|s2, dol1, s3.
s3,spk7		|s3, dol7, s8.
sps8
s4,spk10		|s4, dol0, s3.
sps3
s5,spk10		|s5, dol0, s6.
s6,spk1		|s6, dol1, s8.
sps8
s7,spk10		|s7, dol0, s8.
s8,cat11		|s8, if l0=n, s18, s9.
cps18
s9,ca7t11		|s9, if l7=n, s39, s10.
cps39
s10,dmt11		|s10, if l7 g l0, s39, s11.
cps11
sps39
s11,ca1t11		|s11, if l1=n, s38, s12.
cps38
s12,dmt11		|s12, if l1 g l0, s38, s13.
cps13
sps38
s13,dm0		|s13, if l1=l0, s14, s15.
cps14
sps15
s14,caz7		|s14, if z7+l1=14, k24, s15.
ad1t11
sdn14
dm0
cpk24
s15,ca7t11		|s15, if 17=10, s16, s17.
sdt11
dm0
cps16
sps17
s16,caz7		|s16, if z7-1=l7, k25, s17.
su1
sd7t11
dm0
cpk25
s17,cat11		|s17, if l0=0, s128, s18,
dm0
cps128
s18,caz5		|s18, if z5=0, s35, s19.
su0
cps35
s19,su1		|s19, if z5=1, s27, s20,
cps27
s20,su1		|s20, if z5=2, s29, s21,
cps29
s21,sun3		|s21, if z5=3, =4, =5, - , s22
cp0
s22,su1		|s22, if z5=6, s32, s23.
cps32
s23,ca1t11		|s23, if l1=0s25, s24.
dm0
cps25
s24,spm1		|s24, do m1, s1.
sps1
s25,spm2		|s25, do m2, s26.
s26,spm7		|s26, do m7, s1.
sps1
s27,ca7t11		|s27, if l7=0, s28, s26.
dm0
cps28
sps26
s28,spm6		|s28, do m6, s24.
sps24
s29,ca7t11		|s29, if l7=0, s30, s26.
dm0
cps30
sps26
s30,ca1t11		|s30, if l1=0, s28, s31.
dm0
cps28
s31,spm10		|s31, do m0, s31a.
spm2		|s31a, do m2, s1.
sps1
s32,ca1t11		|s32, if l1=0, s33, s24.
dm0
cps33
sps24
s33,ca7t11		|s33, if l7=0, s25, s34.
dm0
cps25
s34,spm10		|s34, do m0, s34a.
spm6		|s34a, do m6, s1.
sps1
s35,caz7		|s35, if z7 g7, s36, s37.
dmn7
cps36
sps37
s36,ca7t11		|s36, if l7=0, s37, s26.
dm0
cps37
sps26
s37,ca1t11		|s37, if l1=0, s36, s24.
dm0
cps36
sps24
s38,can8		|s38, do set for up, 1s39.
sp1s39
s39,ca0		|s39, do set for down, s40.
tsk19
ca0
tsk26
s40,caz5		|s40, if z5=0, s63, s41.
suk19
dm0
mdn7
su0
cps63
s41,su1		|s41, if z5=1, s116, s42.
cps116
s42,su1		|s42, if z5=2, s119, s43.
cps119
s43,sun3		|s43, if z5=3,=4,=5, -, s44.
cp0
s44,su1		|s44, if z5=6, s119, s45.
cps119
s45,ca1		|s45, if il1 go, s46, s73.
spk20
su0
cps73
s46,cat11		|s46, if l0 g1, s47, s73.
dm1
cps73
s47,spm11		|s47, do im1, s48.
s48,spk17		|s48, do il7, s49.
s49,sut11		|s49, if il7, g l0-1, s50, s51.
ad1
cps51
s50,spm16		|s50, do im6, s1.
sps1
s51,cat11		|s51, if l0=2, s52, s107.
dmn2
cps52
sps107
s52,spm17		|s52, do i m7, s53.
s53,spm15		|s53, do im5, s54.
s54,spk16		|s54, do il6, s55.
s55,dm1		|s55, if il6 g1, s56, s67.
cps67
s56,spm17		|s56, do im7, s57.
s57,spk10		|s57, do l0, s58.
s58,dm0		|s58, if lo=0, s59, s66.
cps59
sps66
s59,spm15		|s59, do im5, s60.
s60,spk17		|s60, do il7, s61.
s61,dm0		|s61, if il7=0, s62, s64.
cps62
sps64
s62,spm11		|s62, do im1, s63.
s63,spm17		|s63, do im7, s1.
sps1
s64,spm17		|s64, do im7, s65.
s65,spm11		|s65, do im1, s1.
sps1
s66,spm12		|s66, do im2, s63.
sps63
s67,spm10		|s67, do m0, s68.
s68,can6		|s68, if il6=1, s69, s72.
spk20
dm0
cps72
s69,spk27		|s69, if z7 g 2, s70, s72.
dmn2
cps72
s70,spm15		|s70, do im5, s71.
s71,spm10		|s71, do m0, s50.
sps50
s72,spm16		|s72, do im6, s63.
sps63
s73,cat11		|s73, if l0=1, s74, s92.
su0
cps92
s74,spk16		|s74, do il6, s75.
s75,dm0		|s75, if il6=0, s76, s82.
cps76
sps82
s76,spm12		|s76, do im2, s77.
s77,spm16		|s77, do im6, s78.
s78,spm10		|s78, do m0, s79.
s79,spm16		|s79, do im6, s80.
s80,spk10		|s80, do l0, s81.
s81,dm0		|s81, if l0=0, s63, s71.
cps63
sps71
s82,dm1		|s82, if l6=1, s83, s98.
cps83
sps98
s83,spm12		|s83, do im2, s84.
s84,spm17		|s84, do im7, s85.
s85,spm15		|s85, do im5, s86.
s86,spk10		|s86, do l0, s87.
s87,dm1		|s87, if l0 g1, s64, s88.
cps88
sps64
s88,spm10		|s88, do m0, s89.
s89,spk27		|s89, if z7 g1, s90, s72.
dm1
cps72
s90,spm16		|s90, do im6, s71.
sps71
s91,cat11		|s91, if l0=0, s92, s107.
dm0
cps92
sps107
s92,spk15		|s92, do il5, s93.
s93,dm0		|s93, if il5=0, s96, s94.
cps96
s94,spm15		|s94, do im5, s95.
s95,spk27		|s95, if z7=0, s62, s64.
dm0
cps62
sps64
s96,spk27		|s96, if z7 g1, s90, s97.
dm1
cps97
sps90
s97,spm12		|s97, do im2, s72.
sps72
s98,spk15		|s98, do il5, s99.
s99,dm0		|s99, if il5=0, s100, s106.
cps100
sps106
s100,spm12		|s100, do im2, s101.
s101,spm17		|s101, do im7, s102.
s102,spm15		|s102, do im5, s103.
s103,spm17		|s103, do im7, s104.
s104,spk11		|s104, do il1, s105.
s105,dm0		|s105, if il1=0, s64, s66.
cps66
sps65
s106,spm15		|s106, do im5, s64.
sps64
s107,spm16		|s107, do im6, s107a
spm10		|s107a, do m0, s108.
s108,spm16		|s108, do im6, s109.
s109,spk17		|s109, do il7, s110.
s110,spm10		|s110, do m0, s111.
s111,spk10		|s111, do l0, s112.
s112,dm0		|s112, if lo=0, s113, s108.
cps53
sps108
s116,cat11		|s116, if l0=1, s117, s63.
sd1
dm0
cps117
sps63
s117,spk16		|s117, do il6, s118.
s118,sd1		|s118, if il6=1, s50, s63.
dm0
cps50
sps63
s119,cat11		|s119, if l 0=0, -, si120.
su0
cp0
s120,su1		|s120, if l 0=1, s71, s121.
cps121
sps71
s121,spm10		|s121, do mo, s122.
s122,spk17		|s122, do i l 7, s123.
s123,dm0		|s123, if i l 7=0, s124, s71.
cps124
sps50
s124,spk15		|s124, do i l 5, s125.
s125,dm0		|s125, if i l 5 =0, s72, s126.
cps72
s126,spm15		|s126, d o i m 5, s127.
s127,spm17		|s127, d o i m 7, s66.
sps66
s128,csk26		|s128, do test no set, up, down, s129, s130, s131.
ad4s128
ts3s128
sp0
sp7s128
sps130
sps131
s129,caz7		|s129, if z7 g n7, s130, s131.
dmn7
cps130
sps131
s130,can8		|s130, do set for up, s131+1.
sp1s131
s131,ca0		|s131, do set for down, s132.
tsk19
ca0		|clear set register
tsk26
s132,spk16		|s132, di i l 6, s133.
s133,dm1		|s133, if i l 6 g1, s134, s142.
cps143
s134,spk15		|s134, d o i l 5, s135
s135,dm0		|s135, if i l 5=0, s146, s136.
cps146
s136,spm15		|s136, d o i m 5, s137.
s137,spk17		|s137, d o i l 7, s138.
s138,dm1		|s138, if i l 7 g 1, s121, s139.
cps139
sps121
s139,spm17		|s139, d o i m 7, s132.
sps132
s140,spm16		|s140, d o i m 6, s141.
s141,spk17		|s141, d o i l 7, s142.
s142,dm0		|s142, if i l 7 =0, s132, s63.
cps132
sps63
s143,spk10		|s143, do l0, s144.
s144,dm0		|s144, if lo=0, s145, s66.
cps145
sps66
s145,cak19		|s145, do change up for down, s132.
adn8
mdn15
tsk19
sps132
s146,spk14		|s146, do i l 4, s147.
s147,dm0		|s147, if i l 4=0, s140, s148.
cps140
s148,spm14		|s148, do i m 4, s149.
s149,spm10		|s149, do i m 0, s140.
sps140
k1,tak9		|LOOK 1
ca1
k8,spp13
spp4
k9,sp0
k2,tak9		|LOOK 2
can2
spk8
k3,tak9		|LOOK 3
can3
spk8
k4,tak9		|LOOK 4
can4
spk8
k5,tak9		|LOOK 5
can5
spk8
k6,tak9		|LOOK 6
can6
spk8
k7,tak9		|LOOK 7
can7
spk8
k10,tak9		|LOOK 0
ca0
spk8
k11,tak9		|i LOOK 1
ca1
k18,suk19
dm0
spk8
k19,+0
k12,tak9		|i LOOK 2
can2
spk18
k13,tak9		|i LOOK 3
can3
spk18
k14,tak9		|i LOOK 4
can4
spk18
k15,tak9		|i LOOK 5
can5
spk18
k16,tak9		|i LOOK 6
can6
spk18
k17,tak9		|i LOOK 7
can7
spk18
m1,tam9		|MOVE 1
ca1
m8,spp5
m9,sp0
m2,tam9		|MOVE 2
can2
spm8
m3,tam9		|MOVE 3
can3
spm8
m4,tam9		|MOVE 4
can4
spm8
m5,tam9		|MOVE 5
can5
spm8
m6,tam9		|MOVE 6
can6
spm8
m7,tam9		|MOVE 7
can7
spm8
m10,tam9		|MOVE 0
ca0
spm8
m11,tam9		|i MOVE 1
ca1
m18,suk19
dm0
spm8
m12,tam9		|i MOVE 2
can2
spm18
m13,tam9		|i MOVE 3
can3
spm18
m14,tam9		|i MOVE 4
can4
spm18
m15,tam9		|i MOVE 5
can5
spm18
m16,tam9		|i MOVE 6
can6
spm18
m17,tam9		|i MOVE 7
can7
spm18
k20,tak22		|OBTAIN INTERPETIVE LOOK FROM TABLE
suk19
dm0
adk23
tsk21
k21,ca0
k22,sp0
k23,cat11
k24,ca1		|SET INDICATOR TO UP
tsk26
sps17
k25,can2		|SET INDICATOR TO DOWN
sp1k24
k26,+0
k27,tak29
cak19
dm0
cpk28
can15
k28,suz7
k29,sp0
n14,+14
n15,+15
OCTAL
72|n2,
73|n3,
74|n4,
75|n5,
76|n6,
77|n7,
61|n8,
2172|p4,
2340|p5,
2525|p13,
202|t11,
47|z5,
51|z7,
START AT 0
o