?p 0 @ ` 0 ` ?h X c ?x "
<+ + 2 ` C@- Rc 2 R ax
INX M?>9I M?>9I x x ok
2 9 9 O f f i QUESZ . F : :O@ >@@ A@@ 8 6 V = : q+ X ! H G ! . -( FORSO@ c -$ z9h .H NOFO@@ c 9h ` c4V @@ `@@ a G B <
[+ @ \+ +
& H+ E .x REOP-$ z9h 0 WOPE X@ `@@ `@@ a ` _+ 9h
& L? + k " b
& P+ 00 WCLO 9h 18 CONV58 k < # Z .$ & .6 ,$ 6@ + 4 7 ,$ _ / @54 " ,$ 84 Z . R F 9[ T 1d+ ,D T + 9+ R 1X COUN` + X 3h TYPE0t B 4 B S ` V =t # 6 V
& D@@ A+ N 4
6@ A
& cO@ AO@ >+ , 4x CR
& d9h 50 QUER : C A7 9h 0v 9h 7@ >9h -$ 4@@ >O@ A9h ; @ @ " $
( 1V + 8V =b 5+ k 6 V 6 V
V 6 V + 5P LOAD S+ A 7P INTE G S 4 ,> @,> A,> V @ T A : C+ O 7p ;S ,^ ,^ A,^ @4> k9h 8P OCTA @ <9h 9 DECI + J 90 DROP+ O*X Y*X Y ` 9h 9P SWAP*` T` 9h : + .t` *X Y9h *X Y T` 9h :0 DUP ,X T` 9h
& T+ k :p WORD, , ^ W a
A54 ` 4 9 X5T X9 X @. SX .$ @@ D 9 =v V & $F 3H =+ fH 2H ==f h 6 ( H =v k" .& $ 9F / B @ @ =+ O ;( FINDS6 u*6 H (NuA. 8 0+ 4T z P D. 3V + y[P + T ? ` 9h ` .: 9h ? @ A6 26 8+ @ .0 ZPH *r 9h > LITE 85v ?+ X 0 PH ? VH . V9h h 9 X, + @ ; -0 ,^ 9h 8: _: _ 6 V 8*r ,~ 8> _> _@@ 8,~ A ;COD-0 Z . W W 8+
B ;: 6 VH W VH . V9h BH :< , 6 VH *r @@ 89h ,^ + @ C >: , W VO9h C` CODE, , [ $
H (VuA6 Z * X 0Q@H . VZR 89h D : , , " +, W+ *x 9h E , TH *r /+ O X W 8*r 1+ . @ + X EX FORG, , [ q 7
k ?1 a a " 03$ + ;[ + 9 D 0=" 9 9h : ?: ?+ F0 ' , , [ q =
k [ q | . . k =3TX + K >2T 9h V > B = .: + R Gp FLUS = > B > V =7@X 9h ,> X , f,^ @@X 9h = VP , _+ R IP BLOC, , G N T
Jh UPDA =O@X 9h K
ERAS@@ B@@ C9h 1v 6 $6 /6 , n X =/6 XV a.6 @XV b @ a,~
& X+ k1v $6 /6 , n X =/6 XV a.6 @XV b ` a,~
& Z+ k _& @2 ,~
& ]+ k KH CONS, , " 0
N PUSH^4 X+ X N@ PUT ^4 R+ X N` BINA^4 U+ X O POP ^4 O+ X O COMM^4 .+ X O@ ABOR^4 k+ X O` BASE^4 <+ X P FORT^4 + X P FORT^4 d+ X P@ CPU , , r @ (V G (4yG` *X Y+ . P` ( , , [
@ =9h Q@ DDT Z 4V k+ X R SAVE@@ B@@ C X@ ( R 8+ E-$ z 8+ k R0 NUMB _X ." $ <"(
1L
1L
+ ! <
/, 4, '2, + '+0 #$ +0 %+ %G `. .( + ., 0L + ) & + 0L + + ( + H ?1J " D ?3L =9h + { S COREZ :Z / + X Up CORE$4 /4 Z . @34 3t + 8 t + k/ Z :Z / . Q Z :/ Z . *# . . 24 + B t + k @ :\@ :Z Q@ (+ O V GOOD ` H ? H Q'FORSYS.DAT' cannot be opened for input. 'FORSYS.DAT' unavailable for output. Will try again.
H H DH Stack underflow! : Z -0 , ,-0 2Block input error. Block output error. Block number too high! : @ HELLO
-$ z
& h k @ * 9 " D B 0 j*" 7+ kForth 12-19-77! 0 GF 1 ,>
#p D 5 F 5 @ B ,> < 7, f,^ @ 4,> < 7, i,^ @ 33$ 6+ 2d 6+ !,> < 8, ,^ 3 4 5 5,~ 7@ 4+ +D 0 7@ 3+ +D 0 @` + 7@ 3+ 1# 3,> < 7, 9,^ ,> < 7, ,^ @ 47 3"@ 47@ 4+ 2# 4,> < 7, 9,^ @ ,> < 8, ,^ 7 4"` 4+ @@ 4+ )@ 4+ ^ RX!v yOx x CNM` 1 ,>
#p 2b J+ G"p p + J4@ E @ I,> < K, ,^ p B I,> < K, f,^ ,~ I7ap "` ,~ +P 0K@ ,~ 9~j 0 x IASIN OF ARG > 1.0 IN MAGNITUDE CR
`p p @ c B d4B [ +2 Z @ d,> < e, f,^ 6 d,~ 5 Y b,~ b,~ +`` + ^4@ ] c7 c"` ,~ 4" `+D 0 ,~ b7 c"` ,~ Y~j 9~j x dCR
p # 3b z+ z F T 2" {+ x D !$ 3b e D h& B } ~ @ | ~ @ | } { `F 7 7 "` ,~ &` V-G {G ZCv\ 7f ]V#Q_I+0`} 9~jgG@ 1 ,>
7cp +
(Bdb + . "+ . "T B#p @,~ 4B +P 0
#p + ,~ > attempt to take SQRT of negative arg Kc 1 ,>
p 3" 0+ 3b /+ +D 0
U ,~ +D 0 ,~ D 0 F 1@@ 1%" j" % .)/;` : XD *5f #aF + #.& @(|h& f 1 - . - 1 , D /@ 0 1,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,>
p 4@ O @ 8,> < Y, 9,^ 8,~ {e^b C2|p 1 ,>
p 5` =4@ O+P 0Z#p 3@ R+ Q2 V+ C3` W+ C@@ X R R+ H) r. ! W U @ X(|h" R S B X S T T U X X,~ +D 0
P V,~ ,~ 0 _i/X3 6P'M s!hh yI^ *Vh P `@ 6P'M P'M]ox x 8Attempt to take log of negative arg G? @ 1 ,>
p + + jg&t@ 1 ,>
p + + jG? 1 ,>
p + jg&p 1 ,>
p 4B #` 3b + |aD 3b + u%" (D?d$ " @($ )B ~ } 7 ,~ k*} 43"aLmLs m=i !v@ !\Rw 9~j 0 M3!d@d ,~ SAd@D ,~ gg;kVx7CCFBp9I09I 9cV(7[N8UY&SgJ(Wk:07k:07k:07kM 7kM7kM7, . ^ Jx *}** }[ A( w((},> D((( QHx [ (H}A( " P ,> Z + Z|5F &
& _ F|,^x !*}** / ^,~ ,^ + ,^ + x % Q$ aB l$ @ )@ 1@ + a4@ &o 5B '9$ !
" 5B #5$ #,~ @ )@ .
" 5B ),~ 7 b $ 5 /
& b"` & QBx 6@ , /[ x . 0` .
" ,~
6 +
& cR, )
& d,~ , 4, 0 d,~ , 4, 0 g,~ Z
0j + 7
(A`j , 4aj @ + , 0 ,~ H j DH lH o H r
6 +
& v ` Z|Z
=* J +[
A* @0(J}dJ G*
(O, 4, 0
& x ', ,
& `,~ y { |4 P ~ 4 P, 4 |
&( + |
&(
& `+ , 4
& }, -
& ~, -
& }, )
& ~, -
& `,~ 0
? Job aborted
h$ + # -
%FRS Ww)I8Ry.R,Az.s 2H Ww)I8Ry.R,Az.s nM>ZyOIz& y $`~<g!- Y$|@#ji.Pxkw 8
(>)
yrw U(:arPL|OR0 WyKIsd A1TYh) 5y
oHP(@.@
END OF EXECUTION
PC= 'w()eHl,F1{@ 'w()eH2$P(k'v)a0C@~I v
Subscript of array =
Y\
Q< X\
* + ` 6
G 9
G J
GK/K
P fbHf 8 |Y; rdi /r2 r1~- )r1w) -r1d3 ,r18f 4r1,~ #r1,} !r1 r - [ Z Z Y Y X Yi?" AYi3; 35 DUYil} Q .F
6 [S+
& u^
" P r ( P r SB)Z )Y )X (J" (J# Bg# @:# 7=$q JRp(2 Rov, @ RoTf RoA~ Ro;^ t X 7t % 7t % 7t $ 7tH 7tj ;tW WtS 7sv4 9sj, UsbB Ss/| 9s/+ 9s v FP S6 PE^ I4 n5" OP n \i(D7w`
=% P U7
=% U 9* 9) v* b 9LR i 9%9 7) 7( ~ 7' ~ 7& } J 5u | 5b { E u E j 9
f 2 K| 2 ~Z c * b& 1 b% 1 b% 0 0 0 / / / / . . . . - - - - , RMSQ v # ~Z|p G
ae TvF
aZ aY aj P 3?K aj~ B DA hDR f I; z I: x ] { ] z DR|pf%9z ^ ;-9 dpX2 dpX1 c
4N O 4N}POl x G TE |A I|A E|R 9 |R~9R6s !R6H 9LQ 3Kj4 4pX. 5pX- 5RJ 2 77G )RX 6
: 1S YVB Ru 4RMSQ NZ TE NZ}@ x $.7. f m2m # <*o ! g gp f ;LI 9 ;@ 9 }D Ye? 8
Ly z 9X) {P 9K@ xb 935
9'a ` 9'Q ^ 72 AL*r tz? 37 b?\. 7zT : 3 4 3 3 2 2 1 1 0 &+P kzX! .P 6
& u^P, D ! < 9 9 2. zP K&, cJy@ AP 0@
P . C?)A ZC?& ; , QP [
< D%^ +w> +wJ +E3 8 ? *"W P _.M{ c &(X A^\'_
( ^\'
&& @ P
x D #sC 0
m Z n# K ` C ]; d
B- N G q fA u B y A @ }K ` | Vy c ~ b a\ E D c D z $ C5 B RW GMJ: M9} r R 0 U 2M +G )M1 .L~, +)G@ ,L}[: P? " M M @b 8 [ HXpB nP
h3 E H' >"]Y qt_ k
aj 0\B: /\>X \>5 '\7N +\2g 'r'I (\)8 *\)7 \ \ )\+ ,\6 .\. ,[rO .O[mN O[m O[m O[l| [l{ &O[l+ O[k O[k O[j] O[jR O[i% r%H ([Z [X %[Qg r% 0[Ms /[M" -[M +[L ,[FG [@v *r#e OD^w'd w]!+{ 0