@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 D8ugh. C NNVNASIINN2N1NINVNNNNNVBNNNNNN1N1N1N1N1N1N1N1N1CCDZLINVUOT}@ @ U}V} !"#$%&'()@*+,- AW W}$& #B-""68,-& > -"6-&B:,167$&%<$&,.:68,-> 4((X}2&-* 42$ A`$4LOOKA ` B:,"6. A ' 6--B:,!Y}7<,4 '6-  " ((What? A`6.7<&,6.7%,4SAVEAp`4LOADAh@Z}, B:,"67,. 67<,4YELA)T- 6--'7$&<$,47<,-6-^ h- 6--'7$[}&<$,47<,-6-r 5( (+(Don't understand that noun.5 A`5( (+(Don't understand that verb.\}5 A` 6-8,WWA A!A"A#A$A%A&A'A(A)$(ONE LETTE]}R COMMAND$ A `!!********* LOOK ************( VERB = LOOK A `3!!********* DROP ************4( VER^}B = DROP A ` ********* GET ************( VERB = GET A `!!********* MOVE ************( VERB =_} MOVE A `_ !!********** GO *************` ( VERB = GO A ` !!********* UNLOCK ********** ( VERB = UN`}LOCK A `' !!********* INSERT **********( ( VERB = INSERT A ` !!********** OPEN *********** ( VERB =a} OPEN A ` !!********** READ *********** ( VERB = READ A `S !!********** YELL ***********T ( VERB = b}YELL A `{6-@6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@ c}{6-@6-@6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@{d}6-@ 6-6-6-NN;$,;$,;A`,;@&,;,;,;@w,;@7,;,&&;$,9,e}9,;@5,9,$67,. 67$,. $67,. 6-6-6-p((6.MATKEYCOABATFLAMAGWINDOOLIGOPEz++6.f}!LOOEXADROGETMOVGO UNLINSOPEREAYEL, A y!!********* V(X) DATA *******y1,1,2,3,4,5,6,7,8,9,10x}``WELCOME MATg},-8,KEY,0,COAT,9,BATTERIES,0,FLASHLIGHT,11,MAGAZINE,10,WINDOW,-12,FRONT DOOR,-8}((LIGHTED FLASHLIGHT,0,OPEN WINDOW,0h} D:ADVENT1.BAS,BATTERIES,0,FLASHLIGHT,11,MAGAZINE,10,WINDOW,-12,FRONT DOOR,-8}((LIGHTED FLASHLIGHT,0,OPEN WINDOW,0920 FOR X=N1 TO 72:READ A:CC$(X)=CHR$(A):NEXT X930 FOR X=N1 TO 35:READ A:L$(X)=CHR$(A):NEXT X1480 A=USR(ADR(L$),LEN(IN$),AD j}R(IN$)):IF A=N0 THEN ? :? "What?":GOTO 12601490 REM 1500 V$=IN$(N1,A):N$=IN$(A+N2)1620 Y=USR(ADR(CC$),ADR(N$),ADR(NN$),LEN k}(NN$))1630 REM 1640 Z=USR(ADR(CC$),ADR(V$),ADR(VB$),LEN(VB$))1650 REM 31999 REM *********CC$ DATA********32000 DATA 104, l}104,133,204,104,133,203,104,133,206,104,133,205,104,104,133,207,162,0,142,255,6,134,213,23232010 DATA 160,0,177,203,209,205, m}208,8,200,192,3,208,245,134,212,96,173,255,6,24,105,3,197,207,24032020 DATA 16,141,255,6,165,205,24,105,3,133,205,144,217,23 n}0,206,176,213,169,0,133,212,9632049 REM 32090 DATA 104,104,104,141,255,6,104,133,204,104,133,203,160,0,177,203,201,32,240,8 o},200,204,255,6,20832100 DATA 244,160,0,132,212,169,0,133,213,96141,255,6,104,133,204,104,133,203,160,0,177,203,201,32,240,8 A440 IF MONTHFILE$="D2:AUTO.DAT" THEN GOSUB AMOUNT:GOTO 3101180 IF MONTHFILE$<>"D2:AUTO.DAT" THEN POSITION N7,N17:? "RETURN =q} ENTER NEXT CHECK"1210 IF PEEK(764)=N12 AND MONTHFILE$<>"D2:AUTO.DAT" THEN SVE=N1:GOTO 12601870 XIO 33,#N1,N0,N0,MONTHFILE$r}:MONTHFILE$=MONTHFILE$(N4)1900 POKE 842,N12:CLOSE #N2:OPEN #N2,N8,N0,"D2:BALANCE.DAT":? #N2;BALANCE$:? #N2;YEAR:CLOSE #N219s}30 OPEN #N2,N8,N0,"D2:AUTO.TMP"1960 XIO 33,#N1,N0,N0,"D2:AUTO.DAT":XIO 32,#N1,N0,N0,"D2:AUTO.TMP,AUTO.DAT"2090 DIM PAYEE$(2t}1),AMOUNT$(N7),MEMO$(22),MONTHFILE$(N14),MONTHDAT$(6300),CHNUM$(N4),CHECK$(63),B$(37),T$(N8)2100 DIM TEMP$(22),CH$(40),NAME$u}(N20),ADDRESS$(N20),CITY$(N20),BALANCE$(N8),DATE$(N8),TEMPFILE$(N14),A$(22)2110 DIM AUTO$(315),AUTOFILE$(N14),FULL$(N5)2180v} POSITION 3,12:? #6;"into drive #2":POSITION 3,22:? #6;"Ӡ٠":GOSUB IN22190 TRAP 2730:OPEN #N1,N4,N0,"D2:NAME.DAT":w}INPUT #N1;NAME$:INPUT #N1;ADDRESS$:INPUT #N1;CITY$:CLOSE #N12200 OPEN #N1,N4,N0,"D2:BALANCE.DAT":INPUT #N1;BALANCE$,YEAR:CLOx}SE #N12220 OPEN #N1,N4,N0,"D2:AUTO.DAT"2410 MONTHFILE$="D2:MONTH .DAT":GOSUB SND1:POSITION N20,N16:? " "2y}440 IF TEMP$="A" THEN MONTHFILE$="D2:AUTO.DAT":POSITION 30,N5:? "AUTO":GOTO 25402530 MONTHFILE$(N9,N10)=DATE$2590 IF COUNT=z}N0 AND MONTHFILE$="D2:AUTO.DAT" THEN 27602640 CHNUM$="0000":OPEN #N2,N4,N0,"D2:AUTO.DAT"HFILE$(N9,N10)=DATE$2590 IF COUNT=Z1150 IF MONTH<10 THEN MONTHFILE$(9,9)="0":MONTHFILE$(10,10)=STR$(MONTH):GOTO 11701160 MONTHFILE$(9,10)=STR$(MONTH)1580 DIM |}MONTHFILE$(14),TEMP$(63),DATE$(8),CHNUM$(4),C$(1),A$(1):K1=1:K2=2:K3=3:K4=4:K5=5:K6=6:K7=7:K8=81610 MONTHFILE$="D2:MONTH .D}}AT"1650 POSITION 3,12:? #6;"into drive #2":POSITION 3,22:? #6;"Ӡ٠":GOSUB IN21660 TRAP 1910:OPEN #2,4,0,"D2:MONTH~}01.DAT":CLOSE #2:TRAP 40000"into drive #2":POSITION 3,22:? #6;"Ӡ٠":GOSUB IN21660 TRAP 1910:OPEN #2,4,0,"D2:MONTH210 DIM MONTHFILE$(N14),CHECK$(63),CHECKNUM$(N4),DATE$(N8)270 POSITION N3,N12:? #N6;"into drive #2":POSITION N3,22:? #N6;"}Ӡ٠":GOSUB 80280 TRAP 1550:OPEN #N2,N4,N0,"D2:MONTH01.DAT":CLOSE #N2330 MONTHFILE$="D2:MONTH .DAT"340 IF MONTHddD060A9008D00D08D01 }D060C69EA59EF00160A902859EA6A2F00EA9848D01D2BDAF268D00D2C6A260A20286A260,379HddA5C9D00160A6C9A9AA8D03D2BD5B278D02D2C6C960B }4ADA94385BB84A3A90585A8A92685A6A9B285A5BD642785,568RddA4A000B1A591A3C8C010D0F7203D3218A5A5691085A5A5A6690085A6C6A8A5A8D0DF }203D3260A6BBD00160A6BB,436\ddA98A8D03D2BD02278D02D2C6BB6086CCA90085CBE000D00EE8A5A8D5B1D002F002E6CBA6CC60CAA5A8D5B1D0F4,13 }3fddF0F4C6CEA5CEF00160A91E85CEA6CFBDE627A8A90099001020F330A6CF9DE627A8AD0AD22903AABD4D27990010,975pddC6CFA5CFD004A90F85 }CF6000000000000000000000000000000000000000000000000000000000000000000000,584z* 5265 BYTES D:CLASH.BASFD004A90F85 r,ABKCTRATT1AATT2L1IGSINPUAAAPINTOOBABPOATYGSFVFVAPPPFVGSFVPPPRTPCLERBLNYN$}INIPMTPMYTINFLINFFVPPBCCBCIENGSDECGSARRBTPAUPCERRA%} %} !"#$%}%&'()*+,-./01234%}56789:;<=>?@ABC %}************************* TO IRA OR NOT TO IRA ** A TAX-EXEMPT SAVINGS *(* EVALUATION *2*%} BY DAVID L. CLARK *<************************F A dINPUT INITIAL VAUESn)+  -(!-%}%()(x'-%$   ! ' $)+  -(!-%()(  %+&,$ 55CALCULATE%} RESULTS TO SCREEN AND PRINT TO SCREENG 6- 6-6-6-# )6-76-$+&',; A6-G6-3(>:A%,%}6.E:6-) A3 A":  (>:AS,--%+"A,2(6 : PRINT RESULTS$ A% }@$E((7<,$(7<,+(E(7@, : b#( CMPD.7@,: % }6(  : V( CURRENT  : b( X( : (:( TOTAL AMOUNT PAID IN: $X% }(REGULAR SAVINGS : \( : 7(IRA (TAX-EXEMPT): \(IRA WHEN WITHDRAWN AT LOWERe$% }( TAX RATE (50%) : :( : e( DECREASE SPENDABLE INCOME BY: ($+&,(% } $4(>:AS,%( PRINT ERROR--1 4$7K:6.  6-7GET INPUT SUBROUTINEL )%}L A %+!@E* @X,$%+"A&,$%+"AU,$+%, -67<,. !(>:, >:,)6-&- % 6%}-%67<,.>:,!(>:,% & ($0* *$*CHECK FOR DECIMAL VALUE: ' D#6-%$+&,#6-$$+%}#&,'N86-'++%,#,$6-P:$%','56-P:$%','8$XE6-A(. &6-A:,)$EINPUT YEARS TO RET%}IREMENTbM6-A((.! *6-A:,06-4 7$MINPUT INTEREST RATEl@6-A (. &6-A:,)$%}@INPUT ANNUAL DEPOSITv]6-A02(7<@,YOUR  .6 ?6-A:,E6-I L$]INPUT TAX RATEN6-%}A@((.! *6-A:,06-4 7$NINPUT INFLATION RATE=-@6 2$(-, 0 :2%}=$#(@- #$OPTION MENUO( Ӡ0( CHANGE ONE INPUT VALUEK( INPUT ALL NEW%} VALUESO \!( SEND RESULTS TO PRINTERJ(# MOVES ARROW - EXECUTESVAR\6- - % 6-F%}:,%'P:',)"A@A "(>:A&,76-%+@!,&$+!@!,A A0"@! V-@%}!@!!6-%(((9( NOW PRINTINGB6.P:L AP V $ @"(7<,>:AW,>:AW,:(CHANGE WHICH %}VALUE?@6- -  % 6-F:,%'P:',)"A*A "(>:A&,76-%+@,&$+!@,A A%}4 APINITIALIZE VALUES6-A6-A`'6-A36-A?6-K6-@W6-@%}c6-@o6-@{6-@6-@6-@ 6-@06-A6-A6-Aw6-Ac%}6-@e6-A'6-A36-A?6-B2yK6-APW6-A`c6-B;@ ,;@&,;%}@',;@!,;@,;@,;@,;@,;@(,;@3,;@,;@ ,;@6,~<;%}@,;@,;@!,;@,;@,K6.>:@',]67,.>:@1,l6.>:@(,~67,.>:AV,b$6%}.NO. OF YEARS TO RETIREMENTF6.COMPOUNDED ANNUAL INT. RATEb6.ANNUAL DEPOSIT AMOUNT[6.TAX RATE'6.(AS A DEC%}IMAL)86. ENTER THE [6. TO I.R.A. OR NOT TO I.R.A. f+6.! A TAX-EXEMPT SAVINGS EVALUATION ;6. f6.$**% }**********************************B6.ANNUAL INFLATION RATE66.PURCHASING POWERB6. FV- *-@#67,.%!}>:AV,' *$ D:IRA.BASB6.ANNUAL INFLATION RATE66.PURCHASING POWERB6. FV- *-@#67,.$# ..@@ D:AUTORUN.SYS,-@AU"(*@, )#} @( ( ALL DONE!(YY255,255,0,6,142,6,162,0,189,26,3,201,69,240,5,232,232,232,208,244,232,142,105,6,1892XX2)$}6,3,133,205,169,107,157,26,3,232,189,26,3,133,206,169,6,157,26,3,160,0,162,16,177<\\205,153,107,6,200,202,208,247,169,67,1)%}41,111,6,169,6,141,112,6,169,14,141,106,6,96,172FXX106,6,240,9,185,128,6,206,106,6,160,1,96,138,72,174,105,6,165,205,157,2)&}6,3,232,165PYY206,157,26,3,104,170,169,155,160,1,96,7,0,251,243,51,246,67,6,163,246,51,246,60,246Z^^76,228,243,0,32,32,)'}32,32,32,32,73,65,77,79,82,67,73,77,58,68,34,78,85,82,226,2,227,2,0,6D:MICROMA1.BAS6,60,246Z^^76,228,243,0,32,32,(\))NFNDSORTN1TCNNN1NN1N2NAALNFNADN2N2CN1NCORORETRESCAPBACKSLFLAN1N2BNN1N1SC-)}AN2EDIN2NNNNLSLSTPRLABELN1LINLABEN2NNSVRRRRSN1N1N2N2N2N3DNSZ-*} -+} !"-,}#$%&'()*+,-./012--}3456789:;@<=>?@A-.}BCDEFGHI $$ϭ̠$$ by Clayton Walnu-/}m $$#REVISED 12/16/85( A2Q #A!-@u"+67,.>:,/-0} =-ARA"M67,.>:,Q <$F$A!B7tA$$P"-B:,67<,4 " Z6.7<-1},$d  $n[A@T-2(ADDRESS BOOK EMPTY< A J-AN Q'[ A`x22@-2}!-@P% /22$& 2- #2&$bA@T-2( ENTRY NOT FOUND < A -3}J-AN X Ab A`22IF SCAN AND PEEK(764)=N12 THEN P=P-N1:RETURN?&6.7$@p&@i<$@p-4},.-;7<,0 ? B6.7<&,#6.7%<@$,1-B:,6>7<,4 B ;6.7<,6.7<@H-5},*-677<,4 ; A6.7<,%6.7@I<@c,0-6=7<,4 A 6.7<, A $A-6}K:#AdAU5A@dAA"F:Ad,"AU" A mQF:Ad,"@9)F:A-7}d,"@`)F:Ad,"A$)F:Ad,"AcAdAUm A  )$M 6-6."Ad-8}AU*10-<!A(C(>:,M Ap(>:%A(," A"AR"$"A`"-9}AR"A , 6-%!AR $6- -%&(>:,#67<,.>:,- Ap@, !(>:A&,6-:}-&%",6.J !6.7<,T Ap^* 6- A`4*!6-'6-*$h1(6-?:C:,},.-;(7@f,$! -!(  6-6-6- APN *4-(>:,D6.-?}7$@p&@i<$@p&@F,N A0 4 A  Ap @$6-B:,67<,0-@} " , A 6 A`G6.7<&, 6.7%:,>6.7$@p&@E<$@p&,H A-B}: 4 A  APD67<%B:,,.$N - ( X 6-6-6- APbB *-C}4-(>:,86.7$@p&<$@p&,B A0l 4 A  Av"67@I<@H%B:,,."$-D} - (  6-6-6- APB *4-(>:,86.7$@p&<$@p&,B A-E}. B:,-(-$ A . AP67@d<@e,.$ - (  6-6--F}6- AP6 *4-(>:,,6.7$@p&,6 APC B:, -($-B:,%+(-/ 9 A -G}C AA --@:7,, @H)@:7,,!@W7 A A A 67@f<@p,.$_' ' '-H}' A# A)-A( SA@@Y6-_6-3 B A3 @:1,)!@:6,-I}Ap \ -(7, Ap(6-&@H\A`AAA0AA`+ A-+( -J}IS THIS A LIST?  D A"@:Y,6-&6. 167,. :67,.D A0*"@:N,6- A04 A-K}> AP(A@H;7<,4**67,.*(67,.*167,.; A 0R+ AP-+(PRINT THIS AD-L}DRESS?\ A*"A 0f"@:N,A p@:Y,A`z 6-(A p67<,.* 6--M}%!A % AP(A 5 A A0-5( ARE THESE LABELS? ( A"@:Y,-N}6-( A p"@:N,6- A  A @5 A p-+( HOW MANY 1-5"A`-O}E A0-(7,&AY8AdAUE(A0(-3 6-8 -7<,0*-P} .AY@48 A` AP(A9 -F:Ad,"'/AY@49 A`3 -Q} 3 333 , 7@d<@e, 7@f,$3 3 3 .  8AY@4 A`-R}BHE3,   , 7@d<@e, 7@f,H3G0F:Ad,"%&AY@40 A`L, -S}6-%"@`-"3& ,6-V `% 6-AY@4% A`jPA@T'AY@4---T}F( CHECK PRINTER! P A t A"A`~ -(7, A * 6- A AP*(-U}A@8 - ( RETURN = STOP &-8( ESCAPE = MENU1AdAU AP--A1 F:Ad-V},"%AF:Ad,A`% -(START%AdAUF:Ad,"APF:Ad,"%-W}A A  -(STOP  6-%!A A- -(7,-(7,#6-- A` -X}"ApW 6. 67@p,. %67,./ A`9 A@C AM A@W A -(EVERYTHIN-Y}G OK?(, A"@:N," A, A2@:Y,A < 6-%67B:,%,.F, !,6-?:C:,VV141,2,6,162,1,160,0,177,203,209,205,208,8,200,204,2,6,208,244,240,22,236,0,-~}6,240H^^15,232,165,203,24,109,1,6,133,203,144,224,230,204,176,220,162,0,134,212,169,0,133,213,96RYY104,104,141,1,6,104,-}141,0,6,104,104,141,2,6,104,104,141,3,6,104,104,141,5,6,173,1,6\^^133,204,133,206,173,0,6,133,203,24,109,2,6,133,205,144,2-},230,206,169,0,141,6,6,162,1,160f^^0,177,203,209,205,144,8,208,38,200,204,3,6,208,242,232,236,5,6,240,71,165,203,24,109,2,-}6pbb133,203,144,2,230,204,165,205,24,109,2,6,133,205,144,212,230,206,176,208,169,1,141,6,6,160,0z__177,203,153,7,6,200,-}204,2,6,208,245,160,0,177,205,145,203,200,204,2,6,208,246,160,0,185,7>>6,145,205,200,204,2,6,208,245,240,179,173,6,6,208,-}129,96D:MICROMA2.BAS,145,203,200,204,2,6,208,246,160,0,185,7>>6,145,205,200,204,2,6,208,245,240,179,173,6,6,208,,35 REM CASSETTE VERSION1670 GRAPHICS N0:GOSUB 70:POSITION N1,N8:? "CUE CASSETTE, PRESS RETURN TWICE"1675 GOSUB 210:OPEN #N11},N8,N0,"C:"1890 GRAPHICS N0:GOSUB 70:POKE 752,N1:POSITION N1,N8:? "DO YOU HAVE A DATA CASSETTE?";1892 GOSUB 210:IF A=ASC("N1}") THEN 19151894 IF A<>ASC("Y") THEN 18921896 POSITION N1,N12:? "CUE CASSETTE, PRESS RETURN TWICE":GOSUB 210:OPEN #N1,N4,N01},"C:":TRAP 19101910 CLOSE #N11915 POSITION N1,N16:? "ONE MOMENT...":GOSUB 50, PRESS RETURN TWICE":GOSUB 210:OPEN #N1,N4,N00O12 - DSDATHEXLINDATLIDDBYTPASCHKSUTOTAIN@5} *** MOUSER ***I @ 1(MAKE CASSETTE (0), OR DISK (1)5I5}!@@ C BC0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15(r;@,9@",/-5}@"3"<68,-@ L6-A V#A` A r( CHECKING DATA286-%@(LINE:!"8B:,@A5} <F%6-F:A,%F:A,$AV+C(LINE  MISSING!FFq-@@@56-@:7<,,&@H5}[6-@:7%@<%@,,&@Hq6-8,$@%8,P."@*@ $". @PZ% 6-%!5}A %6-&Ad  ""@Pn A x F:A,@A "Ap(A5}`*@A$)*@@<*@A%O*@@b*@u*@@5}@<-@@g**@. 9@<(Af+("INSERT DISK WITH DOS, PRESS RE5}TURN8;@,<f@@ D:MOUSER.OBJ*@AU)*@AU<*@5}O*@@b*@AHu*@@ A{((READY CASSETTE AND PRESS RETURNH@@5}A(C:R#A0f-@@@j"w*@{ M(( WRITING FILE#6-@/6-A 9#AC 5}A M @P(BAD DATA: LINE __0,4,216,79,255,79,169,0,141,47,2,169,60,141,2,211,169,0,141,231,2,133,14,165}9,56,141,232,2--133,15,169,0,133,10,169,80,133,11,24,96ddA9518D07D4A27FA9009D8051CA10FAE8A005B98B509D8F51E88810F6A9005}8DC702A9118D6F02A000A2088C9250,361dd207950AD00D38D9350A998A2508D00028E0102A907A09DA250205CE4A9268D2F028D00D4A9018D1DD0AD35}002AE,979dd3102852C862DA9F0A001912CA9C2A003912CA982A007912CC8C8C01D90F8608E91508A186930A2039D04D06902,947ccCA10F860005}10A0C0E00000000000000000488A489848A9008D0ED4AD00D38D9550AD93500A4D9550290A8D9750,36bbAD93504D95508D96504A0D965029050D97505}AABD52518D9750AD95508D93504E9750900BAE9250F0064E9750CA,5dd100D4E9750901AAE9250E8E060B0128E9250203F51A005B98B509D8F51E88815}0F64E9750900CAE9150F007CA20,128$dd3F512079504E9750900EAE9150E09FB007E8203F51207950AD8402AA49012D94508E9450F003206251A9C08D5}0E,742.ddD44C62E4AD0BD438E916CD9250B0076908CD9250B0EE600004000801050109000400080206020AAD91504A4AF0,5778dd108555C655AD95}2504A4A8554A9878DFC0260000000000000000000000000000000000000000000000000000000,653B* 405 BYTES D:MOUSER.BAS655AD94w  C>TXFBAA@ 4&9A ,;@ ,;@ ,-6.9}46.(PLOT DATA ENTRY$( ($(1) ENTER NEW DATA FILE((2) APPEND DATA TO FILE2(3) GO TO BASIC<(9} (( Which oneFAA @P @PZdH%( ᠨH(9}n-@A x A( DATA FOR  8,- (}Saving file....9}.-@&@ @8,  (DONE@%/ A/(}Enter file name for new file9}6.D:67@,.+@+@@ A, A ,(}Enter file name to 9}append6.D:67@,.+@+@@  AD:PLOTDATA.BAS name to 8t12WmDSDATHEXLINDATLIDDBYTPASCHKSUTOTAIN@=} *** SLIDESHOW ***I @ 1(MAKE CASSETTE (0), OR DISK (1)5=}I!@@ C BC0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,10,11,12,13,14,15(r;@,9@",/-=}@"3"<68,-@ L6-A V#A` A r( CHECKING DATA286-%@(LINE:!"8B:,@=}A <F%6-F:A,%F:A,$AV+C(LINE  MISSING!FFq-@@@56-@:7<,,&=}@H[6-@:7%@<%@,,&@Hq6-8,$@%8,P."@*@ $". @PZ% 6-%=}!A %6-&Ad  ""@Pn A x F:A,@A "Ap(=}A`*@A$)*@@<*@A%O*@@b*@u*@@8=}@<-@@1**@. 9@<(Ag+("INSERT DISK WITH DOS, PRESS=} RETURN8;@,<g@@ D:AUTORUN.SYS*@AU)*@AU<*@=}O*@@8b*@Au*@@H A{((READY CASSETTE AND PRESS RETURNH@@=}A(C:R#A0f-@@@j"w*@{ M(( WRITING FILE#6-@/6-A 9#A=}C A M @P(BAD DATA: LINE ``0,22,216,37,255,37,169,0,141,47,2,169,60,141,2,211,169,0,141,231,2,133,=}14,169,56,141,232,2--133,15,169,0,133,10,169,38,133,11,24,96ddD8A20020362BA9038D4203A92F8D4403A92F8D4503A90C8D4A03205=}6E4A9E38D01D38D0040A9FF8D01D3AD0040,459ddC9E3F01DA90185AEA9D385AFA92085B0A90485B1A204BDAA2F9D742FCA10F7303DA9078DC0CF8D00=}40A9008DC0,203ddCFAD0040C907F01DA9C085AEA9CF85AFA93085B0A90785B1A204BDAF2F9D742FCA10F7300CA925A235A02F2023,605dd2B4C8=}826A9008DC502A90A8DC602A9248DC80218A55869508D442EA55969008D452EA93A8D3002A92E8D3102A2,794cc2020362BA9039D4203A9319D4403A9=}2F9D4503A9049D4A032056E4A9008584A9408585A9038554A913A2B4A02F,56dd20232BA220A9079D4203A9009D48039D49032056E4C931F004C932D0=}F58DC72F8D28308D3130A900859DA91CA2,612$ddC7A02F20232BA2202056E48DE32FC959D006E69DA902D002A928A2E3A02F20232BA900858D859F85A=}285888589,839.dd85868587203E2BA230A9039D4203A9279D4403A9309D4503A9069D4A032056E4A230A9059D4203A9419D4403A9,9978dd309D45=}03A9119D4803A9009D49032056E4AD5030C953F06FA588C5B0F069A59DD04BA908A243A03020232BA905,898BddA20BA03020232BA220A9079D4203A90=}09D48039D49032056E4C959F010C94EF00CC91BD0E2A23020362B4C0026,157Ldd8D1030A902A210A03020232BAD1030C94EF086A007B9433091808810=}F818A580690885809002E681E6884C5B27,827VddA22020362BA23020362BA588D0034C0026203E2BA9258582A9328583A901A211A03020232BA000848=}CB180C920,841`ddF008993330C8C008D0F2A200BD2B30993330C8E8E005D0F498186903858A18A580690885809002E681A908A212,106jccA03020=}232BA58AA230A03020232BA210A9039D4203A9309D4403A9309D4503A9049D4A032056E4A907858BA907,99tcc9D4203A9009D48039D49032056E4C68B=}10F9A4899915332056E4A489994533A903858B2056E4C68B10F9A90485,51~dd8B2056E4A48B9182C68B10F518A582690585829002E683A908858B2056=}E4C68B10F9A9079D420318A90065869D,295dd4403A94065879D450338A584E5869D4803A585E5879D49032056E4A58CD011A489A586997533A58799A=}533A58D,679cc99D53318A5867D48038586A5877D49038587BD4303C988F03FA58DC5B1F020186901858DA4B0C030F00838E901,28dd0A0A1869E=}3A00091AE84868487E68C4CC528A90DA21AA03020232BA21020362B18A5146978C514D0FCF03DE689,873ddA21020362BA589C588F030A586C584D027=}A587C585D021A58DC5B1F01E186901858DA4B0C030F00838E9010A0A,341dd1869E3A00091AE848684874C1428A9808583A9008582859E85A98D2F028=}D00D48DC8028D1AD0A240A89182C8D0,769ddFBE683CAD0F6A00FB981309966308810F7A95E859885A0A92E859985A1A005B9533091988810F8A907A2=}2BA0AF,806dd205CE4A9C08D0ED4A900858B858DA4B0C030F002A9FFA00091AEA5A2490185A218A48BB975336900858EB9A533,483cc6940858FB=}9D533858DA6B0E030F00A38E90130050A0A1869E3A00091AEA48BB915338590D006200F2E18900320,60ccD22CE69FA900854DA9FF8DFC02AD1FD085A=}BC906D025AD1FD0C906F0F920472BA5A9490185A9AABDA13085ACBD,95ddA33085ADA00FB1AC9966308810F8A5ABC903D0034C0F2BA5A9F027A514186=}9FFAAAD1FD085ABC906F0BFC903D0,842cc034C0F2BADFC02C91CD0034CDA2AE414D0E24CEA2AAD7802C90FF01648A514C514F0FC68C90ED0034CEA2A=}C90D,51ddD0034C032BAD8402D0034C0F2BADFC02C9FFD0034C452AC91CD008A9FF8DFC024C0026C921F004C906D00EE68B,971ddA58BC589F003=}4CF8294CE629C915F007C90EF0034C402AC68B1005A689CA868B4CF829AD8402F0FBAD1FD0C903,588 ddF0F420472BE69E4C402A8D48038E44038C450=}3A90B8D4203A2004C56E4A90C9D42034C56E4A9A58580A9308581,242dd60A97885AAA9A88D01D2A5AA8D00D238E91485AA3008A514C514F0FCD0EC60=}488A489848ADC80229F0A20EA000,905dd8D0AD48D18D08E17D08C1BD0A98F8D0002A92B8D010268A868AA6840488A489848ADC602AEC502AC6F028D0=}AD4,814(dd8D18D08E17D08C1BD068A868AA6840A9658D0002A92B8D0102A59FD0034CB22CC69FA6A2BD2B2F8D662EBD2D2F,7852dd8DC62EA68BBD=}4533290F859ABD453329C08D6F028D1BD0A90085818A0A26810A26810A26811869A58580A58169,353<dd308581A007B18038E920995B308810F518A95=}E8D30028D02D469068598A92E8D31028D03D469008599A9228D2F,919Fdd028D00D4A000A59AC90FD01848A9008DC6028D18D08DC8028D1AD0A90E8DC5=}028D17D06809409198A060919818,820PddA598690385989002E699A05CA59A91988810FB18A598696085989002E699A060A59A91988810FBC90FD0034=}C62,562ZddE4A9008583A58B0A26830A268318658B9002E6831869258582A58369328583A004A200B1829DC4029D16D0E888,543ddd10F4301DA59E=}F019C69EA005A930D1A0F00791A08810FB3008B9533091A08810F84C62E4A4A2A950859185A385,291nddA585A7B92B2F859285A485A618691E85A8A00=}0849484978493B18E0820DA2D28182A26934A8596D00EB18E8597,463xdd20DA2DB18E859620DA2DA593F022B18E20DA2D9191A690E002D00620C22D4C=}2C2D205E2DC696D0E6A597F0BCC6,230cc9710DEB18E859520DA2DA5959191A690E002D00620C22D4C522D205E2DC696D0E9A597F096C69710E118A59=}169,38dd5085919002E692A591C5A7D02CA592C5A8D026A594D023E69418A5A569288591A5A66900859218A5A7692885A7,993ddA5A8690085A8E=}6A5D002E6A660C694A5A5859185A7A5A6859218691E85A8A5A3186928AAA5A46900C592D0E0E4,257dd91D0DC686860E691D002E692A5A418691EAAA5=}A3E492D0C7C591D0C3F0E548A58EC9FFD026A58FC97FD020E68D,404ccA58DA4B0C030F00838E9010A0A1869E3A00091AEA900858EA940858FD006E68=}ED002E68F6860A4A2A9508591B9,43dd2B2F8592A900859BA91E859CA000B18E9191E691D002E69220DA2DC69BD0EFC69C10EB60707050425A2F00021=}0,408dd420000020202020202020202020202020202020202020202413A2E70D0C25930104F50810F0F0F0F0F0F0F0F0F,775dd0F0F0F0F0F0F0F=}0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F,450dd0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0=}F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F4F00900F0F0F,303dd0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F=}0F0F0F0F0F0F0F0F0F0F0F0F0F,978dd0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0=}F,653dd0F0F0F0F415E2E81A190B0453A4B3A533AA0CECFA0C5D8D4D2C1A0D2C1CDA0C6CFD5CEC4A1A0D0D2CFC7D2C1CD,391ddA0C1C2CFD2D4AE=}AEAE8080808080808080ABAFA1ACA180B3ACA9A4A5B3A8AFB780809C80808080809E80808080,357dd8080808080808080808080808080E2F980A3E8E=}1F2ECE5F380AAEFE8EEF3EFEE80808080808080808080808091,730dd9390B8A5A1B8ACAFAE57686963682064726976652028B12FB2293F20209B9B53=}686F7720616C6C207069637475,600dd7265732028D92FCE293F20209B9BD965732FCE6F3D53656C6563742070696374757265732020C5D3C33D52657=}3,353"dd746172749B9B202D2D3E20209B4C6F6164696E6720CDC5CDCFD2D9A0C6D5CCCCA19B44203A2A2E5049439B4420,500,dd3A202020202020=}202020202020202020202020202020202020202020202020202070D0C2593010000000000000,2496dd000000000000008B1D266F7277617264008D1D2=}261636B00A5B3A31D2578697400008B1D266F7277617264008D,533@dd1D2261636B000000D6A1B5B4AFADA1B4A9A3C200008191303000000000000000=}00000000000000000000000000,220D:SLIDESHO.BAS33@dd1D2261636B000000D6A1B5B4AFADA1B4A9A3C200008191303000000000000000<5 )|FMOD@ ;@,2 +(2(Name of Koala file to modify? A}(>@( ( (Which mode (8 or 9) 2 (>@<!!@*@ @PF"@6A}-@P"@ 6-@yZ @@d(-@$)@( n*@xA}@D:SLIDSHO2.BAS@@d(-@$)@( n*@x@)0FXXYYFRBRETXTMONTHXCOUNYCOUNSCASTALABEDXMIDMIXMADMAMONTYMIYMAYSCALXSCALGRAPPZCHOICE}SROWCOLSTARECHARSEEEYPLSYPLSXPLSXPLSXLINXLINESCALPMONTHYLINLINESCALSSSXSYSXXVAYVAXMEAYMEAXSTDE}YSTDXSTDERYSTDER@@ E} E} !"#$%&'()*+,E}-./0123456789:;E}<=>?@A%%VISIPLOT.BAS BY Larry M. Bevard ss9A ,;@5,9A ,E};@5,;@5,;@5,;@5,;@,;@d,;@,^6-6-'6-@36-@E}?6-K6-@^6. JFMAMJJASONDV( }IS THIS A;1( (1) SINGLE VARIABLE ORL( (2) DOUBLE VARIABLEV(E}GRAPH(("@.TIME( A@2 A< .F6-@ A P-@A Z BE}d 8,-n x 6-6-)@6-&@') A++(#USE MONTH OR NUMBER LABEL ON X-AXIS5E}4M-@1(STARTING MONTH #5, A6 A@-@A J BT 8,-^E} | 6-6-@6-&@'"@-SET Y AXIS SCALE-'APSET X AXE}IS SCALE'"@6-'A' A6-'A-@ 68,-  AK +@E}'0@A0@@K@ N#"@ A`# AX Apb E}A'AV@'AW@6(PLOT OF  VS 6(Press for menu F:B2y,@E}A MAIN MENU+@%@2-@@2(@ 0-@0(@E} bARGRAPH!!(@ pOINT GRAPH (@ lINE GRAPH$ (@ sTATISTICS.(@E} nEW DATA/-@@"/(@ 6-@6-##@@KE}:=)@@'"@I3-A0= A6-A@1"@P6-@'6-AP1 AE}"@RB "@S%"@QA A0TEXT CONVERTION SUBR%%6-F:@,$AE}V%F:@,!A)!@@$6-A6-@@6-%$%-@B:,  A"*6E}-F:AV,$AV46-%$@> -@@6@H%$F:%,R \36-%@'6-E}%$@36-f6-%@p u6-z$ ATASCII CONVERTION ROUTINE6-@:7,,6% @2E})+!A'* A`,36-%@d6$'!@1* @'6-&@2$ PLOT BAR GRAPH ROUTINE 9,F}'/AU9/AAU "@A0P  !-   - -@ E,F}8,'AU&8,',/8,'AUE/8,'%@AU ;#/8,'%@AU&8,';/8,'AU&8,' F}-8,'AU =Ae@=@@S:   $PLOT AND DRAWTO ROUTINE9,F}'/AU9/AAU'',8@,'AU&8@,'"@A@@ !6F}-  6-"@A@-@/8,'AU&8,' $-@,8,F}'AU&8,' ")"@$6-6-"$ 6-$6-6',','AUF}&''/'AU&'6$pPLOT X AXIS SCALEz Aa016-'A6-@1 @A`@36-'F}@6-$@3!@A`06-P:%?P,$$@+-@P''!@ +6-@''!F}@ 6-@'AV@'AW@(XSCALE = (VALUE)*$"@Aa% Aa%F }-$,'/'AU  AaU- AaU,'AP/'F }AU  6-!!-$$@$$@ AbP6-%@L.AWP:''@,.AF }VV(` j$X-b,'AU/'l v 6-6-"@ArF } - Arp 6$AWP:','@%@6AV (7<, )6-%@!@F })6-@*   $4-@@> Arp6-%@H.AWP:','@.AVF}R(\ f$@PLOT Y AXIS SCALEJ A`T16-'A6-@1 @A@^36-'@F}6-$@3!@A0h6-P:%?P,$$@r+-@P''!@+6-@|''!@F}6-@- A/,AU&'//@AU&'  -$ F}"@A0 A` /,AU&'//AAU&'& " 0 5 6.=:,6-+6-PF}:AR&',5 A :  D $(#(ENTER NAME OF FILE2#6-C 6-6C <# A F#P# .Z# F}.D:7@,.d#+@+@@n#$'@' !6-$'  6-.'$F}.W6-6-'6-36-?6-K6-W6-.-@.6-%8,.6-F}%8,.6-%8,$8,/6-%8,$8,/6-%8,$8,/ &/ 6-'0/ 6-':/-@D/6-%+8,&F},$+8,&,N/6-%+8,&,$+8,&,X/ b/6-'+&@,l/6-'+&@,v/ 6-M:,/ 6-M:,/6-'$AF}/6-'$A/6-+$&$,'+$&$,/6-+$&$,'+$&$,/ 6-6-$%/ XY/9(9(MEANF}P:$A,'AP:$A,'A/88(STDDIVP:$A,'AP:$A,'A/88(STDERRP:$A,F}'AP:$A,'A/(C.V.P:,P:,/]( ("(LEAST SQU. EQUATION;](X = P:$A,'A Y + PF}:$A,'A/ ( (PRESS FOR MENU 0-@0 0 AD:VISIPLOT.BASA Y + PDm