Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0074/gnosis.sym
There is 1 other file named gnosis.sym in the archive. Click here to see a list.
" #~[> X.
"* I \`O:~:9C29t %Tyqy E/ gRp XE/ E/ gRp iE/ gRp l[JX P [JX x gRp l[JX gRp l[JX E2X gRp * }gRp , ~gRp 0 ~[JX gRp 2 gRp 7 gRp 9 gRp : [JX [JX 8 gRp ; [JX P [JX P gRp = gRp > [JX ` [JX p gRp ? [JX gRp A [JX ( gRp B gRp D gRp E gRp F [JX h E2X H E2X H gfh v TOGGLE gfh MESSAGE E/ gRp I E/ gRp K E/ gRp K gRp P gRp R gRp R [JX
( [JX
8 gRp S [JX
8 [JX
h gRp V gRp X [JX 0 gRp [ gRp \ [JX p gRp _ gRp _ [JX x [JX
( gRp b gRp f gRp h gRp j [JX s [JX 0 [JX H gRp t [JX H [JX H [JX P gRp u gRp v [JX h [JX h [JX p [JX x gRp w gRp y gRp } gRp [JX p [JX gRp [JX [JX [JX ( gRp [JX ( [JX 8 gRp ![JX ` gRp ![JX ` [JX p gRp "[JX [JX gRp "[JX [JX ( gRp
#gRp
$gRp [JX h gRp %gRp &gRp &[JX h gRp (gRp )gRp )[JX ` gRp *gRp # +gRp % +gRp & ,[JX ` [JX x gRp ' ,[JX gRp ) ,[JX [JX ( gRp * -[JX @ gRp , -[JX X gRp - 1[JX X [JX gRp 0 1[JX [JX [JX gRp 1 2gRp 2 2[JX ( [JX P gRp 5 6gRp 6 7gRp : 7gRp ; 8[JX 8 [JX ` gRp > 8[JX gRp @ 8[JX [JX 0 gRp C 9[JX 0 [JX p gRp G 9[JX p [JX p [JX x [JX gRp H 9gRp J :[JX [JX gRp J ;gRp O ;[JX p [JX x gRp W C[JX x [JX gRp Y D[JX 8 gRp [ D[JX X gRp ] FgRp F[JX @ gRp d PgRp d Q[JX H [JX x gRp g Q[JX h gRp n R[JX h [JX h [JX x gRp o TgRp s T[JX 8 [JX H gRp t T[JX H [JX H [JX P [JX P gRp u UgRp v UE2X X gfh b S gfh b T gfh b I gfh b TABERROR gfh
B NGETNEXTLINE gfh
B dLOOP gfh
B {OUT gfh
B qNOIF gfh
B MFOUNDgRp w U[JX x E2X X E2X X E/ gRp z WE/ gRp | [E/ gRp } \[JX P [JX 8 gRp ][JX 8 [JX !H gRp
^[JX "0 gRp ^[JX "0 [JX "H gRp _[JX "H [JX "x gRp _[JX #8 gRp `[JX #8 [JX #h gRp `[JX $( gRp " `[JX $( [JX $X gRp % `[JX % [JX % [JX % [JX % [JX % [JX % gRp ) bE2X gfh b T gfh b I gRp + b[JX %0 E2X E2X gfh S E/ gRp . dE/ gRp 0 lgRp 5 lgRp 6 mgRp < mgRp = n[JX 'X [JX 'p gRp ? r[JX 'p [JX ( [JX ( gRp B s[JX ( [JX (H [JX (P gRp E s[JX (P [JX (x [JX ) gRp H t[JX ) [JX )( [JX )0 gRp K t[JX )0 [JX )X [JX )` gRp N u[JX )` [JX * [JX * gRp Q u[JX * [JX *8 [JX *@ gRp T v[JX *@ [JX *h [JX *p gRp W v[JX *p [JX + [JX + gRp Z w[JX + [JX +H [JX +P gRp ] w[JX +P [JX +x [JX , gRp ` x[JX , [JX ,( [JX ,0 gRp c x[JX ,0 [JX ,X [JX ,` gRp f y[JX ,` [JX - [JX - gRp i y[JX - [JX -8 [JX -@ gRp l z[JX -@ [JX -h [JX -p gRp o z[JX -p [JX . [JX . gRp r {[JX . [JX .H [JX .P gRp u {[JX .P [JX .x [JX / gRp x |[JX / [JX /( [JX /0 gRp { |[JX /0 [JX /X [JX /` gRp ~ }[JX /` [JX 0 [JX 0 gRp }[JX 0 [JX 08 [JX 0@ gRp ~[JX 0@ [JX 0h [JX 0p gRp ~[JX 0p [JX 1 [JX 1 gRp
[JX 1P [JX 1H [JX 1P gRp [JX 2 [JX 2( [JX 20 gRp [JX 20 [JX 2X [JX 2` gRp [JX 2` [JX 3 [JX 3 gRp [JX 3 [JX 38 [JX 3@ gRp [JX 3@ [JX 3h [JX 3p gRp [JX 3p [JX 4 [JX 4 gRp " [JX 4 [JX 4H [JX 4P gRp % [JX 4P [JX 4x [JX 5 gRp ( [JX 5 [JX 5( [JX 50 gRp + [JX 50 [JX 5X [JX 5` gRp . [JX 5` [JX 6 [JX 6 gRp 1 [JX 6 [JX 68 [JX 6@ gRp 4 gRp 6 gRp 7 [JX 6p [JX 7 gRp : [JX 78 gRp ; gRp < [JX 7H [JX 7H [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P [JX 7P gRp = [JX 7P E2X !0 gfh
B 3REPEAT E2X !0 gfh z I E/ gRp ? [JX 8H gRp D [JX 8H [JX 8H [JX 8P gRp E gRp I gRp L [JX 9@ [JX 9X gRp M [JX 9X [JX 9X [JX 9` gRp N [JX 9` [JX 9x gRp O gRp Q [JX : [JX : [JX : gRp Q gRp V gRp X [JX ; [JX ; gRp Z [JX ; [JX ; [JX ;( gRp Z [JX ;( [JX ;@ gRp \ gRp ] [JX ;X [JX ;X [JX ;` gRp ^ [JX ;` [JX < gRp a [JX < [JX < [JX < gRp a gRp c gRp g gRp j [JX = [JX =p gRp o gRp p [JX > [JX > [JX > gRp q !gRp y "[JX ? [JX ? gRp y #gRp } #gRp %gRp %E2X $P gfh b POS1 gfh b T gfh
B TBLANKLOOP gfh
B GTEXTLOOP gfh
B {NULL gfh
B eWORDLOOP gfh
B OUT gRp %[JX @h E2X $P E2X $P gfh 8 GETWORD E/ gRp 'E/ gRp -[JX A8 [JX B gRp .[JX Bh gRp .gRp /[JX Bx E2X %p E2X %p gfh S E/ gRp 1E/ gRp 9E/ gRp :gRp :[JX Ch [JX DP gRp % ;gRp ' <[JX Dx [JX F gRp 1 =[JX F0 gRp 3 =[JX FP gRp 5 >gRp 6 ?E2X ( 'p gfh b POS gfh b T gRp 8 ?[JX G E2X 'p E2X 'p gfh S E/ gRp : AE/ gRp < JE/ E/ gRp @ NE/ gRp B PE/ gRp C QgRp D RgRp F R[JX Hh [JX I gRp H R[JX I [JX I [JX I gRp H TgRp M TgRp O T[JX Ix [JX J gRp Q T[JX J [JX J [JX J gRp Q U[JX J [JX Jh gRp V VgRp X V[JX K [JX K [JX K gRp X W[JX K [JX K8 gRp [ W[JX K8 [JX K8 [JX K@ gRp \ XgRp ] YgRp b YgRp d Z[JX LH [JX M gRp i [gRp k [[JX M0 [JX M0 [JX M8 gRp k \gRp s ][JX N8 [JX N8 gRp t ^gRp x ^gRp { `gRp `E2X 8 , gfh b POS1 gfh b T gfh
B vNULL gfh
B KBLANKLOOP gfh
B `WORDLOOP gfh
B }OUT gRp `[JX P E2X 0 , E2X 0 , gfh 8 GETNEXTWORD gRp agRp a[JX P( [JX P8 gRp bgRp c[JX P@ [JX Pp gRp d[JX Pp [JX Q gRp egRp
e[JX Q [JX Q8 gRp e[JX QX gRp j[JX R [JX R0 gRp kgRp k[JX RP gRp lgRp m[JX Sx gRp n[JX T [JX T gRp ! pgRp " qgRp " qgRp # r[JX T8 [JX Th gRp & s[JX Th [JX U gRp ( t[JX U [JX U gRp ) ugRp * ugRp , v[JX U@ [JX UX gRp - wgRp / w[JX V gRp 1 ygRp 2 z[JX V0 gRp 3 {gRp 3 {[JX VP gRp 5 }gRp 6 ~[JX Vh [JX W gRp 8 gRp 9 [JX W8 gRp ; gRp = [JX WX [JX WX [JX W` gRp > gRp > [JX Wh [JX Wx gRp ? [JX X gRp A gRp A [JX X [JX X( gRp B gRp D gRp H [JX Y [JX Y( gRp J [JX Y8 gRp K
gRp N
[JX Yh [JX Z gRp P gRp Q
[JX Z8 gRp S gRp U gRp V [JX Zh [JX [ gRp X gRp Y [JX [ gRp Z gRp \ gRp ^ gRp _ [JX \ [JX \ [JX \ [JX \ gRp a [JX \0 gRp c [JX \0 [JX \@ gRp d [JX \X [JX \X gRp e [JX \X [JX \p gRp g [JX ] gRp h gRp j E2X 0 3 gfh b OUTPOS gfh b SCREENLINES gfh NEXTWORD gfh b WRITINGALINE gfh b MOREWORDS gfh >@GETNEXTWORD gRp j [JX ]( E2X 3 E2X 3 E/ gRp m E/ gRp o [JX ]x [JX ^8 gRp s [JX ^8 [JX ^h gRp v [JX ^h [JX ^h [JX ^p [JX ^x gRp w !gRp | ![JX _@ [JX ` gRp ![JX ` [JX `0 gRp ![JX `0 [JX `0 [JX `8 [JX `@ gRp "gRp "[JX a E2X 4( gfh
B zBSKIPgfh
B OUT E2X 4( E/ gRp
$E/ gRp
)gRp [JX ap gRp *[JX c gRp *gRp +[JX c E2X 50 E2X 50 E/ gRp -E/ gRp 8gRp # 8[JX d0 [JX dX gRp % 8[JX dh gRp & 9[JX dh [JX e gRp ) 9[JX e gRp * C[JX e [JX eH gRp , C[JX eX gRp - D[JX eX [JX f gRp 0 D[JX f gRp 1 J[JX f [JX f8 gRp 3 J[JX fH gRp 4 J[JX fH [JX fp gRp 7 J[JX g gRp 8 O[JX g [JX gx gRp ? TE/ gRp @ UgRp I UgRp J V[JX i [JX j gRp P V[JX j( gRp R V[JX j( [JX jX gRp U WgRp W XgRp Y X[JX k gRp Z YgRp [ ZE2X @ ; gfh b I [JX kX gRp ] Z[JX kX [JX l gRp ` gRp a `gRp e `gRp f a[JX lh [JX m gRp i a[JX m [JX m [JX m gRp j a[JX m [JX m8 gRp k a[JX mP gRp m bgRp v c[JX nx gRp w d[JX nx [JX nx [JX o gRp x d[JX o [JX o [JX o [JX o [JX o [JX o [JX o [JX o [JX o [JX o gRp y egRp z e[JX o [JX oP gRp } fgRp g[JX op [JX p gRp g[JX p8 [JX p8 gRp igRp igRp j[JX q [JX q gRp kgRp k[JX q` E2X =8 gfh
B !LOOP gfh
B cALGLOOP gfh
B OUT gfh
B
RETURN E2X =8 E/ gRp mE/ gRp sE/ gRp tgRp ugRp u[JX rh [JX s gRp vgRp w[JX s( [JX t gRp ! xgRp # x[JX t8 [JX uX gRp - y[JX up gRp / z[JX v [JX v gRp 1 {gRp 2 |E2X H ?H gfh b T gRp 4 |[JX v@ E2X ?H E2X ?H E/ gRp 7 ~E/ gRp 9 gRp : [JX w( [JX w8 gRp ; [JX w8 [JX wP gRp = [JX wp gRp ? [JX wp [JX x gRp @ [JX x [JX x [JX x( gRp B
[JX x@ gRp D
[JX x@ [JX xP gRp E
[JX x` gRp F [JX x` E2X A0 E2X A0 E/ gRp H yx E2X B0 E2X B0 E/ gRp R E/ gRp U 7E/ gRp Y 9gRp ] 9gRp b :gRp f :gRp k ;gRp o ;gRp t <gRp x <gRp } =gRp =gRp >gRp
>gRp ?gRp ?gRp @gRp @gRp ! A[JX [JX gRp " B[JX [JX x gRp ' C[JX x [JX 8 gRp + DgRp - EgRp . E[JX h [JX gRp 1 E[JX 0 gRp 3 FgRp 4 F[JX H [JX H [JX X gRp 5 G[JX X [JX p gRp 7 G[JX x [JX x [JX gRp 8 I[JX P gRp = IE2X P I gfh b LEGALCOMMAND gfh . COMMAND gfh b I gfh
B :EARLYEXIT gRp = I[JX X E2X I E2X I gfh v N E/ gRp @ KE/ gRp B QgRp D QgRp E RgRp G RgRp H S[JX [JX H gRp L TgRp N TgRp O UgRp Q U[JX
gRp R XgRp S XgRp U YgRp V Y[JX
h [JX gRp X Z[JX gRp Y [gRp [ \gRp \ \gRp ^ ]gRp _ ][JX x E2X KX E2X KX E/ gRp b _E/ gRp d b[JX
H [JX
X gRp e b[JX
p gRp g b[JX
p [JX h b[JX m egRp o fgRp p fgRp r ggRp s ggRp u hgRp v hgRp x igRp y igRp { jgRp | jgRp ~ k[JX ` [JX x gRp k[JX gRp k[JX [JX 0 gRp lgRp mgRp mgRp n[JX [JX gRp ogRp
ogRp
pgRp qgRp qgRp rgRp rgRp sgRp sgRp t[JX [JX gRp ugRp u[JX 0 [JX @ gRp u[JX X gRp v[JX x gRp w[JX x [JX gRp ! xgRp " x[JX ( [JX 8 gRp # x[JX P gRp % y[JX P [JX ` gRp & y[JX x gRp ' y[JX [JX gRp ) z[JX [JX gRp * z[JX 8 gRp + {gRp - {gRp . |gRp 0 |gRp 1 }gRp 3 }[JX 0 [JX H gRp 4 }[JX h gRp 6 ~[JX h [JX gRp 8 ~[JX [JX gRp 9 ~gRp ; gRp < [JX H [JX ` gRp > [JX gRp @ [JX [JX gRp A [JX 0 [JX 0 gRp C gRp D gRp F [JX ` [JX x gRp G [JX gRp I [JX [JX 0 gRp K [JX H [JX H gRp L gRp N gRp O [JX x [JX gRp P [JX [JX gRp R [JX @ gRp T [JX @ [JX X gRp U [JX p [JX p gRp W [JX gRp Y [JX [JX ( gRp Z [JX H gRp \ [JX H [JX ` gRp ^ [JX x [JX x gRp [JX gRp a gRp b
gRp d
[JX @ [JX X gRp e
[JX x gRp g [JX x [JX gRp i [JX ( [JX ( gRp j gRp l
gRp m
[JX X [JX h gRp n [JX 8 gRp s [JX P [JX P gRp u [JX p gRp w [JX p [JX gRp x [JX ( gRp z [JX ( [JX @ gRp | [JX X [JX X gRp } [JX p gRp gRp
[JX [JX gRp
gRp
[JX X gRp
[JX X [JX p gRp
[JX ! [JX ! gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
gRp
" gRp
# gRp
% gRp
& !gRp
( "gRp
) "gRp
+ #gRp
, #gRp
. $gRp
/ $gRp
1 %gRp
2 %gRp
4 &gRp
5 &gRp
7 'gRp
8 'gRp
: (gRp
; (gRp
= )gRp
> )gRp
@ *gRp
A *gRp
C +gRp
D +gRp
F ,gRp
G ,gRp
I -gRp
J -gRp
L .gRp
M .gRp
O /gRp
P /gRp
R 0gRp
S 1gRp
U 1gRp
V 2gRp
X 2gRp
Y 3gRp
[ 3gRp
\ 4gRp
^ 4gRp
_ 5gRp
a 5gRp
b 6gRp
d 6gRp
e 7gRp
g 7gRp
h 8gRp
j 9gRp
k 9gRp
m :gRp
n :gRp
p ;gRp
q ;gRp
s <gRp
t <gRp
v =gRp
w >gRp
y ?gRp
z ?gRp
| @gRp
} @gRp
AgRp AgRp BgRp BgRp CgRp CgRp DgRp DgRp EgRp
F[JX 1H [JX 1` gRp GgRp GgRp H[JX 2( gRp IgRp IgRp JgRp KgRp KgRp LgRp LgRp MgRp MgRp NgRp ! NgRp # OgRp $ OgRp & PgRp ' PgRp ) RgRp * RgRp , SgRp - SgRp / TgRp 0 TgRp 2 UgRp 3 UgRp 5 VgRp 6 VgRp 8 WgRp 9 WgRp ; XgRp < XgRp > YgRp ? Y[JX 7x [JX 8 gRp A Y[JX 80 gRp C Z[JX 80 [JX 8H gRp D Z[JX 8` [JX 8` gRp F ZgRp G [[JX 8x [JX 9 gRp H [[JX 9 gRp J [gRp K \gRp M \gRp N ]gRp P ]gRp Q ^[JX : [JX :0 gRp S ^[JX :P gRp U ^[JX :P [JX :h gRp V ^[JX ; [JX ; gRp X _gRp Y _gRp [ `gRp \ agRp ^ agRp _ bgRp a bgRp b cgRp d dgRp e dgRp g egRp h egRp j fgRp k fgRp m ggRp n ggRp p hgRp q hgRp s igRp t igRp v jgRp w jgRp y kgRp z lgRp | lgRp } mgRp mgRp
ngRp
ogRp
ogRp
pgRp
pgRp
qgRp
rgRp
rgRp
sgRp
tgRp
tgRp
ugRp
ugRp
vgRp
wgRp
wgRp
xgRp
xgRp
ygRp
ygRp
zgRp
{gRp
! {gRp
# |gRp
$ |gRp
& }gRp
' }gRp
) ~gRp
* ~gRp
, [JX E@ [JX EP gRp
- gRp
. gRp
0 gRp
1 gRp
3 gRp
4 gRp
6 gRp
7 gRp
9 gRp
: gRp
< gRp
= gRp
? gRp
@ gRp
B gRp
C gRp
E gRp
F gRp
H gRp
I
gRp
K
[JX I0 [JX IX gRp
M
gRp
O
gRp
P
R
S gRp
U gRp
V [JX Jh [JX K gRp
X gRp
Y [JX K [JX K( gRp
Z [JX K@ gRp
\ [JX K@ [JX KP gRp
] [JX Kh gRp
^ gRp
` [JX L gRp
b [JX L [JX L8 gRp
c gRp
e [JX LP [JX L` gRp
f [JX Lx gRp
g [JX Lx [JX M gRp
h [JX M gRp
j gRp
k [JX MP [JX MP gRp
m gRp
n [JX N [JX N gRp
p gRp
q gRp
s [JX N0 [JX NH gRp
t gRp
v [JX O gRp
x [JX O [JX O gRp
y gRp
{ [JX OH [JX OH gRp
| gRp
~ gRp
!gRp
$gRp [JX Qh gRp g E/ gRp E2X X jx E2X X jx gfh MESSAGE gRp XgRp YgRp Y[JX `P [JX `h gRp ZgRp [gRp [gRp \gRp
\gRp ]gRp ]gRp ^gRp ^gRp gRp gRp `gRp `gRp agRp agRp bgRp bgRp cgRp ! cgRp # dgRp $ dgRp & egRp ' egRp ) fgRp * fgRp , ggRp - ggRp / hgRp 0 hgRp 2 i[JX f@ gRp 4 j[JX f@ [JX fX gRp 5 kgRp 7 kgRp 8 lgRp : lgRp ; mgRp = mgRp > ngRp @ ngRp A ogRp C ogRp D pgRp F pgRp G qgRp I qgRp J rgRp L rgRp M sgRp O sgRp P tgRp R tgRp S ugRp U ugRp V vgRp X vgRp Y wgRp [ wgRp \ xgRp ^ xgRp ygRp a y[JX l( [JX l( gRp b zgRp c {E2X X o0 gfh b TYPE gfh b INDEXgfh ARRAYNAME gfh <B
[JX p [JX pX gRp gRp gRp [JX q gRp [JX q [JX q gRp
[JX q8 gRp gRp gRp [JX rP gRp [JX rP [JX rh gRp gRp gRp [JX s [JX s( gRp [JX s@ gRp gRp gRp gRp gRp " gRp # [JX tP [JX tP gRp % gRp & gRp ( gRp ) gRp + gRp , gRp . gRp / gRp 1 gRp 2 gRp 4 gRp 5 [JX vX [JX vh gRp 6 !gRp 8 "gRp 9 "gRp ; #gRp < #gRp > $gRp ? $gRp A %gRp B %gRp D &gRp E &gRp G 'gRp H 'gRp J ([JX y [JX y0 gRp K ([JX yH [JX yH gRp L )[JX yH [JX yX gRp M *gRp O *[JX yp [JX z gRp P +gRp R ,gRp S ,gRp U -gRp V -gRp X .gRp Y .[JX {8 gRp [ /[JX {8 [JX {P gRp ] 0gRp ^ 1gRp ` 1gRp a 2gRp c 2gRp d 3gRp f 3gRp g 4[JX } [JX } [JX } [JX } gRp i 6[JX } [JX } gRp j 7[JX } [JX }8 gRp k 8gRp m 8gRp n 9gRp p 9[JX ~ [JX ~( gRp r :gRp t ;gRp u ;[JX ~p gRp w <gRp x =gRp z =gRp { >[JX X gRp } ?[JX X [JX p gRp @gRp @gRp AgRp A[JX 8 [JX ` gRp BgRp CgRp C[JX ( gRp
DgRp
EgRp [JX p gRp FgRp G[JX [JX gRp H[JX [JX @ gRp I[JX @ [JX X gRp I[JX x gRp I[JX x [JX gRp I[JX ( [JX ( gRp J[JX @ [JX @ gRp K[JX @ [JX X gRp L[JX x gRp M[JX x [JX gRp ! M[JX ( [JX ( gRp " MgRp $ N[JX @ [JX X gRp % N[JX x gRp ' N[JX x [JX gRp ) N[JX ( [JX ( gRp * O[JX ( [JX @ gRp , O[JX ` gRp . O[JX ` [JX x gRp / O[JX [JX gRp 1 P[JX [JX gRp 2 Q[JX [JX 8 gRp 3 RgRp 5 RgRp 6 SgRp 8 S[JX gRp : T[JX [JX 8 gRp ; UgRp = V[JX P [JX ` gRp > V[JX x [JX x [JX x [JX x gRp ? W[JX gRp A XgRp B YgRp C YgRp E ZgRp F ZgRp H [[JX E2X {0 E2X {0 E/ gRp J ]E/ gRp L bgRp N c[JX ` [JX
gRp Q cE/ gRp R dgRp V egRp X egRp Y f[JX [JX @ gRp \ ggRp ] ggRp ^ hgRp _ h[JX
gRp a i[JX
[JX
0 gRp c jgRp d k[JX
h gRp f l[JX
h [JX h mgRp i m[JX ` }p gfh b I gfh b J [JX u sgRp v sgRp x tgRp y t[JX 8 gRp { u[JX 8 [JX P gRp } vgRp ~ wgRp wgRp xgRp xgRp y[JX ` [JX ` [JX ` gRp z[JX ` [JX p gRp {[JX p [JX gRp |[JX [JX ( gRp
}gRp
~[JX ` gRp [JX ` [JX x gRp gRp [JX ( [JX ( gRp [JX ( [JX @ gRp gRp [JX x gRp [JX x [JX gRp gRp [JX @ [JX @ gRp [JX X gRp gRp gRp [JX [JX gRp " [JX @ gRp $ [JX @ [JX X gRp % [JX p [JX p gRp ' gRp ( [JX [JX gRp * [JX @ gRp , [JX @ [JX X gRp - [JX p [JX p gRp /
gRp 0
[JX [JX gRp 2 [JX X gRp 5 [JX p [JX p gRp 7 gRp 8 [JX gRp : gRp ; [JX 8 [JX H gRp < [JX H [JX ` gRp > gRp ? [JX gRp A [JX [JX 0 gRp C gRp D [JX ` [JX ` gRp F gRp G [JX x [JX gRp H [JX gRp J gRp K gRp M [JX P [JX ` gRp N gRp O gRp Q [JX ( gRp R gRp T gRp U gRp W [JX p [JX gRp X [JX ( gRp Z [JX ( [JX @ gRp \ [JX X [JX X gRp ] gRp [JX gRp ` !gRp b "gRp c "[JX 8 [JX H gRp d #[JX H [JX ` gRp f #[JX gRp h $[JX [JX gRp i $[JX 0 [JX 0 gRp k $gRp l %[JX ` gRp n &[JX ` [JX p gRp o 'gRp p 'gRp r (gRp s (gRp u )gRp v )gRp x *gRp y *gRp { +gRp | +gRp ~ ,gRp ,gRp -gRp -gRp .[JX X gRp /gRp /[JX p [JX ! gRp 0gRp
1gRp 1[JX !P gRp ( E/ gRp 4E/ gRp :gRp :[JX "( [JX "P gRp @[JX "P [JX "x gRp @[JX # gRp AgRp BgRp B[JX #h gRp CgRp D[JX #x [JX $( gRp " EgRp $ F[JX $H [JX $x gRp ' F[JX % [JX % gRp ) G[JX %0 gRp + HgRp , IgRp 1 I[JX & [JX &0 gRp 3 I[JX &P gRp 5 J[JX &h gRp 6 J[JX &p gRp 7 KgRp 8 LgRp 9 LgRp ; M[JX '0 E2X P E2X P E/ gRp = OE/ gRp ? SE/ gRp @ TgRp B VgRp G VgRp I V[JX ) [JX )0 gRp K WgRp M XgRp O X[JX )p [JX )p [JX * gRp P Y[JX *0 gRp S YE2X h gfh b I gfh b K gfh
B ELETTERCHANGE gRp T Y[JX *H E2X E2X E/ gRp W [E/ gRp Y aE/ gRp Y bgRp [ cgRp ] dgRp b dgRp d e[JX ,H [JX ,` gRp f fgRp h fgRp j g[JX - [JX - [JX -0 gRp k g[JX -` gRp n hE2X p
B `LETTERCHANGE gRp o h[JX -x E2X u ngRp } o[JX /X [JX 0@ gRp o[JX 1 gRp pgRp pgRp qgRp qgRp rgRp ! rgRp " sgRp # sE2X x 8 gfh FILENAME gfh b I gRp $ s[JX 4@ E2X 8 E2X 8 gRp $ ygRp % zgRp & zgRp ' {gRp ( {gRp - |gRp 0 |gRp 5 }gRp 7 }gRp : ~gRp < ~gRp ? gRp A gRp D gRp F gRp I gRp K gRp N gRp P gRp Q gRp g gRp i gRp l gRp o gRp r gRp t gRp w gRp y gRp | gRp ~ gRp gRp
gRp gRp gRp
gRp
gRp gRp gRp gRp gRp gRp gRp gRp gRp gRp " gRp # gRp % gRp & gRp * gRp + gRp - !gRp . !gRp 3 "[JX F8 [JX F` gRp 6 "[JX F` [JX F` [JX Fh gRp 6 "gRp 8 #gRp 9 #[JX G [JX H@ gRp D #[JX H` gRp F $[JX H` [JX I gRp H $E/ gRp I %gRp Q &[JX J [JX Jx gRp W &[JX KH gRp \ &gRp b 'gRp g 'gRp m (gRp r (gRp z )gRp } )E2X gfh
zTEMP [JX Op gRp *gRp *gRp +gRp -gRp -gRp .gRp .gRp /gRp @ [JX SH gRp 6gRp ! 6gRp " 6gRp $ 7gRp % 7gRp + 8gRp , <gRp 0 <gRp 1 <[JX V [JX V0 gRp 3 =[JX V0 [JX VH gRp 4 =[JX V` gRp 6 >gRp 8 >[JX W [JX W8 gRp ; ?[JX WX [JX WX gRp = @[JX WX [JX X gRp @ AgRp B B[JX X( [JX XX gRp E B[JX Xp [JX Xp gRp G FgRp H FgRp I G[JX Y [JX Y@ gRp L KgRp L KgRp N L[JX Yh [JX Yh [JX Yp gRp O M[JX Yp [JX Z gRp Q WgRp U WgRp W XgRp W XgRp Y Y[JX [ [JX [ [JX [ gRp Z Z[JX [ [JX [H gRp \ gRp ^ `gRp b `gRp c a[JX \8 [JX \` gRp f a[JX \x gRp g a[JX \x [JX ] gRp j a[JX ]8 gRp k b[JX ]X [JX ]X gRp m c[JX ]X [JX ]X [JX ]` gRp n d[JX ]` [JX ^ gRp p kgRp q l[JX ^ [JX ^ [JX ^ gRp q m[JX ^ [JX ^@ gRp t qgRp u qgRp y rgRp z r[JX ( [JX P gRp } r[JX p gRp s[JX p [JX ` gRp s[JX ` [JX `` gRp t[JX a [JX a gRp t[JX a [JX a gRp
u[JX aH gRp
u[JX a` gRp vgRp vgRp wgRp w[JX c [JX c@ gRp w[JX c` gRp x[JX c` [JX d gRp x[JX d( gRp " x[JX dH [JX dH gRp $ ygRp & y[JX d` [JX d` [JX dh gRp & z[JX dh [JX e gRp )
gRp )
[JX e [JX e [JX e gRp *
[JX e [JX eH gRp ,
gRp -
[JX eP [JX eP [JX eX gRp -
[JX eX [JX f gRp 0
gRp 0
[JX f [JX f [JX f gRp 1
[JX f [JX f8 gRp 3
gRp 4
[JX f@ [JX f@ [JX fH gRp 4
[JX fH [JX g@ gRp <
-gRp =
-gRp ?
.gRp A
.gRp B
/gRp D
/gRp E
0gRp G
0gRp H
1gRp I
1gRp K
2[JX i0 [JX i0 [JX i8 gRp K
3[JX i8 [JX i` gRp N
7gRp O
7gRp T
8[JX jH [JX jH [JX jP gRp U
9[JX jP [JX jx gRp W
QgRp X
RgRp ^
R[JX k` [JX l gRp `
SgRp b
T[JX l0 gRp c
UgRp c
U[JX l8 [JX l8 [JX l@ gRp d
[gRp e
[[JX lP [JX lx gRp g
^gRp l
_[JX mX gRp m
`gRp o
bgRp p
c[JX n [JX nx gRp w
d[JX nx [JX o gRp z
kgRp ~
lgRp
lgRp
m[JX p gRp
n[JX p [JX pH gRp
ugRp
vgRp
vgRp
wgRp
wgRp
xgRp
x[JX qh [JX qp gRp
zgRp
zgRp
{[JX r [JX r@ gRp gRp gRp gRp [JX s@ gRp gRp gRp gRp #
gRp $
[JX tH [JX tp gRp ' gRp ( [JX u [JX u [JX u gRp ( [JX u [JX u0 gRp + gRp , gRp . gRp 0 gRp 1 gRp 2 gRp 6 gRp 7 gRp 8 gRp 9 gRp ; gRp < gRp = [JX wX [JX wh gRp > $gRp @ %gRp A %[JX x0 gRp C &gRp D '[JX xH [JX xH [JX xP gRp E ([JX xP [JX xx gRp G (E/ gRp H 4gRp I 5gRp N 5gRp O 6gRp S 6gRp S 7gRp T 7gRp U 8gRp V 8gRp X 9gRp Z 9gRp [ :[JX {8 [JX {H gRp \ :E/ gRp ] ;gRp ^ <[JX {h [JX | gRp a =[JX | [JX |H gRp d >[JX |H [JX |` gRp f >[JX } gRp h >gRp i ?[JX } [JX } [JX } gRp j @[JX } [JX }P gRp m AgRp n AgRp p CgRp t C[JX ~H [JX P gRp } DgRp ~ D[JX h [JX h [JX p gRp EgRp FgRp F[JX [JX [JX ( gRp
HE2X 9 gfh j POS1 gfh j POS2 gfh
J rDITTO[JX @ gRp
IgRp JgRp JgRp KgRp KgRp LgRp LgRp MgRp OgRp OgRp PgRp PgRp QgRp ! SgRp " S[JX ( [JX 8 gRp # S[JX P gRp % TgRp & TgRp ( UgRp ) U[JX [JX ( gRp * VgRp + WgRp , WgRp - X[JX ` gRp . YgRp / Y[JX x [JX gRp 0 ZgRp 2 [gRp 3 [[JX 8 [JX H gRp 4 \gRp 5 ]gRp 6 ]gRp 7 ^[JX gRp 8 gRp 9 gRp ; `gRp < `gRp > agRp ? a[JX x [JX gRp @ bgRp A cgRp B cgRp C d[JX @ gRp D e[JX X gRp E igRp J igRp J igRp K jgRp L j[JX @ [JX h gRp N xgRp O y[JX p [JX
gRp P z[JX
[JX
gRp Q {gRp S {gRp T |gRp Y |gRp Z }[JX 0 [JX 0 [JX 8 gRp [ [JX 8 [JX ` gRp ^ [JX p gRp _
[JX p [JX
gRp a
[JX
( gRp b
[JX
( [JX
P gRp e
gRp e
gRp f
[JX
` [JX
p gRp g
[JX h
"[JX i
"[JX j
"gRp k
#gRp m
#gRp n
$[JX o
%gRp q
%gRp r
&[JX @ gRp t
'gRp u
'gRp w
([JX p [JX gRp x
)gRp y
)gRp {
*[JX H gRp |
+gRp ~
+[JX ` [JX ` [JX h [JX h [JX h [JX h gRp ~
,gRp
-gRp
-gRp
.gRp
.[JX p [JX gRp
.[JX gRp
/[JX [JX X gRp
2gRp
2[JX p [JX gRp
3[JX [JX gRp
3[JX ( [JX ( gRp
4gRp
5gRp
5gRp
6gRp
6gRp
7gRp
7gRp
8gRp
8gRp "
9gRp #
9gRp $
:gRp %
:[JX X [JX X [JX h gRp &
>[JX h [JX x gRp '
>[JX gRp (
?[JX [JX gRp )
@gRp +
AgRp 0
AgRp 1
B[JX [JX @ gRp 4
B[JX @ [JX @ [JX H gRp 4
BgRp 6
C[JX ` [JX ` [JX h gRp 6
DgRp 7
D[JX x [JX gRp 8
EgRp :
F[JX 0 gRp ;
G[JX 0 [JX X gRp =
H[JX X [JX h gRp >
I[JX h [JX x gRp ?
I[JX gRp A
IgRp B
J[JX ( [JX @ gRp D
J[JX X gRp E
J[JX p gRp G
K[JX p [JX gRp H
K[JX gRp I
L[JX [JX gRp P
MgRp R
M[JX ( [JX @ gRp T
M[JX X gRp U
N[JX X [JX p gRp W
N[JX gRp X
N[JX ( gRp Z
OgRp \
P[JX @ [JX P gRp ]
P[JX h gRp ^
PgRp `
QgRp a
QgRp c
RgRp g
R[JX gRp i
S[JX [JX P gRp m
T[JX P [JX ` gRp n
T[JX x gRp o
UgRp q
UgRp r
V[JX @ gRp t
W[JX @ [JX P gRp u
XgRp v
XgRp x
YgRp y
YgRp z
ZgRp |
ZgRp }
[[JX p gRp
^[JX p [JX gRp
_[JX [JX gRp
_[JX 0 gRp
_[JX H gRp
_[JX ` gRp
`[JX ` [JX p gRp
a[JX p [JX ! gRp
a[JX ! [JX ! gRp
b[JX ! [JX ! gRp
c[JX ! [JX !@ gRp
c[JX !X [JX !X gRp
dgRp
egRp
egRp
fgRp
hgRp
igRp
i[JX "P [JX "P [JX "X gRp
jE2X M( gfh j (ERRCOUNT gfh
J HANSWERFINDgfh
J zWHICHCONTROL gfh
J .ORDERLOOP [JX "p gRp
k[JX "p [JX # gRp
qgRp
rgRp
r[JX #8 [JX #h gRp
r[JX #h [JX #h [JX #p gRp
sgRp
sgRp !
t[JX $ [JX $ [JX $ gRp "
u[JX $ [JX $H gRp $
xgRp %
ygRp *
y[JX % [JX %0 gRp +
y[JX %H gRp ,
zgRp .
zgRp /
{gRp 1
{gRp 2
|gRp 4
|gRp 5
}gRp 7
}[JX &p [JX &p [JX &x gRp 7
gRp S
E2X Q( gfh j FCONTROLCHAR gfh j jLANGUAGE gfh j 5CARRIAGERETURN gfh j 7LINEFEED gfh j (TABCHAR gfh j zBLANKgfh j HEXCLAMATION gfh j VANSWERLENGTH gfh j CSAVEANLEN gfh j ZPOS gfh j !POS2 gfh j PWPOS gfh j YCHARVALUE gfh j SDOUBLEQUOTE gfh j iA gfh j kZ gfh j 'FORMFEED gfh j DOT gfh j YQCOUNT gfh j /TEXCOUNT gfh j XSEMICOLON gfh j cCOLONgfh j lEQUALSIGN gfh j $ERRLINES gfh j LABELCOUNTgfh j LINECOUNT gfh j MLEFTSQUAREgfh j PRIGHTSQUARE gfh j %SWITCHCOUNT gfh j SWITCHNUMBER gfh j QRIGHTMARGIN gfh j qLCAA gfh j tLCAE gfh j vLCOE gfh j {UCAA gfh j ~UCAE gfh j UCOE gfh j yLCE gfh j UCE gfh
"CONTROLSTART gfh
hWORD gfh
FLESSONNAMEgfh
TCOPYRIGHT gfh
^TEACHER gfh
DANSWER gfh
rFIRSTRIGHTgfh
zPREVIOUSLAB gfh
,NEXTLESSONgfh
fTEMP gfh
QUESTION gfh
LAB gfh
MAINLAB gfh
RSAME gfh
/INFILE gfh
SWITCHWORDgfh
.LINENUMBERgfh .
SWITCHNAMEgfh j EXTRAgfh j
EMPTYgfh j mORDERgfh j RIGHTgfh j
NEUTRAL gfh j 'ALLNEUTRALgfh j OPENED gfh j PUT gfh j pSGNOSIS gfh j LNOCONTROLCgfh j *TRANSFERLESSON gfh j )JUSTIFY gfh j CONTROLINLINE gfh j "BELL gfh j 3NAME gfh j wLOCK gfh j =DISK gfh j LACK gfh j ZEROPRINTED gfh j bKEEP gfh j nRIGHTFOUNDgfh j SKIP gfh j LINENUMBERED gfh (j SWITCHVAL gfh (j$IFSETgfh (jiIFVALgfh <JWMAKEMAINLAB gfh <J.GETCONTROLSTARTgfh <JzUPCASE gfh <JmPASTOPERATION gfh >
?GETWORD gfh <J DELETgfh <J ERRMESS gfh <J IGETLINE gfh <J ALGLIN gfh <JTEXTLINE gfh <J:TEXTLINES gfh <J
SHORTALGOLgfh <J GOANYWHERECOMMANDS gfh <JPUTAWAY gfh <J7UNKNOWNMESSAGE gfh <JHZEROPRINT gfh <JRCHECKPRECEDENCEgfh <J@PUTVARIABLES gfh <JbPUTPROCEDURES gfh <J
J STARTgfh
J QSTOP gfh
J LEAVEFOR gfh
J .STARTLOOP gfh
J !WHICHCONTROL gfh
J <CHECKLINE gfh
J (FINCLOSE gfh
J KCONTROLLINE gRp T
E2X Q(