@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( 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 ALLOWED697 FREE SECTORS COPYING---D8:COPY32.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- 144ɛ+,' 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 D8u)6^^<s3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<T}11111{!!\]_\ED!EOHI B V`}   U} TURBO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ӥL]""$$ (pV}%J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5RW}Ţtd.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$X}LENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأY}$ ,(""(222000000..222222222222222222222222222222**22*22(222(2222222222 ,(""(Z}0000000--**2*(22(2222222 V`hh@,lHH$HHHHHHӍl"[}H$HHl $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( \}) ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eee]}eӦee褢%ƚƜ`88夅奅8^}夕奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 _}*څۅ܅݅ޅ߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈`}0ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0a}ǠF0y"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠb}"("!""" "L**""""""&О"("!""c}" "L**""""""&О"("!""" "L**d}""""""&О"("!""" "L**""""e}""&О"("!""" "L**""""""&Оdf}"("!""" "L**""""""&ОL-6"e"g}"e""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"h}""m"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօi}ׅ؅`` ` ` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiUj}ȐFiiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`Ik}))83Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L-l}-E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8m}م٘؅ؘׅטօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥n}؅ץم؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱o}ሱ`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽp}׽ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - Mq} 1. &Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ)r} 2f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$s})Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1.t} #/ &F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G u} 1.Ӱ6 #/ &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍv}֍׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥ew}Պi؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&x}&&&*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3y}}3`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢z}0襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ{}⅊0 eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30|}  5Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` }}O#`,#5  6`]5 6DE 68DHEIHI V0$ 6Sл B~} V,# 6` $#LllBHI V0HH V0Ԩh``{a$%Ȏ$$xө$Ѝ$ `} `@X a Ӆʢ ʎD  _ɠ %` ɩHH `өL: g% D}:AUTORUN.BASөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0Y|ڝDa۝E}օܥׅݥܝHݝI V0+Ӡڑڑ0`l `  䅠 _ɠԐ}e拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J?L} KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhhh}h`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)}i桰` )``L(兢ħ #$ x Hҩ h$襚ҥ ԝ`} UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ Lĩ} ½J*K+ $LąLĩ …L~ …`H Ġh é`,H hH Ġ  ĭ 8}}} L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ LH} éLH#h ĩ`H hKJ L+ , H hHHħ s hKhJ  Lĩ# qL } ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ Ċ }Ťħ` ¢`届 x݅ L ĽCӠɀ L]Ɉ L] Ln LŠI}HEDBL$HH hh +L `ħ LĢl ¦`YDAER ԅՅ֦}󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,H ĥDEԝH՝Ih L}©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!Ƚ!}``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠFf}ؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`檦}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א& } eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅 ]&} 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eم0&f}fff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ }ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO]}  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :0} `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶ}ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥`}LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3LBˢ}ԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB ؐ}=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩjҤ} /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h L}} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L8 n} 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjH@}MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh &} Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`}!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝Heם}I Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,ߤ} ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q% }L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ֠}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ0}eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8 e}新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭ} Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄`}I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ҩ,} , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!!}!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅiȅ}iȅȩȩ Lfإ  4  \ +] ¥򄟄}   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e拢 } &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ }L 9:枢0 O L :H9Hhh tLHH`h}hLCL馩`ʆLC枢0ְşLC`A枢Ɣ!L!L}!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ % }+HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ոԅ}` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"}嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛIƜFO}NEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRAęREA}ĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERROR- }DPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUSŖTI}ME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚG}OTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGABIN}PADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%5}&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/0}1 2!3"4Ɛ"-"."-؂ٿ֐ː}ĐאŐbj+9,+;,ʐͭ}ͭ@ABC\=>[<+:е<,&%rvnnxc<\}-78s_XV+@D&0d*"'2GJh N}Rl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 } 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Le}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F :}7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩" } 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H YhZ }L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI 䦐}Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąŅ}H h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ }, h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ L.}0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #}ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥剰}#)iiLɠL4űI&`048ץğ=ȱȄ }`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ}`,,L L PQ 8,L ȱI ѝߠȱ`ԩ},L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g }0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?}FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOT}RUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI}?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0}` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC2 sŠ 5  <)  <} L L + e +e`e`&&&&&&eee` &}&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ= } ܥeƥiեLN@ ` **)]` 00`` ( ((((((((8}`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈ } `  M 8*` 兙 󥐅i祣L{ &L}  0 & L ȑ & L; # )ȱ L })ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ`}``=`]``` E߭H Ġ} hL±&Lv`[  ȱ R] } L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`[  ȱ R] h1,27,0,1,0222222222222333311111110000BCDR --($ A3,13,0,3,11.61.51.51.71.81.711.51.811.31.71.7D,,($ABCDR--(;D2:HIJOS1.ORDT4455888; Insert the floppy side and press RETURNa)@k A@D2,40,0,2,04545454545454545454545454550505050505050505252404048484848383839373737373737}3739,2,045454545454545454545454545505050505050505052524040484848483838393737373737374,30,0,3,014615514516717817716014517818017315717716517114817516517614915016216316614715115417715}7152,3,0146155145167178177160145178180173157177165171148175165176149150162163166147151154177155,6,0,1,00,121,332,303,154,85,2$D1:TTBD,,($AB &6,5,0,5,002000010080703020DR--($$D1:TTBC$"D2:PESO3.DATT.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.452L (ʂFpppF` B`AAB B B B B B(} B B B B B B B B B B B B B B B B B B UUUUUU(}UUUUUUUUUUUUUUUUUUUUUUUUUUUU@*@"@(}*@TT"@TT*@T(}T@U@TU@TU@T@U@TU@TU@T@U@TU@(}TU@T@U@TU@TU@T@TU@TU@TU@T@TU@TU@T(}U@T@TU@TU@TU@T"@TU@TU@TU@U@TU@T"@TU@TU@TU@U@TU@(}T*@TU@TU@TU@U@TU@T@TU@TU@TU@U@TU@T@TU@TU@TU@U@TU@T(}@TU@TU@TU@U@TU@T@TU@TU@TU@U@TU@T@TU@TU@TU@U@TTU@T@(}TU@TU@TU@U@TTU@T@TU@TU@TU@U@TTU@T@TU@TU@TU@U@TTU@T@TU@(}TU@TU@U@TTU@T*@TU@TU@TU@U@TTU@T"@TU@TU@TU@U@TTU@T"@TU@TU@(}TU@U@TTU@T"@TU@TU@TU@U@TTU@T*@TU@TU@TU@U@TTU@T@TU@TU@TU@(}TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@(}TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@(}TU@T**@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T*@TU@TU@TU@TU@TU@TU@(}T @TU@TU@TU@TU@TU@TU@T*@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T(}@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T@(}TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T* @TU@)}TU@TU@TU@TU@TU@T @TU@TU@TU@TU@TU@TU@T *@TU@TU@TU@TU@TU@TU@T"@TU@TU@)}TU@TU@TU@TU@T**@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@)}TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@)}TU@TU@T@TU@TU@TU@TU@TU@TU@T@TU@TU@TU@TU@TU@TU@T*@TU@TU@TU@TU@TU@)}TU@T"@TU@TU@TU@TU@TU@TU@T"WUWUWUWUWUWUW"@)}*@@@)}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU)})}) }) }) }) }) })}!"#$%&'()*+,-)}-(K(ʀFpppFPO-}A6A6B B B B B B B B B B-} B B B B B B B B B B -}-}<f-}x`l`fff-}<lx-}<<-}f flf0>>f0 f 0<~8F-} f f8<8F-}|U@f?UT|-}UU@f?UUTfUUU|-}UUU@?UUUPUUU\-}UUU_<<|?-}UUUf0`UUUf0 f`UUU<~8F~UUU-} UUU UUU*UUW- }<< f*UUWfflUUW>><UUW-!}l0UU_  ~fUU_88 F UU_-"} UU_ UU*UU-#}*UU*UUUU-$}UUUUUU-%}UW<UWꪀf U_f -&}U_~ Uf Uꪪ*U-'}ꪪ:U:U<< f?U-(}ffl?ꪪUꪪ<<<Wffl0ꪪWf-)}f~fW<< FWꪪ_ꪪ-*}_~ꪪ_`-+}|ꪪ`ꪽ``-,}ꪪ--}몪<~>-.}^UUUUUUU 0U^UUUUUUU f fU~UUUUUUU8<8FUU~UU-/}UUUUUUU~UUUUUUUUUUUUUUUUUUUUUUUUU-0}UUUUUUUUUTUUUWUUUUUTUUUUWUUUUUT-1}UUUU_UUUUUTUUUUU_UUUUTuUUUUU_UUUUT-2}UUUUUUUUUUT`UUUUUUUUUUT`UUUUUUUUUT`-3}UUUUUUUUP`UUUUUUUUP`UUUUWUUUP~-4}UUUUWUUUPUUUUWUUUPUUUU_UU@-5}UUUU_UU@<~>UUUU-6}UU 0UUUUU f fUUUUU8<8FUUUUꪪ-7}UUUUWꪪTUUWꪪTUUWꪪ-8}UU_ꪪ~~<UU_ꪪ`fUUꪪ-9}|`UUꪪ``UUꪪ`fUUꪪ-:}~<UUꪪUUꪪWꪪ-;}Wꪪ}f?-?}?~-E}f0<< ff0 fffl<~8F>><-F}l0  ~f88 F-G}-H}-I}-J}-K}-L}-M}-N}-O}-P}-Q},(pppOPO1S}A6B B B B B B B B B B B1T} B B B B B B B B B ~~ff<1p1e} p1000`<? a1f}8p<  00ǃ0 1000| q a a3 1g}cx01?7q 0?03 ~0~0Nc q1q}?B%DOS SYSB*)DUP SYSBSAUTORUN SYSBHIJOS1 DATBALTURA2 DATBSISTEMA1 BPESO3 DATBESTATU4 DATBNROHIJO5DATBSALARIO6DATB"ALTURA2 BARBBALTURA CIRBBRPLOT1 GRFBHIJOS1 ORDBALTURA2 ORDBPESO3 ORDBESTATU4 ORDBBORRAR DATBBGRAPHIC GRFBSYSTEM BTREAT1 DATBTREAT2 DATBTREAT3 DATYYY DAT A DATB!ACEPTA ,bTARD BMONO X ORDRPLOT DATADISK HBLOQ ]GREGRS ? `ax0p !r>q 301r}0a~0008 3 3 `1N@g0f `<0`` @p 1s}rf3cq0!\0` 3F3 `0~03 @1t}C18N`8 `81_` @00~6 303f  1u}`>33_8  | @  a3`8C0 p003@80, 1v}G`N@lf 0a   ?C0#r36 40.` 1w}  A33@bA  @  30 G@    0`3@80A`@X 01x} 0?0!x 0@ld a0A#  b  r3f31y}@@G/A   ` 300xC4`G @l E 0h 0`!@01z}>f36X `@X 0C X0 ' @l4  aÈ@ X@@G1{}?p`r36!3 0x@g  A`  0`@G   @ld 01|}  0@0r!/ @h @0 0 02F' @N@,d  G 1B1}}@ P@ x@~1 ?#a 3  #ȀA8NA2c20 ?!&@1~}A2  @ld 2 B    @ 4a ,A  01@h8< 1}@0 0@X0NAF#@N@,d ` p& !? @BPa'!A׀G@@1} h 0@ G21@c!0  2`N !d 2  @ld2 @  @1}~    @h @A|< 8! !0A @ .<8f h >' @@X 0BX @1}6`' 8fn A @@,4 a 8`Anv x@BX @> vf! G@ @1 1}f~< A21@c1@42~<~ @d< ,B`  @@<@1}0   h@X ' r, !@0`80 C @@x 0BP  1}`@@,4 s @BP @ @!001}22q@"1 4 d A @,B0 e X 1} @ @)@ 8 ! P1 @0` @@ x@  @@X 1}BP `c0@/4 @ BP `@@1}`21L"10bd  A ( 1}0 `@ @(` P16 @@ h@ 1} 0@X P c0 D@,ba @@BP 1}0 "@@ 1 `01# @(1} @ A @(  1}P `ff~< h @P ff~<f!I}ȈB1` B I}F#p/Ȉ r1A| BI} 0A`@ /Ȇ X1cI}B 0C 2`eG  I}0 A' `0 b0 @ I}A X 0 ~G@(  DI}_ @(_~0  @ I}3 1 p0!b _ @@0 P cld @I}20 <` X C ~04 !1b @0a 0C@ I} 0 (?c`0@ @@| | sl1 hI}030 `C@ `@34P b1 @I}0  0dP @x0 !@`f3@0 b qI} l@@, @P 3`A 00 6!@( 0 I}@ @?3f 4X ??3`B Ap1@ lI}@P" 8 3@01 @1@??10f 0@ 1@@p @I} 1 c,bP~>83 !@ q1 `  h@PI}~p0c02ldX q3 @0 @ 0dX0@P I}~q`8  @1 A p  1@" @qc @2@I}~>3c0 `  2BA@ 0 rl@,4@x`8 @0d BH <0aI}1 X0XhP@ ~> ` @ @ @ P  P 0@I} 30@@ ~00082aa  @ ?   1A I}@, 2@@"0aX 0d@00@@ `@B" ?0< 30 I} ,4   @X0Dpr2 H0 G@@ I} @P@񀜀@ ! @ ?0g @@X ,  @3 0`01@@I}  d"@@@ G  # @r @B I} c2  D@,< @X 4  `@N@@@ hDI}G 0p ' !8C| 8     I}cr2 a@@`a @@I}@ @#A~ N@@@@X@B  p ' @@ ,# I}8! P00 >@A     I} @2r~ G a@x@ I}# @@@@ >' @@ D@CA8! X ,I}  `@ `~ 2I} G2 qx@  @I}A>' @` 8 @@  @FI}~ @ X 2  GI}x@ A @ > @pI}' 8 @ A   I} ANA@I}? @ #I}A<  AI}G?I}I}I}I}I}I}I}H2,10,0,0,023195038332128211252F:A,c($P)2,10,0,0,011483517341457382729F:A,c($T)2,10,0,0,043585949155257534526F:A,c($X)1}1}1}1}1}1}$!4!6!,5%$!4!6!,5%1}1}1}1}1}1}1}1}$!4!6!,5%$!4!6!,5%1}1}1}1}1}1}1}$!4!6!,5%$!4!6!,5%2}2}2}2}2}2}2}$!4!6!,5%$!4!6!,52}%2}2 }2 }2 }2 }2 }2}$!4!6!,5%2}2}2}2}2#}0:RETURN 1310 IF R=27 THEN POP :CLOSE #3:GOTO 1601320 GOTO 12801330 POKE 752,0:RETURN 1340 TRAP 1350:RUN "D:MENU"1350 GOJ}SUB 1360:GET #1,R:GOTO 13401360 ? "}":? "":? :? :? ""1370 ? "J}"1380 ? "";1390 RETURN 1400 ? "":? ""J}4,30,0,1,0565456898765554322245678903234F:A, --($4G4,30,0,1,0022223334444555555566667788899F:A, --($8GD2:YYY.DATAT4.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.45234.452L 1410 ? "";PEEK(203);""1420 ? "";1430 RETURN "Hv423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.}423.423.418.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.}318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.32424242424242424}24242424242424242424242424242424242424242424242424343434343434343434343434343434343}1,3,0,1,0111l $D1:TARD99(F:A,T1,3,0,1,0111l $D1:TARD99(F:A,\1,3,0,1,0111l $D1:TARD99(F:A,`5000 ? :? "";:? ""5010 ? "ABCDR"5020 ? "f"}";5030 RETURN "5010 ? "ABCDR"5020 ? "d%2$}2%}01,200,0,9,4356.34356.34356.34356.34356.34356.34356.34356.34356.34356.34767788.34788.34788.34788.34788.34788.>'}34788.34788.34788.34788.34788.34788.34788.34788.34788.34788.34788.34788.34788.34789789789789789789789789>(}900.2345900.2345900.2345900.2345900.2345900.2345900.2345900.2345900.2345900.2345900.2345900.2345900.2345900.234>)}5900.2345900.2345900.2345900.2345900.2345900.23451100.21100.21100.21100.21100.21100.21100.21100.21100.21100.2>*}1100.21100.21100.21100.21100.21100.21100.21100.21100.21100.2120012001234.45671234.45671234.45671234.45671234>+}.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.4567>,}1234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234>-}.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.4567>.}1234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234>/}.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.4567>0}1234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234>1}.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.4567>2}1234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234>3}.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.4567>4}1234.45671234.45671234.456745671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.45671234.4567<$!4!6!,5%$!4!6!,5%B6}B7}B8}B9}B:}B;}B<}$!4!6!,5%$!4!6!,5%B=}B>}B?}B@}BA}BB}BC}BD}$!4!6!,5%$!4!6!,5%BE}BF}BG}BH}BI}BJ}BK}$!4!6!,5%$!4!6!,5%BL}BM}BN}BO}BP}BQ}BR}$!4!6!,5%$!4!6!,5BS}%BT}BU}BV}BW}BX}BY}BZ}$!4!6!,5%B[}B\}B]}B^}B_}B`}Ba}@BC4CDRIVEDATANDDANENCLISUPLIDOWLIDOWUDU1D1L A.Sjc} @jd} $(H$(p$($( TARD0@h;@,;@,;@,je};@ ,9AP,;@@,;@@,;@@,;@@,t6-6-6-6-6-jf}6-6-6...6.$ ..6.$!jg}..6.$"..6.$(< 6.D&67@,.=:F:Ajh},,<67@,.:*.DAT<G@@'ARG@@K:FF (}-@F(ji}&ŠҠՠPA-@@#A(&ZR @-@jj}@?(AMOUNT OF DATA (MAX.200): CR4A`d 6-A:,n!A@x(( )"@)jk}P:,@"%& B(}(6-& A P) BAR@) AP)@jl}]]"@e)"@e%@2)"@e%@2$@)"@e%@2$@A@]]"@f)"@f%@2jm})"@f%@2$@)"@f%@2$@Ap]]"@g)"@g%@2)"@g%@2$@)"@jn}g%@2$@A]]"@h)"@h%@2)"@h%@2$@)"@h%@2$@A`jo}]]"@)"@%@2)"@%@2$@)"@%@2$@A0N"@'((-(Are you sjp}ure? (Y/N):)@N@Ap"@% AAR("Ap"-jq} A()(Which erases data: -,""!) )P:,A6"Ap@! "6-&@! jr}ApJ6-&@T -^68,-8%@,h r Ap|AR("Apjs}- A()(What data changes: -""!) )P:,A"Ap< A0(8( Chajt}nge data  = 8, per: < 68,- ApAR(. Ap(*(How many data adds:ju} . )P:,Ap%!AAp"Ap 6-% A P Ap(jv}}DATAVALUE&("((No data( Ap0-@6-: (8,DNF:@,"@!(jw};( ontinue topH)@N(}N]]"@g)"@g%@2)"@g%@2$@)"@g%@2jx}$@AX]]"@)"@%@2)"@%@2$@)"@%@2$@Apb l5(jy}%(Press any key to continue((5)@v Ap (} @Ap(-@@(( PROCESSjz}ING...-@8, 6-@6.=:8,,6-B:,-@7<,4.* &6-&j{}D@6-@+6-%&@D68,-A:7@<%,,  6-   (}AR@j|}  A A )@ "AUA * A4 (}AR>+('(New Variabj}}le Name (*=DIR): +H 4* Ap A0RS 4AR@"(}4-@@F( DATA NO SAVEDPj~}MAS%\_ 6.D&67@,.=:F:A,,767@,.:F67@,._67B:,%@,..DATf5 A@j}5@@p.. @@,,,,z-@ @8, j}@RAR@(}--@@H(DATA SAVED CORRECTLYRMA%-&%@)j} A `%(Data /: )A B A p,-@ F:@,=( Frecuency: A )P:,j}A p!6-%&@!!A p -''68,-P:,%P:^:,$A,'A(Data /:  j}6-%&@ $$. (}8* A*@@B!6-@!AR@L&#( j} VARIABLES DEFINED &(V@` 7@<@ ,4FREE 2-@@(FREE 7@<@j}, Sectors (P:A:7@<@,,$?P, Kbytes)j((7@<@ ,4FREE At2-F:@,2(7j}@<@,7@,~F"F:@,"@*"@"26. ontinue < AF A@F:@,"@$6j}-@"6-@"@@ A A.6.nter A$@. AP-@@ (j})@ne4 ontinue *+"@g)"@g%@2)"@g%@2$@)"@g%@2$@,k(}n$vj}a4nter*+"@i)"@i%@2)"@i%@2$@)"@i%@2$@,sARv$'"@'j}'@' Ap AAR$ Ap%D:MENU$ A)@$ A`j} (}(((( ,,($($( ( (299(j}F:A,<(F$6( (6($,,($ABCj}DR--($$D2:TARD,,($ABChRN `AR@;@s,(RR6.H Autor: n}- cfernan@uchile.cl - CHILE 2-@@e<&-@@& 7<%@,F M@P Z @Pn}D2:MONOl - CHILE 2-@@e<&-@@& 7<%@,F M@P Z @Pl43434343434343434343434343434343434343434343434343434341717171717171717171717171717}1717171717171717171717171717171717171724.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324}.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.232}4.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2316.5516.5516.5516.5516.5516.5516.5516.55}16.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.55}16.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5}516.5516.5516.5516.5516.5516.5516.5516.5516.5516.55202020202020202020202020202020202020202020}202020202020202020202044444444444444444444444444444444444444444444444444444444444444}444422222222222222222222222222222222222222222222222224.524.524.5444444444444444444444 ^2,400,0,5,216.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.55r}16.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5r}516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5516.5517r}171717171717171717171717171717171717171717171717171717171717171718.318.318.318.318.318.3r}18.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.318.3r}18.318.318.318.318.318.318.318.318.318.318.318.32020202020202020202020202020202020202020202r}02020202020202020202022222222222222222222222222222222222222222222222223.423.423.423.42r}3.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.42r}3.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.423.424242424242424r}242424242424242424242424242424242424242424242424242424.2324.2324.2324.2324.2324.2324.2324.23r}24.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2r}324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.2324.524.524.534343434r}343434343434343434343434343434343434343434343434343434343434343434343434343434344444r}44444444444444444444444444444444444444444444444444444444444444434343434343434344444p^((DRIVEFYYREKXXHXXINYISYINZINDBKAFCRIQZDABDEORAMTODLISADDRESNUMBEIOCv}ADRHADRLNUMHNUML v} v} !"#$%&'()*+v},-./012 PLOTI;@,6.D367@,.=:F:A,,I67@v},.:*.GRF ?#@@K:5@@? A  (}* AP*@@v}(!6-@!AR@2%"( GRAPHICS DEFINED %(<@F 7@<@ ,4FREE 2-@v}@(FREE 7@<@, Sectors (P:A:7@<@,,$?P, Kbytes)P((7@<@ v},4FREE A0Z2-F:@,2(7@<@,7@,dF"F:@,"@*"@"26. ontinue < Av}@F @@n@F:@,"@$6-@"6-@"@@ @`x @`16.nter  A@'v}@1 A-@@ ()@ne4 ontinue *+"@g)"@g%@2)"@g%@2$v}@)"@g%@2$@,k(}n$yd4nter *+"@i)"@i%@2)"@i%@2$@)"@iv}%@2$@,vARy$'"@''@' AP APAR$##@v}@K:j (}-@H('ŭ̠ӠԠ\-@A ` j Av}@-6$+&,6--$+&, A6-+&,'+$%$, !) 6- AQ 6-$v}6-$6-&$)6-%$$36-%$C6-A&&Q6-%AY" / A, ,6-6 B v} @-$+&,6-J-6$+&,T A^6-+&,'+$%$,h !) 6- ArQ 6-$v}6-$6-&$)6-%$$36-%$C6-A&&Q6-%AY| / A ,6- B v}  A 6-6- -6$+&,-$+&, Ap6-+&,'+$%$, !6-  v}6- B   !6-  6-$M2A@@--A1 ;2Mv}AdAU26-F:B2y,"@( A 02 A #"@ A# A -"@*"v}# A- A &-"@*"@# A0- A 0(F:Ad,"@((}( A: A NF v}A@2@@P:F3 GRAPHIC OF: X 3 3b`(@((@M90,0*I8(@v}C0I-6$+&,O6-`-5$+&,l6-+&,'+$%$,v !) 6- ApQ 6-$6-$6-&$v})6-%$$36-%$C6-A&&Q6-%AY)(@D,6) Ap!(@M,6!6-v} B  -5$+&,6--6$+&, AP6-+&,'+$%$, !) 6- Av}PQ 6-$6-$6-&$)6-%$$36-%$C6-A&&Q6-%AY)(@D,6) APv}!(@M,6!6-% B  %(@C1(@ M159,-191<<(@+D20,-117;1v}59,-44;300,-117;159,-191;159,-147 7(@M20,-1177(@D20,-73*M159,-44LL(@;D159,-K1*M300,-117*Dv}300,-73;159,-147;20,-73;159,-K1;300,-73 (@ M90,-195*P*(@ M180,-195*P4(@ M-30,-127*v}P>(@ M305,-127*PH""(@ M0,-170*PEJE YR$$(@ M260,-170*PEJE X\%%(@ M165,v}30*PZ MAX=f%%(@ M165,15*PZ MIN=p1(@M0,-290'(@I1 A%6-@6-v}%2*@$$-AA.*F:,2  A%6-@6-6.% A0o,AYv}A'/@ A9/AY@DK/AA]/AYAo/AYAGi,@ A'/@v} @s9,AY@DE/AYW,AAi/A@sE/AYAG'/@ @s3/AYv}E/A@si6-@6-@#6. - A096-@A6. K A0W6-@_6. i A0v}X 6-6-@6.=:,( A016.=:,B6-@9&B:,N6-@X A0X6-@6-@#$6.=:v},. A0:6-@&@6-N6.Z MAX.=X A086-@36.=:,'B:,!@86.7<@,r A0v}6-@&%6-@36.Z MIN.== A0I6-@3R6.=:,aB:,!@r6.7<@,b A06-@v}%6-@26.Y AXIS< A0H6-@0U6.X AXIS_ A0b$ 6-?:C:,<< #A@-Ah"v}067B:,%,.>:,4 > A`8p (}-@C(#ŠΠՠF(I(L(O(R(dARv}@p6-BD( raph function  (D( oad Graphic of Data DiskL)@V$"AU A@v}$%D:GRAF`]]"@q)"@q%@2)"@q%@2$@)"@q%@2$@APj]]"@v)"v}@v%@2)"@v%@2$@)"@v%@2$@At A~UAR(?("Write ڽv}ج٩ < ==> MENU B(FU4Ar (}AY--@@8(260 J-@@ U(v}350 g-@@r(700 a-@#( 440 5-@C( 620 U-@!a(v} CONT*-'AB@*&gAB@'AY@49-@?(}g(#v}ŭ̠Ӡ%( ( (6-%AR@v A(((/( escale utomatic 2(G( ev}scale anualT)@`@wl6-@v APrAR!6-@$(G(Lower Limit for the axiv}s Kn(Upper Limit for the axis r 6.%!)!) (ERROR% A GAR(=(Lov}wer Limit for the axis & AG6-5(+(Upper Limit for the axis & /56-%!)!) (ERROR% Av}PK(+(Resolution (1=high .... 10=low)/=6-%@K6-$>P * (} A )@* @ v}_ 6.D&67@,.=:F:A,,767@,.::(_(Enter a name for the graphic :46.GRAPHIC(-v}67@<@,.-67B:,%,..GRF27 (} ((7(#When the figure is on display :<J(*(Π Add titlesv} and axis J(Ԡ Save to data disk F$$(Ԡ Print on paper P&&(à Exit to another chartZ8(v}&(Press any key to start ...8AdAUd F:Ad,"AUAnT A"(((("(@( v} Calculating...J AT A@xV6-A@'+&,'6-A@'+&,96-@C'+&,V6-O:$,%O:$$,%O:$$v},C +@$AAV+A /9 APC A0ll104,104,141,21,6,104,141,20,6,104,141,27,6,104,141,v}26,6,160,193,173,255,255,136,240,35,141,255,255,238cc26,6,240,21,173,20,6,56,233,40,141,20,6,144,4,24,76,19,6,206,21,6,76v},19,6,238,27,6,76,33,6,96bb104,201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168,104,133v}ii217,104,133,216,104,104,240,236,133,212,24,165,214,101,88,133,214,165,89,101,215,133,215,152,240,15ff165,214,105,64,1v}33,214,165,215,105,1,133,215,136,208,241,132,221,160,0,132,220,177,216,160,0,170XX16,1,136,132,213,138,41,96,208,4,169,64v},16,14,201,32,208,4,169,0,16,6,201,64,208,2__169,32,133,218,138,41,31,5,218,133,218,169,0,162,3,6,218,42,202,208,250,109,v}244,2,133,219hh164,221,177,218,69,213,164,220,145,214,200,132,220,196,212,208,182,24,165,214,105,40,133,214,144,25523v}0,215,230,221,169,8,197,221,208,159,96,207,96* (} A )@* @ 1 (}6-@'ARv}1 Az-@@/(Name of graphic : 3J6.7@<@,a67@<@,.z67B:,%@v},..GRF; +@$AAV1A ;@+6-@6-@ +8"@v}#-AA*). 8 A"8"@#-AA*). 8 A,"-AA)v}" 66-F:A,$AV@%%6-F:A`,%AV$F:Aa,J 6-T 6-&%^6-@$h'6-A2%v}'%@%@r6-P:'AV,|6-&$AV%@%@6-P:'AV,6-&Av}V$%@%@ 6-?:C:hhhLV,<,)'@@') A $$ Ap)v}@$ A%p (}-@C(#ŠҠՠF(I(L(O(R(dAR@v}p6-7( pson CR-220  (7( tari 1020)@$"AU A@$%D:GRAFdUv}"@i)"@i%@2)"@i%@2$@)"@i%@2$@a6-@d$dU"@e)"@e%@2v})"@e%@2$@)"@e%@2$@a6-d$ A&2 A@2@@v}P:0(@9:-%@9D* 6.>:,67A,.*67@,.Na6-?:A6<:@',A>:,>:A,^ a$X$X> (}(((>($v},,($ --($$@2 (2($v}99(F:A, --($v}l $D2:PLOT99(F:A, --($t7000 ? "}":? "":? :? :? ""7100 ? " "7200 ? "z}";7300 RETURN 7999 REM ? "}":? "":? :? :? ""8000 ? "":?z} ""8100 ? "";PEEK(203);""8200 ? "z}";8300 RETURN "8100 ? "";PEEK(203);""8200 ? "x!?@x##BLANCOTRATNTT1T2T3T4T5T6T7T8T9T10T11T12T13T14T1T2T3T4T15T16T17DRIVEDRT18T19T20T}RENEDATRATOTT2TT2TT3TT4TT5TT6TT7TT8TT9T1T10T1T11T1T12T1T13T1T14T1T15T1T16T1T17T1T}18T1T19T2T20RESTSCTYRYEYGLBGLTGLGLTCMCMCMFCAFCALSCTBYTCA@@}@@@@ @ @ @ @ @@@@}@@@@@@ !"#$}%&'()*+,-./0123}456789:;<=>?@ABC}DEFGHIJKLMNOPQRS}TUVWXYZ[\]^_`ab}cdef BLOQ ;@@,;@ ,;@@,;@ ,9AP,9AP,9AP, }9AP,9AP,9AP,9AP,9AP,9AP,9AP,9AP,9AP,9AP,9AP, };@ ,;@ ,;@ ,;@ ,9AP,9AP,9AP,S;@ ,6-F:A,067@,.D }B67@,.=:,S67@,.:&&9AP,9AP,9AP,(Y@.@@S:9@ }Y@@K:2AAR@'@@A0@<-@AP }F68,-!68,-068,-?68,-N68,-]68,-l68,-{68,-}68,-68,-68,-68,-68,-Pw68,-!68,-068,-?6}8,-N68,-]68,-l68,-s(.w ZM (}-@D($ˠ̠͠}ՠG(J(M(d$ @ A$)@n"@'A@x A` AM26.( } M6.Blocks for treatment;-@@ '(@: +16.84;% A0}@@+@@@@+-@@'68,-+ W-@ }(,-@@ >(@: BH6.W4A A0N@+@@}@@NA`C-@@'68,-+ 76-@C6-@-@ e }B-@ $(6-@@ B(: FM4[6-&@e A` A0 A}-@@*"@68,-$6-@*6.*"@68,-$6-@*6.$"@6}8,-$6-@"$"@68,-$6-@,$"@68,-$6-@6$"@68,-$6-@}@$"@ 68,-$6-@ J$"@68,-$6-@T$"@68,-$6-@^$"@}68,-$6-@h$"@68,-$6-@r$"@68,-$6-@|$"@68,-$6-@}$"@68,-$6-@$"@68,-$6-@$"@68,-$6-@$"@}68,-$6-@$"@ 68,-$6-@    (}-@ A`6-%8,}6-%8,$8,6-%8,6-%8,$8,*!@6-%8,*6-%8,$8,*!@6-%8,*6-%8,}$8,*!@6-%8,*6-%8,$8,*!@6-%8,*6-%8,$8,&*!@6-%8,*6-%8},$8,0*!@6-%8,*6-%8,$8,:*!@6-%8,*6-%8,$8,D*!@ 6-%8,*6-%8},$8,N*!@6-%8,*6-%8,$8,X*!@6-%8,*6-%8,$8,b*!@6-%8,*6-% }8,$8,l*!@6-%8,*6-%8,$8,v*!@6-%8,*6-%8,$8,*!@6-%8,*6-%!}8,$8,*!@6-%8,*6-%8,$8,*!@6-%8,*6-%8,$8,*!@6-%8,*6-"}%8,$8,*!@6-%8,*6-%8,$8, (. JJ6-P:+%%%%%%%%%%%%%%%%%%%,#@#}%?P,'+$,116-%%%%%%%%%%%%%%%%%%%&??6-$%$%$%$%$%$%$%$%$%$%$%$%$%$}$+!6-%$%$%$%$%$%$+6-'&-@WW6-8,%8,%8,%8,%8,%8,%8,%8,%8,%8,%8,%%}8,%8,%8,%8,%8,6-%8,%8,%8,%8, 6-$'6-%   6-& 6-&& E6-&@6-&}&@;6-+&@,$+&@,E6-%%*7 6-'6-'6-''/6-'76-'4I (}-'}I((>C-@C((|̠ӠԠ|HC-(}@C((R@-@@@(&ӠƠŠ\)}C-@C((fC-@C((|Ʈ֮Ӯîîͮ*}|pC-@C((zr-@ #(|Bloq|5-@@ +}>(|P-@$@ Y(|k-@9@ r(|C-@C((,}r-@#(|Trat|5-@@>(|P-@$@Y(|k-@9@r(|C--}@C((r-@#(|Err.|5-@@>(|P-.}@$@Y(|k-@9@r(|C-@C((W-/}@#(|Tot.|5-@@>(|P-@9@W(|C-@C((0}I-@!?(|F Calculado bloques= I A ''(|F Calculated blocks= in1}finite-@9@(|C-@C((I-@!2}?(|F Calculated treat.= I A0''(|F Calculate treatm.= infinite-@9@(|C-3}@ C((B-@#B('ŠԠԠ4}$)@6-&@H."@%8"@AB"@APL A`V (}`?675}@,.*.DAT" @@?@@j!6-@!AR@t&#( VARIABLES DEFINED &(6}~@ 7@<@ ,4FREE 2-@@(FREE 7@<@, Sectors (P:A:7@7}<@,,$?P, Kbytes)((7@<@ ,4FREE A 2-F:@,2(7@<@,7@,8}F"F:@,"@*"@"26. ontinue < A0F A0@F:@,"@$6-@"6-@"@@ 9}AP AP16.nter  A0'@1 A-@@ ()@ne4 onti:}nue *+"@g)"@g%@2)"@g%@2$@)"@g%@2$@,k(}n$yd4nter *+"@i);}"@i%@2)"@i%@2$@)"@i%@2$@,vARy$'"@''@' @<}@ A@ AR$/ A@/6-F:@,%F:@,$AVM6.7@<@,167@=}<@,.M67B:,%@<@,.#T67B:,%@<@ ,.;67B:,%@<@,.T67B:,%@,..AZR>}(+@+@@2--%A 6-F:,)*@- <@ A`F A`?}@P&-@"&-F:@,ZW-@@@$)@267<,.>:,J7<,4|)7<@},4W67<,. d n3x) @@() A`c 6- A @;@@A}P@VY'c A $M6.7@<@,167@<@,.J67B:,%@,..DB}ATM$ AP%D:ANVA$ Ap)@$ A@uAR@(}.-@@>( ŠҠҠϠC}Ҡr6-@#@#@#@#@#@u%X> (}(((>($Y,(D}$ V($Y$@2 (2($E}f9(F:A,c($f$D2:BLOQF}f9(F:A,c($f$D2:BLOQ|5 REM REGRS10 OPEN #4,4,0,"S:"20 POKE 752,1:POKE 82,230 SETCOLOR 2,0,0:OPEN #1,4,0,"K:"40 DIM N$(40),X1$(20),Y$(20),X1(40H}0),Y(400),YEST(400),ORD(400),D$(8),I$(8),A$(192),DRIVE$(20)50 P=2:DRIVE$(1)="D":DRIVE$(2)=STR$(PEEK(203)):DRIVE$(3)=":"60 ?I} "}":POSITION 0,0:? "ŠҠΠ㠽":? :? :? 70 TRAP 60:GOSUB 8000:GET #1,R:IF R=27 THEN 230080 PJ}OKE 752,0:GOSUB 1730:POKE 752,090 POSITION 2,20:? "Variable dependent (Y): ";:INPUT N$:D$=N$100 Y$="D":Y$(2)=STR$(PEEK(K}203)):Y$(3)=":":Y$(4,11)=N$:Y$(LEN(Y$)+1)=".DAT"110 CLOSE #2:OPEN #2,4,0,Y$:INPUT #2,TD,NY,NEGY,C,D120 POSITION 2,21:? "VarL}iable independent (X): ";:INPUT N$:I$=N$130 X1$="D":X1$(2)=STR$(PEEK(203)):X1$(3)=":":X1$(4,11)=N$:X1$(LEN(X1$)+1)=".DAT"M}140 CLOSE #3:OPEN #3,4,0,X1$:INPUT #3,TD,NX,NEGX,C,D150 IF NX=NY THEN N=NY170 A1=N:POKE 752,1180 FN}OR I=1 TO N:INPUT #2,DAT:Y(I)=DAT:NEXT I:CLOSE #2190 FOR I=1 TO N:INPUT #3,DAT:X1(I)=DAT:NEXT I:CLOSE #3200 POKE 752,1:? "}O}":POSITION 0,0:? "ŠҠ":? :POKE 82,2:? :? 210 ? ""2P}20 ? "|Ҡ̠ҠΠŠҠ|"230 ? ""240 ? "|Q}|"250 ? "||"260 ? "|򠠠ٽªؠ|"270 ? "|R}|"280 ? "|㠠ٽªثê޲|"290 ? "||"300 ? "|S}젠ٽؠ|"310 ? "||"320 ? "|젠ٽ |"330 ? T}"||"340 ? ""350 GET #1,F:F=F-48360 IF F<>2 THEN P=1U}370 IF F=107 OR F=-21 THEN RUN 380 ON F GOTO 400,400,400,400390 GOTO 350400 TRAP 40000:TRAP 2310410 GOSUB 1590420 IF F=1V} THEN BETA=(A1*E2-A2*E1)/(A1*B2-A2*A2):ALFA=(E1-BETA*A2)/A1:GOTO 490430 IF F=2 THEN GAMAN=(A1*E3-E1*A3)*(A1*A3-A2*A2)-(A1*E2W}-A2*E1)*(A1*B3-A2*A3)440 IF F=2 THEN GAMAD=(A1*C3-A3*A3)*(A1*A3-A2*A2)-(A1*B3-A2*A3)*(A1*B3-A2*A3)450 IF F=2 THEN GAMA=GAMAX}N/GAMAD:BETA=(A1*E2-A2*E1-GAMA*(A1*B3-A2*A3))/(A1*A3-A2*A2)460 IF F=2 THEN ALFA=(E1-BETA*A2-GAMA*A3)/A1:GOTO 490470 IF F=3 Y}THEN BETA=10^((A1*E2E-A2*E1PE)/(A1*A3-A2*A2)):ALFA=10^((E1PE-CLOG(BETA)*A2)/A1):GOTO 490480 BETA=(A1*E2P-A2P*E1PE)/(A1*A3P-AZ}2P*A2P):ALFA=10^((E1PE-BETA*A2P)/A1):GOTO 490490 FOR I=1 TO N500 IF F=1 THEN YEST(I)=ALFA+BETA*X1(I)510 IF F=2 THEN YE[}ST(I)=ALFA+BETA*X1(I)+GAMA*X1(I)*X1(I)520 IF F=3 THEN YEST(I)=ALFA*BETA^X1(I)530 IF F=4 THEN YEST(I)=ALFA*X1(I)^BETA54\}0 VNE=VNE+(Y(I)-YEST(I))*(Y(I)-YEST(I))550 VT=VT+(Y(I)-YRAYA)*(Y(I)-YRAYA)560 ORD(I)=X1(I)570 NEXT I580 GOSUB 1930:]}XMAX=ORD(N):XMIN=ORD(1):FOR I=1 TO N:ORD(I)=Y(I):NEXT I:GOSUB 1930:YMAX=ORD(N):YMIN=ORD(1)590 VE=VT-VNE:R2=(VE/VT):R2C=R2*(N^}-1)/(N-P-1)-P/(N-P-1):R2=R2*100:R2C=R2C*100600 X=VE:GOSUB 1920:VE=X:X=VNE:GOSUB 1920:VNE=X:X=VT:GOSUB 1920:VT=X:X=R2:GOSUB 1_}920:R2=X610 X=R2C:GOSUB 1920:R2C=X620 REM 630 POKE 82,0:? "}":SETCOLOR 2,0,0640 POSITION 0,0:? "`}";650 ? "|캠";660 IF F=1 THEN ? "ٽªؠ|";670 IF F=2 THEN ? "ٽªثê޲a}|";680 IF F=3 THEN ? "ٽؠ|";690 IF F=4 THEN ? "ٽ |";700 ? "b}";710 ? "|";D$;:POSITION 18,PEEK(84):? "|𮺠";I$;:POSITION 39,PEEK(84):? "|";720 ? "c}";730 ? "";740 ? "|殠d}|";750 ? "";760 ? "|A=";ALFA;:POSITION 20,8:? "|R2 =";R2;:POSITION e}37,8:? "% |";770 ? "|B=";BETA;:POSITION 20,9:? "|R2ajust=";R2C;:POSITION 37,9:? "% |";780 IF F<>2 THEN 800790 ? "|C=";GAMAf};:POSITION 20,10:? "|";:POSITION 39,10:? "|";800 ? "";810 ? "|Ӡƃg}Š|";820 ? "";830 ? "|Ơ󠠠|";840 h}? "";850 ? "|Regr|";P;:POSITION 9,PEEK(84):? "|";VE;:POSITION 25,PEEK(84):? "|";VE/Pi};:POSITION 39,PEEK(84):? "|";860 ? "|Resd";:POSITION 5,PEEK(84):? "|";N-P-1;:POSITION 9,PEEK(84):? "|";VNE;870 POSITION 25,j}PEEK(84):? "|";VNE/(N-P-1);880 POSITION 39,PEEK(84):? "|";890 ? "";900 ? "|Tot.";:k}POSITION 5,PEEK(84):? "|";N-1;:POSITION 9,PEEK(84):? "|";VT;:POSITION 39,PEEK(84):? "|";910 ? "l}";920 IF VNE>0 THEN ? "| F calc.|";VE/P*(N-P-1)/VNE;:POSITION 39,PEEK(84):? "|";:GOTO 940930 ? "| F calc.| Infinm}ito |";940 ? "";950 SETCOLOR 2,0,0:POKE 752,0:POSITION 0,23:? "n}DZDzdzҫ";960 GET #1,U:U=U-48970 IF U=1 THEN U1=1:GOTO 630980 IF U=2 THEN U1=2:GOTO 1080990o} IF U=3 THEN T=5:XD0=4:XD1=75:YD0=4:YD1=43-8:GOTO 11401000 IF U=4 THEN T=7:XD0=4:XD1=155:YD0=4:YD1=91-16:GOTO 11401010 IF Up}=5 THEN T=8:XD0=10:XD1=308:YD0=10:YD1=181-32:GOTO 11401020 IF U=6 AND U1=1 THEN 15401030 IF U=9 THEN RUN 1040 IF U=7 THEN q}14801050 IF U=8 THEN A2=0:B1=0:B2=0:E1=0:E2=0:A3=0:B3=0:C1=0:C2=0:C3=0:E3=01060 IF U=8 THEN E2P=0:A2P=0:E1PE=0:A3P=0:E2E=0:r}VE=0:VT=0:VNE=0:R2=0:R2C=0:GOTO 2001070 GOTO 9501080 POKE 82,0:GOSUB 22801090 FOR I=1 TO N1100 ? X1(I),Y(I);:POSITION 2s}5,PEEK(84):? YEST(I)1110 IF PEEK(84)=21 THEN ? :? "Π堠";:GET #1,R:GOSUB 22801120 NEXTt} I1130 GOTO 9501140 GRAPHICS T:COLOR 1:YU=0:YV=0:YY=0:SETCOLOR 2,8,14:SETCOLOR 1,0,6:SETCOLOR 4,8,121150 PLOT XD0-3,YD0-3:u}DRAWTO XD1+3,YD0-3:DRAWTO XD1+3,YD1+3:DRAWTO XD0-3,YD1+3:DRAWTO XD0-3,YD0-31160 POKE 752,1:N$=" v} "1170 N$(2,6)="XMIN=":N$(8,19)=STR$(XMIN):N$(21,25)="XMAX=":N$(27,39)=STR$(XMAX):? N$;1180 N$=" w} "1190 N$(2,6)="YMIN=":N$(8,19)=STR$(YMIN):N$(21,25)="YMAX=":N$(27,39)=STR$(YMAX):? N$;1200 FOR I=1 Tx}O N1210 X=XD1-(XD1-XD0)*(XMAX-X1(I))/(XMAX-XMIN):X=INT(X)1220 Y=YD1-(YD1-YD0)*(YMAX-Y(I))/(YMAX-YMIN):Y=INT(Y)1230 Py}LOT X,YD1-Y+YD0:PLOT X,YD1-Y-1+YD0:PLOT X,YD1-Y+1+YD01240 NEXT I:XXX=XD01250 FOR X=XXX TO XD11260 I=((XMAX-XMIN)*X+XD1*Xz}MIN-XD0*XMAX)/(XD1-XD0)1270 TRAP 1390:GOSUB 1280:GOTO 13401280 IF F=1 THEN YEST=ALFA+BETA*I1290 IF F=2 THEN YEST=ALF{}A+BETA*I+GAMA*I*I1300 IF F=3 THEN YEST=ALFA*BETA^I1310 IF F=4 THEN YEST=ALFA*I^BETA1320 Y=YD1-(YD1-YD0)*(YMAX-YEST)/|}(YMAX-YMIN):IF YD0>Y OR YD14 THEN A2=A2+X1(I)164}0 IF F<=3 THEN A3=A3+X1(I)*X1(I)1650 IF F<=2 THEN E2=E2+X1(I)*Y(I)1660 IF F>=3 THEN E1PE=E1PE+CLOG(Y(I))1670 IF F=}2 THEN B3=B3+X1(I)*X1(I)*X1(I):C3=C3+X1(I)*X1(I)*X1(I)*X1(I):E3=E3+X1(I)*X1(I)*Y(I)1680 IF F=3 THEN E2E=E2E+X1(I)*CLOG(Y(I}))1690 IF F=4 THEN A2P=A2P+CLOG(X1(I)):A3P=A3P+CLOG(X1(I))*CLOG(X1(I)):E2P=E2P+CLOG(X1(I))*CLOG(Y(I))1700 ? ".";1710 N}EXT I:B1=A2:B2=A3:C1=B2:C2=B3:YRAYA=E1/N:XRAYA=A2/N1720 RETURN 1730 ? "}"1740 DRIVE$(4)="*.DAT":TRAP 60:CLOSE #3:OPEN #3,6},0,DRIVE$1750 X=2:POKE 752,11760 ? " VARIABLES DEFINIDAS":? 1770 INPUT #3;N$1780 IF N$(5,9)="FREE " THEN POSITION }3,18:? "FREE ";N$(1,3);" Sectors ";"(";INT(VAL(N$(1,3))*0.125);" Kbytes)"1790 IF N$(5,9)="FREE " THEN 18401800 POSITION }X,PEEK(84):? N$(1,10);N$(14)1810 IF PEEK(84)=16 AND X=22 THEN N$="ontinue ":GOSUB 1850:GOTO 17501820 IF PEEK(84)=16 THEN X}=22:POSITION 22,3:GOTO 17701830 GOTO 17701840 N$="o End ":GOSUB 1850:CLOSE #3:GOTO 19101850 POSITION 17,20:? N$1860 GET} #1,R1870 IF N$="ontinue " AND (R=67 OR R=67+32 OR R=67+32*4 OR R=67+32*5) THEN ? "}":RETURN 1880 IF N$="o End " AND (R=}84 OR R=84+32 OR R=84+32*4 OR R=84+32*5) THEN POKE 752,0:RETURN 1890 IF R=27 THEN POP :CLOSE #3:GOTO 601900 GOTO 18601910 }POKE 752,0:RETURN 1920 X=INT(10^4*X+0.5)/INT(10^4+0.5):RETURN 1930 O=INT(2^INT(LOG(N)/LOG(2))+0.5)-11940 FOR I=1 TO N-O19}50 IF ORD(I)<=ORD(I+O) THEN 20501960 HOLD=ORD(I+O)1970 ORD(I+O)=ORD(I)1980 IF I<=O THEN ORD(I)=HOLD:GOTO 20501990} FOR J=I-O TO 1 STEP -O2000 IF HOLD>=ORD(J) THEN 20302010 ORD(J+O)=ORD(J)2020 NEXT J2030 ORD(J+O)=HOLD2040} ? ".";2050 NEXT I2060 O=INT(O/2):IF O>0 THEN 19402070 RETURN 2080 N$="D":N$(2)=STR$(PEEK(203)):N$(3)=":":N$(4,7)=D$:N$}(LEN(N$)+1,10)=I$:N$(LEN(N$)+1)=".RGP"2085 CLOSE #2:OPEN #2,8,0,N$2090 FOR I=704 TO 712:PUT #2,PEEK(I):NEXT I2100 PRINT #2};XMIN;",";XMAX;",";YMIN;",";YMAX2110 RAMTOP=PEEK(106)*2562120 DLIST=PEEK(560)+256*PEEK(561):ADDRESS=DLIST:NUMBER=RAMTOP-DLI}ST+1:IOCB=832+32:POKE IOCB+2,112130 ADRHI=INT(ADDRESS/256):ADRLO=ADDRESS-ADRHI*256:POKE IOCB+4,ADRLO:POKE IOCB+5,ADRHI2140 }NUMHI=INT(NUMBER/256):NUMLO=NUMBER-256*NUMHI:POKE IOCB+8,NUMLO:POKE IOCB+9,NUMHI2150 I=USR(ADR("hhhLV"),32)2160 CLOSE #2:}RETURN 2170 RESTORE 2170:FOR I=1 TO 61:READ Q:POKE 1535+I,Q2180 NEXT I:DM=PEEK(88)+PEEK(89)*256:DM=DM+40*1912190 DATA 104,}104,141,21,6,104,141,20,6,104,141,27,6,104,141,26,6,160,193,173,255,255,136,240,35,141,255,255,2382200 DATA 26,6,240,21,173,}20,6,56,233,40,141,20,6,144,4,24,76,19,6,206,21,6,76,19,6,238,27,6,76,33,6,962210 CLOSE #5:OPEN #5,8,K0,"P:"2220 ? #5;"9";}2230 FOR X=DM TO DM+392240 A$=CHR$(K0):A$(192)=A$:A$(2)=A$2250 W=USR(1536,X,ADR(A$)):? #5;" ";CHR$(27);"A";}CHR$(0);CHR$(192);A$:NEXT X2260 LPRINT ,,"XMIN=";XMIN,"XMAX=";XMAX2270 LPRINT ,,"YMIN=";YMIN,"YMAX=";YMAX:RETURN 2280 ? "}}":POSITION 0,2:? "X=";I$,"Y=";D$," Y-EST"2290 ? "========================================";:RETURN 2300 TRAP 2305:RUN "}D:PROR"2305 GOSUB 7000:GET #1,R:GOTO 23002310 ? "}":? "":POSITION 10,10:? "ŠҠҠϠҠ":A=1^1^1^1^1^1:GRAPHICS 0:RUN 7000} ? "}":? "":? :? :? ""7100 ? " ":? "}";:RETURN 8000 ? "":? ""8100 ? "";PEEK}(203);"":? "";:RETURN "8100 ? "";PEEKB?+