' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( N Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`QQHQ QQ"j" <hQHR IR*  'MoLU"  H 0 &oh 0 ȑo`Q()?oQ`H8>?EV\t +;Qv427  L!  8`L!` v Q'M /8nQ` Q  L  L $0Շ QՇLj 8Lj ՅLj LB$0i 7Lj Lg LB "LBʩyLR88前NR8e,LRʊNR0$H (a)bhmLRH (aĄhL N zH ]hiŀ [ `ʥ8勆zLRMRMR>8USTSNRNRL RS,VSTSLUS K L ,WS k,WSkPSkNS ?> NSaOSbkaPSkkNSlOSRS8VSNRȮSSQLQH8nQ,XS0,Q0 @ 8/hQL CROF ! ,  L~ Lg RCRCQ L/ AQL H   h`H8nQh` 8nYS !  '2`4SRSISS2S3S *`RS,GSL_2SVS0STS2SUSL `WSL  CRLRSISS`NWSNXSNYS`NWS `RSQQ`QQSS֛ :`8nXSVSRSQTSQUSUSSS ? hŀH hŀ  v L'L@ vQ88  vL~ <Lg LL QLg Q vQH{|h,Q LB!yQyQQIQ`)ień L 愀`Ƌ8` HVNB L}88nH,  : Z 8`` HsVw1;S%U7QLg 8nQ LLLNQ`QQQ RL~ `HQQQ(hLQLg yLg QIQQ!yQ}uyQQQ{Q|QyQLuQQ8QQ8Q6L@ v急HлL;H baaf""aݣ"a a h8`h`h`]S ~ LQ 'C8` l R8`R` S `  H]S /h  >Lo ~ L ?>\S:7L;`NaSL]S / ( L@! 5` ]SNaSL S [6` !  3 Lj  :RRL  QL  L  ! > >D`hhLg HQ ( (/FhDLD$I*GRL8naS]S D ,`)  iLg Lg :7\S "n-+ L;RZSR[S 3 ]S /ZSś>Q `[SŜ K }  2 ( ,aS ( X 47`L 37`L8`QRR8` RQR`  0  L'Q QQL5,Q0,Q / ~ ,Q  f!"f! "+"-"#"."@"("!/>/ ;E` /-_!BCDpFGIMPJR/Sh3TVX3W bS ! ! ` Y qR8' < R q w`8`n l mR 8nRR` LP j `{|n l 0 m)?mRLW`H -hRL~Rċ`)? RmȌR`R0R m` RR L(`RQRuv > >RQR8` L 37`37  >L37`u)(h`SeeaȥfaeafbS`aR<, R0` R R;a RR''qHqha&,R0 Lr)?q w, R0`R''q` R RR R; RL LwQLb HR hLh`RCR < R'q(qL'qȑ)Q)S`OSS` a#S(S)RȹSS)RSR`ȹSSR桝RRS0 #ȹSL 0L| S #LSR` L K l :`    g S)S :(`kȑk `kalbS) QS(k`H (RJRRKR 8`eeaabLkiklilRRcSRkaeSR Hƛ:Ɯ8Q!Qk8kllkkLmdSLgcSdS `  K e)Q`eafbaSaHȱabhab⭊SabЅbxw`aba Іba䟐`QL:` N QHQH dhh QQ g ncS [ "cS`8`Q՛ 7`cSeSZfS朥 *aFeSeeSfSea`fS&aޭeSJRfSKR ` kalbaȱaEKRJR0 f8`eHc eȱeHdeecheHRIR`d HR IRLb 8`cedfe)ceHRIRLb HR`Ri)JRamRKR ?>Ѕb͈ṠSHaihi`JRi)aKRib `cdHRIR ?> )a)c adȑacbd iab` $ $L1 # %0SR2S +% ?2L1 $L1 a#RR5S +%L1NGS0S2SI4S0S2S2S2S0S8nGS`8` S0 2 ?>L  N #r)ɀg RSTSZ,VS,WS #RR?USL2US,YS0-US,VS0 ,XS0TSL2mVSRRRR L08~RNRzR  &п`80SHSES,CS0 x1ESFS4SES ?>,CS0 #` x1Lh1 LRS `4S2S` N RRR%RHH }ESRh ( hL}1 [ ` a# _ %% %0S1S  2:2.1 2 % $L1  1:11 3 `!0SHS1SIS4SJS2SDS 1`2S3S *` E0`JS0S2SHSHSDS` HSIS  (: 0S1S  (...2S3S  (: HSIS SCS0 0L0LSR Q(`L1QH oh  &RzR8n R8n R #:)ɀ-8nR & N1R0_ Z8`6S8S8S6SL. v ,QL Q&s@ 8/L  L#KS GQCLSIMSMS ?> K +e)! N ,KS p2,KSP // [ g L [ MSQLSQL 8Yi @ Fr4Y,7Y @`)7Y7Y)?i8Y` ! / /`  '2` (:  Q.Q .L,S . H FG( :S֛L0.8n>SL. FG,>S0 Gq4Y`:S֛;SL-L. # ]6S7SȾRRRFȾRRȄ :8S9S8S6S:SI;S6S8S}, ,;,_ >37 8@ >,57" L] ,m378@@L] > (L] L] `37L] `4Nh8nR P $  > Q ;- -SȌxS ~h`,SLN+,SLN+8nSSiSwS )E ,S- xSS 2,kS ~lSL~>L,7Y08Y0 4Y* `kS`xS kSȌxS` F,wS+kSwSlSkS L+wS jSkSkSwSH hj8YYkS*KylSY/YY H` n+ kShH}kS  kS(hkS! kSlSkSwS,SSL)L(xS zS0 LL*,{S-,SkS0 ,S0 |S *,~S. }S0 ~SL*S *,R? l a0m)0.-m) ȱm)0a m)0m`0 *L*`HxS kSIiS΃S ʊmiSSwS0|S}ShS888SwSnSS~SiSm{S8|SL+,S,~SLN+~SSm~S,S0+m}SL+,S0,}ŚSSm{S8şL+S ,SLN+S8SLN+NS,S|S 8nS8,jSpzS|SmSm}S QHxS ,ySwSL',yS0wS }+L' +`7 '`8Y 4YL8(8LX(4YLX(4Y`(m3YH FG(h`d j(LFGhSiSjS r+ +,R ,jS0 hShSLS+jS @jS4Yp),R0 (@4YJL(,jSpH hLP& jSSwS,7Y{SwS...`)R) `) H F&h` (??8`H GhR /Rɠ/YL='H0 /Y/YLP'0/Yh`H QQh` '` >37EC  > -'+''' Z FG8`  (I8  (H +h(mwSwS +`7 ` G r+ -.8nySL')8` R'8`) R a R L%Rť=S # % (C&`@ R)H0 Ȑ H) hh7) ((` &RRzRRRRRzR &桎R覡RzR`R)ɀ (+` v RzR #0 .'H@ d(h` 0Lk'`` ($ FG $NR &(Lg RRRRzR` H,`R ( Lg RL% %Lg 0S1S N ~% - [ $L$ 3 -L$ >  G a#  GL$QRR)ɀ`8` ~%L %Lg 0S1S $ .% %%`R2SR3S ?2 $8`` H %h $8` 7 `QR ɊSȌS $LRRRR0SRRS`SPLb RSL*$`,S0 #_%$%$%$ ;$%.$@% >,S#L<%!Li%.L%L$ Lg Lg > #L%NRzR RRM`8`RRR $` Z L$ '` / #/Y/Y #L% $L^# j)R)7)8nS ! $,S # #;# > > $LL" A$`L" GMRR(RRzRRRzR`HRK H g hL#RȌRh`RRR` & 3 #  L/  hG S /S/YSSșSS XUXX U8n7 5F AXUX ,X0 RF )X,X08`UXUXX E DXXX` EF,X08` D`XUH 2Eh` EF EEH Dh`XU8n7 2E` EF EEXHXH BhXhX`X DXUXXX EX? E/X(VX B \F`8`XX FWXWX8nX F XXU8` ALRAmXU lA`Xi#XͭUXUXL AlX EFLAX(8`XX `,X0`XX7X7X`XXXX FXX` A ZEVXUUXU7XU7U8n78n7,XX؍XX7` EFH')X *C @hH nX nX nXh)XX uAK, uABD uA12 bF)XLK@S uA08 ) XLK@ bF, bFLB@X ( RFX, X( RF (X@ A ,X ALA`XX ݞU8n67n47n472737a{ 8n57)_37`;7QQ:7<7`<7:7 jB)L>QL>>7QQ 3>L`7=7 3>L`7 `>N=7 l7YL>9787 7 >L>978797Y) >`XHXH ?hXhX` EFXXXXXXōXXXX<> 17L> 3>NQ,;7 'C>7N>7 ;7N;7 L`>`8797N77`,H,):7 > `>h(`,>7`87i)97,=7 H l7 3>hL`> 8`87Y` >L>N77` >,7727`,;7L8?,>7 ? ?>978797Y)訊)978n77ʝ47A[8n570 9ȥ)Tȥ)TUJJJ T`xYx8BIxxŰ  x) = =) = =д =`8`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;` aI꽌ɪ򠚽ɭY=UY=T= 꽌ɪ\8`꽌ɪɵ*%EзЮ꽌ɪФ`2UJJJJJTȽ3UJJJJ&J&3TȽfUJJJJ&J&fTM  2JJJTȱJJJ3TȱJJJfTȱJ&J&J&TȱJ&J&JT*)U)3U)fU)UJJJT`80|UUHh  ; ; ; ;UYT@7륰YT@7UTꪽ@7 ; ; ; ;`Hh: : : : :EEHJ݌h : : : : : HhHh݌Ʈ$i ,L9Hh04Hh$Hh e< L9步# =ȄL9@L)9L'9HJ݌h Hhꝍ݌`ƈ 2/W1 /GOlW  2 /GRA,mWhŹ ۠Ѥ 17( ;( <$8 ` j;Hjh L9Nx` {9x$0x$0xL=JJJJ`Hjf {9h $0x`x =P'݌$HhHhꝍ݌ƫHhHhꝍ݌ : }07ѤHhH݌hHh݌ Ѥ(jfȱȱ ;9(  USj ;017 e<17xH` 907# ;9h ;9L8x"xH 9h170h@(L)9@L9Ha 8I.@HVx 8X`W U,7-7.7` 7,7Y-7Y@,.78n.7L 7 7 Y,7͓Y-7͔Y8`,7-7Z?` tXݶX` WPX%XHH ` )?8`R^S)  R^S!^S  U6`S:7 \FXH 5hX \F` >8`H ?> B 5 8h`       6`  d?L4H `>h` 6`LS? 6 (`H 8nR (PREPARE CASSETTE, HIT RETURNh  6`GHbI9JM  ( (/GC Q ( & N5֛ `5 (/T7  (  N5{|L`5y曵z (/XH (>  (:h` 5`L&?_S !  !` > R_S @H h(` :7`S5LoAvHuHH 4  ( 8nR (ERROR: hq6 Xhuhv > g > 8@L5 CL5`Lg @ 5` QQ N SQ `5 x  ?> [ Ɯƛ (/W1 /GOQ  ( /GRA,QM  ( Q vQK (/XQ8HVH h Q ( 4 (; v 4Q (;,Q (/WS L4 4QLo? BL'CDH (/GFh( L2 [ L$" >3V(3H-3 }}  L~ L03H R ,h)yLb3" yQ z`n W6R6Lq5S4D3I3@ 5` Y3 g L'C LC 5` !  (S YDJJJJ Q (,D ^D Q:7`S !``S:7`; R RR, R R ZZA1  ZJP,VXTU_71C8762?R YV: 5JP,VZ+N!4>X-X7#Aa\F´Iˏhr6Y&!a3ri榴 &)XsX{kY~nkaOTQ*]VQTQIM1 MIM2 E((l(#CO FG8YLO !G L !GQ K F+Q K 9J bILO>3Fa F ^]V(Y K`>YLK>Y K4YLK4Y >Y>Y FGhh`4Yp` 5K88Y`LF/YLH7Y` PK G FG G G 9J K G bI 8I G G,7Y G G` G F /Y XLJ /Y`mY8 8YX/Y0Y7Y` PK ?>4Y oGLIG K8BY8YPLDJY9Y Y FYY>9Y9Y8d09Y8nY FY Y9YXXYYYXʈ8Y>/Y(Y8XXidXXXicJXm8Y8Y Ȣ/Y/Y6Y5YL7IL1I/Y/Y`4Y7YI7Y` PK H FLIG PK H FLIG PK ?> K8YmBYYY9YYg/YZYYYYYGNY,Y}Xdd8XYY}Xdd8XYYYddY8.YLIYY IG7YMAYYY88YBYPLDJ'0 9Y9YLH9YLYLIG4YLFG8 Fh`,7XX FN7`L$FHNX,X 5FhLkFNX,X "FLkFX莳XX`hhX8` RF,X70`7`^77X7XXiUXXX &7`X F \F  X7 X7`XHXHH kFhhXhX^7X7X7LF /V7XV777LE FXX`y RFX X`XX`,X0 RF` ;E,X0 RF ,XL,B` F,X "FW4 ,XJWHJJXh X)X8 XX8n7` RF F,X 5F 8XX8nXJJJXX XX)8jWW8n7`HXXXX XWzWWW7W 5FU7U7ΝUU8n7 FLD`H) h8`HLND Xh`X`X`X`XH EX VVXhީX AXXU8n7`XX` ;EXX` ;E,70 XͥX` EVXVX X9,X0 RFH fFU ZEhXVX莤X XVV8n7 ELBXXLB` EF,X08` fF,X cD F "F 5FNX` EF EE D B AXUU7UX8n7XXXXX EXLyC F 5FNX` EFX FWU7WU77#WXX UWWX EΰXίXީW _ a` ^    ] \ A ] Q 1 a` %^ > I^ T 7^ > _ T R^ > ] T Y] ] Y] [ Y] K\ ^ [ ] \ [ I[ H\ u b] [ _ o\ ^ \ ^ !\ _ ?\ ^ \ d^ W\ D] a` [   \ T_ D] o 1 a` _ LRBSAVE R  _  ` LR,A0,L1 R  31690133PL[Q1591641591851282208196487329221923015920823956233127170160208132^QLQ1571602071321581602552022407324421516251482461693232922193244215QLQ4853292219208246329221916932208203$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` APPLE DAYTON PROGRAM LIBRARY L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dZkkkkkkkk?kBk>kAk[>kAk?kBkBkLLH/Y}9Ydd0Y/YZ!Z)Z1Z9ZAZIZQZYZaZiZqZyZZZZZZZZZZZZZZZYr4Y`Y r4Y8``Ii Gh7Y`H GhHdrHrHh` G /YY`H Gh G Y/Y`i ` PK>YLIG4YLFG/P1 A1 YY88YBYPLDJ'0 9Y9YLH9YLQ wXL*QLT $LUQ wXLAQ` oLM o _ K $LQ N Y K wXLQ  F U o x ͆ An o ڂ Y m ݂ ҇ ڂ  $LQ wXLQ ݂ 8 nLS o _ [ K o U _  L 8AL 8AL 8AL 8AL L [L [L [L [L [ L [ L [ L [L [L 8  8  8`L 8AL 8`L 8AL 8AL 8AL 8`L 8AL 8AL 8AL 8`L 8`L 8AL 8`L 8` ZL ZL ZL ZLdZLdZL ZL ZLdZL ZLdZL ZL ZL ZL ZLdZLdZLdZL ZLdZLdZLdZLdZLdZLdZLdZLdZL ZL `pLd`uLdL L `zLdL ZbL ZdLdZiL ZkL ZmLdZrL ZtLdZyLdZ~L ZL ZL ZLdZLdZLdZLdZL ZLLdL L L L L `WLdL L L L L L `\LdL L L `aLdL L `fLd`kLdL U,?q2vww~`Ld` Ld`%Ld`*LdL L L `/LdL `4LdL `9Ld`>Ld`CLd`HLd`MLdL `RLZFILE NOT FOUND ON DISK Y  L5Z _ L*Z DISK ERROR Z  q] )] \ 8 \ k] LRZ \ E7EaFLc @P@\ G 0L @ϐ*j*h@*R a` [ M]  [ [ ^ &` LY P] )]LOY q] )] _ LDYADDRESS RANGE IS 0 - 49151 )Y  \ HGAI _ > D] T \ 8LY P] )] _  A] LY _  ] $LY q] )] LYLRZ P] )] 7Y _  _ > D] TLAZ _ > D] T 3_ D ] $LZ _  W LX b] a` q_    q_ \  b] 4 _L&X _ 5 $X LXL>X0LCX9 _ 5  D] TLX P] [ q_ z] * s_LW q_ 5 a` _    _ \  b] 4 s_ [ $LVL!VS q_ 5 V LRV q] x\ \ n] _ '  [ P] [LWVD q_ 5 UV LV q] [ \ n] _ '  \ P] [LV, q_ 5 V LV q] [ 1 a` {\ $LVLV,S _ 5 V  __ [  ]_  _ [ $L WLV,D _  _ _ \ ' _ b] a` _   LU _ \  b] 4 U LEU 1 a` q] )]L@W _ \ ' _ b] W\ b] a` _   LpU _ \  b] 4 nU LU \ T\ 1 a` Z\ '_ LU *_ W\ _ Z\  _ g[L?W _  ^ LU q] )]L@W P] x\ P] [ P] [ b][`LSN q_ 5 S LT P] [` q] )] _ ` ^ ;L&T %T _ .^ \ G ] $LET K \ G A] LtT \ G  _  _ \ n] \LET` P] )] P] d[ b] a` _   LT, _ \  b] 4 T LT 1 a` _ _ _ _ q] d[LU \ k] $LT q] )]L@W q] \ `  _  _  _  _  _  `  _  _  _  LTS*****BEGINNING PASS 1 >S   _ L{S BRUNPASS1 qS  _  'LS S  s_  P] )]LS q_ 5 S LS ] [` q_ b]  s_LSY q_ 5 S LS q] $La Z Z I L;b Z  $L!b wXL8b Ê $L8b ; Z Z Db [Ld \ LX LwV # t $   Ā & Lb Շ Lb \  D n } Ā y q # v  , D l Llc \ $L/c ̄eLa h[ L5a Ԉ La nf j g LV ) j wX _ jLd B $LRa ) j wXL`  $Lfa wXL5a Ê $L}a La  La ) j wXL5a h[ La \  @ $La wX Շ  [Ld Z e   Lc ej B $L ` ) j wXL_  $L!` eL` CL4` eL` h[ LE` 5aL\` Ԉ $LY` nfL` a , ̄ Dj j ,  $LV τ ) \ !` g  $L` j aL\` , ̄ Dj p $L^V j , S $LV τ )  !`  $L` eLa CL` LU wX e l  Ā   L _ wXL^ ;n x Y u h n } n x ) h 8 An ; l L_ h Շ  ~ D 8 An 1  $L_ wX` _L_ _ Շ Zq o ` _ Zq $L_ Շ !` _LZq o )L_ \ )L_  ) j o ) , ̄ o ˆ  ~ j # , o 1 ˆ ! # τ o ˆ ! o ! $Lx^  $Lg^ wX ˆ # ˆ ! ҇ o L] ˆ !  LU j j Շ ! ) j  ! ) o ! χ $L^ o ) j k ˆ ! S $L^ F ) j \ ! ) j o ) j k Շ ) j j ,  k ˆ # $L8] F  o  ҇ ̄ :m ,  F Շ o LL] , D LU o _ M Q o Շ _ M Q , o Շ )L j U j ˆ # Շ o ˆ o  Շ  ! ) j 1 ˆ ! ! χ $L] _L] ˆ ! !  $L] _L] _ j ) j wX Շ ) j _  LP\ wX , J j , ҇ ̄ N LU M ) j τ ) jL \ , ̄ U j , J τ ) Շ ̄ Շ   ~ τ ҇ _ Q , o ŏ Ə L\ k  ) j τ $ j 1 ,  τ χ $L\ o ) j k   LwX [ [LDj j ) jL j M[ @ $L2[ Շ LwX Ԉ $LL[  LwX` h[ LU \ ` M[Lk B $L[ Շ ` o  wX C Ā B L[    C Ā B L[ wXL[` B L[ kL[  ) ?o c D ̓` Z LU  LX x (   Ā   LU z \ } Ā # q #  , D l $LZ \ ̄ m , ҇ F  o ` , D )  D $LZ , ҇ )`L`ZLZ Z C $LZ Շ ` o Z CLZ`  \ W Շ ? } n o } n o ‚ ҇ Ѓ Y ; LFY j , ͆ znL)Y  $L'V l LwY > T ҇ l LY Ѓ LY Ѓ  Y  ʃ l $LY Շ Z χ LY  > " T q  g  Շ W 8 7 8 o [ Շ LGT 74X  i > o T o eJZMb i > o T  8 Շ L'X ˂ $` #o > o T т , 8` l LFY o  o 9 ǃ < Y ă 9 < Y ZLX #o ? aLX X  Z S LX  > " T   LW LINE NUMBER V  ? a  OXL-W !ERR! %W  EU : $LW ؄ > o T > o TLxWTYPE CNTRL-C TO ABORT, aW  LWANY OTHER KEY TO CONTINUE: W  D (LW > o T e $L~  8 oU LVLV SUBSCRIPT U LVLV TOO COMPLEX V LVL3VTOO LONG *V LVLSVSYMBOL TABLE FULL AV LVLlV INCOMPLETE aV LVLVOPERAND zV LVLV REDEFINED V LVLV TYPE MISMATCH V #o Շ LV*****FATAL ERROR V **WARNING T  LU LINE NUMBER U  ? a L.UIGNORED &U  EU L!T Շ  $LbU $ ԅ $ LU l LU wXLKU OX ` FLU E FLU FLU  F C $LwXLUSYNTAX U LVLU DECLARATION S o o !D $LU ZL!T OX l $L!T D e $LGT > o TL~ l  Ā Շ  LvT т wXLF ; LT j , ͆ znLvT o K p  > " T   LT BRUNPASS2 T   #o LT *** $LR wXLR  $LS wX ` K oLR $L0S { LDS } LYS wX _ U K oLR _ $  $LvS y K oLR K oLR o Z 5q K $  $LS K o { SLS  F C $LwX { LS o _ K oLS o _ K oL ܆ O Շ D Շ ( / &L1r JD Ā JD L4rL}r ( S &  LWr o D o (  Ā ( / & L}r o D (  Ā ( &  Ā ( Y $  Ā ( $  Ā ( $ Lr o D ( $Lr o Y D ̄ \ Շ  ~ τ ׅ $L-q , Y F \ څ o 1 Lp l  R  Շ  Zq o ` Liq Շ ` Շ ن o _ Q o o ܆ L { o  o _ ܆ O % Շ _ ܆ O Շ D Շ o ( l (Lz ( K  _ \ 8L p  8 o An N \ n }Ln ) ^ l LAp ) , D l $L}p ˆ ̄ m , ҇ F o o ,  F \  o ` , D ) Y D $Lp , Y F \  o , ҇ )`LAp ,  F ,  D Y o ` ) , D l $` , D ) > " T  { Lo,B  o  l a `  > " T  o W` 1LSo > o T` o Z  Lo  > " T  {   W x ҇ u x L'V` $  Lo N ̄ ͌ K o τ K` \ Lo Շ  Lo o LoAn , D n } , F x o To @D }Ln To t # R z 5 Dn U 5LDn  8 Wo $q r Lyn  > ˆ T c > ; T 8 ?o` A RLn  R `  > " T  { Ln,B n  ʆ a  W U > $Ln o } nLn Dn  n w Lm AnLnLm , F o F o o ҇ ) :m , F o ` Ʉ L>V` ҇ n ; , ҇ D n c i # D , ҇ D M Ä A Lm , ҇ F , ҇ D A o 8 , D n } , F x o AnLn gk , D $ Ā \ $ ̀ $  ̀  ׅ $  LSl  , ҇ )`Lgk Շ #  , D l $Ll ˆ ̄ m , ҇ F  o ,  F o ` , D )  D $Ll , ҇ )`Lql 8 ,  D n }  _ Q , o ` ҇ Ņ L V`  X $ Ā \ $ L@k )`   n } Ā q #  , D l $Lk " ̄ m , ҇ F o o ,  F  o \ $ Ā $  V , Y F o ` , D ) Y D L3 & ) j Lj Dj j jLg ) j k` ,  : . , o : ҇ 7 ; 1 (L V` Շ 4 7 , ) mC $ Ā : l $ ` Շ 4 ,   mC`  4 , ` ; . , o Շ 5 8 1 (L V` ; ҇ 8 , )` o _ Q , o ` Շ _ Q , o `g Շ  $ Ā   $ Li o Dj j Dj ,   Ā , : & LPi & )Li ,  Ā , M & L|i Ƈ & )Li ,  $Li \ )Li , $Li )Li , w $Li ݋ )Li , ߌ  Ā , 0 & Li & )Li h  B $L^VLh o #  o  w $ Ā  ߌ  L;h o #  o Շ # o o Շ  ~ o ݋  ~ d ! o _  $Lh d # d ҇ _  o Lh 1 1 o ! Շ ! `  Lh Dj Dj , ̄ Dj τ ) jL$ Lf Dj`L^V o LDg L.g wX ` : ` wX P ` : Lyg Ljg wX & ` $L:g` Lg Շ ` $L$g : $L`g` o m  l $Lg Շ m` B $` *C Ā $ L o Շ # Շ o LKf o #  o Շ #  o  # Շ o ̊ $LKf o # \ o \ # Շ o wX |]Lf h[ Ԉ   LwV wX   [Lf g  $Lf z ) j wXLpe pLf Dj` $Lf ) j wXLf  B $ Ā  D $  Ā  n j m  [ ULd g g *C $LDe ) j wX , D $ Ā , n $ L`L5a pLPe Dj` $Lme ) j wXLdL^V B $Le ) j wXLpe  Le ^ ˆ  [Lf C $LTf ֌  ) $ Ā $ Lf o # , ҇ )` C $Ld ֌  ) o # Շ o  $ Ā $ LOd Շ # \ o Ld d  Ā 2 & L~d Շ # Շ o Ld Շ #  o ' $Ld wX o #  o  # Շ o ]Ld wX |]Ld & LwV wX h[ LU U Vl j _ j m , ҇ F o o o ˆ  ~ , ݅  F ݅ D o 1 ` " ̄ m , ҇ F o o ,  F o , Y F o ` , D ) \ $Lc , Y D l ( Ā , D n t $ LcLb o ˆ  ~ , ݅ Y D ݅ D Lb 1 sL uL wL L yL {L }L L L L LdL L L L L L L LdLd LdLdLdLdLd"Ld'Ld,Ld1Ld6Ld;Ld@LdEL GLdLLdQLdVLd[Ld`LdeLdjL lLdqL* ,,L -.O/p0? !12RSTU5VwXx8y:z;<}=~ L LdLdLdLdA!"bCc#d`$`(Ņ %E0@dƆ $hH&4'ȈHQFk(Rcefgjd) I}@L} An n` L ~  }Ln ( } n 1 }Ln #o  L8~DELETE 1~  {  Վ  Lt~*****COMPILATION TERMINATED X~  o "  ~ o _ 7 > Շ _ 7 T 1 ߎ     Lc `@@k K }Ln JD} ~  Ā & Li}  ,  D $Li} S , Y D n b P  l $ Ā $  Ā  # $  Ā \ r $ ` e $ Ā  e $ Lm LOm m JD  Շ g $ Ā $ χ $w x  $ L&|  ܃ ) χ $LF| ,  x  g $LmLOm CE $L| o  | ` Շ _ O ) o _ O h e & Ā e  L| p ˆ e $L| N h ׈ K o o _ ܆ Q o ܆ ҇ نLq Շ Շ o _ O L>{ ك ( j` l L{ Շ Շ ׅ $ Ā $ L~{ o o DL| $ L{ h KLo` m l (L{ m $ Ā $ χ $w x  $ L{ Շ K o t KLo ՇLz 0 ҇ -Lry ( ڋ $ Ā (  ̀ ( Ս (   Ā Շ _ 0 O ֆ $ ̀  _ 0 O ֆ $  Lz ( 8  Ā Շ _ 0 O ֆ $ Lz   o _ ܆ Q o !p Շ _ ܆ Q , o Շ  mLz $Lz " " D Ā  _ 0 O ֆ $ Lz Շ  L?y \  o _ ܆ Q o !p Շ _ ܆ Q , o Շ  OmLz 0 Lz o _ 0 O % ڋ ( Ā ( ڋ  ̀ ( < (  ̀ (    Ā (  ̀ ( e (  JDLw oL4x oL4x xL4x `| JDLoLo |L4x | o ܆ ҇ - ( ڋ $ Ā ( $  Ā ( ŋ $  Ā ( X  Lry 0 Lz o _ 0 O % l ( Ā ( ڋ $ Lx 0 ҇ -Lx " D Ā Շ _ 0 O ֆ $ Lz ҇ $w x Lw ( j Շ  Շ Lm Շ mL4x CEL(x CELIw KL.x N | ȋ K o KL(x x Љ KLx `|L1x `| Z| ( $ Ā ܆ ҇ o _ O C $ Lw J K x ҇ K ܆ ҇ ن Շ _ ܆ O `| xL4x `| N  Lv  H Lv N ҇ Lv Շ H Շ ( / L&w "  CELJv KL.x `|L(x Z| ) lL4x N އ K Z| ܆ ҇ o _ O Lv x ܆ ҇ ن Շ _ ܆ O  _ ܆ O `| Lv xLkv JD $Lv Շ K o Q ) ܆ CEL,u Q  Z| L"x CE $L,u Z| L.x K G $LIu [ K lj o KL(x Շ CELqu NLzu Z| N JDLu N K Q L.x Z| CE Ā $ Lu JD $ } Շ L1x G $Lu K Z|L1x Lt o _ O $LtL9t o _ k Q " o h K o K  tttt uUuUuuvuvvvuuv~Pv_v_v  !_v~uvuvvvvwvwvwvw1xdwx1xvwvwvwvwvwvwvwvwwvwvwvwvwx|w|w|w  Lt ˆ  CEL"x `|Lx \ NLt N ( $   Ā JD  Ā ( 8 $  Ā (  $  Ā ( $ LUs o D o ( v Lis o D ( e $ Ā ( X $  Ā ( Ԉ $ Ls o G $L9t h " DLs o _ O $Lt h " DS c d  _ c e &e L6T Rc F` d c `a [\ )b ^c je n y` \LS od F` )b ^c je n y` \ )b |c je (c LS {d F` )b ^c je ^c n y` \LS )b |c _ )b |c je n _ b ac _e b LS ac b _ ac _e _ $L@U ac _e ^c bf ac b  c  )b je _e [c $L\S c bf +c _e  c  )b je ` LWS )b je n b q] )b le ` o )b ^c je n y` \LS 1 bf ac _e _ +c _e _ $LT +c _e ^c &b )b je ` (LT G] )b le ` o c xd &LS Rc F` )b ^c _ )b |c je n _ c c je n y` \L ` ` B $a c mc a ` LR a ` a hb &e ~a (` > c T e  e  a Mb n a a _B 0d a ` (` > c T e  LvR. tR  +c je ` (LR +c je n b q] ac je n y` &e n v` LR |` c y` \ ac le +c je o +c le ` o L~R +c~ 4` b Te n y` 4` d Te _ ac _ $L"Q c y` |` jc a a \ 1 wf c a a d $LPQ c a a a a b d LtM Ka a Ha Ka d L"^LtM 1 lf a [c $LQ ac ae ac b o a vc $LQ ac 1e mc Ea o 1 Tf c 1e mc Ea o c /e ` Wa ` LQ Wa L L L L 8  8  u8  d8  8  8  Ie8  8AL 8AL 8AL 8L 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL eL gL iL kL mL oL qL sL uL wL yL {L }L L L L L L L L L L L L L L L 'L )L +L -L /Ld4Ld9Ld>LdCL EL GL IL KL ML OL QL SL UL WL YL [L ]L _L aL cL  L L L L L L L L L L L L  L  L  LdL LdL L L L !L #L %LL L L L L LdLdLdLdL LdLdLdLdLdLdLdL L L L LdL L LdL L.Ld3Ld8Ld=LdBLdGLdLL NL PLdUL WL YLd^L `L bLdgLdlL nLdsLdxLd}LdL L L L LdLdL ~L ~L ~Ld~L ~L L L Ld L  L L L L L LdL L L !Ld&L (L *L ,L L L L L L L  L  L  L L ~L ~L ~Ld~L ~L ~L ~L ~L ~L ~L ~L ~L ~L L L L L L L L L LdL L L L L L L L L L L L L L L L L L L LdL L L L L L L L L L L L LdL L L L L L L L L L L L L L L L L L L L L L L L L L L L L  +c `a ac a $L P c `a U\ c a c a $L+P c aLYQ FP yP ac `a U\ c aLYQ 4` ^c Te a 4\ a a 4\ e F` \ Hd F` \ e F`L\ Ic F` \ m` _B @` \ Hd F` \ m` oB @`L\ FP Rc F` d a `a [\ mc a m` y` \ 4` c Te F` \ d wf 4` c Te c  Te a 4\ m` B a 4\ 4` |c Te a ac b a (c L.O a B b b |c a ac a $LQO a a 4\ ac b $LP b c 5b b wf +c  ac  a 8b (LO &e aLO Db a a b b LO od F` \ a a c F` \ b F` \ 4\ c 2b 5b 1 wf yP b c b b B a Ka j` b d L&N 4` c Te n B j` a (c LN c a $ _ a c $e L.P ac a $ _ c a $e  _ a [c $e LNLtM a d $ _ a c $e LP a d $ _ a d $e  _ a vc $e LPLtM 4` ^c c _ )b  +c TL<^ 4` Te 1` b  +c T a c $L<^ ` 1 bf _ aLG e LG*****FATAL ERRORS ENCOUNTERED tG  L<^ ac {a Pb e  e  e  ^ a a e  e LG,B G  a ua 4\LE ^LFUNDEFINED FUNCTION E  4` |c Te n c d i # a a   4` |c Te _ a c _   4` ^c Te ` jFLE \ LFREFERENCED LAST IN LINE sF   +c T d > +c TLFTYPE CNTRL-C TO ABORT, F E )b ^c le ` o LE )b ^c je a LD ^L6EUNDEFINED LINE NUMBER E  )b ^c je n B a )b je ` jF (` > c T e  e L~E,B0 zE  +c a 1 bf ac bf c  ~ )b 1` 4` Te (c $LUG 4` Te 1` ^c Te a 4\ 4` c Te a &e a LEc  )b b b >b a b ^c je _ a ^c je _ (LD b je a b le a je o a le a o b ^c je a b ^c le a ^c je o a ^c le a o Db b b vc LC 1 bf Db vc L}C +c a c bf c b  c  a ` $LE ] ` a ] a ^c a )b ^c je a $L e  e  ^ U` bf `  ~ )b 1` 4` Te (c LSC 4` Te 1` ^c Te a 4\ 4` |c Te a 4\LC 1 bf b vc $LE b c $LD c b Ab c 2b 5b c 2b _ c 2b # _ LC ac ;b Ab c 2b _ c 2b # _ $LC c ;b Ab c bf c b u Db  A$ |L䔯AAeL$BCOPYRIGHT(C)1981,MICROSOFT  B e LKB*****BEGINNING PASS 2 5B  LlB _ 3d _ #`L|B _ _B 0d _`LB _ d`LB ` d ``LB ` c  d ``LB ` A c c i #` +c b ]d ` ` a 4\ &e a 4\ e  e  e                      $ LP " х * } 7 L'V * } ' 0 u ˆ - , J o ) , D l $LsP  ̄ m , F M o PLnO , D ) ҇ D G $LULGP AQ  $LP wXLAQ { l LU #o LP RECOGNIZED P  OX L!TLPCOMMON P LOLNUSE N P ̄L*OLODEF O P o ̄ P Շ C  Ā I   Ā l $ LU Շ τ F [ B LO k  LO wX 9J  ,  , , D  ~ D ҇ n w 1  \ $ Ā Q LsNLNINTEGER N P  LU ފ $L>N  Y wX AQLP [ \ B  Y B LaN kLgN wX 9J E Y PL>N q LNLNCLEAR N P q L*Q $LN P  KLNLNCHAIN N P K o o o AQLP mLM o !DLM ;n Պ } nLM ̍ K oLL o _ $L8M } $LL ˈ F U $LL CLL O $LM 8 An \ 8 An ;n x ) j n Շ LF Y 8 mLS wX 8 An Շ 8 An 8 An Շ 9LS AQ L*Q wX Ao . F ULS o $LL 1L K o F S 1L K oLL _ K o UL_ o _ + LS K o wX _ K o U LS F U o Y mLM LL pLMLT o Z U 5q $ ___ Շ  { o LS wX 8 An \ 8 An Y  8 , D y LU ,  D Շ L%K Շ a , J Շ   ~ j M ݅ D #  LV M ݅ F , o 1 U M )` o Z 5q K $ χ $ Ā $ S $ LK Շ K o { SLK o _ K o U / $LS _ W K  $LJ ҇ K o {  LJ KLS wX  LI [ U 9J SL*J o |  Z LU  ҇ | Շ LX x (   Ā  LU  N LU  j  $LJ wXLHJ k o a ˆ # $LJ F  o  ҇ ̄ :mL%K $LI wX Շ ̄ e l $ Ā  $ŏ Ə   Ā  $ ̀ $  ̀ τ $  LhI wXLI D_ AQ  $LI wXLH 8 An } x nLS o o  LI Y ^ K o } n F U Z 5q K $ BLLLU pLM o b[ , ڂ Շ   U _    ݂ ) m n F U _ LZH " K oLcH Í K o L}H  KLS wX _ LH \ KLS ލ KLS o !DLH oLH b[ r  m { } n SLH ;n } x n AQ o ̄   LG e  Ā   LT  K   ̄ wX τ GHHHIT*JKSSSSSKKKSSSKCL Ƅ ̄ τ CLSSSSTTTSSSSSSST~LLTTS Ƅ ̄ τ LLLMSTMMMVQ\QQTT RRRTTSSVQ Շ F o o  ˆ - u o 8 Շ E  ~ An 1 0 u Y Y Y Y Շ $LF #o LxF *****ERROR mF  LFEMPTY PROGRAM FILE F  L~ o т X o !DLT LF o ( (   &` [   $[  [ `LE Ɓ o _ Ɂ O Ձ " ҁ $ ށ o _ Ɂ O Ձ ҁ $l ` ߎ  g  ˎ  ߎ  {  Վ  ߎ    o W o o o  0 (D ? r  K B { &,  K B $, `L=D T $ ` W x $6 `LGD i `LD r o _ u O ~ $ o _ u O ~ $G  o _ u O Շ ~ $G `LD ( Q  $Q `L@E ى  ـ & `L'C m  v & `LjC    ' &   0 $   9  `LC  *C !  $  !  $  !  x $ `LC * N  6 - W &"  6 - ` $"  6 - i $" `LAL AA莼L$BCOPYRIGHT(C)1981,MICROSOFT  B c ΂ ы  d O ҇ ȅ Շ o 7 8 o [ Շ o Љ  ~ ^ ݅ D o 1 o ݋  ~ o   ~ d _  V  ^ D o 1 1 LC                                           981314200982019820211102031110204131220554206322077620876209762357623676237762391314P D] a` ^    ] ^ \ T_ ] o 1 a`LP1603162113764323516203212253141118396173118376237258-615983908171524701661170324502500254625992609354235923183356033283322LOLO3726371916418003707375336911216369812393819O D] a` ]    ] M] (LO ] xB ]LO ] p[ ] ^ \ T_ ] o 1 a`LqP4011441131193676-593061132-60009-6107933423336335033613365-NLN3352336333483361-61136228422683934-60259319931043533339834553375337233953508-60304-60451-60335-10180835513883NLIO3837-61069-61358-59713-61193-61418-61425-6149243435721524158815953239-646003515MLM3524149715041727-62067-62071-62080165537632302161730363636672810269236142813269528312709352235429483902ML*N17712888325531623174324832113153-560591517358116729662912224EGER CONSTANTS: K  LL(DEFAULT YES)?  L  S ,]LK [ c\ LPLRESUME/DEBUG CODE: =L  LmL(DEFAULT NO)? ^L  S ,]L:L [ k] $ \LM2912-5761255837653620377229852982-62352-62361313531443896385038623874-62424-6KCOMPILATION LISTING: J  L#K(DEFAULT YES)? K  S ,]LJ [ 5] LVKPAUSE ON ERRORS: EK  LtK(DEFAULT YES)? dK  S ,]LBK [ \ LKINTEGER ARITHMETIC: K  LK(DEFAULT YES)? K  S ,]LK [ [ LKINT <_ X[ $LJLJEND OF PROGRAM J  L+J U[ B a LOJARE THESE ADDRESSES CORRECT? 1J  S ,]L.J [ M] $LF LJOPTIONS: yJ  LJDEFAULT CONFIGURATION? J  S ,]LvJ [ M] LJ b] 8] b] \ b] [ b] f\ D] \LO L 'LI(DEFAULT END OF PROGRAM)? H  s_  q_  A] $L8I P] [LII ] \LpW ,]LH [ xB R[ LjILIBRARY OCCUPIES XI  v[ B aLI - ~I  y[ \ u b] n B a LIPROGRAM BEGINS AT I  \ B a LIVARIABLES BEGIN AT I L H(NUMBER, 'HGR1', 'HGR2', G  'L:HOR DEFAULT END OF LIBRARY)? H  s_  q_  A] $LeH y[ \ \LHLmHHGR1 q_ 5 hH LH |^ [LHLHHGR2 q_ 5 H LH ^ [LH q] \LpW ,]LG [ xB \ LHADDRESS FOR VARIABLES: H  LG -\ xB s[ y[ \ \ <_ [[LpJ L2GALTERNATE CONFIGURATION: G  LXGADDRESS FOR LIBRARY: CG  LpG (DEFAULT fG  -\ a 'LG)? G  s_  q_  A] $LG -\ [LG ] \LpW ,]L@G [ xB s[ LGADDRESS FOR PROGRAM: G  L FOBJECT CODE FILE: E  L!F (DEFAULT F  _  ` 5 _ LFF ` LMF)? IF  T ] \LqY ,]LELmF _ 5 lF LF uT ,]LE _ _ _ ` LF MEMORY USAGE: F  LFDEFAULT CONFIGURATION? F  S ,]LF [ M] MICROSOFT D  b] \L#E SOURCE FILE? E  T ] \LqY ,]L E _  A] $LVE @WL E uT ,]L E _ i_ _ _ q] \L}EAPPEND _ 5 vE  g_  _  _LY _  ,]L E g_  n \ ] LE ] \LE.OBJ g_ \  E  _ _ ` RITE _ 5 C  _L DREAD _ 5 D  }_ ^ G n [ ^ G n \L:D,SL@D,D [  7D  =D  __ \  ]_  _ [ ] ^ B ] b] ] 6\ ^ B @[ XLD̠͠ D  LDV 2.0, 8/29/81 D  LDCOPYRIGHT (C) D  LD198127L D] a` ]    [  [ b] _ \ G_  o [ A [ Q D] _ \ G_ [ B o 1 a` ] \ [^ \ @^ *\ ]  __ ]  ]_  _ ]  _LCCLINENUM C _LCOPEN _ 5 C  `LCCLOSE _ 5 C  _LCDELETE _ 5 C  _LCWA) B`AA`~``L$BCOPYRIGHT(C)1981,MICROSOFT  B s_ ]  LCB NOMONC,I,O 8B  ]  LdB MAXFILES3 ZB  ^ LB "[ s^ [`LB +[ p^`LB 7[ m^  ^ 4[`LB4254776208425486815425491663242569255127429489677433722551          POSED NEW INVESTMENT HELD TO MATURITY NET ROI = ";RO(2);"%"A H*0N4_> SUBROUTINEH"USER'S MARGINAL TAX BRACKET = ";TA100;"%"R\"NEW INVESTMENT COST =$";CS(2)f"NEW INVESTMENT LIFE = ";TM(2)12;" MOS",p"NPVCP(1DR)TM(N)(((1G)TM(N)1)(G(1G)TM(N)))TNCS(N)KPV0670pRO(N)1000(DR(.01PV(PPV)))RO(N)(RO(N)).5RO(N)RO(N)1RO(N)(RO(N))101830 "++++++++++++++++ OUTPUT DATA ++++++++++++++++";"PROMO$(10)"OCT":MO$(11)"NOV":MO$(12)"DEC"C "LOAN AMOUNT = ";BALl "INTEREST RATE (% PER YEAR)= ";FFIN "YEARS = ";YEARS TI0 RFFIN1200. PAY(1.R)(YEARS12) PAYRPAYBAL(PAY1.) " MIN MONTHLY PAYMENT = ";PAY "ACTUA&d MORTGAGE RE-PAYMENT CALCULTIONLn CONVERTED FROM FORTRAN TO BASICux BY JAMES K. MAGILL - JULY 13, 1984}MO$(12)~MO$(1)"JAN":MO$(2)"FEB":MO$(3)"MAR":MO$(4)"APR":MO$(5)"MAY":MO$(6)"JUN") MO$(7)"JLY":MO$(8)"AUG":MO$(9)"SEP":  e L\,B0 \  +c a a ` (LF] ] ` b ] a ^c a ` ` (LF] b 9aL ]` a a )b je n c a b ] ^ I` cL}] a b b ] ] (` > c T e  e L],B ]  b a ^` ] ` B `` ^ C` ` ^ 3d a =` ` `` (` > c T e ~ +c _ )b Ge > ac _ )b Ge T 1 bf e  e  e  e  Lc b le a o b ^c b ` L"^` fd F` \ +c _ ca :e F` \ ac _ ca :e F`L\ \ |` B y` |` oB @` \ |` _B @` (` > c T la > I` T b 8 ^ a ^c ~a a 4c L"^` (` > c T e LZ LINE# ADDR Z  1 bf e  e  e  ^ e  e  +c a ac lf e  {d  ] b L_[ ][  ` a ] b d L~[ |[  ` a a ^c a ` (L[ 1 lf L=[ _ L[*****COMPILATION COMPLETE [  +c bf c  c /e jc aLY - Y  c /e a +c /e _ c /e _ $LTZLFZNO LOCAL VARIABLES 3Z  LZLoZLOCAL VARIABLES OCCUPY WZ  +c /e jc aLZ - Z  c /e a LZHIGHEST MEMORY LOCATION: Z  ` a ac bf e  {d  )b OMMON BLOCK: X  c /e _ c /e _ $LBYL4YNO NUMERIC COMMON "Y  LYL^YNUMERIC COMMON OCCUPIES EY  c /e jc aLyY - uY  c /e a c /e _ c /e _ $LYLYNO STRING COMMON Y  LZLYSTRING COMMON OCCUPIES Y   e  L XLIBRARY OCCUPIES W  ` B aL%X - !X  ` B $a c mc a LZXPROGRAM OCCUPIES HX  -a B aLrX - nX  Wa a ` 0a $LXLXNO COMMON BLOCK X  LZ b (c $LXLXDEFINE X LXLXUSE X LX CERENCE TABLE? V  e  e  (c $L$W e LV e ac   c $LMW e  LV e ac  eL^WYLcWN e 5 \W  _ e 5 aW e LW e LVLWN e 5 W L[ LW SOURCE FILE: W  ue  LW OBJECT FILE: W  v` LV |` c y` \ ` y` \ c bf c  ~ )b /e y` \ 1 bf +c bf c  ~ )b /e y` \ 1 bf ac }b $LjV +c b b F` \ _ LV*****CODE GENERATION COMPLETE V  LV'COMPILATION INFORMATION AND LINE NUMBER V  'LVREF` (L;U G] )b le ` o Rc F` )b ^c je n y` c (c $L5U |` c y` \LT 1 bf 7c D c $LfU d > +c TL<^ c ` ` a L\R (` > c T e  e  e LU,B0 U  -a y` \ eb a -a a y` \ Rc F` ` y` \ ac je n y` &e n31 (4)"BLOADRUNTIME"(13)(4)"BRUNPASS0" z#??   ˮƠ" ̠̠Š Š îήҠԮӠԮ̠ Ӯʠ ЮԠ ˠ Ӳ& Š ͠"͠ˠ ԠˮʠϠàYˠРԠ"ĠàӰ ӱN ' 5 6' LLT'*LY'!<' 5& /$_'#  R' Y' e' 'h'k'  W' y' ' L''! 8& L'FM16 '  L' UNDEFINED '  sL' FIELD CODE '  L&L (!'j&   ( L' 8L5(FM17 ' .LH&%L&?&,&   La&,P&K& H& 4 _& Ld&! L&}&a& l#&  n& &L&&  n c& & && V" (L&& & & &"&&  & ' ' ' L<'  ^ L8$` LP% O%L]%U$ 5 [% LLu%A]% 5 s% LL%Su% 5 % LLL%FM15 ENTER FIELD ID , DATA? %  &#(#$ $L%   Ln%L% 5 % L%L&?% 5 & L & L%L,&:CANCEL:& 5 #& #L?$'#$)$  =$ Lm$?$  uB$ U$ d$Lr$I$^$  p$ L$""L$Sr$u$  $ L$#$LL$E $$` 73  L$CLOSE $   $ L$OPEN $ $ L %,L  %  ^L %,S %  ^L4%,D 1%LA#Y9#+#  ?# Lg#L\# Z# L"Ll#CA#D#  j# L#L# #a#L("L#S# 5 # L#"" $L#L# ##L##o##L#S #"L #  (L##  u # L$'$#   $ $ $ $ $ L"")"")"")"")"")"")"")"")"")"")"")"")(#")-#?)2#])7#l)<#~)F#)P#)Z#)d#*n#*x#<*#S*#*#*#*#*#+#+#+#>+#d+#i+ %&%&a& &*&4P'Xc'bc'lc'vr'r''''' ((2(F(G(G(G(G(J(d( g(h( h(*h(4h(>k(H(R(\(f(p(z((((((((((((((( ) )$ ). )8 )"")"")"")"")"")"")"")"")       % & & E E s s  s  s  " , #!6 !@ r"J ~"T ~"^ ~"h ~"r "| " " " W# Z# # $ $ )$*$*$*$*$X$i${${${${${$$$$"$,%h6%9%9%9%9%?%V%|%%%%&%&%&q  * 47>=HNRf\ifpz;>>   $ . )8 ;B <L <V e` j t ~        W W W W      ( 2 < F #P 4Z Zd n x      (20<JFVP`Zadanaxamv 34444"H,`6~@JT^h&0:D&N,X8blH+@Ql~L ^ l ~            *4O>`HcRu\fpzFi$.8BBLGVJ`MjNtN~NN (2<FOPgZgdnx 0 6 6 6 6 6 b    N " , 6 @ J T ^ h j2 rc |f f f f              & 0 : D N X b l v> T FACE VALUE =$";FC(1)O"CUR INVT. DEFAULT INTR RATE = ";DI100;"%"x$"CUR INVT. EARLY WDL PENALTY =$";PN."CUR INVT. AGE AT SWITCH = ";AG12;" MOS"8  =$";CS(1)>"CUR INVESTMENT LIFE = ";TM(1)r"CUR INVESTMENT INTEREST RATE= ";IN(1)100;"%""CUR INVESTMENT CMPD PER YR: ";CM(1)"CUR INVESTMENT TAXED: ";TX(1)0ĺ"YES"TX(1)0ĺ"NO""CUR INVESTMENEW INVESTMENT INTEREST RATE= ";IN(2)100;"%"Xz"NEW INVESTMENT CMPD PER YR: ";CM(2)"NEW INVESTMENT TAXED: ";TX(2)0ĺ"YESTX(2)0ĺ"NO""NEW INVESTMENT FACE VALUE =$";FC(2)SW01080"CUR INVESTMENT COSTL MONTHLY PAYMENT = ";PAY> "PAYMENTS START (MO,YR):";II,JJJ IIII1q "PRINT LINE EVERY ? PAYMENTS: ";N "PRINT MAX OF ? LINES: ";M 1 10);" LOAN REPAYMENT SCHEDULE (";FFIN;"% )" 15);"MONTHLY PAYMENTS $";PAY0 ":"MO-YR S aZbwx  gZh QqgRiiRwSxS g  g RCQQQL  rLl W6S4D3I3 L$ > (o)p (q)r (s)tL~ QQ gmQiHhijhmQRiRgeHiihQ`4737L L37 ,PR0 >L NPRLȱuHuH`  (`gS  F:F 8`gSH h` GLd( GRL GR%)?sȌGR` 0 > ? ? XBawZxxЄxwIwwIwwݥxѐ!abaab `7ɅaQbQab hhh`la` l-mh[66cV"huhvH ChvHuH`uvLIuvuɀ LC`uvuuL^ȱuȱuvuLI 0L l L l 8坨 0 L`Q L LLb ` !huhvNPR >u8LZ 8nPRLeuviHH37`) `Lb `S` ` LP8 ,RJ 8eʩH @ h @  G d(` v ] Q )Q S0LɀQ ( (L) L ("LɐQ ( (/-) L (/-L`Q ( (V) L|&QNR`HHH`,QL 8}8~`L L L7~Lp Lw L w  cQ v c v`QH ]hQ` `,Q` w `QH  }hL 2 G  v fLS0- GS0 /ȹS)/Y(SQ l Ld(7ɀQ轊S8 Lɐ S&JJ`8`QQ qgkiil`l`K`R RRJ~RJ~R)? R` fe`keȱkf` ,Q,QQQ}QQ vQ}Յ  v`}}L Յ 8} }}L  8}}8}y Շy y}L Չ}yL u` 7` ` 3 Q{QQ B  LoQQ v QQLBhhHHLe hhhhHH` w 8 v ` a nՇ Յ8`L 8}Չ8`8`y8 v ye ze(me)n`I!$0-'sQ)?&sL "R)ɀRR & I/O+-*/^), +-(NERROSUNPMIMALOOKUCOUNAVERAGINABSICOTAASIACOATALOG1LEXPSQR g >8` g 8```,Qhh` L Q v X NQ Q v vL3 NQ v N yz ]zzŀyy [ Lw L H 'h(L yՉu}KCLEAR: Y TO CONFIRM(C) 1979 SOFTWARE ARTS, INC. 1.37 READINGWRITINGPRINT: SLOT # OR DPRINT: LOWER RIGHT, "SETUP, -, OR +PRINT: SETUP OR RETURNPRINT: FILE NAMEXBAD FILE NAMENOT FOUNDNOT TEXTREADWRITE PROTECTEDDISK FULLFILE LOCKEDTOO BIGHREEVAL ORDER: R CRECALC: A MWINDOW: H V 1 S UTITLES: H V B NSTORAGE: L S D I W RINIT DISK: TYPE RETURN TO ERASE DISKFILE TO LOADFILE FOR SAVINGFILE TO DELETEDELETE: Y TO CONFIRMINSERT: R CDELETE: R CMOVE: FROM...TOFORMAT: D G I L R $ *BLAN' OR h z  ( 0` / L LLABELLABEL: REPEATINGVALUECOMMAND: BCDFGIMPRSTVW-GO TO: COORDREPLICATE: SOURCE RANGE OR RETURNREPLICATE: TARGET RANGEREPLICATE: N=NO CHANGE, R=RELATIVEGLOBAL: C O R FCOLUMN WIDTSʽSbʽSaS L`R)"8"HH7) ` d .L`qrH Gh4Y`G@SAS G?SSRR Q.` . LtL?S?SH@SHASH dhASh@Sh?S  .`l@SLLLLRDE`  PLEASYPELVQm N  [ v #LG`BSS ?> G,Q RRR0 .'`H lhšSʽS SS` LE` L: #0 .'`` 0 -`)L)ɀL桮BSLGR)H hLL SL6S6SS`S`ʽSLb ʽS桎S`PZؠZZmHZPZȌQZmm  && !'7k6hh(h` 0+v\>3>l  )]WLk( ;`u cZZ(   `  d                               VL fXLdf]LdL fbL fdL ffL L fhL L L fjL flL fnL fpL L f=L L f?L fAL L L fCLdfHLdfMLdfRL L L L fTL L L L fLdfLdf LdfLdfLdfLdL f!L f#L L L f%Ldf*LdL f/Ld f4L L L f6L f8LdL _ b ac b a b > +c T` a > +c T (` > c T e  `Lc0 @ c  (HF  L /?@*j12?w8eL eLdeLdf e L],B ]  b a ^` a 8 ^ la D F`` ^L1^TOO LONG (^  _ e LO^DELETE H^  e  e  L^*****COMPILATION TERMINATED o^  L[ (` > c T e  e L^*****FATAL ERROR ^  ` d _ d G d 555555 555(5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5(#5-#52# 67#6<#*6F#>6P#V6Z#6d#6n#6x#6#6#+7#B7#Y7#p7#7#7#7#7#8#8 V0 [0 0 0 0 0 00000001R2222222#3T3u3333K4N4pO4zO4O4^4^4v44444 555555"5<5$?5.@58@5B@5L@5VC5`]5j`5ta5~a5a5a5d5~5555y""""(#-#2#<#F#P#Z#d#;n#Ix#u######9#<#N#w##&0:lv,Jtz4>HR\f m` j  Z Z Z Z          & 2 o            *8 = @ $A .A dA e j t ~  .Y 2(F2Z<nFoPoZodonx     em"n,n6n@n|g&&  ; 1(27);"A";(5)#09((4);"RUN HELLO"LTLL U tpt 'L(L)INES OR (C)IRCLES?    LC  5  L     'L6WHAT IS THE FIRST POINT?       'LkWHAT IS THE SECOND POINT ? P    9  'L LINE COLOR               INT PAY PRIN PAY TOT INT BAL."6 ,S 6MO$(II);"-";JJ;41);BAL^ @I1Mi JJ1Nu TIIII1 ^II13370 hII1:JJJJ1 rFINRBAL |TIFINTI FESSPAYFIN FESSBAL510 FESSBAL F1$MO$(II) AJJ:M2:D=ooppȆbcĂbUVdf08ophLД8= 7MLdlkȄmn;op:E UUȥViлh8HH`Ї{y SՠUEowyywxzzxwIy:e \`fH,Hops8otpf,kiUliVU$f&łmUŁfbUȥcUUŭUVŮMvłGUŁ>UV2ЅUŕȱU喰!0UUdUV0*UiUViVUmVnɊȢwU0ХyyUU⥁œ.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH     AL  _L _L _L _L _L _L _L 8  {f8  f 8  8  8  f8  f 8AL 8L 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8AL 8_eLd_jL _lLd_qL _sLd_xL _zL _|Ld_L _L _L _L _L _L _L _Ld_L _L _L _L _Ld_Ld_L _L _L _LfrLdfwL fyL _-L _/Ld_4L _6L _8L _:L _L _@Ld_EL _GLd_LL _NLd_SL _UL _WL _YLd_^L _`Ld) M6a(ϠĠӠ)Q *4>H&R>\Af_pdzhhhhqvv   $ . 8 B L V :` {j t ~        , , , , `     ( 2 < F P Z /d Un {x   (2<4F@PJZKdKnKxKW` "2,J6h@JT^h&0:DNX"bla )DVI K Y k y             * 4<>MHPRb\sfvpz 3Vy}$.8 B/L4`7j8t8~88ixxxx  (2<FOPgZgdnx 0 6 6 6 6 6 b    T " , 6 @ J T ^ h- jD r |                & 0 : D N X b l v+ 9 ) DECIMAL ALIGNMENT SUBR$\ A=VALUE M=NO OF DIGITS D=NUMBER OF DECIMAL PLACESb(S(A):ARS.510D:A$("-",2S)(((AAR))):(DD10)(D9A(A))A$A$"."((AAR)("0000000000",1D(D9)),(A$)2(A((A))),D)' A$(S2)"RUN TASC"L MN$(3)" 3. INITIALIZE EPSON PRINTER":PN$(3)"RUN VISIPRT"f ,N3: MENU ELEMENTS| 6I1N:MN$(I):I @A$:A(A$):D$; JD$;PN$(A)E  D$(4) MN$(9),PN$(9)(d:An3:"VISICALC & TASCfx5:"APPLE II+ (48K) DOS 3.3"n:"======================================="MN$(1)" 1. VISICALC 1.27 ":PN$(1)"BRUN VISICALC" MN$(2)" 2. TASC COMPILER":PN$(,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L  8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH` ,խwqq膸 J즸 , :hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hw0У8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBЍw U  yUUwyVxz`Зԥwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eУk ЮU 4Г U 5,wЅƩѤ wU! 5BA$(I)(13);::PAPA1:DD$:(PAEA)EAPA1:DD$"WRITESOFTWARE 1,R0":EA:DD$"CLOSE":OA0&M$"HAVE YOU FINISHED?":230:A3600310:PA1D::2:14:"SOFTWARE INDEX"::3:14:N114:"-";::5:12:"CHANGE DATA RECORD":6:1:N140:"-";A(A$(9)):M6:D2:250:(A$)3755000:A$(9)((A$)):A$(10)(A$(10),20):A(A$(11)):M5:D0:250:(A$)3755000:A$(11)((A$)):A$(12)(A$(12),1)21::(OA)ĺDD$"CLOSE":OA1:DD$"OPENSOFTWARE 1,L101,S6,D1"ZDD$"WRITESOFTWARE 1,R"PA:I112:19:30:A$"26":30:OKA$(9)A$TM$"IS THIS CORRECT Y OR N":230:MDA:A390eA$(11)(PA)222,200:A$(1)(A$(1),30):A$(2)(A$(2),2):A$(3)(A$(3),2):A$(4)(A$(4),3):A$(5)(A$(5),1):A$(6)(A$(6),3):A$(7)(A$(7),1):A$(8)(A$(8),15):30:A$"B2":30:OKA$(3)A$A12:9:A$"B3":30:OKA$(4)A$f12:18:A$"B1":30:OKA$(5)A$12:34:A$"B3":30:OKA$(6)A$12:38:A$"B1":30:OKA$(7)A$16:10:A$"B20":30:OKA$(10)A$19:9:A$"B15":30:OKA$(8)A$!FILE TYPE":10:16:"FILE FUNCTION":12:2:"DISK #":12:13:"SIDE-":12:21:"BACK-UP DISK":12:37|"-":14:11:"SPECIAL REQUIREMENTS":19:2:"VENDOR":19:25:"COST"8:7:A$"B30":30:OKA$(1)A$10:12:A$"B2":30:OKA$(2)A$10958:23:12:"COMMAND REQUIRED ";lT23:29:A$"01":30:A(A$):AA4340::P0:LC0:A350,570,1050,270x^PAEA1h::2:14:"SOFTWARE INDEX"::3:14:N114:"-";::5:12:"DATA ENTRY SCREEN":6:1:N140:"-";::8:2er"FILE":10:2:""DATA MAINTENANCE MENU":7:7:N128:"*";:@8:N16:7:"*";:34:"*"::7:14:N128:"*";::9:9:"ADD A RECORD.........<1>":10:9:"CHANGE A RECORD......<2>"!J11:9:"DELETE A RECORD......<3>":12:9:"RETURN TO MAIN MENU..<4>":22:1:ɖ9:"FILE MAINT. UTIL.....<4>":13:9:"END OF PROCESSING....<5>":22:1:958:23:12:"COMMAND REQUIRED ";,23:29:A$"01":30:A(A$):AA5300::P0:LC0:A310,1420,1820,1820,1840.6::2:14:"SOFTWARE INDEX"::3:14:N114:"-";::5:10:4:"SOFTWARE INDEX"::3:14:N114:"-";::5:16:"MAIN MENU":7:7:N128:"*";::8:N17:7"*";:34:"*"::7:15:N128:"*";::9:9:"DATA MAINTENANCE.....<1>":10:9:"DATA SEARCH..........<2>":11:9:"PRINT REPORTS........<3>"l"12:v5555 555(5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5(#5-#52#57# 6<#6F#/6P#G6Z#s6d#6n#6x#6#6#7#37#J7#a7#7#7#7#7#8#8 y0 z0 z0 0 0000000w1C22222223E3f3333<4?4p@4z@4@4O4O4g444444555555-5$05.15815B15L15V45`N5jQ5tR5~R5R5R5U5o5r5s5s5s5s5<#8F#LP#dZ#d#n#x## #9#P#g#~#######X-X-X-[-u-x-y-y-y-y---$-.-8-"-"-"-"-"-"-"-"-"-"-"-"-"-"-"-"-"-"-"-"-(#--#-2# .7#.<#,.F#@.P#X.Z#.d#.n#.x#.#/#-/#D/#[/#r/#/#/#/#/#0#0 .&.&j& &*&,P'.'0'4L(\_(f_(p_(z_(z(((,)?)Q)))A*$t*.t*8t*Bt*L*V*`+X,b,l,v , ,8,d,,,,,,,,,,,,- -- -*-4->-H3-R6-\7-f7-p7-z7-:-T-W-X-          H H  H  H  ] " i , 6 !@ G"J S"T S"^ S"h S"r "| " " " ,# /# Y# # # #####-$>$P$P$P$P$P$v$$$"$,$6%@"%h<%?%?%?%?%H%_%%%%%"&.&.&$A$,M):A$("%"A$,1((A(A$))1)):9:(A$(7)S$,1):13:11:(A$(2)S$,2):13:29:(A$(3)S$,2):13:39:(A$(12)S$,1):18:11& (A$(10)S$,20):21:8:(A$(8)S$,15):21:31:A(A$(9)):M6:D2:250:A$&M$"DO YOU WISH TO CONTINUE SEARCHING":230:A1200 'M$"OK TO DELETE?":2PE":13:15:"FILE FUNCTION":13:32:"STATUS"s%16:11:"SPECIAL REQUIREMENTS":21:1:"VENDOR":21:26:"COST"%5:20:A(A$(11)):M5:D0:250:A$:7:5:(A$(1)S$,30):10:6:(A$(4)S$,3):10:15:(A$(5)S$,1):10:30^&(A$(6)S$,3):10:3APA1:DD$2$((A$(1),1,(S$(1)))S$(1))1200A$A$(12)"D"$::2:14:"SOFTWARE INDEX"::3:14:N114:"-";::5:1:"DATA RECORD NUMBER":7:1:"FOR":10:1:"DISK".%10:10:"SIDE":10:17:"BACK-UP DISK":10:34:"SIDE":13:1:"FILE TY:"-";::9:2#"FILE">#9:7:A$"B30":30:OKA$(1)A$r#M$"IS THIS CORRECT Y OR N":230:MDA:A1170#S$(1)A$(1)#21::(OA)ĺDD$"CLOSE":OA1:DD$"OPENSOFTWARE 1,L101,S6,D1" $PAEA1400:DD$"READSOFTWARE 1,R"PA:I112:A$(I)::P):N(1)0V"`PAEA1400:21::(OA)ĺDD$"CLOSE":OA1:DD$"OPENSOFTWARE 1,L101,S6,D1""jDD$"READSOFTWARE 1,R"PA:I112:A$(I)::PAPA1:DD$"t1230#~::2:14:"SOFTWARE INDEX"::3:14:N114:"-";::5:12:"DELETE DATA RECORD":6:1:N1401u!$::2:14:"SOFTWARE INDEX"::3:14:N114:"-";::5:12:"DELETE DATA RECORD":6:1:N140:"-";::9:2!."RECORD NUMBER"!89:16:A$"05":30:OKN(1)(A$)!BM$"IS THIS CORRECT Y OR N":230:MDA:A1080!LN(1)01150"VPAN(1R"PA:I112:A$(I)(13);::PAPA1:DD$:(PAEA)EAPA1:DD$"WRITESOFTWARE 1,R0":EA:DD$"CLOSE":OA0 M$"MORE CHANGES?":230:A570 310 ::2:14:"SOFTWARE INDEX"::3:14:N114:"-";:::10:12:"RECORD NOT ON FILE": 1010!PAA$(8),15)A(A$(9)):M6:D2:250:(A$)3755000:A$(9)((A$)):A$(10)(A$(10),20):A(A$(11)):M5:D0:250:(A$)3755000:A$(11)((A$)):A$(12)(A$(12),1)21::(OA)ĺDD$"CLOSE":OA1:DD$"OPENSOFTWARE 1,L101,S6,D1"g DD$"WRITESOFTWARE 1,A$(8)A$.21:31:A$"26":30:OKA$(9)A$aM$"IS THIS CORRECT Y OR N":230:MDA:A830rPAPA(PA1) 222,200:A$(1)(A$(1),30):A$(2)(A$(2),2):A$(3)(A$(3),2):A$(4)(A$(4),3):A$(5)(A$(5),1):A$(6)(A$(6),3):A$(7)(A$(7),1):A$(8)(A$(f10:30:A$"B3":30:OKA$(6)A$Mp10:39:A$"B1":30:OKA$(7)A$rz13:11:A$"B2":30:OKA$(2)A$13:29:A$"B2":30:OKA$(3)A$13:39:A$"B1":30:OKA$(12)A$18:11:A$"B20":30:OKA$(10)A$ 21:8:A$"B15":30:OK     o    o 1 #  #                  9    ! - E LI    ! L) 1 #LLc{MjLd LdLdLd  * l E &` K f i    !  ` 'LCENTER POINT:   x    'LRADIUS:      'L7DENSITY,STOP : '           #       p s  u # | s   #        ! - E L    ! L   H ! 6 Z         K  L$  n  K H ]  LG ] Z  n  K T L K * ] H - Z          B i  *`    !   l W i -$)));F6$;" LAST PAYMENT ";F7$# 4 BALBALFESSD BAL0.600K J[ F1$MO$(II)x &AJJ:M2:D0:640:F2$A$ 0AFIN:M6:D2:640:F3$A$ :AFESS:M6:D2:640:F4$A$ DATI:M7:D2:640:F5$A$ NABAL:M8:D2:640:F6$A$MXF1$;"-";F20:640:F2$A$, AFIN:M6:D2:640:F3$A$J ABAL:M8:D2:640:F4$A$g ATI:M8:D2:640:F5$A$ ABALBAL:M8:D2:640:F6$A$ ABALFIN:M8:D2:640:F7$A$ F1$;"-";F2$;4(8(F3$)));F3$;4(8(F4$)));F4$;4(8(F5$)));F5$;4(8(F6E200M$"BAD DATA '"A$"'"E6׭E255M$"WHAT DO YOU WANT MASTER"n6(׭(M$)M$"ERROR NO."(E)" FOUND"62M$M$" AT LINE "(L):H((40(M$))2):21::958:H:M$:1054:E5L5E4ĺDD$"WRITE"F$",R0":0:DD$"CLOSE":DD$"OPEN"F$",L"R:DD$"READ"F$",R0":w5֭E8M$"DISK READ/WRITE ERROR"5֭E9M$"DISK FULL"5֭E16M$"INVALID COMMAND"5׭E176M$"FIELD DATA TOO LONG"5 ׭E133M$"INVALID DIVISION BY ZERO"600k4ZÆA$(12),N(1),N$(3),S$(12):U$(95):B$(8):S$" ":T05:U$U$U$:S$S$S$:B$B$B$::DD$(4):::4dúDD$"CLOSE":F$"SOFTWARE 1":R101:DD$"OPEN"F$",L101,S6,D1":DD$"READ"F$",R0":EA:PAEA1:OA1:DD$:270S5E(222):L(218)(219)256:M$"":--------......Q.R.$R..R.8R."i."i."i."i."i."i."i."i."i."i."i."i."i."i."i."i."i."i."i."i.(#i.-#.2#.7#.<#.F#.P#.Z#/d#I/n#W/x#/#/#/#/#/# 0#G0#J0#\0#0#0#0~&&&& &&& '*','.7(0(4(\(f(p(z( )*)H))))4***$+.+8+B+L%+V<+`,X,b,l,v,,,,)-=-Q-e-y-------- -- -*-4->-H-R-\-f-p-z-n  x 4 C F I X [ `    " , !6 W"@ "J "T "^ "h "r #| $# 3# J# # # # m$ p$ $$$$$$$$$$$$ %&%5%"O%,i%6%@%h%%%%%%%&8&^&  *4,>2HCR[\^f|pz-00   $ . 8 -B .L .V W` j t ~        I I I I }      4  ( 2 < F P Z d  (27<QF]PgZhdhnhxht}&:;;;;"O,g6@JT^h&0:D-N3X?bl~= 5FasfV h v             *4Y>jHmR\fpz$'Ps$.%8(BLLQ`TjUtU~UU (2<FOPgZgdnx 0 6 6 6 6 6 b    T " , 6 @ J T ^ h6 jM l r |           + .    & 0 : D N X b l vH ]LdbLdgL iL kLd8  s28  r28qL 8sL LdLd#Ld(Ld-Ld2Ld7Ld* T689 9/7  o 7999"9  o 7%91949(9  o 6:9F9I979  o 7O9[9^9 9  o N7d9p9s9R9  o 7y999g9  o v89996 L7x577 o 7 f5 L7B2 77 77L7l577 o 7 `7 L7B1 77 77L8578 o 5 7 L18B20 -88 8 8LP8Z7868 o 5 5 Lc8B15 _8J8 :8<8L8V8G8h8 o P8 5 L826 8|8 l8n8L85y66 66L6566 o 5 5 L6B3 66 66L6466 o 6 5 L 7B1 76 66L)7667 o 6 4 L;7B3 87#7 77LZ76 7@7 o )7 5 Ll7B1 i7T7 D7F7L76Q7q7 o 5 6 L7B2 77 u7w7СB5 555 ^4   94 p+ 555 4   5  05 m4+s4+y4 }44  LE6!DO YOU WISH TO CONTINUE SEARCHING #61 16LJ21 $ 4 5 Lv605 s66 00L655{6 o $5 d6 L6B30 ]3 p0 +44 ~2   4 3 444 4   4 4 444 4   4  455 4   3 d4 R2'5*5 H5   <5 &  5K5N5 T5   `5 5 1o5r5 05   a) L3 FILE FUNCTION 3  3  L3STATUS 3  y. , L 4SPECIAL REQUIREMENTS 3  81 3 L.4VENDOR '4  4  LM4COST H4  2 + 32 1++/+ +0  2 X4 4g4 *   C0 2 L2DATA RECORD NUMBER 2  0 2 L2FOR 2  + 2 L 3DISK 3  2 3 L+3SIDE &3  3  LR3 BACK-UP DISK E3  63 ) Lq3SIDE l3  , 2 L3 FILE TYPE 3  |3 v+  L1READSOFTWARE 1,R 1 1 a /1//I0   '1 21  o  1 1f111  11!2,1  22 #2 4&2)2252  $L X w0 (0 Lp2SOFTWARE INDEX a2  s0 X2 82002  L2- 2  1     R 1(9);"0N";I(27);(64);(27);"N";(66);(27);"Q";(80)P0L  )(D9A(A))A$A$"."((AAR)("0000000000",1D(D9)),(A$)2(A((A))),D)A$(S$A$,M):A$("%"A$,1((A(A$))1)): YY@YYYY - LONLY 1 ITERATION      F     8  o 1 F  F     6  $L   $       Lw  8  o   LN    1 F  a LPRIMES   LcJ J 8D LJ01 JF ?J  H $I&J J   XG[&Ja&J q&GG X wH I L7KSOFTWARE INDEX (K  sH K xJIIKK  LgK- eK  1 I I LKSEARCH BY FILE/PROGRAM NAME K  sI H kInInIJI  LI* I  1 yH AF LJFIND FILE NAME.......<1> I  F I L4JFIND DISK NUMBER.....<2> J  RG J LgJRETURN TO MAIN MENU..<3> NJ  % I % 8& ?J LJCOMMAND REQUIRED  wH [H LHSOFTWARE INDEX H  sGH H SHVHVHH  LH- H  1 E H L+IDATA SEARCH MENU I  E 6I HHH$  LXI* VI  1 F BIEIEIE  9 TnDDlEoEC  o JDuEEEE  o >DEEEE  o ]S]S]S]S$^T.^T:5=5W5Z5[5 [5[5[5(5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5"5(#5-#52#57#5<#5F#5P#6Z#@6d#l6n#z6x#6#6#6#7#7#.7#j7#m7#7#7#7#7 0 @0 A0 A0 `0 `0000000>1 22222222 3-3M3j3m344p4z4444.4Z444444444444$4.484B4L4V4`5j5t5~55556595:5:5:5<#F#ρP#Z#d#?n#Mx#y###ӂ#ꂪ##=#@#R#{##0;{:;{l;{ve{.|p|||||| }#}&}D}I}4M}>M}HM}RM}\V}f[}}};~L~c~>Hu` j      T W i   3 < < [ [""""(#-#2#ttt$t.tdteuj$u~1uxuuu-v.v.v:vCvsvvvv vvv(v2v<wFwPwZwdwnwx-wKwiwwwwwwwwwwwww"x,x6x@x|ExFxFxFxFxUx[xgxxyezz8{&;{ odonoxoooooopUpmpppp0qpqqqqOr`rtr rr^rhrrrrrrrss s s s s s&Js0Xs:jsDxsNsXsbslsvsssssst tt tftp6tzJtStttt< 1(9);"0N";3(15);(27);"A";(4);:0LLf STRING JUST SELECTED.1C%B:D%Q%(B):1530@E%01300`DD$;"READ SORTSTRING,R";E%k1260vZ$(B)DD$Q%(B)Q%(B)1216,0:KILL ONERR1320216,0:KILL ONERR790:FIX ONERR(222)51920Z$(B)"" H%,I%)11001060D((Z$(E%),H%,I%))((Z$(F),H%,I%))1080s((Z$(E%),H%,I%))((Z$(F),H%,I%))1100z$G.11308J%11130B1120LJ%01130V1120`BFjAtZ$Z$(B)~Z$""1320GET NEXT RCD FROM SUB- -EMPTY RCDE%Z%1140(FA1Z%;Z$(F)""970BFQBE%:1140WeG0S%1H%T%(G,0):I%T%(G,1):J%T%(G,2)T%(G,3)11040: NUMERIC FIELD IF=1(Z$(E%),H%,I%)(Z$(F),H%,I%)1080 (Z$(E%),H%,I%)(Z$(F),F EACH STRINGA1Z%3C%A:D%1:1530SDD$;"READ SORTSTRING,R";E%^ Z$(A)gDD$s Q%(A)2z*A4830>HOBTAIN THE NEXT RCDRB1Z%\Z$(B)""890fBpB1:1140zABZ%1E%B FIND NEXT NON(AD%3)0708-DD$;"OPEN ";A$;",L5"6710TDD$;"OPEN ";A$;",L";U%1nOPEN THE STRING FILEO%A%WK%1Č1059::"FMA6 INSERT WORK DISKETTE & HIT RETURN ";IN$DD$;"OPEN SORTSTRING,L";U%1;",S";SL%;",D";A% READ 1ST RCDS OEXISTS";::" - ACTION? ";B$+XB$""590;bAC$(B$,1)OlB$"AGAIN"480wvB$"DELETE"ĺDD$;"DELETE ";A$:700B$"CANCEL"A$"":830B$"APPEND"590DD$;"OPEN ";A$DD$;"READ ";A$RC%:700216,0:790:(222)61920O%1O%2490dO%1SL%PL%WK%1:SW%1:OP%1::"FMA2 INSERT OUTPUT DISKETTE & HIT RETURN";IN$O%0A$(A$,(A$)2)&O%0O%10690:DD$;"RENAME ";A$;",";A$;",S";SL%;",D";O%D216,0N1059::"SM22 THAT FILE ";::"ALREADY B$(A$,(A$)2)d(B$,1)"A"(B$,1)"Z"Č1059::"FMA22 ";::"ILLEGAL";::" FILE NAME":481(A$)3(A$,2,1)":"ĭ(A$,1)"1"(A$,1)"2"Č1059::"FMA32 DISK DRIVE # ";::"INVALID"::481(A$)3530(A$,2,1)":"O%((A$,1)):<#́F#P#Z#%d#Qn#_x###΂#傠###O#R#d###0M{:M{lM{vw{@|||||} }}5}8}V}[}4_}>_}H_}R_}\h}fm}}}M~^~u~PZ` j       f i { Ā    ( E N N m m""""(#-#2#ttt$t.tdteuj$u~1uxuuu-v.v.v:vCvsvvvv vvv(v2v<wFwPwZwdwnwx-wKwiwwwwwwwwwwwww"x,x6x@x|ExFxFxFxFxUx[xgxxywzzJ{&M{     0) CI(1)CS(1)(1DICM(1))(AGCM(1))B TI(1)DICS(1)TX(1)p CI(2)CS(2)(1IN(2)CM(2))(TM(2)CM(2)) TI(2)IN(2)CS(2)TX(2) DRDR.01 "PPV ,I(DRIN(1))(1IN(1)) 6AP(((1I)AG1)(I(1I)AG))TI(1) @F(DRIN(2))(1IN";SW nSW0760 x9 "CURRENTLY HELD INVESTMENT"Z "--------- ---- ----------"b N1k 520q "DEFAULT INTEREST RATE (%) ";DI DIDI100 "EARLY WITHDRAWAL PENALTY ";PN "AGE AT SWITCH (MO) ";AG AGAG12 DR0:PVг # INVESTMENT ANALYSIS PROGRAM)XCI(3),CS(3),CM(3),TI(3),TX(3),IN(3),RO(3)("USER'S INCOME TAX BRACKET (%) ";TA2TATA100<"PROPOSED NEW INVESTMENT"F"-------- --- ----------"PN2Z520 d"ANALYZE SWITCH? 1=YES 0=NO     I QK KTKTKC?  LK- K  1 EJ K LKNAME K  K zK L LB30 LJ J?L*LKaGL o LDLIS THIS CORRECT Y OR N -LH HK $?OL $LL@cL!L o F  G $L$G LLCLOSE L  K{LL  T FILEh# PUT A ZERO IN RCD #0 OF THE OUTPUT FILE TO INDICATE THAT THIS IS NOT A SORTED INDEX FILE.#DK$;"WRITE ";O$;",R0"#0#DK$;"CLOSE"'C DK$!O%O%1:BUMP REC #'WA(# TERMINATION ROUTINEb2# VARIABLES PASSED ON ENTRY:{<# I$=INPUT FILE NAMEF# O$=OUTPUT FILE NAMEP# VARIABLES PASSED ON EXIT:Z# NONE# CLOSE THE FILES#(O$)09200: JUMP IF NO OUTPU O$=OUTPUT FILE NAME9 O%=OUTPUT RECORD NUMBERX VARIABLES PASSED ON EXIT| O%=NEXT OUTPUT RECORD NUMBER PROCESS THE RECORDd OUTPUT RECORD #i(O$)06540: JUMP IF NO OUTPUT FILEnDK$;"WRITE ";O$;",R";O%x(Z$,4)Z$=RECORD TO BE EXAMINED8 VARIABLES PASSED ON EXIT:Y Z$=RECORD IF OK TO PROCESS} Z$=NULL IF RECORD IS BYPASSED EXAMINE THE RECORDp PROCESS THE SELECTED RECORDz VARIABLES PASSED ON ENTRY: Z$=RECORD TO BE PROCESSEDEOF4 GET A RECORD1> FIRST, CHECK FOR EOFKHZ$"": PRIME Z$=NULL\RI%NR%2999x\DK$;"READ ";I$;",R";I%fZ$:GET RECORDpDK$:RESET READzI%I%1:BUMP REC #  EXAMINE THE RECORD VARIABLES PASSED ON ENTRY: -...... .%.(.).).).).h.i.$i..i.8i.".".".".".".".".".".".".".".".".".".".".(#.-#.2#.7#.<#.F#.P#/Z#4/d#`/n#n/x#/#/#/#/# 0#"0#^0#a0#s0#0#0#0&&&& &&' 2'*','.N(0(4(\ )f )p )z )$)A)_))))K***$+.+8+B+L<+VS+`,X,b,l,v,,,-@-T-h-|--------- -- -*-4->-H-R-\-f-p-z-n  x 4 C F I X [ `    " , !6 W"@ "J "T "^ "h "r #| $# 3# J# # # # m$ p$ $$$$$$$$$$$$ %&%5%"O%,i%6%@%h%%%%%% &/&O&u&  *4,>2HCR[\^f|pz-00   $ . 8 -B .L .V W` j t ~        I I I I }      4  ( 2 < F P Z d  (27<QF]PgZhdhnhxht}&:;;;;"O,g6@JT^h&0:D-N3X?bl~= 5FasfV h v             *4Y>jHmR\fpz$'Ps$.%8(BLLQ`TjUtU~UU (2<FOPgZgdnx 0 6 6 6 6 6 b    T " , 6 @ J T ^ h6 jM l r |           + .    & 0 : D N X b l vH (2))3 JPP(((1F)TM(2)1)(F(1F)TM(2)))TI(2)_ TPV(CI(1)PN(1TA)CM(2))(1DR)AGAP ^PVPVCI(2)(1DR)(AGTM(2))PP(1DR)AGCS(1) hPV0280 rRO(3)1000(DR(.01PV(PPV))) |RO(3)(RO(3)).5RO(3)RO(3)1 RO(3)(RO(3))@ALdFLdKLdPLdULdL LdL LdLdLd8  Z DD*E(NE2QE<`EFFPFZGdGnHxHHHIKJJ KKKK*LcLrLw///000)18112L233 X45 5* 64X6>d6H6R6\6f)7pZ7z7778P888889W::;;;D<G<$M<.=82=Bf=L=V=`=j6>t>~>j?}????Y@@ AAAB*CC (2D<FPZdnxY-kc !!"",u#6#@$Jp%T&^s&h|&rD'|((((*)[)))) *R****+',,&Y-0-:-D-NW.Xs.b.l.v./<#́F#P#Z#%d#Qn#_x###΂#傠###O#R#d###0M{:M{lM{vw{@|||||} }}5}8}V}[}4_}>_}H_}R_}\h}fm}}}M~^~u~PZ` j       f i { Ā    ( E N N m m""""(#-#2#ttt$t.tdteuj$u~1uxuuu-v.v.v:vCvsvvvv vvv(v2v<wFwPwZwdwnwx-wKwiwwwwwwwwwwwww"x,x6x@x|ExFxFxFxFxUx[xgxxywzzJ{&M{ odonoxoooooopUpmpppp0qpqqqqOr`rtr rr^rhrrrrrrrss s s s s s&Js0Xs:jsDxsNsXsbslsvsssssst tt tftp6tzJtStttt(1)ĺ" (BEST OPTION)"; # 0, 820=  SUBROUTINEX "INITIAL COST ";CS(N){ "INVESTMENT LIFE (MO) ";TM(N) &TM(N)TM(N)12 0"STATED INTEREST RATE (%) ";IN(N) :IN(N)IN(N)100 D"INTEREST COMPOUND PERIODS PER YR ";CM(N)N"I10 1 830 M "++++++++++++++++ OUTPUT DATA ++++++++++++++++" "CURRENT INVT. HELD TO MATURITY -- NET ROI = ";RO(1);"%" RO(1)RO(3)ĺ" (BEST OPTION)";  "SWITCH FROM CUR TO NEW INVT. -- NET ROI = ";RO(3);"%"; RO(3)ROl n]9V (W L 5   +. $LY (  t  1 L$ " Kri 2 1 , $ $GPL $LN   I/jg $p> S $  $     5   nj  $  $A    (    $   $L $#  )? $Q $Zc f 1 L-) ~ '     u  s  1  $ $  1L(  1  `  $L< ;  1 /,Y LLl. j DG \ 1 }M $w  1 .L Gw  L.   1   1   5   n  L $  &t (1 =4 $C OF $U aX $g  +  5 L}L. 5 $'DK$:"ERROR...CANT READ DATA FROM":"VISICALC REPORT FILE:";VF$O)'9999.'"ERROR...VISICALC FILE NOT COMPATABLE":"WITH SPECIFIED COLUMN WIDTH & COUNT!"3'9999T NEXT FIELD*FV$(R$,(J1)RL%1,RL%)4FT%0YZ1RL%:(FV$,Z,1)(57)FT%1`ZnF2(FV$)t'"ABORTING...":800:450' HANDLE FATAL ERRORS'DK$:"ERROR...CANT READ LABELS FROM":"VISICALC REPORT FILE:";VF$'9999EF)" :8+"FILE CONVERSION PROGRAM"3129@4 FW GET RECORDa R$""m 10020 DK$;"READ";VF$;".VIS" A$:A$(13)2550 R$R$A$ 2520 DK$ 216,0 (R$)(RL%NF%)10030    GE IS THE COLUMN":"WIDTH ON THE REPORT?";RL%18 ? F LRxj SKIP REST OF LINEA$:A$(13)1510 INITDK$;"NOMON C,I,O":5:12:"VISICALC (TM)"18:"TO"5"DATA INTERCHANGE FORMAT (DIF$SF$".DIF">i"DRIVE # (CR FOR 1):";QQ$:(QQ$)0QQ$"1"MjDS%(QQ$)jkDK$;"OPEN";SF$;",D";DS%ppwz  GETMISC:"HOW MANY COLUMNS":"DOES THE REPORT COVER?";NF%:"HOW MANY ROWS DOES":"THE -DATA- COVER?";NR%+:"WHAT%%8%;%<% <%<%<%(o%dp%np%xp%p%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%(#%-#%2#%7#%<#%F#%P#&Z#;&d#g&n#u&x#&#&#&#&#'#)'#e'#h'#z'#'#'#'  ! " " A A o o o o   !!n"z"z"z"z""""#.#K#N###p#z####$;$g${$$$$$$$$$$$$.$8$B$L$V$`$j$t$~$$$$%%%%%39Jbe4>HR\fpz7::%78 8 a $ . 3 8 B D L ` j  S S S S           0 V |        (2<FPZdnx+Igu3D",6@|M M&0:DNS'X<bMdhlzvm N X" bL lU v[ \ \ \ \           +BH ru u*u,4>HR\Qafp5zIR!+,,,,8Aq   NTEREST TAXED? 1=YES, 0=NO ";T-XTX(N)TATTb"FACE VALUE OF INVESTMENT ";FC(N)alCPFC(N)vvFC(N)CS(N)650CPCS(N)(1IN(N)CM(N))(TM(N)CM(N))TNIN(N)CS(N)TX(N)DR0:PV0DRDR.01PPVG(DRIN(N))(1IN(N))="    * READ FFILEF6000: RESET MAINTFILE^216,0: KILL ONERRhOF%0yQ2120326(TP$,Q,1)" "4160OF%OF%1OF%NF%10300FS%(OF%)((TP$,Q20,3))FL%(OF%)((TP$,Q23,3))Q416R$CR$(C$,FL%(J))/4Q(C$)FL%(J)1=>C$C$" "DHQ]RCR$CR$(C$,FL%(J))cfj q x`  GETSDREC DK$;"READ";SF$ A,B C$ ((C$,1))162C$(C$,(C$)1) DK$  CLOSE UP DK$;"CLOSE^C$"BOT"ī1800: ERROR 1 +hCR$""1r8 ? M ERROR 1x"ERROR - DIF FILE OUT OF ALIGNMENT""ABORTING...":DK$;"CLOSE"& ADDFIELD2RECRDA02100C$(B)Q(C$)FL%(J)1C$" "C$Q CRITE";PF$!)(OPT$,1)"U"10753.RC%NR%:990H3RC%NR%RC%NR%V5RC%:990\Lc y POSITIONPFILE(OPT$,1)"A"RC%0DK$;"OPEN";PF$;",L";RL%;",D";DP%  , @ SKIPBOTT2500: GETSDREC OPEN";PF$;",D";DP%'DK$;"WRITE";PF$0NR%9RL%BDK$HT10020qDK$;"OPEN";PF$;",D";DP%DK$;"READ";PF$RC%:OL%RL%OL%10010QQ216223:QQ,0:QQ:QQ244248:QQ,0:QQDK$;"OPEN";PF$;",D";DP% $DK$;"WDK$5QQ216223:QQ,0:QQ:QQ244248:QQ,0:QQ;B I P Vb10050(OPT$,1)"R"ĺDK$;"DELETE";PF$;",D";DP%RL%FS%(NF%)FL%(NF%)1QQ216223:QQ,0:QQ:QQ244248:QQ,0:QQ(OPT$,1)"R"1020DK$;"1NF%:FL%(I)1788K"FIELD WIDTH FOR DMS FIELD ";I;": ";:"";FL%(I)Q^I2NF%{ FS%(I)FS%(I1)FL%(I1)*I,/4000: READ FFILE4> H R GETSRECW10100\DK$;"READ";SF$fTK$pA,BzC$;DX%;",L5"216,0%NF%0:NR%08850: GETSRECPTK$"VECTORS"750]NF%(B)tFS%(NF%),FL%(NF%)I1NF%:FL%(I)1:ITK$"TUPLES"NR%(B)TK$"SIZE"FL%((A))(B)TK$"DATA"720 FS%(1)6FH%0815I"U"6204f:"INDEX FILENAME (CR FOR NONE):";XF$Fg(XF$)0620wi"DRIVE # (CR FOR 1):";QQ$:(QQ$)0QQ$"1"jXF$XF$".INDEX"kDX%(QQ$)lv    READHEADERS(XF$)071010700 DK$;"OPEN";XF$;",D"#I(#`(#w(#(#(#(#(#)#) && &*&4&>&H8&R;&\<&f<&p<&z<&?&Y&\&]&]&]&]&`&z&}&~&~&~&~&&&$&.&8&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&(#&-#&2#'7#'<#1'F#E'P#]'Z#'d#'n#'x#'#(#2(     ( 2 < F # P 4 Z Z d n x %! &! &! E! E! s! s! s! s! !" !, #"6 "@ r#J ~#T ~#^ ~#h ~#r #| # # # W$ Z$ $ % % )%X*%b*%l*%v9%9%Q%}%%%%%%%%%%%&+@Ql~q  * 47>=HNRf\ifpz;>>   $ . )8 ;B <L <V e` j t ~        W W W W    (2<F%P/Z0d0n0x0<Eu",/6M@kJyT^hr|7H&0:DNXblQvQ- ; M [             * 4>/H2RD\UfXppz8[_bz$.8BLV`jt~N]]]] (2<FOPgZgdnx 0 6 6 6 6 6 b    N " , 6 @ J T ^ h r2 |5 5 5 5 d u x       e n   & 0 : D N X b l v  ,D";DF%" DK$;"READ MAINTFILES". 100107 TP$C 10000^ FF$(TP$,2,10)3030i 216,0o u {  H  HOW MANY INDEXES (XF$)0ı 10100 DK$;"OPEN";XF$;",L5,D";DX% DK$;"READ";XF$;",R1" QQ$2:775,152:776,72:777,96 '4 . 5 <` P GETRECRDAYTAc (XF$)02508 DK$;"READ";XF$;",R";I% R%:2510 R%I% DK$;"READ";PF$;",R";R% TP$  T  RESETMAINTFILE DK$;"OPEN MAINTFILES INITDK$;"NOMON C,I,O"M936:5:5:"DATA MANAGEMENT SYSTEM (DMS)"[18:"TO"b5"DATA INTERCHANGE FORMAT (DIF)":4" FILE CONVERSION PROGRAM"12768,104:769,168:770,104:771,166:772,223:773,154774,78)I%11540$(IM%)11540?DK$;"READ MAINTFILES"HTP$VII%IM%1h II%1II%7yQ%II%2621CT$"S""(TP$,Q%,1)"*"CT$"N"'FT%(I%)0:CT$"S"FT%(I%)1,CI$(TP$,Q%5,15)JCL%((TP$,Q%23,3))r10)FF$1160&V(TP$,1,1)" "1050CDK$;"OPEN";PF$;",D";DP%WDK$;"READ";PF$c10020lNR%uRL%DK$;"OPEN";PF$;",L";RL%;",D";DP%DK$3500: HOW MANY INDEXESx GETNXTFIELDSPECIM%I%((I%8)    1 GETMAINTFILERECORD;3000ENF%0^Q2120326:Q%(Q)x$(TP$,Q%,1)" "1160&NF%NF%1'NF%MX%10050)FS%(NF%)((TP$,Q%20,3)).FL%(NF%)((TP$,Q%23,3))8Q=1160BTP$ L(TP$,2,%(QQ$)%kDK$;"OPEN";SF$;",D";DS%Al:"NAME OF INDEX FILE"om"(ENTER CR FOR NONE):";XF$:(XF$)0885nXF$XF$".INDEX"o"DRIVE # (CR FOR 1):";QQ$:(QQ$)0QQ$"1"pDX%(QQ$)uz  GETMISC:"TITLE OF FILE:";TT$ OF DMS PFILE:":"(ENTER RETURN IF SAME AS FFILE)":":";PF$Qd(PF$)0PF$FF$e"DRIVE # (CR FOR 1):";QQ$:(QQ$)0QQ$"1"f:"NAME OF DIF TO CREATE:";SF$gDP%(QQ$)hSF$SF$".DIF"i"DRIVE # (CR FOR 1):";QQ$:(QQ$)0QQ$"1"jDSUP*DK$;"CLOSE"4 > 'H ;R GETFILENAMESY\"NAME OF DMS FFILE:";FF$^(FF$)20863:"NAME TOO LONG":860_FF$FF$" "`"DRIVE # (CR FOR 1):";QQ$:(QQ$)0QQ$"1"aFF$(FF$,10)bDF%(QQ$);c:"NAME*)    HOUTSREC. DK$;"WRITE";SF$6 A$E B%;",";C%[ (162);D$;(162)d &DK$j 0q : x D  N X DOUTSREC bDK$;"WRITE";SF$ lA;",";B (162);C$;(162) DK$        CLOSE!%$%>%A%B% B%B%B%(%d%n%x%%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%"%(#%-#%2#%7#%<#%F# &P#!&Z#M&d#y&n#&x#&#&#&# '#$'#;'#w'#z'#'#'#'#'  ' ( ( G G u u u u   %!!t""""""""#4#Q#T###p#z####$A$m$$$$$$$$$$$$$.$8$B$L$V$`$j$t%~%%%%% %!%!%!%9?Phk4>HR\fpz!=@@+=> > g $ . 3 8 B D L ` j  Y Y Y Y     ! " " " " % 6 \         (2<FPZdnx1Om{9J",6@|SS&0:DNS-XBbSdnlvsN X( bR l[ va b b b b          1HN x{ {*{,4>HR\Wa f#p;zOX'12222>Gw   h a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 ""3000:12000.305TA1ĺ(162);!A0C$(B))C$2DK$8>pDXJ@P(#d' HANDLE ERRORSt'"ERROR : CANT READ FROM":"DIF FILE - ";SF$:"ABORTING..."u'""~'3000:12000*"ERROR...TOO MANY FIELDS/VECTORS":"ABORTING..." \+LOSE" & ` ) GETSDREC= DK$;"READ";SF$F A,BN C$s ((C$,1))162C$(C$,(C$)1)| DK$  CLOSE UP DK$;"CLOSE"     DUMPRECRDDK$;"WRITE";VF$;".VIS"">";AA$(J);I;":";">";AA$(Q);"4:/--"Q&DK$,2L9 @ G, V@ SKIPBOTkT2500: GETSDREC^C$"BOT"ī1800: ERROR 1 hCR$""r   ERROR 1"ERROR - DIF FILE OUT OF ALIGNMENT""ABORTING...":DK$;"CzC$DK$?QQ216223:QQ,0:QQ:QQ244248:QQ,0:QQEL S Z n OUTPUT LABELSDK$;"OPEN";VF$;".VIS,D";DV%DK$;"WRITE";VF$;".VIS"">";AA$(NF%);NR%;":0":Q1NF%">";AA$(NF%);NR%;":0";(162);FL$(Q)C TK$"VECTORS"750& NF%(B)8 NF%5011000F FL$(NF%)a TK$"TUPLES"NR%(B)y TK$"TABLE"TT$C$ TK$"LABEL"FL$(A)C$ TK$"DATA"720 , > H R GETSREC W10100 \DK$;"READ";SF$ fTK$ pA,B1" DS%(QQ$)$ SF$SF$".DIF"E :"VISICALC FILE NAME:";VF$v "DRIVE # (CR FOR 1):";QQ$:(QQ$)0QQ$"1" DV%(QQ$) DK$;"OPEN";SF$;",D";DS% & : D N    READHEADERS NF%0:NR%0 850: GETSREETFILENAMES & INITIALIZE/ DK$;"NOMON C,I,O"\ :5:5:"DATA INTERCHANGE FORMAT (DIF)"j 18:"TO"r 12 "VISICALC (TM)" :8 "FILE CONVERSION PROGRAM" 12 "DIF FILE NAME:";SF$ "DRIVE # (CR FOR 1):";QQ$:(QQ$)0QQ$""I ,3000: CLOSE UP 1* 4D$""Y 6"DO YOU WANT TO RETURN TO THE MENU? ";IN$n ;(IN$,1)"Y"Ĭ @:"INSERT PROGRAM DISK IN DRIVE 1 AND HIT RETURN";IN$ ED$;"RUN CONVERT,D1" J (* END MAIN *) O ^     G 2DK$""$ d BEGIN (* MAIN *)> n500: GET FILE NAMESV 700: READ HEADERSo 950: OUTPUT LABELS I1NR%:I%(I) 1600: SKIP BOT "OUTPUTTING RECORD ";I J1NF%:J%(J) 2500: GETSDREC 5000: WRITE DATA J  -----------------------% = DIF2VIS - 3/10/80E _DIF TO VISICALC FILEy CONVERSION PROGRAM (C) PERSONAL SOFTWARE----------------------- AA$(52)Q126:AA$(Q)(64Q):Q Q126:AA$(Q26)"A"AA$(Q):Q