@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u31000 RESTORE 31010:FOR X=1664 TO 1751:READ Y:POKE X,Y:NEXT X:RETURN 31010 DATA 174,49,2,232,142,164,6,138,56,233,32,141,230T},2,133,89,141,161,6,165,88,141,160,6,141,163,631020 DATA 160,0,162,30,185,80,127,153,80,159,200,208,247,238,161,6,238,164,6,U}202,208,238,104,96,173,4931030 DATA 2,56,233,31,141,230,2,141,204,6,165,88,141,203,6,169,0,162,30,160,0,153,80,127,200,208,2V}5031040 DATA 238,204,6,202,208,244,104,9633,31,141,230,2,141,204,6,165,88,141,203,6,169,0,162,30,160,0,153,80,127,200,208,2+8N@AA6 B  +@$@6-6-A& ,/%@P X}&6-?:A6,(%6-%@% Ah@02 @0u2 #B!-A6A'%"+/ 2$:uee16 Y}0,0,24,173,48,2,105,5,133,203,173,49,2,105,0,133,204,165,203,105,96,133,205,165,204,105,0,133Ducc206,173,49,2,56,233,31,141 Z},230,2,165,89,209,203,208,7,173,230,2,133,89,208,13,170,177,203,133Nubb89,138,145,203,24,105,15,145,205,165,89,141,80,6,165 [},88,141,79,6,169,0,162,30,153,80,127,200Xu))208,250,238,80,6,202,208,244,104,96D:LISTING1.BAS5,165,89,141,80,6,165 h@CA  +@$@6-6-A ,/%@P(M ,]}@+,%@Q96-%@M Ah@@2 @D:LISTING2.BAS/%@P(M ,]!"z/ECCXYDDA`@@%AHAA6  @ _}B ' +@$'0@W6-A`6-@'6-36-?6-@K6-@W6`}-@g @,@g@ 1/AR@ C/ARAqU/@gAqg/@g@ (],Aa}@@'/A@@9/AAQK/AAQ]/A@@< 6-%6-% AF 6-%6-b}& AP 6-&6-% AZ 6-&6-& A_6-?:A6,dp")"6-@Pc}6@T2@'@#h-@@l p n AP A @0 6-%6d}-%$#O:,!@S6-6# A#O:,!@6-6# A$,C -@6? <2e}@A@@ C$m,&@&@//%@&@=/%@K/&@a/&@&@mf}DRAW HEADf ,/%@ -/&@%@);,%@ Q/%@%@)fDRAW BODY AND LEGSI,&@g}%@ '/%@=/%@%@ IDRAW ARMS$0u2 #B!-A6A'%"+/ 2$:uee160h},0,24,173,48,2,105,5,133,203,173,49,2,105,0,133,204,165,203,105,96,133,205,165,204,105,0,133Ducc206,173,49,2,56,233,31,141,i}230,2,165,89,209,203,208,7,173,230,2,133,89,208,13,170,177,203,133Nubb89,138,145,203,24,105,15,145,205,165,89,141,80,6,165,j}88,141,79,6,169,0,162,30,153,80,127,200Xu))208,250,238,80,6,202,208,244,104,96D:LISTING3.BAS@@dU6,165,wjCCXYDDA`@x@@@@@ @ ' +l}@$'0@g @,@g@ 1/AR@ C/ARAqU/@gAqg/@gm}@ W6-A`6-@'6-36-?6-@K6-@W6-@(s"@@+n},A@@=/A@@O/AAQa/AAQs/A@@2+"@,< 6-%6-%o} AF 6-%6-& AP 6-&6-% AZ 6-&6-& Ad"6@ Anp}|%"@*+")",B-@P6@`2@'@#t-@@x | xq}"@ AP 6-6 @@ 6-%6-%$#O:,!@S6-6# A#O:,!@6-6#r} A$,C -@6? <2@A@@ C$m,&@&@//%@&@s}=/%@K/&@a/&@&@mDRAW HEADf ,/%@ -/&@%@);,%@ t}Q/%@%@)fDRAW BODY AND LEGSI,&@%@ '/%@=/%@%@ IDRAW ARMS$u}D:LISTING4.BASfDRAW BODY AND LEGSI,&@%@ '/%@=/%@%@ IDRAW ARMS$ 'X;Page flipping routine. After using&X;GR.24, GR.9-11, call this routineX;with X=USR(1536) to toggle($X;backgrouw}nd and foreground page.2$X;Background page is the one that< X;PLOT and DRAWTO effect, andF"X;foreground is the one that isx}KX;displayed.PX;ZdMEMTOP;Mem top pointer.nSAVMSCX;Video mem pointerxSDLSTL0;Start of DL.DLPNTy}1;Two unused wordsDLPNT2;in zero page.%>,QSDLSTL;Find the O>;twoPDLPNT1;displayQSDLSTL;lz}istO>;referencesPDLPNT1;to videoQDLPNT1;memoryO>`;and storePDLPNT2;them inQDLPNT1;unusedO>{};part ofPDLPNT2;page 0."QSDLSTL;Find area, ;;to store6S>;screen 2@PMEMTOP;safely.JQSAVMSC;Insu|}re thatTR@DLPNT17;foreground^ HNORM;andhQMEMTOP;backgroundrPSAVMSC;are|HCLEAR;different.NORM>;Swap bo}}thQ@DLPNT17;of thePSAVMSC;foreground A;pointersP@DLPNT17;and ,;the oneO>;backgroundP@DLPNT27;poin~}ter.CLEARQSAVMSC;Set up thePSCRPNT;indexedQSAVMSC;addressingPSCRPNT;command.Q>;Quickly $>;cle}arLOOPP8;out3;7680 byte&HLOOP;buffer0#SCRPNT;for the:0;newDHLOOP;screen.N7;Unused parameterX :;Retu}rn.bSCRPNTLOOPl"X;The SCRPNT pointer is used tov"X;modify code on the fly. ThisX;allows us to use IndexedX;a}ddressing which is fasterX;than Post-indexed indirect#X;addressing in the inside loop.allows us to use IndexedX;a_30000 RESTORE 30010:FOR X=1536 TO 1627:READ Y:POKE X,Y:NEXT X:RETURN 30010 DATA 160,0,24,173,48,2,105,5,133,203,173,49,2,105 },0,133,204,165,203,105,96,133,205,165,204,105,0,13330020 DATA 206,173,49,2,56,233,31,141,230,2,165,89,209,203,208,7,173,230, }2,133,89,208,13,170,177,203,13330030 DATA 89,138,145,203,24,105,15,145,205,165,89,141,80,6,165,88,141,79,6,169,0,162,30,153, }80,127,20030040 DATA 208,250,238,80,6,202,208,244,104,9624,105,15,145,205,165,89,141,80,6,165,88,141,79,6,169,0,162,30,153, :$$XFXMXHXMXSYFYMYHYMYSYDALRMHALSTMWSHFCCPIOVERJIB1B1B2IIXYEXEYPXPYPX1PY1$}PX2PY2WIBBCA@@p@@@@r@V@r @r @4 AE $} A$CY A`@@WBg@6@8"1Ac9A@4A$}A$@@( @A! A"V A# A$ A%. A&v A' A( )A1A*N A+ $},-.@/@60BsD1Btr2Bty $$Press space bar to set alarms.M +'0@$}9-@@M(!?6-A6-@'6-@p36-@?6-@(c6-@6-$}@r'6-@V36-@r?6-@rK6-@4W6-AEc6-2NF:&@,@*-%@6$}: N&@@<1;@,;@,;@,;@,M6-@`$@$A6Y6-A`e6$}-@q6-@W{ Ap+0@F.@.@@K:PC'(Is th$}e clock already set? (Y/N)C((Or press H for HELP.)Z0)@"@& A0 A`d#"@r A`$}# @n@x@x (N) A@() Is it (A)M or (P)M?/)@"@e%6.AM/ $}Ap""@6.PM" Ap A@ (>:,) A%  What is the hour)) A%  $}How many minutes)) A%  How many seconds)  AB'6-@`$+%@`$%A6$,$}:@*4PMB6-%"@*4AM6-%E6-P:'BU6,$6-&BU6$56-P:'AV,E6-&AV$$}i@ !@-@9@ iPOKE 20,0 INSURES NO TURNOVERS WHILE SETTING.^:6-+F:@,$$}BU6%F:@,$AV%F:@ ,,F!C9T6-&C@^ A@6-P:'@`,W6-'A6$6-&A6$}$P:,26-'@`E6-&@`$P:,N6-P:,W6-P:,"36-'@&#6-'@ T&36-'@ T&,*F:@w,!$}A"*@wA"6000@@@&F:@w,'@@ A` DRAW CLOCK FRAMEJQ ,=/%?p$}$$E:&?,%?p$$G:&?,Q/%$E:,%$G:,T=7/%?p$$E:%?,%?p$$G:%?,=/^i$},%@M/@%%?p$$E:&?,%?p$$G:&?,i/@%%$E:,%$G:,hM?/@%%?p$$}$E:%?,%?p$$G:%?,M/@%rQ ,=/%?p$$E:&?,%?p$$G:&?,Q/%$E:,$}%$G:,|=7/%?p$$E:%?,%?p$$G:%?,=/i,%@M/@%%?p$$E:&?,%$}?p$$G:&?,i/@%%$E:,%$G:,M?/@%%?p$$E:%?,%?p$$G:%?,M/@%$}EEPLOT CX,CY:DRAWTO CX+XSE*COS(S),CY+YSE*SIN(S) :REM TOO SLOW!!!77PLOT CX+1,CY:DRAWTO 1+CX+XSE*COS(S),CY+YSE*SIN(S$}) A@"F:Ad,"@3" A @2F:Ad,"@("+, A/2AdAU6$}-?:A6,#"*"# A`"@6-#"@0*"# A"@1$}6-6-C/"F:%@$,*"F:%@$%@,9 AC A`%6-%@% @A$}0& A`03-@#,8,8,//8,8,3 :C-@+,8,%@8,?/8,%@$}8,C DC-@+,8,%@8,?/8,%@8,C N?,8@,8@,/-@$};/8,8,? XO#,8@,%@8@,7-@K/8,%@8,O bO#,8@,%@8@$},7-@K/8,%@8,O lO#,8@,%@8@,7-@K/8,%@8,$}O vO#,8@,%@8@,7-@K/8,%@8,O ?,8@,8@,/-@$};/8,8,? E-@%-@1,8,8,=/8,8,A E $s9@,9@,9$}@,9@,9@,9@,9@,9@,9@,9@,6-S-@'?R6$}968,-E:,$+&@,%S68,-E:,$+%@,%768,-G:,$+&@,%768,-G:,$+%@,%368,-E:,$}$$@%368,-G:,$$@%568,-E:,$%#68,-G:,$%16-%@5 [-@768,-E:$$}@r,$'@%W68,-G:$@r,$'@%[ "F:A@,@" B$ ROUTINE TO DO HOURLY CHI$}ME6-@ AP'-@C-@@@_2A@{2@@P@$}2@A@ x -@6?0<2A@X2@@P@t2@$}A@x  -@A  $ ##ROUTINE TO DO HALF HOUR CHIME*j6-@ AP$}6-@@6@J-@b2A%@f j 4l -@6@4-$}@L2A%@P d-@@%h l >$H``ROUTINE USED BY HOURLY/HALF HOUR CHIME FOR BOOKEEP$}ING AND TO SILENCE CHIMES AT LATE NIGHT.R@ @)!@"'$@QUIET MODE FROM 11PM TO 7:59AM\# 6-!@$}#6-&@f$pALARM SOUND ROUTINEzMAdAU!6-@0;0@@M@w$}-@@#3-AU@O2@@k2@@@y6-%@!A$}U6- F:Ad,"AU  \AdAU72Y2@$}\$XXROUTINE TO SET ALARMS. NOTE ALARMS ARE SET IN MEMORY SO ARE NOT LOST BETWEEN RUNSc +'0@$};-@ P(>:@e%,] c6-F:%@$,/"!( No alarm set.% / A p$}<6-F:%@%@$,( A@8(: < =((Press: X to exit or=( A-J to set an alarm)$})@"@& A)$!! @e)!@tA 26-&@e2F:%@$,"A08$}(8(>:%A,ݠ> K6-F:%@$,16-F:%@%@$,; A@K(: $}h( (?( Set [>:%@e,] for what hourd( (0 to unset alarm)h)"%$}@$) A @D((How many minutes after the hour,D%@$%@$))  (A)M or ($}P)M?./)@"@e%6.AM/ A8""@6.PM" AB ApL$ @*4PM$6$}-%@V$"@*4AM$6-%@`%@$ A @j<<TO CONVERT C(HR) AND D(MIN) TO PRINTABLE FOR$}MS C;M$;T$t+ 6.PM" @)"@$+6.AM~!@6-&@3 @6.0)67@,.=:,3$} A 6.=:,$GGROUTINE TO SHOW CURRENT TIME VAUES. USEFUL FOR TIMING SOMETHING.k86-F:@,$BU6%F$}:@,$AV%F:@ ,I( JIFFIES = Z6-P:'@`,k( SECONDS = q6-P:'A6,$6-&A6$56-P:'$}@`,E6-&@`$O A@q( TIME IS> :: $$$PRINT TIME IN DIGITAL FORM TOO6-@6$}= )-%%@%%@1,&9/%= = @)-%%%@@1,&9/%= ;$}-@#,&%%7/&%%%@; ;-@#,%%%7/%%%%@;  H 6-$}6- A@"6.=:,. @66. H67@,.=:,467@,.:#67@,.467@,. 767@$},."6-%%@*6-&4 A07$($$WRITE STRING W$ AT X,Y IN GR.82U>6-@@$%F:@,%F:@,$AV$}%P:+,'@,U6-AV$F:AV,<<-@B:,"6-@:7<,,. @<6-&@2FG6-%$@#-$}%@<%%@@$+&,F:,@ D G$PA +'0@A0@@Z--(%$}נϠŠŠǠˠd((nRR(JSince this clock works off an internalclock, you will only $}have to set thexM(( time every time you power up theM( computer. To set the clock justQ)(!answer the questions. To$} set theQ(#clock accurately, enter the seconds**("question just as that time passes.((JJ($}BYou can set up to 10 alarms. To set alarms, press the space-bar. ( ())(!To quit the clock $}just press ESC. ( ( $N +@$'0@@A0@@K@N$0u2 #B!-A$}6A'%"+/ 2$:uee160,0,24,173,48,2,105,5,133,203,173,49,2,105,0,133,204,165,203,105,96,133,205,165,204,105$},0,133Ducc206,173,49,2,56,233,31,141,230,2,165,89,209,203,208,7,173,230,2,133,89,208,13,170,177,203,133Nubb89,138,145,203$},24,105,15,145,205,165,89,141,80,6,165,88,141,79,6,169,0,162,30,153,80,127,200Xu))208,250,238,80,6,202,208,244,104,96$}D:LISTING7.BAS5,165,89,141,80,6,165,88,141,79,6,169,0,162,30,153,80,127,200Xu))208,250,238,80,6,202,208,244,104,96$  CCC1S1ABA`@?H&?6E)iAeA^e@A6 @ @(} @0 @  K + B10@K0@@W+(# (}ҠҠŠ.(W($To use program, use joystick to moveQ*("graphics cursor around. Press theQ("fire butt(}on to mark points for the(S)(!program to connect. When you areS(%done, press START. Now, pressing the2P,($joystick (}UP and DOWN will shrink andP(expand the picture. Moving the<--(%joystick left and right will move theFe-(%picture l(}eft and right. Pressing theU(#fire button will rotate the picturee( 10 degrees.PW(-("If you try to move the picture(} tooW(%far left or right or a rotation movesZ]+(#part of the picture off the screen,T($the picture automatically shrin(}ks to](fit!dY#@@K:&(A(Press to begin.N)@Y@n96-A`6-@(}*6-E:?E0,96-G:?E0,x1 +@$@10@k-@A@%,3/(}%@7 S-@A@Y,g/%@k ?9A,9A,'6-@36-?6-(}?-@#1%%1+",;,%%? P6-@&R:,&!@46-&@B%(} AP6-%@9!@6-&@+%!@96-&@9!@6-&@+% A96(}-%@9!6-&@+%!@96-&@j"T:,"*"@168@,-@68@(},-J@\,%&@%j6-%@v"T:,"*!@+68,-468,->@H,%%h/(}8&@,%8&@,%v6-%@ T:,"A  F:B2y,"@AP5 @2((}You must draw at least 1 line!536-&@@'6-@36-/ AP/,%8@,$%8@(},$%+-@'/%8,$%8,$%+ 6-?:A6,"0R:,"@&6-%?0 A`,<$R:(},"@*!@&26-&@< A`6<$R:,"@* &@26-%@< A`@:"R:(},"@*!06-&?: A`JdT:,"&-@/6-8,86-8,G68,-$&$V68,-$(}%$Z d A`T A^6-&? A`0u2 #B!-A6A'%"+/ 2$:uee160,0,24,1(}73,48,2,105,5,133,203,173,49,2,105,0,133,204,165,203,105,96,133,205,165,204,105,0,133Ducc206,173,49,2,56,233,31,141,230,2,1(}65,89,209,203,208,7,173,230,2,133,89,208,13,170,177,203,133Nubb89,138,145,203,24,105,15,145,205,165,89,141,80,6,165,88,141,(}79,6,169,0,162,30,153,80,127,200Xu))208,250,238,80,6,202,208,244,104,96D:LISTING8.BAS5,165,89,141,80,6,165,88,141,(` 'X;Page flipping routine. After using&X;GR.24, GR.9-11, call this routine&X;with X=USR(1664) to copy backgrnd(%X;t,}o foregrnd page. Backgrnd page2X;is the one PLOT and DRAWTO<$X;effect, and foregrnd is the oneFX;displayed.P"X;To clea,}r the whole backgroundZ#X;screen, just do an X=USR(1715)dX;nxMEMTOP;Mem Top pointer.SAVMSCX;video mem p,}ointerSDLSTL0;Pointer to DL$SDLSTL;Find an 2;area&FORPNT;to storeA;background ;;screenS> ;and,} setPMEMTOP;up thePSAVMSC;indexedPBAKPNT;addressingQSAVMSC;commandsPBAKPNT;forPFORPNT;copyin,}g. %>;Copy $>;the"LOOPQ8;7680, P8;byte63;background@HLOOP;bufferJ#BAKPNT;toT#FORPNT;the^0;,}foregroundhHLOOP;screen.r7;Unused parameter| :;Return.CLSQSDLSTL;Make sure;;there's aS>;backgroundP,}MEMTOP;screen.PCLSPNT;SetQSAVMSC;indexedPCLSPNT;addressing. Q>;Fill $>;the %>;7680LOOP2P8,};byte3;backgroundHLOOP2;buffer#CLSPNT;with 0;zeroesHLOOP2;(clear).&7;Pull unused argument.0 :;Return.:,}CLSPNTLOOP2DBAKPNTLOOPNFORPNTLOOPXzeroesHLOOP2;(clear).&7;Pull unused argument.0 :;Return.:,=@%q6ppPB B #A@%HHz%{% ԍz%hh@z%L_ ( , ) ( *%1@0 F 0} ( *E ( h* * {/ .L? .L% *)}F  >L"&F&F& U0L%$ɛ 2L%0}H{$=ɽL& . 6¥΅i$i ݥi$ , .A$ < \.L&-$:/./ : .L0}&H , '- h* 0DG .DH &L%L`'?*HyK) HHhH曥 '- h* L`曩yK(L'Ȅ0} ) -ě yKěyKH? m LHL'D`ƛ '-H8KhHL'ƛ ) -yKHL'0}Z ` h*ƝƓƞLh* h*ƜƞЅ"" o(8('P  '- (Lh*`e?` h*Lh* 0}h*枩x P  o(i(i'"e '- (Lh*'` B V䦯` (L( ) ,`ɛ0}`澥 8 HHEEh h 摥`ةPE Ei(EiEd%0} %} \Ԡ?K L󅐩Kѕ0EGDGmKHyz y*z*JIIKʈ0_?_ʅ0}LJLșJLii?L HMHWHIHiHiH9`( '@0}KHJeƍhe)`!88HIhi!Iȑ拥L* *HIĒ L @`EE` #0}"#` *`ɂI@Ɂ IL*ɃɄɅ𽥸@a{ L*ݰFM0}`EE` 4L.H+e+H+i+jݭH8傅H僅HeHHiH +`Η++Θ+Κ++Λ+0}Ls+Ƙ ƙ8``+e++i+H8+H+H8嚍HHH +`++++L+J`0}e JLȹJL]i 8+ȥȩ‘ ;$i e,` L,JLeJLȹJLiJL`Ŗ ,1}8ei ;L!,Hi +h L,JL8嚙JLȹJLJL` ,`EE(`yK(`1} '-摥` JLȹJL`H , ,h -ŊKe报Ō` ;L<-iiEE1}L!.)[8eiL- .$$$ 6K ,捥ŕ .LJ- O. 4L1}- B. D آ$ ݩ ,`KƕFLJ-$`` O. ؠ0$)$Ȅ$01}$$` $`$ɛ){aI $` , . ) ( - U0Lh*yKH` *F"# GJ1}#8HԥjH ؠH) ,=#hFɛ ,'# >L* 22 s20 6=+ s2##ɛ# ,JHH`1} y0J#J#e -ͲH L/ ;L/) o0 ؠH) ,#h0! ; ,#İﭱH -1}Ŋ ` ;L/) o0 ؠH) ,#h0! ; ,#İ` E")L0 ;1}Lݠw #` JG '` ,1F 22 s2F ( BDFEJK V 4L. BDEI1 }H V > (L. 41 ɛ ,L1摥е > ,𩤑EE` 22 s2 2 w6L0 6L.  22 s2 2 w61 }ߩ ( JBǝDFEK VL0 BʝDKE HIH8ʝHHKI VL0 ( 1 }}HHK}IHL. 22 s2+ 6=&/ 7 h* , .L.`r$#` .DL.H`e E` , h*1 } '- h*`#ɛ  8`ȹ#ɛ  `#Fɛ` 22 s21 6=,日$! K , ) -yKH h*1 }` E`ȱȱ) ;$ 0>` ; ؠH)$h08L3 2 >(`hhL"& *1} L0@H"#MHJ#ZHr#gH#Ll3L3`݈H0)L3: IL3 IL3 ݥH1}0H)h ){H3#)JJJyH[#)JJyH#)JJJJ~H#L3 `3 L` E` `3 '- LLh*1}DGIDG2GG`EGIEG8G,G` (ԩ ؠȱH) ,Fh y0F# j>`ȱ0$1}$$$H)JJJJHh) ȱLc5ȹ0.H)ʈ0 ίH,$ $ $ 1}$0)$q6ȹ$0.Eq6$ $ȹ$H)r60$hq6r6ȹ$)$ȩ.$L5.愳ȹ$)1}$mHH$q6r6$ɛ$-$,$$ɛȱɛ )$K8K8I1}JLB6Jȱɛ󩀅`v6=FDF:814`8`F:"# ($BFEǝD VCH (h`H1} 0E+#8` Dڢ$#ɛ#@Le:8V膋0# ;)#膋 1}8787#(8`ȹ#DA# = ذ 7#)L7,τ 6=Ȥ 8㤲 7ץi1}L7Ȅ =#ɛ =##Ù# `L7 =`8` -Ŗ 8` ;L8`) 81} ; ; `SQABSQRNEXLOINCNSUAV 8889998-9=99 9)Ԧ =`= 9 O. -:H h= 1}J `L8 9$> ޢJ (ې` ݰ =L8` 9 ޢJ ڐ` ݐ` 9J fڐ` -: O. L8 : : : 9L8` 1}: : : O9L8` #: Dڥ ݦ 8 fڐ8`橥Ũ櫥ŬՐ` : : : 9 I: O9 W: (۰L8` 9 ݐ` 9 ސ` #:1} 8橥Ũ櫥Ŭې Dڥԥ `hh8```ţ䥠ş``0.1}=`)HH `HH `#DAL:i 6= -Ŗ ` ;L:) 8 1}; ; ݩ :Lr: =8勅 =##ș#HH `#ɛ5( ) # L<;L; = ذ)򊅌8劅 1}:#ɛRI )8`L;#ɛ(,#ɛ )*%#@$ɛL{; <`ȹ#)ɛ8`Ј#(Ϣ1} #@$L;@$ <ե8̦ϭ@$#A$#ȹ##ɛLW; ;ei` <ɛ#` <^ = < =L<1 }iL < <ɛ0` <* ڰ / (۰ < =L7<iL7< <ɛ'` <+ fڰ - `ڰ < =Lr<`@$#1!}ɛ,8`ȹ@$ɛȹ@$ɛȹ@$ɛ#ȹ@$ɛօ` < ݦ < `HH`ii@$@$ɛL=` < ސ8` <1"} ڰ ݰ` {= O=` {= =`ˢ8I0;I[A8`8Ae@`#ɛȹ#ɛ̄`8` = =1#}e@`8` >I8`HI` < `##ɛ`##`#`=#> ݢ*> ݢ$> (ۢ*> fڢJ 1$} `0>EEiEi$ ,I&拥`hh$K8` *` . 0> j>1%}KٴH0HɛFHL>ɛL> j>ɛ.L> LF$膔rʆШ2F>?F> L>r$ ș$` .`1&}ʩ $`ʆ`q膔`$$z`z$$ $2%`8&ir`i&r8rLm?&&LL` ?% L?1'}` ?% >?ƍ`|%K >/ .YF$"oF?vF? * |%KL%襀iť80Hi1(} hi 芢8 0Hi hi ` *PF:FFHHG 0E wE hE E hE808 4L. ( BFE1)}DKJ V0զK E]LbA)LsA ;$0$L@$ 6 1A报Š𮐬 A棥Ť𝐛 (`1*} WAL@ BHI V0"` BHIED V0`hhL0 ` WAFL@ ; 4L@ 1+};8eiL~A 22 s2 2 w6LO1 6L. *H"LV@ *GFGHG 0E wE hE E hE C hEşL|@ţşţ륡ŠŤ1,}ߥ8埅8壅8埅8壅 2C CBCB h* -Ů ;LOB , -WŭQ ;LwB1-}#i#FG CȄ 8+ e, LJB .D - h*`ƫƬ8`1.}`ƫƥƣLBƮƭƫåţ-şhhL|@8e@률Hh``8e@ɥHh`B1/}$CCGL}E *FGGLA#=`ĕ#DAIG 6=IG㥖eʅ@ץeɅ@IG;IH8I#h8;I10}iAș#日 HIH>Iș#h8HI>Iș#LCEG oD斥@日@ -Lh* oD日@斥@ᥗ ELD11}0눱8$ ;0$LD 68ei ݥ` *GjHG 0E wE hE E hEşţL12}|@ E ,桥Š棥Ťܐ * , -Lh*EiEiɛ` *ɛ`8` &LSEHGHG`G13}Ơ 0E SE`hh *`GڠL}E -Ŗ 8` ;LE`EFG Hp####〈㉀14}倆쀛>Lcp,4+++?????????????}~DIRGOTSAVLOASETWIDLISAbB0111/2A   d15}DJŖD6+\t@>'('&.22DAC34444@2~}D1:*.*D1: %rrorError%rror0ressakey&ile&ree16}2ecalc/&&by2/7/&&/.2/7#/,5-.JGH􀀀򀀦$%,%4%0osition#ursor 2%452.#/17}090osition#ursor 2%452.-/6%0osition#ursor 2%452.5pperleftof"lock,owerrightof"lock5pperleftof$est02).418}0osition#ursor 2%452.,)340osition#ursor 2%452.&/2-!4*ustify,$ollar$ .#ommas .$ecplaces.9,2#19}(&ileexists 2eplace9.2350HH5IVI ABC40123456789 (2D:BCALC.PT2 X;X;save X & res X in XSAV5<} CLOSE $>4  CLOSEX;EI SCMEM( TXTWIN BF1" BF2, STRING6MDLST 5=}p=p=P=B@ SCMEMJ ======T =======^ ======BhWFLP TXTWINr ===5>}A| MDLSTX;DLI5A5 $DLIX QDLIC9 PWSYNC PCOLPF2 #DLIX7>79X; DLIX DLIC5?} =&X;0 X;: VBIQ>D PDLIXN$>XVB1QCOLOR09b PCOLPF09l0vIVB1 !SYSVBV X;BEGIN INIT5@} CLRSCN DRAWH SCRV CLRTXT Q>5MDLSTPSDLSTL Q>4MDLST PSDLSTL Q>4SCMEMPL Q>5SCMEM  P5A}L Q>5CREDTF  $>4CREDTF*%>4 DPRINT> GNKEYH Q>5CREDITR $>4CREDIT\%>f DPRINTp IVCRSzBFLP CLR5B}TXT SHWREFHINP CLRSTR QCONSOL R>;;sel HTOPT !COMMODE TOPTR> HTKEY SHOWST !BFLP TKEYQ5C}CHR> FHINP GKEY$>PDM0$M>.TSKYRSPCKEY98 FSPCALB0L ITSKYVQDM0` INPUTj EBFLPt !GTIN5D}~SPCALQSPECL9 PSPJMP QSPECH9 PSPJMPQ>PCH SPJMP  SHWT2 !BFLPGTINQSTRING R>EOL5E} HGTN1 SHOCEL !HINP  GTN1QSTR FHINP QFRCTXT( HTRYTX2 QSTRING<R> =F FAFNNPR> Z FAFNNd !TRYNU5F}n AFNNQSTRx PSTR2 LO2UP TRYFNC DHOOKQ>;;error HFHOK HOOKQ>FHOKPDTYP QSTR2PSTR, 5G}O>4STRING PFLPTR Q>5STRINGO> PFLPTR$>" FST0P,QSTR6,@O>JPSTRT>^ Q>EOLh PSTRING9r 5H} INSERT| CLRSTR $BF2 STFLPTR FLD0P NM2STR!GTRTRYNUR> -;;-,.,0-9 DTRYTXHH1QSTRING;5I};nx chr #?R> : ETRYTXR> / FTRYTXR> . DTRYTX H1R> /& FTRYTX0R> :: ETRYTXD SBNUMN!GTRX TRYTX5J}Q>b PDTYPl PFRCTXTv INSERT GTRQCRSY PVCNT QSROW REFROW IVCRS QDTYP SHWTYPQONF FNORC5K} RECALCNORCQCDIR FNOCRS MVCRSNOCRS!BFLP X; MVCRSR> FCR*!CLA4 CR%SCOL>)>?H5L} ENORTR QCRSEN\,f OCOLW8pR>)z ESCRRT5 QCRSEN PCRSX7 PCRSEN #SCOL QCURRW PVCNT QSRO5M}W REFROWEXC1 IVCRS %SCOL QFMCOL8 PFORMAT NORT: SCRRT#SCOL$ Q>;;find 1st col. %SCOL8 FFLP,B O5N}COLW8L R>(V EFNF` 1j !FFLPt FNF3~ 'FCOL DRAWH REFSCR X;find st/end of cursor Q> %FCOL )SCOL 5O}FFSF FSE, OCOLW8 3 )SCOL HFSE FSFPCRSX , OCOLW8 PCRSEN( QSCOL2 R>?< HFFJF QCRSXP ,Z OC5P}OLW?d PCRSENn FFJ!EXC1x X; CLAR> HCUA CLQCRSX R> HPA QFCOL HSCRLL : PA"SCOL QCU5Q}RRW PVCNT QSROW REFROW QCRSX 5 ;" %SCOL, SCOLW86 PCRSX@ 7J PCRSENT !EXC1^ SCRLL"SCOLh QSCOLr5R} PFCOL| DRAWH REFSCR Q> PCRSX %FCOL , OCOLW8 PCRSEN !EXC1 X; CUAR> HCDJ CUQCURR5S}W HR3 QFROW HR4 :& R3 IVCRS0 "CURRW: "CRSYD "SROWN !IVCRSX R4 IVCRSb "FROWl "SROWv X; Q>4SC5T}MEM PJL Q>5SCMEM PJL Q>4SCMEM PL Q>5SCMEM PL $> MUAG MOVSCN ; S5U}>( PJL QJL S> PJL 0* IMUAG4 X;> $>'H Q>R UUPSCMEMP9\ 0f IUUp PVCNTz Q> PSPX Q5V}FROW REFROW DRCOL !IVCRS CDJR>;; FCD : CDQFROW , OCURRW R>? DR1: R1QCURRWR5W}>$ER2. IVCRS8 #CURRWB #CRSYL #SROWV !IVCRS` R2 IVCRSj #FROWt #SROW~X;Q>4SCMEMx PJLQ>55X}SCMEMx  PJLQ>4SCMEMP PLQ>5SCMEMP  PL$>MDAG MOVSCN,O>(PJL  QJLO>5Y} PJL(02 IMDAG<Q>F$>'PDDZPSCMEM9Z0dIDDZnQ>xPSPXQ> PVCNT, OFROW REFROW5Z} DRCOL !IVCRS X;MOVSCN%>' MS2Q@JL7P@L71IMS2 QJL PLQJL"PL,:6 X;5[}@CLOSE&XSAVJQ> T PICCOM9^ CIOVh $XSAVr:|X;SCRV DRCOL !CLEARSCRH DRAWHCLEAR CL5\}RSCN:X;DPRINTPIL&IL DOPQ@IL7 R>EOL FENDPP@L73HDOP ENDP:X;5]}& DRCOL%>0 'VCNT: QFROWD PBCD1N #BCD1X FGQBCD1b$>l FER> vDFF;S> 2HFEFF5A5^}5 %VCNT QY40L8PL QY40H8 PL7L> %>P@L7 7*34L>>P@L7H #BCD1R #VCNT\ QVCNTf5_}R>pHFGz: X; INIT-Q>4SCMEMP  PY40LPLQ>5SCMEMP  PY40H PL%> I1QL,5`}O>(PL PY40L8 QLO>$ PL. PY40H883B)>LHI1VX;` Q>4DLIj PVDSLSTt Q>5DLI~PVDSLST5a}Q> PCOLOR4Q> PCOLOR2Q>  PCOLOR1Q> $>5VBI %>4VBI SETVBVQ> PNMIENX; %>? I5b}JQ> PCOLW8(Q> 2 PFMCOL8<1FIIJP PFORMATZQ>d PSPFLGn$>x ZPLPP90 GZPLP PCRSY PRCFLG5c}PONFQ> PCRSX, OCOLW PCRSEN X;QyLz FBUZZQy PGTV"Qz, PGTV6X;@ BUZZQ>5d}J?T>^KLPAh PAIT8rN>| PAIT801GKD)>_HKCA$>?HKLP KCA)>HKLP$>_HKLP5e} X; KDQ>4RO1PL Q>5RO1 PL&%>0 CETQL: PRAD8D QLN3X PRAD8bQLl,vO>PL 5f}QLO> PL3)>HCET%>?Q> CESPRO181ICES Q>4ENPROG PENDAT  Q>5ENPROG PENDA5g}T X;*Q>4FPSTACK4PL> PSTLOHQ>5FPSTACKR PL\ PSTHIf%>p FPZQLz,O>PL 5q}B%DOS SYSB*)DUP SYSBSANIMAT10LSTBWANIMATE1BASB\ANIMATE2BASB ^ANIMATE3BASB kANIMATE4BASB vANIMATE5M65BANIMATE6LSTBJANIMATE7BASBANIMATE8BASB ANIMATE9M65BJBCALC OBJB^;BCALC1 M65B BCALC2 M65BSBCALC3 M65BPBCALC4 M65BQRBCALC5 M65BBCALC6 M65PSTLO8 QLO> PL PSTHI83)>9HFPZ: X;DRAWHQ>4SCMEM( PLQ>5SCMEM( 5r} PL$%>'. DHQ>8P@L7B1LIDHVX;`Q>jPTMt QFCOL~PTM1 COA%TM1)>@FCDO QCOLW85V5s}?,OTMPTM3"TM37,OTM PTM2R>)DCOK(CDO:2 COKQ>!<PTM4FQTM1PR>ZDT2d#TM4n5t};xS>R>DT2#TM4;S>T25%TM3QTM4N>P@L77,O>!N>3P@L7"#TM1,5u}QTM26PTM@!COAJX;TIVCRS LOCCRS^ %CRSENh1r IVSQ@L7|N>P@L71 )CRSXIIVS %SC5v}OL QFMCOL8 PFORMAT SHWCRI:X;LOCCRS%CRSY QY40L8PL QY40H8 PL:& X;0C5w}LRTXT%>:CDCTPTXTWIN8N3X)>bHCTlQ>vPTXTWIN:X;箠GNKEY GKEY$>&CH:X5x}; GKEYQCHR> FGKEY POLDCK0?)>DGTV %> GTVQ8  POLDAC*KGBR>;;caps4HKII>5y} KIMQCAPSHN>@R PCAPS\ KIJQ>fPCHp HGKEYzKIIR>;;invrsHK3 QINVFLGN> PINVFLG!KIJK3R>5z};;shiftFKIMR>;;control FGKEYR> FGKEY QOLDCR>@EK6 QOLDACR>a$DK6.R>{8EK6B QCA5{}PSLFK6V LOLDC`!K0j K6QOLDACt$>~KCMPRSLKEY9 FKOUT0 IKCMP NINVFLG KOUT:X; LIN5|}1%>HTPS LIN2%>HTPS LIN3%>TPSQTWINL8PL  QTWINH8 PL%>(:2X;< MERR%>5}}F DSKERRP !HOMEZ X;dMOVUPQENDATn PMFRx, OLENG PMTO QENDAT PMFRO> PMTO5~}Rj EMERR QENDAT;SLL PNBYT QENDAT SLL PNBYT QENDAT",, OLENG6 PENDAT@ QENDAT5}JO>T PENDAT^ MAG MFRhDMM1r:|MM1"MFR QMFRR>HMS "MFRMS"MTO QMTOR5}>HMT "MTO MT!MAG MFRQ MTOP MQ"NBYT QNBYT R> HCNR& "NBYT0 QNBYT: R>D H5}CNRN ;X :b CNR,l :v X; MOVDNQLL PMTO , OLENG PMFR QLL PMTO O> PMFR 5} QENDAT ; SMFR PNBYT! QENDAT ! SMFR! PNBYT ! QENDAT*!;4! SLENG>! PENDATH! QENDATR!S>\! P5}ENDATf! DD1 MFRp!DDD4z!:!DD4#MFR!HDD2! #MFR!DD2#MTO!HDD3! #MTO! DD3!DD1! X;!5}AS2IC&XSAV!>! QAIT9! $XSAV!:" X;"X;⣰젣⣱"X;⣲⣳$"#X;󺰽5}."INSERTQSCOL8" PCOLNUB" QFROWL",V" OCURRW`" PROWNUj"T?t"?~" QRAD8"PLL"3" QRAD8" PLL" 5}IU%>" Q@LL7" IFCEL" ISQSTR"," O>DTLEN" PLENG" MOVUP#%> # QCOLNU# P@LL7#QFORMAT;;format(#%>2# 5}P@LL7<#3F#QSTRP# P@LL7Z#3d#Q>;;flag2n# LDTYPx# P@LL7# ADDDT#%>#ITQSTRING8# P@LL7#3#)STR#HIT#5}QSTR#,# O>DTLEN# PLENG# QROWNU# UPRAD$:$X;Ġ$ UPRADT?"$?,$36$3@$!IQJ$ IRQRAD8T$,^$ OL5}ENGh$ PRAD8r$3|$ QRAD8$O>$ PRAD8$3$ IQ)>$HIR$:$FCELRCOLNU$HNOD$QROWNU;;4 del$ DELTCL$;;;fa5}ll thru$ NODEIS$%>% Q@LL7%,%OLL&%PLL0% QLL:%O>D% PLLN% ADDDTX%!IUb%X;컠l% DE5}LTCL5v%%>% Q@LL7%,% O>DTLEN% PLENG% MOVDN%7%T?%?%3%3%!DQ% DRQRAD8%;& SLENG & PRAD8&3 & Q5}RAD8*&S>4& PRAD8>&3H& DQ)>R&HDR\&:f&X;p&CLRSCN$>z&CTD CLRLIN&0&ICTD&:&X;ؽ5}&CLRLINQY40L9&PL& QY40H9& PL&Q>&%>& CSLPP@L7&3&)>(' HCSLP':'X;$'LSTCOL%F5}COL.'OB,8' OCOLW8B'R>(L'EOAV'3`'HOBj'OA'TM2;;lst colt':~'X;'REFSCRQ>;;vert lines' PVCNT'5} QFROW'PTM1;;rows'X;' OHQTM1' REFROW'#TM1' #VCNT' QVCNT'R>'HOH( :;;done ( X;( STRADT?(?5}(( QRAD82(PLL<(3F( QRAD8P( PLLZ(:d(X;n(REFROW5;;save rowx( QFCOL( PTM;;col(Q>(P5}SPX( LSTCOL( $VCNT( CLRLIN(7( STRAD( VE%>( Q@LL7(R>(FVA;;done w/row(RTM)FVB;;got col)DVC)5}VD%TM;;next col")QCOLW8;;scrn pos,),6)OSPX@)PSPXJ)#TMT)QTM^)RTM2;;last col?h)DVEr)VA:|)VC UP1COL;;inc 5}ll)!VE) VBQLL),) O>DTLEN)PIL) QLL)O>)PIL;;keep LL) %VCNT) QY40L8)PJL) QY40H8) PJL*5}QSPX*PTM3*%>&* Q@LL70* PFORMAT:*%>D* Q@LL7N* INNERX* !NUERb* NNERM>l*FNNMv*R>* FISN;;a #* %>;;a5} F* Q@LL7*;*S>*,*OIL* >;;low* QIL*O>*?* !ISN2*X;+NNM CLRSTR +%>+ Q@LL7 +?*+5} Q>EOL4+ PSTRING8>+1H+ YTAQ@IL7R+ PSTRING8\+1f+IYTAp+ Q>4STRINGz+PIL+ Q>5STRING+ PIL+ FRMTXT;;result in5} IL+X;+ NNM1%TM+ QCOLW8+PGMX+%>+'TM4+ YLP%TM4+ QLBUF8+ AS2IC+%TM3, P@JL7,#TM4,5}#TM3$,QTM4.,RGMX8,HYLPB, CLRSTRL,!VDV,X;`,ISN$IL;;strt of #j, %ILt,ISN2 FLD0R~, SETI5}NB, FASC, FRMNUM, !NNM1, X;, SBNUMQ>, PDTYP, SETFP, ZFR0, AFP, $>4STRING, %>5STRING, FS5}T0R-Q> -PSTR- INSERT-:(-X;2- NUER$><-Q>F-PGMXP-%TMZ- QCOLW8d-R>n-HADQx-"GMX- ADQ5}%TM3-ADPQERMES9- P@JL7-3-2-(GMX-HADP-!VD;;nx col-X;-SETFPQ>5STRING- PINBUF- Q>4ST5}RING- PINBUF.Q>.PCIX.:".X;,.SETINBQ>5LBUF6. PINBUF@. Q>4LBUFJ. PINBUFT.Q>^.PCIXh.:r.X;5}|.NM2STR SETINB. FASC.%>.NLPQ@INBUF7.GNL2. PSTRING8.3.HNLP. NL2M>. PSTRING8.3.'ST5}R.)>.FNRT/ QSTRING/R> 0/HNRT&/%>0/NL3QSTRING8:/ PSTRING8D/3N/)STRX/HNL3b/"STRl/NRT:v/X;5}/X;ǠЊ/CLRSTR$>/Q> /CSTLPSTRING9/0/ ICSTL/:/X;/ L5}O2UP%>/LOLPQSTRING8/ R>EOL/ FLODON/M>0 R> z 0ENLO0R> a 0DNLO*0N> 40NLOPSTRING8>03H0 HLOLPR0 L5}ODON:\0>D:BCALC.PT3f0>D:BCALC.PT4p0>D:BCALC.PT5z0>D:BCALC.PT60 ENPROG 0 RUNAD0 BEGIN03H0 HLOLPR0 L4m?dX;SAVE#D:BCEQUnX;x CIOVV ICCOMB ICBALD ICBAHE ICBLLH ICBLHI AUX1J AUX29}K RUNADINITADX;SDLSTL0SDMCTL/VDSLST NMIEN WSYNC SETVBV\"SYSVB9}V_,COLOR06COLOR1@COLOR2JCOLOR4TCOLPF0^COLPF2h KEYDEFyrINVFLG|X;9} CIX INBUF FR0Ԥ FR1 FLPTR LBUF AFP FASC IFP ZFR0D ZF19}F FSUB` FADDf FMUL FDIV( FST0R& FST0P0 FLD0R: FLD1RD FLD0PN FLD19}PX FMOVEb EXP10l LOG10vX;CONSOLЊ CH EOL DOSVEC  RAMTOPj SEOL C9}APSDTLEN;;data length NUMBX;X;L LL  IL JL  FPLO* TM49} TM1> TM2H TM3R TM4\ FCOLf FORMATp VCNTz CRSX CRSY XPOS GMX COLN9}U ROWNU NBYT LENG SCOL FROW CURRW SROW COLF COLS COLT COLZ9} ROWF$ ROWS. ROWT8 ROWZB DM0L DM1V DM2` DM3j DM4t DM5~ DM6 DM79} XSAV ASAV YSAV NARG SVY FPPTR FTOK STOK OPERAT OLDC OLDAC9} TA1  TA2 TA3 TA4( BCD12 EDIT< SPXF STRP DTYPZ FPN1d ARGTn ROFST9}x COFST HLDF HLDS HLDY STR2 LEFTP RIGHTPI ENZ EId ARGTn ROFST8gi(dX;SAVE#D:BCALC.PT3nX;xHOME CLRSCN RSTCRSHM2 DRAWH DRCOLHM3 REFSCR SHWT2 !IVCRS=}X;RSTCRSQ> PFCOL PFROW PSROW PSCOLCRS2PCURRW PCRSYQ> PCRSX" %FCOL,,6 O=}COLW8@ PCRSENJ:TX;^SHOWST CLRTXTh%>r SJAQSTT8|PTXTWIN81ISJA%>  SJNQSEG8PT=}XTWIN*81ISJN X;Q>; SENDATPFR0Qj SENDAT PFR0 IFP& FASC0%>:FMLP=}Q@INBUF7D5NM>X AS2ICbPTXTWIN8l3v7 IFMLPX;%>FSLPQFNAME8 R>EOL FFSLL AS2=}ICPTXTWIN83)> HFSLP FSLL GCH !CLRTXTX; SETREF ST2BF1 FINARG ESO2* GTCL=}RW4ESO2> FINARGH$>RS9LPQBF18\ PBF19f R>EOLpFS8Pz32 HS9LP S8P$> SFRQBF19 AS2IC PR=}EFTAB90ISFR QCOLNU PSETCOL QROWNU PSETROWSO2:X;SHWREF CLLIN3$>$SWQQREFTAB=}9.PTXTWIN98 QREFTAB9BPTXTWINy9L0VISWQ` QFROWj,t OCURRW~ STRAD XRA%> Q@LL7R>FNRF=} RSETCOLFGRFDURFNRF!SO7;;try colURF UP1COL!XRA GRF%> Q@LL7M> FTXT;;textR>HNRF=}( LL2FR02 FASC<%>FSO6Q@INBUF7P5ZM>d AS2ICnPTXTWIN|8x7GSO73)>HSO6 TXT%> Q=}@LL7 PASAV ADDDT%> SO8Q@LL7 AS2ICPTXTWIN|83 )ASAVFSO7)>"HSO8,X;6=}SO7QSETROW@ STRADJ QSCOLTPTM^ XCL%>h Q@LL7rR>| FNCOLRTM FGCOL DUCOL NCOL:UCOL UP1COL=}!XCL GCOL%> Q@LL7M>FTTX;;textR> HNCOL LL2FR0 FASC%>SK2Q@INBUF7&50M>: A=}S2ICDPTXTWIN8N7XGSK3b3l)>vHSK2 TTX%> Q@LL7 PASAV ADDDT%> SK4Q@LL7 AS2ICPT=}XTWIN83 )ASAVFSK3)>HSK4SK3: X;SHWT2$SCOL  QSROW* LOCCEL4DSKB>Q>H =}PDTYPR HSHWTYP\ SKB%>f Q@LL7pM>z PDTYP !SHWTYPX;젣LL2FR0 ADDDT$LL %LL!FLD0R;;=}auto retX;CLLIN3%>wQ>LP3PTXTWIN83)>HLP3 : X; X;0=t,1=#,2=f$ SH=}WTYPQDTYP. T?8 T?B T?L >V %>` STGQTEXTYP9j PSCMEM8t 2~ 3 )>' HSTG : X; DIR CLRSCN Q> 1 =}PDIRTXT ST2BF1 FINARG ENDARG PDIRTXT NDARGCLOSE  Q> PVCNT Q> $> ( PICCOM92 Q>4=}DIRTXT< PICBAL9F Q>5DIRTXTP PICBAH9Z Q>d PAUX19n Q>x PAUX29 CIOV IDIROK GENER DSKERR;; !HM=}3 DIROK$> Q> PICCOM9 Q>4LBUF PICBAL9 Q>5LBUF PICBAH9 Q> PICBLH9 Q> PICBLL9 CIOV" I=}PRDIR,  GCH6 CLOSE @ !HM3J PRDIR SCNPOST $>^ %> h DIRLPQLBUF9r R>EOL| FNXDR AS2IC P@L7 3 =}2 !DIRLP NXDR#VCNT QVCNT R> HDIROK  GCH CLRSCN Q> PVCNT FDIROK X; SCNPOS%=}VCNT& QY40L80 PL: QY40H8D PLN :X X;b SAVE ST2BF1l FINARGv GTFILE CHKDEV DFILE? DEVERR%>=} !GENER FILE? FILEXST DDEVOK !HOME DEVOKQ>;;write %> ;;get rec HDOIT LOAD ST2BF1 FINARG G=}TFILE CHKDEV EDEVERR Q>;;read %>;;input* DOITPDM6;;keep em4 'DM7> CLOSE H $> R QDM6\ PAUX19f =}Q>p PICCOM9z Q>4FNAME PICBAL9 Q>5FNAME PICBAH9 Q> PAUX29 CIOV IRWOK !GENER;; RWOK$> =} QDM7 ? PICCOM9 Q>4COLW PICBAL9 Q>5COLW PICBAH9$ )>;;inp?. HRITE8Q>B PICBLL9L PICBLH9V HSI=}NP`RITEQENDATj;t S>4COLW~ PICBLL9 QENDAT S>5COLW PICBLH9SINP CIOV IIOOK )>;;EOF? FIOOK=}!GENER;; IOOKCLOSE QDM6R>FWRF$>  Q>4COLW, OICBLL9( PENDAT2 Q>5COLW< OICBLH9F =}PENDATP WRF!HOMEZ X;dGOTO ST2BF1n FINARGxEQAB GTCLRWEQAB QROWNUR>/EQAB QCOLNUR=}>7EQAB IVCRS CLRSCN QCOLNU PFCOL PSCOL QROWNU PFROW PSROW"Q>;;4 crs2, CRS26!HM2@Q=}AB:J X;TST2BF1%>r^SO1QSTRING8h PBF18r1|ISO1:X;ARECL RECALC !HOMEX;=} FORCEQ> PFRCTXT:X;KILLCLQSCOL> QFROW, OCURRWPTM LOCCEL& DLCELL0 :;;:=} LCELLQTMD DELTCLN IVCRSXQ>bPSPXl QCURRWv PVCNT QSROW REFROW IVCRS: X;FINARG%=}>F8LPQBF18 R>EOL FNOARGR>  FFSPCE3)>  HF8LP  NOARG;:  FSPCE3*FARGQBF184 R>EOL> F=}NOARGH R> ;;spacR HGTARG\3f)> p HFARGz FNOARG GTARG,:X;GTFILE$>F9LPQBF18 PFN=}AME9 R>EOLFFGD32 HF9LPFGD:X;WIDTH ST2BF1 FINARGENOW$ GTCLRW.ENOW8 #=}ROWNUB QROWNULR>VDNOW`R>!jENOWt %COLNU~ PCOLW8 CLRSCN DRAWH REFSCR %FCOL 'SCOLQ> =}PCRSX, OCOLW8 PCRSEN IVCRSNOW:X; SHOCEL$SCOL QSROW LOCCEL(DUAA2 :;;n=}one<UAA%>;;formatF Q@LL7PPZ 3;;lengthd Q@LL7n PLENGx3 Q@LL7M>HUABUAG ADDDT%LENG;;text=}1 UAHQ@LL7 PSTRING81IUAH UAEQ> PXPOS DRWIN :;; UABR>FUAF" ADDDT,$LL6 %LL=}@ FLD0RJ FASCT%>^UADQ@INBUF7h5rM>| PSTRING87GUAE3HUAD UAFQLENG;S> PLENG=}!UAGX; EDITMQ> PEDIT SHOCEL INPUT26Q>& PEDIT08: DEOOKD:N EOOK7X7bQl P=}FORMATv !GTINX;FORM CLRTXT %SCOL QFMCOL8 PFORMAT$>FPB0GFPXFPAQFMES9=}PTXTWIN9(>DFPB QFMA9PTXTWIN*9  QFMB9PTXTWINR9  QFMC9*PTXTWINz94!FPB>FP=}X!SHOFRMHX;R FPCQCH\R>fFFPCp$>z&CHR>HFPD :;; FPD$>FPERJSKEY9FFPF0IFPE=}GFPGFPFQFORMATM> PASAVA LASAV PFORMAT !SHOFRM$FPGR>:;;D.HFPH8 QFORMATBN>L PFORMAT=}V !SHOFRM`FPHR> ;;,jHFPJt QFORMAT~N> PFORMAT !SHOFRM FPJ$> FPKRNKEY9;;dec placesFFQD0=}IFPKGFPCFQDA5 QFORMATM> PFORMAT 7T?T?(T?2T?< LFORMATF PFORMATPX;ZSHOFRMQFORMATd=}M>n>x QLCR9PTXTWIN QFORMATM>V?V?V?>QYN9PTXTWIN; QFORMATM>V?V?>=}QYN9PTXTWINc" QFORMAT,M>6V?@V?JV?TV?^>h QSDEC9rPTXTWIN|!FPCX;GLOBAL F=}ORM %SCOL QFORMAT PFMCOL8:X;FORMCQSROW $SCOL LOCCELDECL: ECL FORM%>=} QFORMAT P@LL7& $CURRW0 &VCNT: QSROWD REFROWN%SCOL;;restoreXQFMCOL8;;glob. formtb PFORMATl !IVCRSvX;=}RONOFQONFN>PONF>%>RPPQONOFM9 PSEG823)>HRPP:X;=}RCFLPQRCFLG N> PRCFLG >*%>4RHKQRCMES9> PSEG8H2R3\)>fHRHKp:zX;DSKERR'=}YSAV CLOSE  %YSAV'FR0Q> PFR0 IFP FASC%> ERLPA3 Q@INBUF75M> AS2IC P=}DERM87$ IERLPA. CLLIN38%>BERLPBQDERM8LPTXTWIN|8V1` IERLPBjQ>tPCH~ GAKEY:X;Number =}Format SubroutineX;for B-CALCX;ԠŠ1"X;bit 4-7: Places after DecimalX;bit 3: Dollar Sign FlagX;bit 2:=} Comma FlagX;bit 0-1: L/C/R JustifyX;FRMNUM%> :FM03 Q@INBUF7 PNUMB8  I:FM0%>Q> 0(FN.1PST=}RING821< IFN.1FQ> $P PSTRINGZQ>4STRING dPILnQ>5STRING x PILX;QFORMAT;;get FM byte5=}M>V?V?V?V? PTORITE7X;M>;;commas?HFNCOM;;yes%> :CPL3 Q@INBUF7" P@IL7, I:CPL6=}:FM1!:DSGN@X;J FNCOM%>T FM:13^ QNUMB8h GFM:DrR> .| HFM:11 FM:D'SVY$> :LP1Q> P=}FCNT:LP2QNUMB8M> PLBUF901G:LV "FCNT I:LP2 Q> , PLBUF9 0& I:LP10 :LV2: %>D :LP3Q=}LBUF9N PSTRING8X 3b 2l (>v H:LP3 $SVY QNUMB9 I:NNV 1 QSTRING8 L> PSTRING8 H:DSGN X; :NN=}V2 QNUMB9 PSTRING8 G:DSGN!3 ! H:NNV!X; !:DSGNQFORMAT*!M>4! F:AFTER>! Q>4STRINGH!PILR! Q>5STRING\! P=}ILf! X;p!X;z!:AFTERQ>!PSCI;;flag!%>!HXA3! QSTRING8!G:AF2;;none=}!R> E!HHXA;;kot yet! X;got exp!#SCI;;set flg!1;;invs prev byt! QSTRING8!L>! PSTRING8"$>;;bck to E"HX=}B2"3$" QSTRING8."58"M>B" PSVEX9L"Q> 0V" PSTRING8`"7j"IHXBt" X;show end~"2"&SCI" Q>EOL" PSVEX9" :AF2%>=}":AF3" QSTRING8"I:TP"M>" PSTRING8"3"Q> ." PSTRING8#'SVY #!:JM# :TPR> .#H:AF(#'SVY2#:A23<# =}QSTRING8F#I:A2P#M>Z# PSTRING8d# :JMQSVYn#,x# OTORITE#?# QTORITE#H:EL#1# :ELQ>EOL#PSTRING8#X;ch=}k for E#QSCI# FCKMIN#$>#HXCQSVEX9#PSTRING8# R>EOL$ FCKMIN$2$3"$HHXC,$X;򠤭6$CKMINQST=}RING@$R> -J$ HFRMTXTT$QSTRING^$R> ,h$ HFRMTXTr$%>|$MILPQSTRING8$PSTRING8$ R>EOL$ FFRMTXT$3$=} HMILP$X;$FRMTXT%>$:L13$ Q@IL7$ R>EOL$H:L1$'SVY$X;% :LC=}R$>%Q> %:L2PLBUF9&%00%I:L2:%X;D% QFORMATN%M>X%>b% F:HAVl%X;v%0% H:CEN%%TM% QCOLW8%=};%SSVY%I:HV% YUA$>%F:LC% X;% :CEN%TM% QCOLW8%;%SSVY&I:C1 &N>&V? &?*&!YUA4& :C1V?>&=}:HV>H&X;R& :HAV%>\&:LC3f& Q@IL7p& R>EOLz&F:LB& PLBUF9&2&H:LC&:LBQ>4LBUF&PIL& Q>5LBU=}F& PIL&:& SCI & SVEX& EOL&X;ĺ&CHKDEVQFNAME'R> D' HWRDEV' QFNAME$' DVNUMR> :.' F=}AYOK8'R> 8B' FMYOKL'R> 1V' DWRDEV`'R> 4j' EWRDEVt' DMYOK~' AYOK,':' WRDEV;':'MYOKQFNAME'R> :' FAYOK=}' HWRDEV'X;'FILEXSTQ>'PTXTWIN' CLOSE 'Q>$;;unloc( PICCOM9 ( Q>5FNAME( PICBAH9>}( Q>4FNAME(( PICBAL92( CIOV<(QICCOM9;;stat?F(5P( CLOSE Z(7d(R>n( FFYESx( OVWR,(:(FYESQ>5REPMES( $>>}4REPMES(%>( PRNTTW( YNKQCH($>( R>+;;yes( FOVWR(R>#(HYNK(&CH(;;;no):(:(FYESQ>5REPMES( $><c&dX;SAVE#D:bcalc.pt4nX;xX;TRYFNCQ> PFPPTR ZFR0 PARS$>&STRPLPQSTRING9 PB}BF19 R>EOL FPDON2HPLP PDON&STRX;󠱠X;蠣X; @ABS(---,---,---)X; TM TM1 B} TM2"X;fpn1-3 fp tokens,FNDFUN$>6 FFKQBF19@R> @JFFFNT2^(STRhHFFKrFFT!PASS2;;none| FFN&TMB} Q>5FTAB PLL Q>4FTABPLL2&TM1 FFS%> FFRQ@LL7FFFT;;no matGFFP;;lst chr RBF19HFFQ;;B}next23HFFR FFQQ>& INCLL0$TM1:HFFSD FFPM>N RBF19XHFFQb%>l Q@LL7;;F#v PASAV2 &TMB}1;;)?T?> QJTAB9 PJPOFF QJTAB9 PJPOFFX;X;栱箠Q> PNARGB}%TM1 QBF18 R> (FFFD FFX;;;error*:4FFD3>QBF18;;ck 4 cellHR> DREFFX;;error\R> AfEFFW;;cellp 'CB }IX;;#z'TM1 FP2BF1 AFPEFFX SPFR2STEFFX%CIXFFHQBF18;; , or )R> )HFFC!FFI FFCR> ,B }FFFDHFFX FFW'TM1 GTCLRWFFYEFFX;;error$ %NARG. QCOLNU8 PCOLF8B QROWNUL PROWF8V QASAV`R>;;cB }nting onlyjFFVAt $COLNU~ QROWNU CL2FR0EFFY FVA%NARGQ> PARGT8 SPFR2STEFFY FVBQTM1,B }O>PTM1?!FFH X;堦FFI3'TM2(%TM2$TM2< COLAPSF$>P FFOQBF19Z R>EOLdFFFLB }n2xHFFO FFL&STR ADD2SP%TMQ> # PBF18 QFPN1 PBF18 JPOFF X;DJJJ:B}JJJ!FNDFUNSPFR2STQFPPTR %NARG PFPN18 #NARG"3,)>6EFFG@>J FR0XT #FPPTR^,h:rFFG;|:X;B}󠣐X;ؽҰCL2FR0&COLNU STRAD EE%> Q@LL7R>FED RCOLNUFEBDEC EB}D;;;err:EC UP1COL!EE:;;c is set&EB%>;;data typ0 Q@LL7:M>D FEN;;txt!NR>XFEFb %>;;fnl Q@B}LL7v;S> INCLL EFQ> INCLL$LL %LL FLD0R;;2 fr0EN,:"X;䠳󡠫B}FTAB ASQA= AABA= ASQA= ARNA=  AEXA= ALOA=  AINA=* ACNA=4 ASUA=> B}AAVA= H R X;\ JTAB SQUf ABSp SQRz RND EXP LOG INT CNT SUM AVEX;B}ABS CHKONE AXBQFR0M>PFR0 EXX$FPN1 FR0X , : X;$ INTQ>;;default. PTRCF8 CHKONEB}B MF SETINBL FASCV TRUNC` QFR0j 5t  AFP~ 7 IEX2 QTRCF;;trunc flag FEX2 $>4ONE %>5ONE FLD1RB} FSUB EX2!EXX X; SQR CHKONE $>4SFPN %>5SFPN FST0R LOG10 $>4TWO %>5TWO( SQI2 FLD1R2 B}FDIV< DSQQ;;xitF :P SQQ EXP10Z EX3EBDEXd RNDSQRn EX8!EX2x BDEX: X; SQU CHKONE LOG10 $>4TWB}O %>5TWO FLD1R FMUL DSQ7 : SQ7 EXP10 DEX8 : X; RND CHKONE $>4HALF %>5HALF" FLD1R, B} FADD6 DRP@ :J RP FASCT TRUNC^ SETINBh  AFPr EX4!EXX| X; CNT CHKTWO CHKCEL CHKSIZ CNTSB}UB !EXX : X; SUM CHKTWO CHKCEL CHKSIZ SUMSUB ESUMR !EXX SUMR: X; SUMSUB DUPDB}AT& ZFR00 DAGQDM0: PDM2D SO FMOVEN $DM2X QDM4b CL2FR0l ESN;;mt cellv FSP;;txt FADD DSP SN; B}: SP#DM2 QDM2 RDM1 FSO DSO #DM4 QDM4 RDM5 FDAG DDAG , : X;* AVE CHKTWO4 CHKB}CEL> CHKSIZH CNTSUBR EAV2\  SAVFPN;;2 stckf SUMSUBp EAV2z  RETFPN;;2 fr1-fpptr  FDIV;;does not chng EAB}V2 EX5!EXX AV2: X; EXP CHKONE EXP10 EX1DEX5;;xit : X; LOG CHKONE LOG10 DEX1:XB};CNTSUB DUPDAT$Q>.PDM68PDM7;;cntrsB CNCQDM0LPDM2VX;is cell empty` CNB$DM2jQDM4t CLB }2FR0~ECNA;;skip empties#DM6;;add rowsHCNA#DM7CNA#DM2;;nxt colQDM2RDM1FCNBDCNB#DM4;;nxB!}t rowQDM4RDM5FCNCDCNC  ZFR0QDM6;;gt cntPFR0(QDM72 PFR0< IFPF,P:ZX;㠴dB"}CHKONEQNARGnFCZxR>FCYCZ7;;pull ret7;CY:X;렴CHKTWOQNARGR> HCZ;;err:B#}X;CHKCEL%>CWPQARGT8 ICZ;;err1ICWP":,X;6CHKSIZQROWS@ RROWFJ DCZ;;errB$}T QCOLS^ RCOLFh DCZ;;errr:|X;DUPDAT$>DDTQCOLF9 PDM090IDDT: X; TRUB%}NC%>TIQ@INBUF7GTEXR> . FTJAA3HTITJAAPTRCF;;flag TJQ>EOL& P@INBUF70 :;;: TEXM>D P@B&}INBUF7N3XHTJbX;lSAVFPN$FPPTRv QSTHI9? QSTLO9> FST0R:X;RETFPN$FB'}PPTR QSTHI9? QSTLO9> FLD1R:X;󠲠 X;蠣 PASS2%> LCELQBF18*R> D4EB(}NXY>R> AHEAHARNXY3\)STRf HLCELp!PASS3;;do #'s nextzAHA'TM;;for collps C;;strt,O> PTM2;;endB)} GTCLRWEACD QROWNU STRAD ACC%> Q@LL7 R>;;end?FACD;;error RCOLNU FACA;;yupDACBACD:B*}$ACB UP1COL.!ACC8ACA%>;;gt cellB Q@LL7LM>;;dt typeVFACD;;text!` R>;;#?jFACEt%>~ Q@LL7;B+}S> INCLL X;default ACEQ> INCLL$LL %LL FLD0RQ>PTM1 PUTTOK%TM !NXYX;B,}PUTTOK%TM($TM22 COLAPS<QSTRF;PSTM1ZPSTRd ADD2SPn%TMxQ> # PBF18 QFPPTR3 PBB-}F18'TMX;> QSTHI9? QSTLO9> FST0R #FPPTR:X;󠳠䠣X;B.}"PASS3%>;;find # loop,FNLPQBF186 R>EOL@FPSSJR> (TFPSM^R> )hFPSMrR> #|HPSI33!PSSB/}PSM3!FNLP;;look againPSI'CIX;;get #'TM;;1st byte # FP2BF1 AFP;;get fp#EPSL$CIXAPTM2;B0}STMPTM1;;# less& PUTTOK0%TM;;get pos. back: NXEN3D)STRN FPASS4X PSSQBF18b R>EOLl FPASS4v PSK$>B1}PSJROPTAB9FNXA0IPSJR> ) FNXENPSL;:NXA3 !FNLPX;󠴠䠨X;堦B2} PASS4%> P4AQBF18  R>EOL FNOLF R> (*FFLP43>HP4AH NOLF%>R P4BQBF18\ R>EOLf FNOPRNpR>B3} )z FP4ER3HP4BFP4ER;;error NOPRN$>PSWQBF19 PBF29 R>EOLFPSV23!PSWPSV CALCITB4} EP4ER:FLP3 QBF18$R> ).FFRP8 R>EOLB FP4ERLHFLPV P4ER;`:jFRP'RIGHTPtP4C1~ QBF18R> (B5}HP4C 'LEFTP$> %LEFTPPSR23 )RIGHTPFPST QBF18 PBF29!PSR PSTQ>EOL  PBF29 CALCITB6} EP4ER( QRIGHTP2;< SLEFTPFR>P FP4ERZ $LEFTPdQBF2n PBF19x QBF22 PBF19 %RIGHTPPSU23 B7}QBF18 PBF19 R>EOLHPSU !PASS4X;𠱠UP1COL%> Q@LL7 INCLLADDDTQ>DTLEN INCLL,"OLLB8},PLL6 QLL@O>J PLLT:^X;hX;r CALCIT|CALCEX%>CCW'TM4;;save for clB9}pse GT2TOK R>EOLFCALMD;;try *,/DCCACCB:;;SEC=errorCCA MV2FPN QOPERATR> ^HCCE FIGEXPEB:}CCB;;error CLPSBF2;;collpase FR02ST !CALCEX CCEQTM4&,0O>:?D!CCW;;look 4 moreNX;堪XB;} CALMD%>b CDC'TM4l GT2TOKv R>EOL FCALASDCDACDB:;;errorCDA MV2FPN QOPERATR> *HCDD FMUB<}LECDB;;errorDCDE CDDR> /HCDF FDIVECDB;;error CDE CLPSBF2 FR02ST %TM4*!CDC4 CDFQTM4>B=},HO>R?\!CDCfX;堫p CALAS%>z CEG'TM4 GT2TOK R>EOL FCDONEDCEACEB:;;SEC =errorB>}CEA MV2FPN QOPERATR> +HCEC FADDECEBDCED CECR> -HCEB;;error FSUBECEB;;error$CED CLPSB?}BF2. FR02ST8%TM4B!CEGLCDONE,;;okV:`X;󠦠jGT2TOKQBF28tR> #~FGBAR>EOL;;done?B@}FGBBGBC;;;error:GBA3 QBF28 R>EOLFGBC;;error PFTOK3 QBF28 POPERAT R>EOL FGBB;;doneBA}3 QBF28( R>EOL2FGBB;;done<R> #FHGBC;;errorP3Z QBF28d R>EOLnFGBC;;errorx PSTOKGBB,;;A=eol if doneBB}:X;렣MV2FPN$FTOK STFLPTR FLD0P $STOK STFLPTR FLD1P:X;STBC}FLPTRQSTLO9 PFLPTR QSTHI9 PFLPTR:"X;,CLPSBF2QTM46,@O>J?T,^O>h>r CF1QBF29BD}| PBF28 R>EOLFCF232!CF1CF2:X;FIGEXP$FTOK STFLPTR FLD0P LOG10DFIABE}FIB; : FIA$STOK STFLPTR& FLD1P0 FMUL: EFIBD EXP10N EFIBX ,b :l X;v X;BF} GTCLRW GET2CH EGRX FINCNU DGRW GRX:;;error GRW%HLDY 3 GET2CH EGRX FINRNU %HLDY :BG} X;!FINCNUQHLDF !$>!FCARAS269 !FFCC*!04!IFCA>! GFCERH! FCCQN269R!PTM3\! QHLDSf!R> [BH}p! EFCERz!R> A!EFCB!FCER;;;error!:!FCB;!S> A!,!OTM3!PCOLNU;;col #! R>@;;0-63! EFCER!:!X;BI}!GET2CHQBF18" R>EOL" FGERR" PHLDF$"3." QBF188" R>EOLB" FGERRL" PHLDSV" 'HLDY`",j":t" GERR;~"BJ}:"X;"FINRNUQHLDF" GETDEC" EFRER" PROWNU" QHLDS" GETDEC" EFRER"A"," OROWNU">#0 #(BK}>@# EFRER# &ROWNU(#,2#:<# FRER;F#:P#X;젣Z#GETDEC$> d#DECBRDECN9n# FDECAx#0# IDECB#;BL}#:#DECAQDECM9#,#:#X;#FR02ST$FTOK#FR0X STFLPTR# FST0P#:#X; ;x=beg y=des#BM} X;uses tm3$COLAPSQBF19$ PBF18$ R>EOL"$FCPF,$36$2@$ HCOLAPSJ$CPF:T$X;^$ADD2SP$STRh$ASLPBN}QBF19r$ PBF19|$0$(TM$ FASLP$ EASLP$#STR$#STR$:$X;$FP2BF1Q>5BF1$ PINBUF$ Q>4BF1$BO} PINBUF$:$ TRCF%X;%RNDSQR FMOVE;;rt to fr1%$>4SROOT;;save root&% %>5SROOT0% FST0R:% $>4SFBP}PND% %>5SFPNN% FLD0R;;N to fr0X% FDIV;;N/rtb% $>4SROOTl% %>5SROOTv% FLD1R;;res. root% FADD;;add rts% $>4HALF% BQ}%>5HALF% FLD1R% FMUL;;x .5%:% SFPN% SROOTl% %>5SROOTv% FLD1R;;res. root% FADD;;add rts% $>4HALF% @<`'dX;save#D:BCALC.PT5nX;x DRWINQ>PTM1?> DIT&TM2$TM1 QTWINL9,O>PL QFS}TWINH9O> PL$TM2DRLPQSTRING9 AS2IC (XPOS" HDRSC,N>6 DRSCP@L7@2J3T)>&^ HDRLPh%>FT}r#TM1|QTM1R>HDIT:X;ήGAKEYQCONSOLR>HGCH77 Q>EOL PSTRINGQ>FU} PEDIT PSPFLG;:& GCHQCH0R>: FGAKEYD GNKEYN $XPOSX:bX;lINPUT CLRSTRvINPUT2FV}Q> PXPOSINMAIN DRWIN GAKEY $XPOS%EDIT;;edit mode?HENTS;;yes%SPFLG;;comd mode?HENTS;;yes%>FW};;ck 4 eol &IELPRENKEY8;;cursor keys FINEN1 IIELP GSESC INENPCDIR R>EOL  HINDON* 'CDIR4 !INDOFX}N>ENTSR>EOLH HSESCR !INDON\SESCR>;;ESC?f HINEXTp GAKEYz R>EOL FINDON !INOVRINEXT%> ;;test specFY}ialIN1LPRINSPC8 FINPRC1 IIN1LPINOVRPSTRING92 &XPOS(>r DINMAIN0 &XPOS HINMAINX;$FZ}INPRCQINTABL8. PINJSR8 QINTABH8B PINJSRL INJSR V !INMAIN`X;j INDON%>rt INOUT1~ QSTRING8R> F[} FINOUT Q>EOL3 PSTRING8'STRQ> PEDIT,:X;ZAPST CLRSTRQ>  PXPOS: X;F\}(INDEL$XPOS2 FINDO<0FQ> P PSTRING9Z &XPOSd INDO:nX;xINLEFT$XPOS FINDO0 &XPOSF]}: X;INRT$XPOS(>q EINDO2 &XPOS:X;INCTDL$XPOSINCTDQSTRING9 PSTRINF^}G92"(>z, HINCTD6:@X;J ININS$>zTININDQSTRING9^PSTRING9h0r (XPOS| IININD2Q>  F_}PSTRING9PSTRINGr: X;INUPQXPOS;S>& IINST,O>rINSTPXPOS: X;INDWNQF`}XPOS&,0O>&:R>rD DINSTN;XS>rb !INSTlX;v INMOD$> QXPOSR>& DINMD$>&Fa}R>L DINMD$>LINMD&XPOS:X;ININLN INMODQ>%PTM3INLNL ININS "TM3 IINLNL :*Fb}X;4INDLLN INMOD>Q>%HPTM3RINLND INCTDL\"TM3f IINLNDp:zX;COMMODEQ> PDLIFc}CQ> PSPFLG INPUT ECMOUT LO2UPCMAOK$>;;Command # Q>4CMTABPL Q>5CMTAB PL CMBG%>Fd} CMSTQ@L7 FCOMMODE RSTRING8$ HCU3. 38 )>B HCMSTL X;V QCOML9` PCMJPj QCOMH9t PCMJP~ CLRTXFe}T CMJP  CMOUTQ> PDLIC PSPFLG !BFLP X; CU32 QL , O> PL DCMBG #L HCMBG X;Ff} SHWCRIQSCOL( $>2 XGZ;< S>F GXGYP 2Z HXGZd XGY5n Ax , O> PSCMEM 7 , O> PFg}SCMEM $SROW 2 A $> XGU; S> GXGV 2 HXGU XGV5" A, ,6 O>@ PSCMEMJ 7T ,^ O>h PSFh}CMEMr :| X; PRNT CLRTXT Q> P PFNAME Q> : PFNAME Q>EOL PFNAME Q>5PRITMS $>4PRIFi}TMS PRNTIT%> 'CPOS;;curs. index PRNTTW PRMS1 STCRS PRMS2 STCRS& QCOLF0 PTM;;1st col: QCOLSDFj} ;;;chk cell rangeN SCOLFX GPERRRb QROWSl ;v SROWF IPROK PERRR%>;;range err PERRA DSKERR !HM3 X;Fk}к PROKCLOSE  $> Q> PICCOM9 Q>5FNAME PICBAH9 Q>4FNAME PICBAL9 Q> PAUX29 Q> PFl}AUX19* CIOV4 GPERRA> PXD$TM;;curr colH QCOLW9;;get widthR PGMX\ QROWFf LOCCELp ECMTE;;emptyz %> Q@LFm}L7 PFORMAT %> Q@LL7 IPXF !ISERR;; PXFM> FPXA;;text !ITSAN;;#/F PXA%> Q@LL7 ?  ADFn}DDT;;up 4 Q>EOL PSTRING8PXC1$GPXB. Q@LL78 PSTRING8B!PXCLPXBQ>4STRINGVPIL` Q>5STRINGj PILt Fo} FRMTXT~PXE SNDOUT#TM;;do nxt colQTM RCOLSFPXDDPXD QCOLFPTM SNDEOL;;snd eol#ROWF;;nextFp} row QROWF RROWSFPXDDPXD  CLOSE  :;;X;(CMTE SPLBF2!PXE<X;FSNDFq}EOLQ> P$> Z PICCOM9dQ>n PICBLL9x PICBLH9Q> CIOV GLSERR:X;SNDOUTQ> $> Fr} PICCOM9QGMX PICBLL9Q> PICBLH9 Q>5LBUF PICBAH9 Q>4LBUF PICBAL9" CIOV, GLSERR6:@X;Fs}J LSERR7T7^ !GENERhX;r SPLBF$>|Q> SL9PLBUF90ISL9:X;ISERR Ft}SPLBF%>ISAQCERR8 PLBUF81IISA!PXEX;ᠣ ITSANR> HITSAF ADDDT&$LL0%LL;Fu};:ITSG FLD0RD FASCN FRMNUMX!PXEbX;l ITSAF%>v Q@LL7? ADDDTC;S>,OLLFv}> QLLO>? !ITSGX;LIST ST2BF1  FINARG GTFILE  CHKDEV* DLDOK4 !DEVERR>LFw}DOK FILEXSTH DFILOKR !HOME\FILOK CLRTXTf Q>5LSMESp $>4LSMESz !PRNTITX;X;砰XFx};COPY CLRTXT Q>5CPYMES $>4CPYMES%> 'CMFLGJMCPY'CPOS PRNTTW PRMS1 STCFy}RS PRMS2 STCRS PRMS3 STCRS$X;. QCOLS8 RCOLFB ECLOKLCSER!PERRRVCLOKQROWS` RFz}ROWFj DCSERtX;~ QCOLT RCOLF HLOWR QROWT RROWF FCSERLOWRQCOLT RCOLS HCKOF{}K QROWT RROWS FCSERX;CKOKQCOLS ; SCOLFPDM4(PDM22 QROWS<;F SROWFPPDM5Z X;F|}d;n QCOLTx SCOLF PCOFST; QROWT SROWF PROFST CHKFSD;;A =typ incT?> QINCTAB9PINCRESF}}QINCTAB9PINCRES IVCRSCPY1QCOLFPDM6 QCOLT"PDM7,CPY5QROWT;;dest6 STRAD;;get add@CPY2%F~}>;;see if MTJ Q@LL7T R>;;MT^ FNOENhRDM7;;col?rFFUL| ENOEN UP1COL !CPY2 FUL$DM7 QROWT DELTCF}L NOENQLLPIL QLL PIL QROWF STRADCPY3%>;;chk source Q@LL7R>FINCRES;;no cellRDF}M6;;col?&FGT10EINCRES;;no cell: UP1COLD !CPY3NX;XGT1Q>5BF1b PJLl Q>4BF1vPJL%>F} Q@LL7, O>DTLEN?1PLENG;;4 move'GMXCPY4Q@LL7 P@JL71)> HCPY4QDM7;;new col # PBF}F1QIL PLL* QIL4 PLL> QCMFLGH FNOCHGR MVPARS\NOCHG%GMXf3p 'LENGz MOVUP QROWT UPRADF}%GMXCPY6Q@JL7 P@IL71)> HCPY6INCRES  ECFIN !CPY5CFIN RECALC REFSCR IVCRS,F}:$X;. RTDN#DM78#DM6;;next colB"DM4LQDM4VR>`HRBXjRBZ#ROWT;;next rowt #ROWF~ RRRF}"DM5QDM5R>HRBY ;;;done: RBYQCOLFPDM6 QCOLTPDM7QDM2PDM4RBX,:;;keep going X;F} RTUP#DM7#DM6("DM42QDM4<R>FHRBXP "ROWTZ "ROWFd!RRRnX;x LFDN"DM7"DM6"DM4QDM4R>F}HRBXFRBZ!X;䠦X;CHKFSDQROWT RROWF HTBFHQCOLT;;A,E RCOLFF}HVAEVER7;;error7" !PERRR,VAEDVEE;;E6 QCOLS;;A@;J SCOLFT,^ OCOLTh PCOLTr R>@;;0-63|EVERQCF}OLS;;switch5 QCOLF PCOLS7 PCOLF Q>;;lfdn,:VEEQ>;;rtdn,: TBFHDVEE QROWS; SROF}WF&,0 OROWT: PROWTDR>@NEVERXQROWS;;switchb5l QROWFv PROWS7 PROWF Q>;;rtup,:X;INCTF}AB RTDN LFDN RTUP X; PRMS3Q> PASAV Q>5CMES3 $>4CMES3 %> !PRMA X;*MOVEB F}CLRTXT4Q>> PASAVH PCMFLGR Q>5MOVMES\ $>4MOVMESf%>p!JMCPY;;jmp in2 cpyzX;X;F}򠽠X;MVPARS%> QBF18R> =FJAAJAB:;;quitJAA3)GMX;;max lenEJAB;;enF}d! QBF18R> D EJAA;;nxtR> ADJAA'Y9;;get cell$ GTCLRW.DJAC8 JAD%Y9BHJAALJACQCOLNUV,`OCF}OFST;;col offsetj PCOLNUtR>@~ EJAB;;err QROWNU,OROFST;;row offset PROWNUR>@ EJAD;;err%Y9X;F}$> QCOLNU JAERN269EJAF0 IJAEJAF5 QAS269( PBF1827<;F SN269P,ZO>Ad3n PF}BF18x #ROWNU QROWNU$> JAHRDECM9EJAG0IJAHJAG5 QDECN93 PBF187; SDECM9> QDEF}CN93" PBF18,!JAA6 X;@RECALCQ>J PROWNUT PCOLNU^ QRCFLGhHBYCr X;|IG RARITH #COLNUF} QCOLNUR>@DIGQ> PCOLNU #ROWNU QROWNUR>@DIGBYR REFSCR !IVCRS X; BYC RARITF}H #ROWNU QROWNU& R>@0 DBYC: Q>D PROWNUN #COLNUX QCOLNUb R>@l DBYCv EBYR;;done X; F}RARITHQROWNU $COLNU PTA1 &TA2 LOCCEL DRBD RBFF!RBGH;;none RBDQLL PTA3 QLL PTA4 %>!F} Q@LL7 !GRBFF;;err!R>;;func? ! HRBFF;;no*!14! Q@LL7>!;H!S>R!?;;end of F\! Q>EOLf! PSTRING8p! ADDDT;;up 4z!F}RRJ1!GRRB! Q@LL7! PSTRING8!!RRJ!RRB TRYFNC!QTA3!PLL!QTA4! PLL!%>! Q@LL7!;!S>","F}OLL" PFLPTR$" QLL."O>8" PFLPTRB" FST0PL" RBGHQTA1V" PROWNU`"QTA2j" PCOLNUt":~"X;"DELETF}E CLRTXT" Q>5DELMS" $>4DELMS"%>" 'CPOS" PRNTTW" PRMS1" STCRS" PRMS2" STCRS" QCOLS" RCOLF#DKEF}R # QROWS# RROWF#EDLC(#KER!PERRR;;ERR 1412#X;now delete<# DLCQCOLFF# PCOLTP# DLB$COLTZ# QROWFd# LOCCELn#EF}DLAx# QROWF# DELTCL# DLA#COLT# QCOLT# RCOLS#FDLB#DDLB# #ROWF# QROWF# RROWS#FDLC#DDLC# CLRTXTF}# CLRSCN$ REFSCR$!IVCRS;;done$X;"$X;ؽٽ,$PRNTTWPIL6$&IL@$ 'YSAVJ$ QF}TWINL8T$,^$O>h$PLr$ QTWINH8|$O>$ PL$%>$ PR1Q@IL7$ R>EOL$FPR2$P@L7$3$HPR1$PR2:$X;F}ԯ$RETESC GNKEY$R>$HIII%,%:% IIIR>&%HIIT0%;:%:D%IIT MVCRS;;move?N% !RETESCX%X;b%F}STCRS$CPOSl% QSCOLv% PCOLF9% QSROW% PROWF9% #CPOS%:%X;%PRMS1Q>5CMES1% $>4CMES1%%>%PRMA'F}YSAV;;line#% PRNTTW% RETESC% EEOUT%:&EOUT7;;exit &7& CLRTXT &:*& X;4&PRMS2Q>5CMES2>& $>4CMES2H&F}%>R&!PRMA;;cheat\&X;f&X;p&X;ؽz&LOCCEL&COLNU& STRAD& FU%>& Q@LL7&F}R>&FFQE& RCOLNU&FFQF&DFQG&FQE;&:&FQG UP1COL&!FU&FQF,':EL&COLNU& STRAD& FU%>& Q@LL7&DTj dX;SAVE#D:bcalc.pt6nX;x Y40L Y40HTWINL 4TXTWIN 4TXTWIN(  4TXTWINP  4TXTWINx J}TWINH 5TXTWIN 5TXTWIN(  5TXTWINP  5TXTWINx CREDIT =A B-Calc (c)A =A 1987 AA01 A J}=A TYPE: A =A A EOLCREDTF =A B-Calc by A =ABarry Kolbe & A" =ABryan SchappelA, J}=A A6 EOL@X;JINTABL 4ZAPSTT 4INDEL^ 4INCTDLh 4ININSr 4INUP| 4INDWN 4INLEFT 4INRTJ} 4ININLN 4INDLLN 4INDO 4INDO 4INDOINTABH 5ZAPST 5INDEL 5INCTDL 5ININS 5INUP 5INDJ}WN 5INLEFT 5INRT 5ININLN& 5INDLLN0 5INDO: 5INDOD 5INDONX;XINSPC }=~==b ===l J}===v X;X;CMTAB ADIRA AGOTA;;GOTO cell ASAVA;;SAVE Sheet ALOAA;;LOAD SheetJ} ASETA;;CROSS reference AWIDA;;set col WIDTH ALISA;;LIST to disk X;COML 4DIR=4GOTO 4SAVE=4LOADJ} 4SETREF=4WIDTH  4LISTX; COMH 5DIR=5GOTO* 5SAVE=5LOAD4 5SETREF=5WIDTH> 5LISTHX;RSPCKEY ==J}=\ == f == p ==z == X;SPECL 4CU=4CD=4CL=4CR 4HOME=4FORCE 4KILLCL=4J}DELETE 4COPY=4MOVEB 4EDITM=4FORMC 4GLOBAL=4RONOF 4RCFLP=4PRNT 4ARECLX;SPECH 5CU=5CD=5CL=5CJ}R 5HOME=5FORCE 5KILLCL=5DELETE 5COPY=5MOVEB 5EDITM=5FORMC$ 5GLOBAL=5RONOF. 5RCFLP=5PRNT8 5ARECJ}LBSLKEY ===L ===V =~=}=` ===jX;tX;Special Text~X;DIRTXT AD1:*.*A=EOL!FNJ}AME AD1: A=EOLERMES AErrorACERR AErrorA!DERM AError: Press a keyAX;STT AFile: J} A A Free:ASEG ARecalc:OFF A A by:ROW AX;ONOFM AOFFON ARCMES AROW COLUMNA  OJ}NF  RCFLG  CMFLG (KPY;;y sav2 CPOS< Y9FX;PTEXTYP AAZNUMTYP AAdFUNTYPJ} AAn AAxX;2DELMS ADELETE: Position Cursor, RETURNA=SEOL1CPYMES ACOPY: Position Cursor, RETURNAJ}=SEOL1MOVMES AMOVE: Position Cursor, RETURNA=SEOL&CMES1 AUpper left of BlockA=SEOL'CMES2 ALower right of BlockJ}A=SEOL&CMES3 AUpper left of Dest.A=SEOL2PRITMS APRINT: Position Cursor, RETURNA=SEOL0LSMES ALIST: Position CurJ}sor, RETURNA=SEOLX;FMES AFORMAT Justify LAFMA ADollar $(D) NAFMB ACommas (,) NAFMC ADec. places 0AJ} YN ANYALCR ALRCASDEC A0123456789A"X;raw L,C,R,JSKEY =(=6-REPMES AFile exists, Replace? Y/NA=SEOLJ}@ X;raw 0-9JNKEY 2===T ===3^ 5=0h FCNT r TORITE | SETROW  SETCOL CDIR ;;cursorJ} directnENKEY EOL====EOM;;end of memry FRCTXT  CRSEN ENDAT FXS FXA STLOJ}: STHI:CTLCMD  ==AS26 AABCAN26 ==4DECN A0123456789ADECM = ===(=2& <=F=P=ZJ}0OPTAB A^*/+-A:FPSTACK:D ONE1N TWO2X HALF.5bREFTAB AAAAl A01Av AIT SPFLG COLWJ}@ FMCOL@RAD;;row add tablRO1@;;row data HALF.5bREFTAB AAAAl A01Av AIT SPFLG COLWH9