IMD 1.16: 7/06/2007 21:04:06 NOTATE AQMNOTE3 LBR`NOTEPAD LBR5 NSPATCH AQM NSQ/USQ LBR{ !"#$%NSWP207 LBRl&'()*+,NULL LBR&-./NULU151 LBR0123456789:;<=>?NULU151 LBRB@ABCDEFGHIJKLNVENTORYLBRpMNOPQRSOGRAFDEMLBRTUOGRAPHICLBRTVWXYZ[OJOURNEYLBR\]^_`abcdefghijkOJOURNEYLBRlmnopqrstuvwxyz{OJOURNEYLBR|}OKICHA12LBR)~OKISET3 AQMOKITALICLBR9OKTYPE LBROLDXAMPSLBROLDXAMPSLBROLDXAMPSLBROLDXAMPSLBR`ONECOPY COM-PUBDOM 044vNOTATE.ASM; o !"#$%&'()*+,-./0123456789:2޽hP(FQrfT(h&yI![ӭܟ6k5ο7:^E24\e2lMs) W? Wه?鐥s) W? Wه?p~.*+؇̍T*#p(-9?ZӭIg_{nMXcp*9$V*k N6NlM\'5]ECY+o|I5#*E  =:}&]a0PbWo ]ޣj`WJnPŁ-؍ICEwN^^^( 1G }҉|sA?1)y8|q vtf⫿ROLq'BWŐJXyJI3dA}aODCCVRZPNPPŐJU׮<}aOn,tU Y$ ]w[&}&BWŐ4 + c^X%_=*Jvq}ኯ1nhJ%ڸ׾R!Ç+\y})Ćba(Ƥg&ú7 )vG Iy #W)YwG ;߾b[Vp ` 퓅7 ϳ#W\q` yÞji&픬Cwu| Ƶ^.!7:?tJ#W`tdžDj6&MXx__ % 4|Ӹ^(y#W9?} ؤ?ݱ!7Q&\vԺ>tǓ3L7$irVDu~hV.)(,>1|;pia?@ABCDEFGHIJKLMNOPQRoSTUVWXYZ[\JxOnW&{lm}zqnD E&+ 3/j݂_(QbhU YIaPѼ^w?(Qwxai^;%ȞjlB^V hz>U YIai^;%J@CCV*mUl簩)n`s`q0`>#,gYSOLq'BWŐ4 +Av lG7)l`st njy֝NP!\JU 9` ^1+o|(A=>a )iD)+S>*ArsTJJq[ gԮfCF DqMCⶌtU@ܖl3Z 6 6;%x=PaVOe@P qU8TØY u؂҉ njviCF ^E>6-`S|Տaݻ4Ѥ9q ( ,æ J=ȗ0o*%!˰)R0#`.a%!\G(|_#,\JP0}RKDYn|A}R-7͒+ğkV%xdO5eW?vDvT%tgV +*AT#_^o0{&ğkV +MhJd,G>MؽKM]?Ml`1wLh6XO|S8cjW>9󂴣O5=ސ%Z1J &yM_S&\߅rW^K4Ⴜa%I v7&'jWV)>7i ow ptԮ|r{@u%^HUbZ1y ^^CAi /&b咲}[]?BSbX, jtbDS&Lw&gD>;&^/JlL5jX^1{.H8sAw}Eѝo_m҂|Nb%͂vԸ_ڻW\K̷&$I3N|:@_Ҏ~y6/yx!'zp=yɳH3]̤WiA:MXՎsB&Ntvir QHjWV!ú7IS_!H&}ϟ yÞVLh6ɸӋ?lm}zqn*Ja_053V}UK(̛@CDk˗_>}}EUb?}+p_waxTbwKS8Cwo MyO7-Xۗ_ M0ݸYKMn觯X]yS{9Ѽ`q'b49{F %V||X< }?vɂ܄O٘|B%}yC)mUZЍ/(a^Bp'@{Ɵ%Vw|X~BWŐP|z<֧߾*Jo|$թoMyO7-Xۗ\U1|m#W\(]Huߐ/ >5Tܤ]qDɼ^wG }҉|Rrxz p.(BIۯ(IW\&+5/` SƷ5iӪQn簩[hgRM?(Am+YSƷ O4%5 {2VJUq[ ϔj%0JCq gԮf]vIڕ7&~(AwlZPSm\Cʷ^F ^ψ*`џNtJPn 7(뷈8WF ؽKMQƷĐeؔXvoD^1+o|@|P,3kjWVQ e7T-X^1Z'd,G>MؽKM]?Ml`>c^vo5%'lk\PU6ˑaS0Pױ:B < nX̚ڕ74aj]h6JP%`kԺ>lⶌ-` S nj9mi + eM'Ҧg*8Y7dy@V-`4afqSش J +ğk&M%x=ڻ4lAW++6Ot%i}6˱3k@{&dO5/U< %í3 %Yu>TJP9|PF|k]hҎnLvq}|aaթK ,:?tU O5 {Z<]h6Jzޠޕ`ώnLRV `+&~AS:u iG~5^1nYPD[Ta ` nj;RM|Q[XM'J^ҩ/41yj]k]y[F:~nPl簩pɳ&4 [U-/`>#,gӔB+AvmWV!7)뷈IVҭ?vdO5cQ +%)VG%ȶY| S#{+fS(|_c^^5yJ4}[&7QƷ [%Y|J < nX)AK%誀-cYen %tU@ܖU0#`ώά'NPƷ*:*ArsT=L_ %k_&є6$;6G%\-ր-{fS| cm`.M4iG޷1d6e=V-8Y*B 6 րUƼ|sV [4)t,G>MX%-c3kjWVfX"ָ~Oq[J /mi S E=rM'Ҧg:;)]h6JUq[ ϔj%-cu v+N DlLDMM:iAS4Jzn=d`lUn(M}(AWm[%c";6Jz z5jWVn=dJ=ȗ!wiI;Q +*A Yǡ+YS{qScF ^EmqS#mi S:Q,[<%`ӉbAbIQ>%;aJ'vJ-BDL' K%x=oЭ,,7Qɟ}( y# f99l*&VƼ%`[CiB'>9-`kwi(ArsT-3LV,q;6&j҄ ^(A=5i(z:TJ75ޅr7$ir?ݱQw[po49+As67 /Qo`Ӊ yQ[sA{]@Xk6tTS_pA7+T?*q7ˋX%# {/|ݻ4Ѥ }*l9'N]1ddO5]\vDvk%kBX~AS:uĐeXJ75.iF ^E9 G>iCS7?]hҎ_h{LiB[gJ0טlnL/oD'o^Q,xgT{Nt2:?ݱQ<]pkĉT+AWo~}B;Ôj7٧dy]\kY^1% , %cX,[R x~ B;Ôj7A b2c,XXKN0nY(A9TJ*Jm|ݻ4Ѥ9M49(<#~|PF\vC`MhV.Q V ʡR򮬫%Ȟjwޥ&.`on{cRT{NtթK ,:?tUz,vJi1֜(AT#_ޥ&ƤqNY l3(A|MY-`*%1;tJ=ȗvq ؽKMѻ]\+|_#.oضqӔ6LS:uĐeXJP%`wNiÔ8Mm ^(AT#_ޥ&m\8qSX6ƙo ŦDLz OX%xEzl(hqyBJ`)nؼ(URku5i5M}%JCa:YSriJ_ﶀi `%??%xS]U4tJ`NiH+E nP {/C-8YfR +%J@8Y < /{fMzŴ0{ljV6,)ۑOԺt"bj|]y[͆n|S,_ޑ6=^qB7&LzŔ8ͤ-ՋX%!ϳJT]p ?qzMM0RDQ 2V#GԮܤ SDQ,2V=vo5j]h6JP%`keⶌ` )J75n|lN{oR-1Cl:6=єH[gԺ>l {/a̳ޥ&()A YMY` Nj%ȶY| J0ט^K҄)pJPOָ~O[Ԯf6ˑaSV < nX̚ڕ7lu}(A=5iSܖR 2V-{T+AԸ};aJķXDLgGS#sKF < P̚bIF F,{ +ڕ7lS,QoØh+j&gu%ke,]n[&bj]h6Jz zTyS|ٽ 1d6e=VJPX%un)MZ'NtAzdufAE zP,(x{fM[gԺ>lK4jJUe3` S%x*`Ƒ5%誀-c؂5+o|PD!P)vYe{fMj]h6J75n|lLD[g4M-1C5e_,S3)A=>a X%Y| J|dO50s[p NtgV +%:ˎJm6dy@ܖ5+ou}(AԸ}3nYPZ7ķXJmPzy{EI5w_vUA +֝NB [*Am+*A=5i+AWm+T+AԸ};aJķX[g4My,η 5.6iae(ؓ{ϤWe(ؾ`CIce(4ю􊕠 %۸6ww +|ǰ m_Ђ y^ hzf%J@CCV*AkyJ%A hz>U YD q/'N]1d%z}ìY=I3+%cn BtOnḢ{ X%acIPPŐJZGYSÉI߳̇{ X%a8T1d%ke7dy[Mzpia1d׺:B mgTh߾;߾RnX%( 5{vyP):B 6n-` `ޤB49'N]1dllPJ6e=VG(ml߳5ݛ4Th&gթK ,:?tUa-`}7 qyE)%k%[JX *X%x=op'~Oo6J`V|;>fS|n]h6ˋX%Y=GkZ1M)45iԺ>lm#5.VLj6Ժ>lm#5.mWV)>7iԺ>lIJ#5.VLfu>"_jdufAFIVCwDՊ)OwlMԤ PaS) xDe3`5x@j6Thg%PgGkZ1='!+iiCi(Qwǡ!+d>"_4y`*TT8T1d%˜㡢y~0xpxz kU YIaAPPŐJqY^eyY^eyY^eyY^eyY^eyY^EI71?"_$^˼xDEI׮<"_4y`*T.׸,C5W{^^eyQ _㲼,/ˋ%Ø\f,M4:My7otØg#5bv?ѷJBGkr>+16Gkl>+YYvDOo?v#5e\wotx׈2-G#b~DTˡHߤ-ӳkYPk>ҷJwie[fPo:$}MMpA Oye[>d׈2-sGhҎ#v;J7ϟo<"_#l|~gR4 }ijW0MiCw#o p;%]ǣu>#w(9vDvtO%e>#oV Ćad}>\-` &b҆鮟&6bJ(0PVJ!9"1 2 2e BYB*_6 #"_:Z<2Z2a ʩaB:a2\*_w#"_:[<2[M:Y:Z<2Zédate is entered, a menu is displayed on which the following selections appear: F - Find a note. This is used to retrieve a note from the disk and display it on the screen for viewing, revision, or printing. You will be prompted for the name of the note, and your answer must correspond with a note name in the directory (see D below). If the name you enter does not exist in the directory, a message will say so. N - Start a new note. This is used to start editing a new note that does not yet appear in the directory. You will be prompted for a name. A default name is provided; it is the current date. After you provide the name, you get 20 blank lines on the screen in which to write your note. Z - Discard (zap) a note. This removes the note from the directory and from the diskette. You will be prompted for a name; if your answer is not in the directory, nothing will happen. D - Display notebook contents. This displays a list of names of notes and the date they were saved to dis:[-ʁ:a ʜ ʜ2\ O©*_+~ ʩB*_6+"_:Z=2Z:[=2[é*_B6 #"_:Z<2Z:[ 2\é|B:]<2]2Z:Z6 #"_B*_:Z 6-#:Z<2Z(6 #:Z<2Z6 #:Z<2Z6#:Z<2ZY6 <ʬͺ:]=2]͡É*"͡Éʺ!z6:=2:=2*<J<JB_YQB:_ :_*  >2{$LASTCALR NOTE End of Note $> $ > $ $ $$ $ Note to the SYSOP - Hit twice to exit. 1--------I---------I---------I---------I---------I---------I---------I-----77 $Enter your Name and Today's Date: $ WARNING! Only 5 lines left. $ Do you want to LOG OFF now? (Y/N)? $ Write Error - Cannot close file $k. Pay attention to which letters in a notename are uppercase and lowercase. Help is different from HELP is different from help. R - Rename a note. This renames a note on the diskette and in the directory. You will be prompted for a note name. ***IMPORTANT*** To terminate the program, you must press ESC while the main menu is displayed. *************** Several control keys are defined while NOTEPAD is editing a note. 1. Cursor keys: ctl-h: back one space ctl-j: down one line ctl-k: up one line ctl-l: forward one space ctl-a: to far left ctl-e: to far right ctl-t: to top ctl-b: to bottom 2. Insert and delete: DEL: delete previous character ctl-o: insert a blank line ctl-c: delete a line ctl-r: toggle insert mode on/off. Note that insert mode is not very fast and may drop characters. Also, there is no word wrap at the end of a line. Normal mode is to overwrite. 3. Utility ctl-s: save note to disk with default f*/M*F0g4%Jan!!L͒D**/M*(F0g4LBFeb!>!L͒DQ*/M*OF0g4siMar!e!L͒Dx*/M*vF0g4ʚÐApr!!L͒Dß*/M*F0g4÷May!!L͒D*/M*F0g4Jun!!L͒D*/M*F0g4Jul!!L͒D*/M*F0g46,Aug!(!L͒D; */M*9F0g4]SSep!O!L͒Db */M*`F0g4ʄzOct!v!L͒DÉ */M*F0g4ʫáNov!!L͒Dð */M*F0g4Dec!!L͒D */M*20*/M*#0 0g4 ͉C * $ͪ<͘C͹CÜ͉C͘C>@Day:͘Cyͱ>!1M<͘Cy͹CD I *1M*B #0*1M*G 20 0g4ʆ ͉Cs *q $ͪ<͘C͹CÜ͉C͘C>@Year:͘Cyͱ>!3M<͘Cy͹Cõ , 19ú ÿ !L*1M""z$G#! G#*3M""z$* * $G#!K͒D͉C͘C͹C͉C Date is ! !KG#ͪ<͘C͹C͉C͘C>@Is the date correct? (y/n) ͘CC2-M͘Cy͹Ck yp Y*-M!i ͨ"͚0R4*-M!n ͨ"͚0R40g4ʞ Ü ç * >!;MpCpI}Cÿ * ! >OIp͉C *;M* j0!2K;ͪ<͘C͹C! ;"ile extension .TXT. ctl-p: print note to list device ESC: return to the main menu - NOTE NOT SAVED RETURN: Cursor to beginning of next line A NOTE ABOUT FILES Notes are always stored on and read from the default disk. NOTEPAD itself need not be on the default disk, but it uses a directory file called NOTE.DIR which is created on the default disk if it is not already there. It is recommended that notes not be named with a disk prefix like b: because this could cause confusion. in]{M{M*h!>XBXB!P2*0!!>q9H2*F!!>q9^2*\!!>q9͉C{*y$ͪ<Ê=*$ͪ<Ù *;M*v0$ͪ<ï *=M*v0$ͪ-*CM*F0g4m*>!AMpCpI}C*CM5!3>OIB*@͉C*AM!9K<>-*AM!@K<>-!=;"r*py&3Â*pCÖNOTE.DIR!}CC%å*͉C!CM>o,ù*CM*F0g4&*>!AMpCpI}C*CM!>OI* * >!;MpIpä ͉C! * $ͪ<͘C͹C6 *4 >!;MpIG *E >!=MpIp͉Cï O-------------------------------------------------------------------------------!_ ͪ<͘C͹C * >!;MpIp͉C Note name: Date: ! !KG#! G#!:LG#ͪ<͘C͹C * >!;MpIp͉C O-------------------------------------------------------------------------------!2 ͪ<͘C͹CÔ * >!;MpIpv͉Cò * $ͪ<͘C͹C͉C͘C>@Do you want to name this note by its date? (y/n) ͘CC2-M͘Cy͹C y Y*-M! ͨ"͍0R4*-M! ͨ"͍0R4 0g4c !L*1M""z$G#!K͒Dõ ͉C͘C͹C͉C͘C>@What do you want to name this note? ͘Cyͱ>!KE͘Cy͹Cý .TXT!K! G#!L͒D6 *AM* F0g4͉CNote already exists.! ͪ<͘C͹Cc !K!:L͒D$*">!;MpCpI}C<*:E!C>OI*;M!2K!GMpI6í*AM*F0g4*CM*v0>!CMpI*CM!9Ko,*AM!@K<>o,!;"+*)y&ë;*9>!AMpIL*J>!;MpCpI}C*CMh!f>OI!K*;M!9K;ͭ0p4ʤÌ*>!AMpI*;M>!EMpI!p;"͉C͘C͹C͉C͘C>@What note do you want to rename? ͘Cyͱ>!KE͘Cy͹C!K!GK͒D6*AM* F0g4m͉C͘C>@Note not found. Press any key to continue. ͘CC2-M͘Cy͹C͉C͘C>@What is the new name? ͘Cyͱ>!GKE͘Cy͹Cø.TXT!K!G#.TXT!GK!G#͏$*EM!9K!AMpCpI}C*CM!>OI͉C*AM!9K;ͪ<͝C*AM!@K;ͪ<͘C͹C! ;"͉C͘C͹C͉C͘C>@Press any key to continue.͘CC2-M͘Cy͹Cß ͉CÌ*$ͪ<͘C͹C͉CýEnter the current date.!ͪ<͘C͹C͉C͘C͹C͉C͘C>@Month:͘Cyͱ>!/M<͘Cy͹CC͒D*EM!@K!;MpCpI}CÜ*å!>OIò*͉C*;M!2K<>o,!;"*͉C!K>o,*y&K͉C͘C>@What note do you want to find? ͘Cyͱ>!KE͘Cy͹C6;*AM*9F0g4ʫ͉C͘C͹C͉C͘C>@Note not in directory. Press any key to continue.͘CC2-M͘Cy͹CJó.TXT!K!G#!L͒D*pC!L}CC%*>!;MpCpI}C*!>OI* ͉C*;M!2K<>-! ;"/*-͉C!:L>-C*Ay&͉C͘C>@What note do you want to discard? ͘Cyͱ>!KE͘Cy͹CÚ.TXT!K!G#!L͒D6ó*AM*F0g4ʫ*CM*j0>!CMpI*EM>!AMpCpI}C*CM!>OI*AM!9K@Note discarded. Press any key to continue. ͘CC2-M͘Cy͹C͉C͘C>@Note not found, not discarded. Press any key to continue.͘CC2-M͘Cyer your selection: ͘CC2-M͘Cy͹C͉C͘C͹C*-MͿ"#>!7MpIH*7M*FF0g4_}b!dZ*7M*b20g4ʍz *7M*xj0>!7MpIÒZ*7M*F0g4ʩNîN*7M*F0g4ͧ VF*7M*F0g4*AM*F0g4 ͢ VD*7M*F0g4!R*7M*F0g48͉ͮCC*A$ͪ<͘C͹C͉C͘CC2-M͘Cy͹C*;M>!7MpI*=M>!9MpI*-MͿ"#>!5MpIÛ *5M*F0g4ñ*=M*v0>!=MpI*5M*F0g4*=M*j0>!=MpI *5M*F0g4  *;M* v0>!;MpI% *5M*#F0g4N;*;M*9j0>!;MpIS*5M*QF0g4x%l*j>!;MpI}*5M*{F0g4ʢ%Ö*>!;MpIç*5M*F0g4%*>!=MpI*5M*F0g4%O*>!=MpI *5M*F0g45*;M*v0>!;MpI)*'>!=MpI:*5M*8F0g4QyV*5M*TF0g4mVr*5M*pF0g4ʌ͇pVÑ*5M*F0g4ʫ<pVð*5M*F0g4%*GM*F0g4M*>!;MpIA*>!=MpIp͹C͉C͘C͹C"*=M*j0>!=MpI0*9M*.F0g4cF*D>!9MpIW*U>!=MpIhP*f*9Mj0>!?MpIÀ*7M*~j0!2K<*9MÛ*?M*v0ëðõ *7M*j0!2K;*9M*v0*?M$!G#ͩ#p͉C*7M*j0!2K;*9M*?M*v0$ͪ<͘C͹Cjp͉C38=*7M*1j0!2K;*9M*6v0*;$ͪ<͘C͹C9%uP*s*9Mj0>!?MpIÍ*7M*j0!2K<ä*9M*v0*?Møý*-MͿ"*7M*j0!2K;*9M*v0*?M*j0$G#ͩ#p͉C *7M*j0!2K;*9M* v0*?M$ͪ<͘C͹CÄ%DI*7M*Bj0*G#0g4ʃf*d>!AMpCpI}C~*7M*|j0Î*͂0Ú*AM*v0!2K!;MpI*>!=MpIp͉C*AM*v0!2K;ͪ<͘C͹C!;"*7M*j0!2K!;MpIp͉CZ*7M*Xj0!2K;ͪ<͘C͹C*9M>!=MpIpþ%Ï*7M*F0g4ʣLè*7M*j0>!AMpCpI}C*!>OI*AM!2K!;MpI*9M>!=MpI>*<>!GMpIR*GM*PF0g4h*f>!;MpIyA*w>!=MpIp͉CÝ !ͪ<͘C͹C*7M>!;MpI*9M>!=MpI*>!GMpI*5M*20*5M*#00g4}  *GM*F0g4L  *7M* j0!2K<. *9M*, v0> *< *-MͿ"ͩ#Q *GM*O F0g4e mj *=M*h v0>!=MpI *5M* F0g4ʖ Û *;M* 20g4ʽ ñ * >!;MpI *;M* #0g4 * >!;MpI O*=M* 20g4 ! * >!=MpI!*=M*!#0g42!&!O*$!>!=MpI7!*5M*5!F0g4\!M!*K!>!GMpIpV!wM"lM!xM"2K!yM"9K!zM"@KlM2K9K@KCopyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  """""""""\""`"""""*"*"*":""3څ"*\"*"*"!**"j0"!3u"u"Å"""!6E6͒D&:7Eo!>""!">pI:"W:"2"!">OI!"<#|2F#D*AM*v0>!;MpI*>!=MpIp͉C*AM!2K;ͪ<͘C͹C!;"Q*O!2K!;MpIp͉CÏ*!2K;ͪ<͘C͹C*7M>!;MpI*9M>!=MpIp4%*>!GMpI͉C*$ͪ<͘C͹C͉C͘C>@Print note name and date as heading? (y/n) ͘CC2-M͘Cy͹C>yCY*-M!<ͨ"͍0R4*-M!Aͨ"͍0R4 0g4ʼs*q͉CÉ Note name: Ú Date: !}!KG#!G#!:LG#ͪ<͘C͹C ͢ *͉C͘C͹C*>!;MpCpI}C*!>OI*͉C*;M!2K;ͪ<͘C͹C!;"*7M>!;MpI9*7!c=>!!q9GSIMo,-a*_>!GMpI!>͚@>͚@Å*y&ØNOTE.DIR!$ä*>!CMpIõ*pCNOTE.DIR!}CC%*͉C!CM>o,*y&>͚@͉́C*$ͪ<͘C͹C>@ Notepad Function List F - Find a note N - Start a new note Z - Discard a note D - Display notebook contents R - Rename a note ͉C͘C>@ Ent#͂0)}lg"D#!?#>6#=#>/!?#w9:F#3#:E#2E#!?#>OI!"#%E2>F!>F͒D%E26E!6E͒D!>FB!6EB!7E~##u#?Fwʎ##Â#xʕ#y26EtD6E27F2?G!"#%E26E!6E͒D"#"#F*#|#x#:6EO7E#w## #:#=2##!"$!6E6͒D:7E_!>"W$"\$"Z$%E26E!6E͒D!6EB!7E:Z$O :\$OI:\$!!"w$"6E}!7E6 #=j$tD6E!"$>2!30tD6E!%!7E$~#š$%!7E$~#­$E$%E7E7E%E"@%"<%!6E6͒DZ/!CE>6#=1%7E!!M>GY%~R%Si%!_%0B(FILE OPE"%!6"%!6E6͒DZ/:7Eʏ%=_E7E*% w#Ÿ%6#©%*%!%0B*%%6#6#6###6!S-TYPE FILE NOT FOUN"a&"^&!6E6͒DZ/:7E&=_E*a&7E w# !&6#6# .&*a&!c&0B(6#>6#=Q&6#6!R-TYPE FILE NOT FOUN}2:FM>Gʕ&~R)'Sʦ&!&0B)FILE CLOS"'%~~&*'%6&*'%6*'~&=_E*'!'0B*'&~READ PAST EOREAD ON UN-OPENED FIL,S TYPE FIL!0> 6 #=_/!7E6!7E0:8E:>‹/~##`ډ/ @~ʮ/#.ʮ//~ʮ/#.ʮ/à/ 0~ʿ/#³/!0/! 0/!7E0 w#/~*/> _y{/ />?w#/zW{_zW{_"g03>c0a0"g03>c0c0>c0"g03>c0a0"g03>c0>:4!}o|g}o|g|/g}/o#y>ʦ0ä0y>¦0>F4"0"3>00"0"3>0>4!>2!3"327E2223!3>pI:3i2: 3232 3!3>OI>D!3>OÌ3-1!3>OI47!241>D!3>OÌ3R1!3>OI5!25-1:3k1/23!3>OI͹41!3>pI!2~}1/<҅1^~w>23{23! 3ͫ2w#—1+~0ʢ1:3> 1>-27E:312:3=22>23>23! 38E:31=23~#1>.:3)2=23~#1!8E 3:3/<6.#60=2:3G:3G#w2+~0)2.72#6:2i26E#+L2/<-p# Y2P2:Oxe20w#q#6!7E~€260#6>26EË2#~€2x26E:!3ʧ2:Aʧ2::FO>!6E`@*3!3>OI!3>OI5!3>pI23!3~22=w! 3~w+ 2:3232!3͘8:30#*'!'>o,&S-TYPE FILE CLOS"+$+ ~#5':+:+M'͓(E*+*+(6Gxu'2+::FO>Gʕ+~R•+ w! |2n,"+"("D("+!$+ 2+~#½':E( *(:+( (r(*+*+6 #{'+6 +6 *+$+ w#'!F((͓('!(͓(x(F(Y('r(>2+>(Y('͓(':+*+*+|}*+ͳ(͇*!+0B:n,+ͥ(*+"+*+"+*+"+:+>ʏ(/2+*+ͳ(͟)! ,0B+*+$w#ª(DM*+S+}2+zW{_|g}o(z™)"+"+"+2+2+:n,1)*+E+|™)}™)}O*+ ~1)*+q*+!),0B*+!++!~w##>):+!7,0B:+2+!),0B:n,w)*+}2+2+:+ʅ)=_*+!"+!"+*+!,0B}):+ʻ)*y+;*=¬);**+|»):+*;*)E+:n,*:+*!7Ew#)7E+:n,*"_:n,'**+#"+{+ x)*+Ew#"+}„*E+:n,g*"_:n,y**+#"+{+!"+}ʯ*:+ʠ**y+=”**y++| *E++:n,*!_:n,**+#"+{y+ xó*:+>*+}5+7"U3!>F6͒D!6E6͒D!?F7E~m3OX3T3#>3! ~S3OzT3#Z3S3 S3T3o3S3"3!7E>pI!;E>pI!>E::EҦ3~3::E;E!7E3ʹ3*3!:E>E~w!8E47z4{"+4!/4)4!44!TrueFalse!D4!&.TP4.F"d4͕4!b4!!|>"4{ʀ4Ø4!6E6͒D*4:7EØ4}Tʵ4tʵ4Yʵ4yʵ4ʵ4>>>4>24"4!4>pI!4>pI24244!4>OI!̓5!4;5!4;5*4|'5:4!5!45'5!45!44+05*4}}P5P5!45>24!47wd5+X5:4G!4~w!4͘8:424!4~_w!4~Ww:4W"4!44NG5xҸ5;5à54#~w5~/w+5~w+~w 5"6!6>pI!6>pI:66:66!6~_w!6~Ww"6:626!6 w#+6=6X66666!66w+ L666:6G:6O26x6:66x6*6!6>#7!6>OI*66*6!6:6#7!6>OI!!6>OI*6!6~w+ 6!6~w# 6!67w7+67E+:n,+!_:n,'+*+#"+{2+2+!7EF#"+ѯx|g}oG+>!)f+ f+#=l+))u+#Y+!+0B! ,0B!,0B!L,0B!^,0BR-TYPE REAEXTENDING FILEND OF DISK DAT RANDOM RECOR R-TYPE FILE NOT OPE NO MORE DIR SPAC*WRONG TYPE FIL"-::FO>Gb-~Sb- ~Rb->Ww"m-o-+~#œ,¸,*-~,~#,=_!h-~*-~,#=,*m-o-+w#,-!-0B*-"-*-"-,*-|,+"-*-w#"-:-!-0B:-'-/2-*-ͅ=*-:o-I-=_o- x5-!-0B S-FILE WRITWRITE ON UN-OPENED FIL,S TYPE FIL"'/::FO>G.~S. ~W.>Rw"..*~#-+.k.26E!7Ek.w#=.!6E*'/͒DD.=_!.~*'/k.w#=7.*..*w#L.̀.!)/0B*/"#/* /"%/*#/|U.+"#/*%/~#"%/:"/!7/0B*/ͅ=* /:.ʬ.=_... xØ.*/ͅ=}>M6#. .!N/0B0!6~+~=w!6~w+7 726zW~ww"&8!8>pI!8>pI:858:8)8!8~_w!8~Ww"8:828Y8É7!8n8 ʴ7!8n8!88+’7?x7!88+§7x7:8o:8gG28|7x7x)8*8!X8>y8!U8>OI*&8!87w 8+7!8b8!84#>w!8͘8*8!8:8y8!8>OI!!Q8>OI*&8!;80B DIVISION BY ZER!8b8!8~w# e8~w+p8zW~ww~28#~8+~=w~w~w+¶8 ž86:8+~6# 8>w+>8~w+>O9~:}>:/2;}o|g";DM:;;*  " |!9w~jCJG!BG4#XCJG* s#r#" * +V+^" y2:F áI::FO!G ~ҤC> JG<«CO> JG> JG2BG>GC^#V>!C!D:D͛I:AGCJG";D>D:6E!7EOI:4E!D:6E!:6E!7EOI:4E:D:6E!!"]D24E`D!oDO  ~26E!7EpI!%E26E!6E͒D\D^#V#"D~2D#OI:D!!" EzDOFxDy°D#6D#wDD °D#6DO~DD #6#ypI* E" E6E|D}DqD!7Ey26EpI* EEDF6EO #6 wEz/E *;+DM~+| ;} ;*; * #DM*;w#z';{';+" ! *** Out of Memory ***;^#V#";z^#V+i;Q;*;:;y;;{_zWs#r*;^#V#~#N##N#F#c==;y=w z;"<<x`@*<7E2>7E=??!M=$=NUMBER TO LARGE/SMALy!v=xv=}=) x="=>2=7?{_zW!=5ʺ=yOxG#yO#xGҒ=*= DMÒ=BK2FG +=-=>2FG`i"0>! =T])))0 ?>_=:FG|/g}/o#*0>DM! Hȷ707 ">?_))))>">:6EOʀ>*4E~ R> #ʀ>D>~,ʚ> ʚ> ʚ>E~u>+ʚ>-ʚ> #ʧ>R>~,ˆ># >0ç>~,ʀ>u>ʑ>~,§># "4Ey26EO>Gʴ?O23E!7E"4E26E͛I? ?;?(?Y?s??wʁ?:AG eG eG!G 4 qG6qG!G 4 qG6y2G>GʄGáI2G^#V!G!G>:GO:GH!A GH#~#^#VN#!A HH~#H"I^#=kIV#=WI*I*I"I__{ҋIs+=ʗIr+=ʗIs+=ŠI!IäII> ڷI!D !I0B%BAD CHANNEL NUMBEJJJLJcJTJJJJJJþJJJJJJJJJJ_ͨJ|1J*-J:JCJ8J2J-J!^JdJJ:JJͨJ|†J*J7>|ʙJ2JJ2JJ*J|! "J__7: KJ\!!K0B>2 K:KK ?~JG~#>>26E6:@G>>x>+~JG>x>+>JG> JG>JG>?>#JG͹C!6E>`@>>#JG͹C:3Eñ>!?B:CGO͒@:3Eñ>TOO MANY CHARECTERS. MAX IS 2523E!7E"4E26E^#V"1@>!?*1@*4E*4E~ ?@#"4E:6E26E?!3@0B>! @*1@*4E*4E6!7E"4E#"4E:6E26E @>26E @-ASCII FIL~L@#JG>@#~#y̹C͝C2@~ʁ@2@#~ʁ@JG!@5ʁ@k@:@ʝCyʹC!@XC?2UB"VB2A"@@%E2A!A͒D!A"A!AB::F!*A@~#.,-$*^+/&!\A#~::FO~JG#@N# 6~(B#B6#(B^"#:UBMBB:CG͹C**VB2B~2DG#~2EG#:B!BʜB:CGO>[JGC>]JG> JG:B=2BœB>2By͹C͛I·B:B/2B͛IºB^"#B!BXC:CG͹C WARNING ONL:CGO͹CXC!CXC\!!K0B_<2K!~ɀ&INPUT FILE REAPPPPPPPPP.tҋIs+=ʗIr+=ʗIs+=ŠI!IäII> ڷI!D !I0B%BAD CHANNEL NUMBEJJJLJcJTJJJJJJþJJJJJJJJJJ_ͨJ|1J*-J:JCJ8J2J-J!^JdJJ:JJͨJ|†J*J7>|ʙJ2JJ2JJ*J|! "J__7: KJ\!!K0B>2 K:KKPpeֲ5o N @ jH @ wu$3dG5n9-$`W Ʉ;H@rR|97>xkh>frԴ'xU WAJFP8'ߏUL@2ˬek>Դ'xU WAJEkh?>ݲ&X,_Drn Շ{ڜ7=C"v]bUkh?>|YyEv&5^yp8AXzDq)> 2k!%pM|M hShXR:E2z"CXBY0HGͨG"7za ʹ"61F NSQ version 1v_NSPATCH.ASMI  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHo͢:foUNFiJ!pk^7p[DeHT!5ˬ2 )!%#U+HrAX/eVt9Ϡ.ˬ2 bbTA J85%W[UDtN?]>%nK0 rU%x:)sƠG5Kl+S[ih;Z ZMWxij\z&T]hB;KnR T+Wb㾀Q>+ D%P}Ķ3Hb_h{\DJN["Mؚxi@]YC{k~A[㭡-So {y?x͗5G?Rv&.10 Jim Lopushinsky 11/08/83  22 :˜ Use: NSQ afn [afn afn ...] [destination [drive][user]:]>2  *`{+~<[6T]: 2=2!6 " *"* ~ ʿ#!\H#}9+" !]~ 2+45+~#<9 Output45 drive = ~2@@+~<,=2 user = o95* }µ** b No file(s) found.* ډ! "*." ډ» Out of memory. Use more specific filenames.|g}o"*"** ![ {"!\ͨ![F"{!P~ >Q w#w#6#6 has 'Q' in middle of filetype w!G:Bw: !Gͨ:F !ST]6{!P~wGG< no more directory space*"͆!\ A abnormal EOF on input file  3# >.3x͹~ &3#3** .))* ~3#z62 2 >2 ͓æ͓ʯ! ʎ#45ʦ~6G+~ræ><æ#4~S>~6: 2 S: ><>ͭ###: G: 3>2} */ |>* ͭF#^#V: O{_zW:  !32  y2 }3|:o y:& ** *( G:, Os#r#}` zjʐU"( "* y2, ! 4~Ґ2 !& ~w:=G > :o ®:n !p:o X 2o 2n X ͭ: w#*$ +2> < !"? "@ > !9 B !9 ;: ![ ͹4!& 5:o *( 6:, O}*7zW{_~OA+~+}B 7~#7s#r*( /w#6#"( }!, 4>ͭ###!y*( >+w+9 կ1 7(x!1 4#4#4#4AA*o&))*u 4#4#4ɯGO*u w#w#w#q# \!1 w#w#w#w#!1 6 !"/ ͓o͓gͭ*/ ͹"/ !6 4#4#4*u G͹x͹xo$շ#}o|g|}##~+~+~H + x ~#(G9: {![4:%5~w k\D\<*![{=!k[# {"<2 d́ ́ڋ Ãyʝ: ʦy02 @ɯ2 54ʺ~@@2 +:~<2 =o#: >:@#~ @#x[~ >.@~ @#a{ ~#@~#(@ - aborting.> @> _Ʌo$>} 9!~#~x ~#{:[ *""!hi6{\<** ~#" aborted. :[ *"* \ѷ !"**" *w#"* :F **+}o#"* fGѷm!B*"ʫŽ no more disk space ª has an invalid FCB  media change occurred disk I/O error~# }0 :_}o|g|}_  2 )Vû >2=6û 2=6û 6û >2;6û >2<6û 2<6û >2<6û >26û 26û >2!6͸$2!6zV:7{=VV<2 6gk͸$zV:6{3' V:7 3'{2?6>2} "y !9" 1 *y }o>͹" "u "w V2 ͇ > vx ~+yxX+G]T~w+kb  10/͞ <2n8e ð/e '0:n8 010 ;,!0<0>!010!0!0 w+/:n810͆6++xV"i8&i"]8W0K.>Á/M.*8.'+ʖ0 |,;q,'ʆ0"ʆ0,l0Gt+ |,ʀ0Ç0"8364!*8*i8*]8!!0.>2p8"k8 0:f80x0*k8##~#0+í. 41T6 4,|4- 0*k8. bk07 VOyBͤ ;1yB,1> yB> yB:7 û 7 V2m8Oe i1ʻ Z1r1K.M.!T6:m8O~ʊ1 #~1!ɷ9 ¥1##^#V.3#"V8~(w*"g8x"."0Hi&)))#"6!98Aw#V!9"2!8"4*0A#oA*.~w#~!65’#5*2A~w#–y28*4DM*2*0#:8=28°?z*2*4"2"4z7*2 *6+6"k8+d- ͱ 7 ʆ2;ʆ2,Ćj2##^#V 4ʠ2ʠ26+ Õ26++*u8*k8!2."k8"w82p8 42T6 4,|4- 2*w8*k8.*k8+ð.}_|W:6€͸$:7 26*62"6:6̆26û !8Ns#Fr@3I3q#p*|8^#V+*|8##^#V+*8}i3IxH "! "i`)))#"A > }2 8| ͓t ! S #45k ~6D G+~87 k >AA~6A: 2 8 : ʆ >A ~*w w#s#r#q#"- >2! #^#V#N#~#2s {( :! G*w # #### y2t  *- y2t }O|GT]++:s w#s#r#:t w*- ####"- :! <2! ¹ :! !J 45A E J #8 !p2n 2o ͜g2 2, < 2' e ̈́ʉ G! 4:' xw ^ =à ̈́ʉ } :o id :n !B F ![ J : =2l >2n 2p > >2p !B F  2p !J :l ͹:q Nw:m /<> G:r > 4x2m ( ![ J !J :l ͹~2q :m w:p X !B F X >2m :!l 4V >2o X ~!J ͹~2r  !B 2} ** ))>͹B "9 !"; !9 ;~w6#w#w#w;!6 *6 *B > * *B :} "{ !9" 1 !v.*/ .!"/ *{ #~!6#A*+~wkbA+~w9*!Aw#/!5 #455 +6#͟;̀!̀n_:̀ʽ07 ҡGyO7+~#<7wʩ+q#77457 w!̀ 66 s*xw#6?#x!ʐ45#…a{Ҝ_ɯw# ͷͷ ͷ p# · ʾ ʾ .,:;[]=<>|̀ 66 s*xw#6?#x File squeezer Jim Lopushinsky Edmonton, Alberta, Canada November 8, 1983 SQ has now been rewritten in assembly language. As you will see, it operates much faster than the old SQ program. SQ is now 8080 compatable. The program writer can utilize the squeezer by searching SQLIB in the link step. Only 2 external refrences are needed: SQINIT: This is the analysis phase. SQ readf data for squeezing. Z flag clear (NZ true): byte of data passed. Z flag set (Z true): end of file reached. WRBYTE: This is the byte output subroutine. One byte of data is passed to WRBYTE with each call. Input: Register A contains a squeezed byte of data. Output: none. The WRBYTE subroutine must perform its own error recovery or termination. The main program should do the following: 1. Open the input file 2. Call SQINIT 3. Check for error return from SQINIT 4. Re-open the input file 5. Open the output file 6. Call SQ 7. Check for error return from SQ 8. Close the output file If there are any questions or comments, I can be reached at (403) 484-6945 (Ringback) 6:00 pm - 10:00 am @ 1200/300 baud. RSU e5H MFQD5R?YE E:Ug|fq[]f٠ux3nX; L:;?ٴ`!S >(_'s the input file, and analyzes the file for squeezing. Input: Register HL contains the address of a scratch pad for SQ. This area of ram must be at least 3072 (0C00h) bytes. Output: Register A has the return code: 0 No errors 1 Input file is already squeezed 2 Input file is empty 3 Squeezed file will be larger then the input file. 4 Squeeze table or bit length overflow. Register HL contains the size (in sectors) of the squeezed file. Register DE contains the size (in sectors) of the input file. SQ: This is the squeeze subroutine. It reads the input file again, and writes the squeezed file. Input: Register HL contains the address of the FCB for the original file (so that it cbfpvUP*ˀƃVUz b՛_ V{xx|fPwaA,;^#\r ? :, ͯ:: vUz 3l(8*`XFNkXW<|aА@)*ˠqFrDb,&FXF^dF2 ŕ[\Q#ͣ ^b0+ FYhREXL2@ (,'vP lڎp#wg!-XLF#XLu,o0eXՅa@W+iX_@@ ,2ʠ 30  , " `,P"@@lfT[062h6u@,Ͱ `ʨ`B 4<3h83뀳n@3*8u}Aͪ~~m`` 3l+`ʨ`B 4<3h83ج:fQ??ͪ:9V:tJ́`.Ү`AٵnʨC,aؐ&me\"8 X4|ڨ`Gma ! `H62hC<6606862h60*-ެKZ aZ1T[Pq`fADͧ=e eYX`V,!R,!Ϳ㬮N;xu/J,íbO8u2}R3+-VpC83iC,:4_42ʠ ;8~m? q@f caH|fp(a" >3han write the filename in the squeezed file). Output: Register A has the return code: 0 No errors 1 Abnormal EOF when reading the input file a second time. SQINIT itself has 5 external refrences, 3 of which are resolved in SQLIB. The 3 refrences in SQLIB are: MPBMUL Multi-byte binary multiplication MPBDIV Multi-byte binary division MPLSR Multi-byte logical shift right SQINIT requires 2 external refrences from the calling program for byte read and byte write. These 2 subroutines are called from SQINIT and SQ to input unsqueezed characters, and to output squeezed bytes. The 2 subroutines do not have to preserve any registers, and must return control with a RET instruction. RDBYTE: This the byte input subroutine. One byte of data is passed back with each call to RDBYTE. Input: none. Output: Register A contains a byte oC?c` F;3 f Xf1l*ÀV(fр BA@bH1-Th^f9j *   "" #*3k( ¨`s6 ?? ͮ0+ +ٵUR)u]Daͅ^,2@3n;3n;*p(tcA*=O`Ҹ`qYͧ + H3j+xͨ@ ˂9GmBpmB`PfӐV``*GmBx|fqFͨ࣬2 )uVfpQeXTXT^*K ¨@ڄ bo;Fea'\:k k(8`@+ FX >k)r@ EzGYTnʷ*V#<#9Ϯ` g*WP ³ ,a p(*e80;^, :; *:ʠ ve@ o1u@8ePTa6(F`XqWlڎ!XE@$h>3h@r680j:ʠ v[pY"'\&Uns|~VL+? ާ0 a  ï`*yF6X808Hh?ٷF#D6͡`¬> ݒ*գ V"~ 1E#o+ $`V]`L@@` ,0=Y U`1#r"mTp` ¥@:xO|^c7[/?<U;xwk/@uce3'`ZҰ~7"ٮT=E.^x~f qdg2>3*dopꕆEh2'wUT|D] !u1ن K ޭIlTTV6{P> q MC2-9 "e{d;0Nl'r9O*@*>mWYaې 0)4dӼ pe0a9 &`tۃwԇy҇si?W@ /g`Lvbr!;S2^Uq Ӏ* +0l2ԦYh?aÕ\`p輶c%4LYC$]̡9,Q-z eE U"ap^ li&Xapvb4x ,u5A1MJ3Uc/`]I eQpSTԠT5)@ԀdXޤrP;* k1wJ5EX!iw * ƃV@ՇI% p \ ɪITQU%4XAIMVP5r6\fӀU18\!""!"!8͊G_$**̈́G~#"!""\s*̈́P"*̈́3>|}""!9"v>22"*3w·">*"|s#r#s#r#*+1>**USQ section (C) 1983, 1984 by Dave Rand (403) 484-4114!9":^=2:̀{̀q>==2:2:O:™3O>=2yO*Ҩ##^#Vzʇy2z>{/|}33gojpʤ0+ 4Xv:h(fӀUu 4CPx4x#0x+8Wh5a^݇K`@+*Ҁ "6rj 6àۅ´ pʻ b j? + 6m8e] W ;e_@maZ \HO*3h 0ZfӀ B-k!`D/$&rBHf (4L;ͧ,&ڽ@+*V2 F[FLY!(U h5 [Jc%^wAbmo  `odo*,D`v[.G;TTcAIMVpLY!(U h5 [Jc%^wAbmovTEST.ASM>  !"#$%&'()*+,-./0123456789:;<=o**=ӀvԢp6᎕͎1[d3Ĵ74$CݘLiI CzZV6CzRQjUE𧆴-ɸzŘа#o󔌫W2Cb<'`5eFq&SY{h O e v lƖg&g͏*@*>mW,}9G 9N<PÆ+0neC~x~7L Wr P0Nd S8hʎ~#""*"""$`º* hҗ"$*"hz>zzgon Premature EOF on file... aborted.É:=2:404'>==2:2:O:MzO>=2yO!l b##^#Vz;y2z>{/:\ʋ_\<§:_=!_#:\ ~#\<§Ù:`G:<x@5>:5!a~ 5# >.5!i~ "5# !\*F@G:N: ~# x:^!)~i #># COMOBJBADLOGTX#EXEOVLOVRRELCRLIRLLBRARCLQRDIRINTABSâê ö  - Ð f  "J*"!"!"2O!" "]""!1!++""M>28!"9:] !í 1 TYPE1.COM --------- TYPE1 is a machine language alternative toT DtUCBD(Z1f@ ",!b,!n/L(IX* ʨ/" ",uL("\(·aW0u 6:U@EbͰ *f>'dˀK%0c%誊j19üThe 2 previous bytes are maximum # of lines/screen & max # of lines total/file. 0=infin.These three are the sys file pri the C program to type files. It will automatically unsqueeze files, exclude certain files, and more! Since it is only 2k long, no disk should be without it! Since it accepts the same syntax, you may use it as follows: TYPE *.bas b:q*.?q? C:start.qqz Several parameters may be set in the system. These are paging size, maximum number of lines/file, exclude system files, exclude list of extensions, and mask control characters. The paging size option allows you to control the number of lines per page. If you do not wish paging to occur, simply set this byte to zero. Maximum number of lines per file controls how many lines of a file can be listed before an error message occurs. If you do not want to limit the number of lines listed, set this byte to zero. Exclude system files, when set to X'FF', totally ignores system files, and "tagged" files. No error message is printed, the file is simply forgotten! If you woulnt, extension exclude bytes & ctrl char mask. FF=on, 00=off.!9"$1l n TYPE 1.05 Dave Rand 07/27/1983 CTRL-S pauses, CTRL-C aborts, CTRL-X skips to next file.>2&*." !2ʴ"!"!t *x"*"*~ #ʊʑ|"f*}n No file(s) found.' Use: TYPE afn [afn afn ...]*"""$(* h" !t ` 62'`<ʉ:]/:j‰:a‰Nn Can't type Én Listing file n *"""$vhʳ""Ü1j *+"|#n z‰ʉ5â22n Original name: z‰5"l "|s#r#s#r#*+n ʉ51~##5'  :'<2'G:ʽ½n TYPE ABORTED: Exceeded maximum number of lines. Please use XMODEM to transfer to your system. É:&<2&G:2&n[More...] n #ʉ #ʉ_ A 0=2(:(<2(O 0:(A:_{f  ɿ|}~#5n*$*"d like to be able to list system files, just set this byte to X'00'. Exclude extensions, when set to X'FF', will exclude files like .COM, .OBJ, .INT, .ABS and so on. If you would like to list these files (?), just set this byte to X'00'. Mask control characters, when set to X'FF', will only allow X'0D', X'0A', X'07', X'09' and X'08'. If you want all control charaters listed, set this byte to X'00'. By now, most of you are wondering where these bytes are! If you DDT the TYPE1.COM file, and 'D'ump it, you will see text messages in the first 200 or so bytes directing you exactly to the location of the right byte! Disclaimer and Warning: ---------------------- While this program has been tested, no liablity will be assumed for its operation, or lack thereof. Feel free to use this for personal use, but if you wish to bundle it with other software, or sell it itself, please contact me for more information. Dave Rand 10the file does not match the original. It is usually caused by either an undetected BDOS error, or possibly a file transmission error. Try to obtain another copy of the file, and attempt the decompress again. Differences between the C version and this one: ---------------------------------------------- None of the "-" switches operate in this version, as I have seen no call for them. Directed I/O will not work, but using the command line mode, and a public domain package like "EX 1.21" will give you the same effect for input. Wildcards can usually solve the problem, though, since files that are not squeezed are ignored. Disclaimer and Warning: ---------------------- While this program has been tested, no liablity will be assumed for its operation, or lack thereof. Feel free to use this for personal use, but if you wish to bundle it with other software, or sell it itself, please contact me for more information. Dave Rand 10232-232-160 Street Edmonton, Alberta Canada T5P 3E9  USQ.COM ------- USQ.COM is an assembler version of the standard Unsqueeze program, written in C. The advantages of this version are MUCH faster execution, same syntax for operation (including multiple files and wildcards), and much smaller size (only 2k!). To use this program on files which have been compressed by SQ, simply type: USQ filename Where filename is the full name and extension of the file you wish to decompress. You may also use the multiple file option, and you may also specify a different drive for the output files. As well, you may just type: USQ This will place you into a command line driven mode, indicated by a '*' on the screen. All normal filename combinations will work now, but the disk drives will be res160 Street Edmonton, Alberta Canada T5P 3E9 BUG IN USQ119.COM: Symptom: When unsqueezing very large files, the resulting file's CRC was inconsistent with previous versions of USQ (both "C" and "ASM" versions) and USQ119 also sometimes hung the system. Reason: Buffer area came too close to CCP. Fix: Using DDT, change the following bytes: ADDR OLD NEW 0110 5C 80 0111 F9 F7 That will fix the problem. USQ tested on a 70k+ file, CRC ok, no crashes. ytes: ADDR OLD NEW 0110 5C 80 0111 F9 F7 That will fix the problem. USQ!9"1P *."   USQ v1.20 1/07/84 Dand Rand2 2:  Use: USQ afn [afn afn ...] [destination drive:]>2  *!6x :ʗ2_!6~#a{_: : _!l2 <2m]"!"!X =:] P  Output drive = :\2@ :_͋"*"*~ #pwb"*}et before any operations are preformed. This allows you to change disks without returning to CP/M. As mentioned earlier, this program will also accept wildcards. You may wish to decompress, for example, all .AQM and all .DQC files on drive A, and put the destination files on drive C. To do this, you would type: USQ *.AQM *.DQC C: Possible errors: --------------- While unsqueezing, you may encounter some errors. The most common will be BDOS errors of the bad sector nature. Everyone knows how to handle these! Less common will be messages like "Illegal decode table size", which usually indicates that the file in question is not a squeezed file, but appears to be. If a file is not a squeezed file, but is included in a wildcard specification (like *.*!), the file will not be altered, and the message "is not squeezed. Ignored" will appear. A very uncommon error will be "Checksum error.". This error indicates that š No file(s) found.*""* |g}o|g}o%| Out of memory. Use more specific filenames.*" $$.""* "!X  6 !Gxwgʯ#Ò!"=!\D :2D!PQ6D< No directory space. Aborting."K Files has illegal decode size. Aborting.P "|rs#r#s#r#*+N!‰_iu*͆D<µ Close failed...g  ERROR - Checksum error in file 1P :—1~#_|}~# **,~#"*""X* 5"*>O**}q#"͆yi**D¼*ڒ*" Disk full. Aborting.go  Premature EOF on file... aborted.g:!=2:C>C4>==2:2:O:\O>=2yO!P k##^#VzJy2z>Td@BoB (ETf/U{,αAd!T4}:p.Us(#U qߑ Bm[& t@޻r:!~ # >.!%~ 5# *!\*Y@G:a:  ~# xâê ö  - Ð f  "J*"!"!"2O!" "]""!1!++""M>28!"9:] !í 1TPT5U5QUMFP5dBZ 6Nm?X VUmEVUZr@ F® v-fPb,~کݒUXfP#9ܬڊpg!UWEl:15$UV]bWJ2e1 &pPC#X GA "NQHn2AR Ѡb4xU*FUduVWm$W}+>H/#ʬ 2+HDUpxT@ͥ *'ѕV<⪸ң"1d2 ecәʿW=?*~в,ڣ[TH916BҕC)uDP~@o³'ObXkŮL8sص7^ʚrD J~AxCi@B-Dj"TJ T'?C P68޵7P")?Я1"=Np^4FF!s(MH,J~CCi XH{lɨ:tA$֡=ECɑe*XM~9=g F(69>"=AZKCfYi2^stCAY4"1,, @Z},K5Mf'8N]Ebr9`U(9 '8"1DbQrHT &ɉEꣅHԀ!=5Pi٫>na ڣ[TH3wtA$dG(Td&gxt1!/\ ul6^h2#Kx,2,H$l."߷H]i|XJ ?;l|-"s7+a1>&U,O3#ߥywDB) }.%AXUͨ,*gx FS@b:*v#*@ GA "NQHn2AR Ѡb4xUv"USQBASE.WS _ !"#$%&' Sr ()*+,-./0123456Qo789:;<=>?@ABCDEFG HIJKLMNOPQRSTUVWXYZ[\.>]^_`abcdefghijklmnoO2+% NE:3JG,pqrstuvwxyz{|}~u^VI<964/-uڣGX~{~=zt~XڛHG[D (Eꩂ;(E..\\] }1zB&Q*H7Ḧ́rDZ 6+/d@'#TAq[ u>;gW m'_?T ~@HH/,ɭ^b x@r '#T q฽iC=zt~Αz P&&#I˲Pc*7T]d1Rh1eq^s\,Q5MdH=SB<]P? 'GO[971rOqj1i8(SAAY4" ](4 ~%,x X=9nȓDb0r y83Q]s9apLc6Δ d*tH3"}~tuWhc/HPbB^hYP,O lJ %X #Pf%Ŕ9T!8r]~|xqḦ́QH?@-..>F.*>.ͥ:] > !I.] ~#4 :\=29.!I.]NT ͙!]I. 怶w#\ !\n. `:.G:9.ʅ  r À@ Squeeze, Unsqueeze or Reverse (S,U,R)? 2.S U R€> 2D.9:.2:. a!͈4~+Fƒ x2:.:D.O :.G:9.O ::.G:;.O @ Skipping, same drive & user --> à :D.s ʊ @ Copying --> Þ @ SQ/USQ --> Þ @ Setting --> @ to :D.) !o. ~ #» !w. ~  ~ # e ~Q#  1 2 3 4 R/W R/O SYS ARC :9.AQ:;.< ::.o& G >:Q:.e @ with CRC.:D.z ʴ } z 6ʜ #* ., 9ñ @ --- Aborted ---ÀH. `~6`2:.d!I.o. ~ww# H.!I. `} !͈4~3 @ Retagging --> > Q4͌#* ., À"@(~#a QS @)~ Q#j ". DNSWP207 COM\NSWP207 DQC]*NSWP207 CQMTCkNSWP is copyright (c) 1983 by Dave Rand 10232-160 Street Edmonton, Alberta (403) 484-4114!9"1=*."7.2.2. 2.2.2. 0ڱ2.-!]. `>?!" .".!^#6#6!M ͼr@Drive :.AQ:.<>*Q>? =__o&S2.@:!.]@ !" .#"+."-.w!=.͊}+h#" .!e2*.+" .#͈".!"."/."1.1=:.2:.d* .#}»@ No files.XL'SʪÀ9*.͈dG!!5~ȸ###^#V:._:.__1*-.@K in #@ files. *+.@K free. u uBXSDTUVPEkL'CM A RcFWY%?Q *.#".* .,Ҁ!".9À*.|+".€9* .".À@ Which drive? @:!AڀQҀ :.GA2.9rw9*+.@K remaining on drive AQ>:Q9x2.rÀ@ Which flags (1-4,R,S,A)? @!o. 6#L!!~ʀ#">.*>.#">.ʊ!o. ʄ#w͵ *."".*. v,­ *.:.U$ R$ *.:.Rʽ U !0͂#*. 0!H.n. 6`!w.~ 6Q#6Q#6Q@(!o.j >.Qj @)s*.!H.͘'}0!0D C @ Not a SQ file.">."B.:;.2;.!\n.6 `s!"| _h *B.,}0@ ERROR - Checksum error in file nngo͵ @ Premature EOF on file... aborted.À0*:9.G:.::.G:;.ȸ!H.n. `2n.!"@.sd*."5.:.–H.l"5.*7.,ܺCͺ}0 |g}o{))))))),*.*7.~y|±}ڳ.&],H.͇"5. ||¥ͺÖ͏ʀl&͇"5.l:.@ Verifying --> R!z.{.6`n._> 1234zzzzRSA@ Delete file? Y€*.;À͈]2\ `6`__^_:e!@ R/O. Delete? Y:e2e\\_* .*.{ozg))))xV~# xL* .+" .*.,+".@ Erase Tagged or Untagged files (T/U)? TʤU€T>ʬ2 .@ Do you wish to be prompted (Y/N/A)? ʀAʀNY>¯24.!".͈4~G: .f@ Deleting ---> :4.W@ Delete (Y/N/A)? AzYfʃ;h#* .#}z+,!".À!".Ü ~6ʩ#*1."1.*/."/.*/.@K (*1.@K).*.͈4͌u@ Tagged files = *.͈ͩu4~6#*1.~"1.*/.~"/.@ New drive/user/mask? @!!~ʀ#">.:\`:.<=2.:;.y#~*>y:.2.:] ‘!]^ 6?`!\. `992.~ʸV#ª2.@ Illegal drive code.Àͥ:.2;.:.29.~0ں:AںQҺA29.#~:ȷ*:0:'G#~:33036302;.x 2;.>2;.! !!^#6#p#~iwV@ Copy to drive/user? @! o|g@ Find what? @!!">.!]~ ʀ ~ µ6?#­@ !/€".À@ Tag what? @!!">.!]~ ʀ@ !/€@ Tagging --> ͈> Q4͌#* .,J͈]N/> ~?\#Q*.͈ ~2:.@ New name, or *? @!!">.!l#~ ʀ ?#¡:;.¶::.w*.͈. r*.* .#" .e2*.+" .".,ڀ!".À:.29.\2\ `d:e9:e2e:u2u\:;._::.F__!mI. `2H.H.*.͊}ʒ@ Destination file exists! rÀ:;.ʢG::.::.___\__!m `::.__!\H. `2H.>?2T.*.H.͊}ʽ" .H.R!mI. `H.!)))))*. T.`H..ý@ Directory full.À<¨!=!o `*7.,@ OUT OF MEMORY?<¨i`@ Old name? @!!">.!.:. ʀ:;.2 .@ New name? @!!">.!n.:o. ʀ9!͈.¢@ Renaming -->  ~2*0#*0~.Ҙg xʩ|-“#Ï}o|g:*.ʽ)=õ"+.:._.*:GxG|g}o ý^)))))#~&o))))o$#:*.ZK<}>o}}o}}o}#~#`a{_:._<ʀ0`:02*."0L L* .9ͩ9L*>.!\w=L!\*>.:. O0O:77:.Lx,yH,py2;.ͷr#*b6?dwQͷyh#6 r.¢ͷʢ#*’6?ÔwͷʩØ#6 ¢#6«">. =_.:;<> !.!yg)>g>!or$s%# :.~#, *@.O!. ~W$^"@. @ ~#Q@ _{dldr_!u! ~#G~d#z))))= NSWEEP - Version 2.07 07/17/1984 (c) Dave Rand, 1983, 1984 Edmonton, Alberta $ A - Retag files : Q - Squeeze/Unsqueeze tagged files B - Back one file : R - Rename file(s) C - Copy file :.@ to !mG:2#* .,R9>. r~ F: .?G># ɯ/o.m> ?~#=:;.::.:.AQ n&} 5 >:QyJ> Qͧ>.QͧJ*.#@. #~#> Q@K : ʢ*ʢ#yQ~Q#§9>2=.92=.<23.@Press ^X to abort, L to advance a line, cr to advance a page. >2<.*.͈ v,!nD*."".!0D D9!"L*.""."bnu>-_ ‚:3.<23.:<.O:=.O:3.G:OLʹlʹ23.O:3.=23.O0ÀO iiX!T.U.6`H.2H. `~2:.d*.""." .H.<@ Can't open file!À__:9._:;._ :._::.^*."&."$."(.R"n.<:w.ʻ:w.2w."!w.E.`6$#6$#6$ ""<@ Destination disk directory full.À!z.{.6`dH.<@ Can't close file!ÀRn."Rn.<=m : S - Check remaining space D - Delete file : T - Tag file for mass E - Erase T/U files : U - Untag file F - Find file : V - View file L - Log new disk/user : W - Wildcard tag of files M - Mass file copy : Y - Set file status P - Print file : ? - Display this help X - Exit to CP/M : cr, sp - Forward one file $"x#"z#!9""c#v]#>2t#2w#c#"~#*x#n͝"Gp#Œ"<"c#"#]#c">*z#"|#|ʓ"c#s#r#c#s#r#*|#+h"1>*x#*~#a{_USQ section (C) 1983, 1984 by Dave Rand (403) 484-4114!9"":w#"=2w#:v#####>==2w#:v#2v#:u#O:t#.#nŒ"O>=2t#yO*z#=###^#Vz#y2u#z>Z#{/|}nŒ"nŒ"go>2+"B,!9",1,*B,}o>͍+"+">,"@,&+2+W+#>Ð'vͨ+#>Ð'}2++|#c+?$!+$#456$~6 $G+~+#6$>+<+6$6$#4~#>+~6+:+2++#:+Q$>+<+*>,^#V#N#zl$#V$>Ð'~*@,w#s#r#q#"+>"!n.~.`!E..`n.<=!E.w.`:Q.G:w.2w.:y.2y.n.*(.*$.G,xw#"$.*$.*&.,R:.,n.Y*$.,*&."$.*&.*$.~}yC#|N}P.],n.V͏%* .*".,ʂ~#"".d*.""." . :.H.¼* ." .—n*".* .,n= ,*".H.͏*"." .n͏ʀl&͇*"." .ü* .!==~V# `~##~#~  x$>[I* .".+|*.|ȯ|g}o".„#".* .+}o|g".!".*.".*.*.".*.*.}o|g".á*.#".*.,oÛ*.͈".*.͈". ~O## *.*.Fwx# |}!".".#".* ." .Q͟h*.".#".* .+" .|E*.͈*.`*.#".*.͈".*.͈". #•*.~ F. x:.?G># ɷ!"-.* .#}!=*-."-. x',?,$?d,2?} =?yRR> Q=G ] |S{0Q }0 2+#^#V#N#~#2<,{$:+G*@,#ͮ+ڶ$####Ÿ$y2=,$*+y2=, }O|GT]+++:<,w#s#r#:=,w*+####"+:+<2+„$:+!*%45 %%%#%!*p27,28,l*g2+2+<27,29, '>29,! ,,ͻ+&29,!,:5,͍+::,Nw:6,/< 'G:;, '4x26,&!$,,+!,:5,͍+~2:,:6,&w:9,#%! ,,+#%>26,:*!5,4!'>28,#%~!,͍+~2;,&! ,̈́,2+*+))>͍+ ,",!",!,͒+~w6#w#w#w͒+̈́,!+̈́,*+* ,ͨ+>Ґ'*,* ,:+ʡ'"D,!9",1,!v(*+(!͡+"+*D,#~ ')#'>.)x͍+~ ')#')*+())*+~)#z(2+2+>2+c+v(c+(!+Y(#45v(~6J(G+~(=(v(>(<(v(v(#4~(>(~6(:+2+((:~.x~8ޝK.29~sq}<|k%738𴢑p}Ob#8<ȱDu)<8 zW^Q7k)aU|vAK"vq?pij!sN'Oo6$B,p7>q FDxc\Qt~[rOi$\ LTJ hHCݎR1Vqʈ4U8Xv;h~0i4q@!!<# +\'f^Ep7X)G Vzx%;_%V0ȳwІ'Oo6_qq1oK.ȣswDxh/D3W04¦~; dݎ*_-Dt,HT@Ѻȉ"tdUzP6"W\7LT w4 `M^y]a 1"}|-4#Ácjͨb׍F| 8j~A$/,)B0CG¦~du'¤c7U`ġ_w%s"Pk41AzEmK.YC =';Pp` $P`m%A=ӌ㏒o?|-4xyZ*nNX ^+&{9 Y /7 :9!Ic¦M_n>\r{erP4_K.y9͸>@ENq1_Hnq81H+F.)Fw+`9u!a 4gNo߾aұG@`u4⠜i_{aұM>j!`8sT6?y5<`+Z:G|r8aR?u1g\̗%{ =CHhW9hQp"\\ =+ʑ(>(<(>́+###(:+ʰ(G:+¨()>2+*+|>(*,((́+F#^#V:+O{_zW:+ ()2+(y2+})|:8,I):+*+*+G:+Os#r#}0) z:)`)%)"+"+y2+!+4~`)2+!+~w:*=Gp)>':8,~):7,¤&!*p:8,#%28,27,#%́+:+w#*++2,,+!"," ,,!,e- ,!,͒+:+!$,͍+4!+5:8,)*+6:+O})7zW{_~*A+~+}* *~)*s#r*+/w#6#"+}!+4>́+###!I*͗)*+>+w+,կ++ä,**x!+4#4#4#4++*o&))*>,4#4#4ɯGO*>,w#w#w#q# ,+!+w#w#w#w#!+++!"+c+oc+gnk+*+͍+"+!+4#4#4*>,G͍+x͍+xo$շ#•+}o|g|}##~+~+~H + +x ~#+x ~++:g~W2'=˟oN3@#gz7wglߜfx]9rDp2PQ;6Ohqq1#Nq0FUrhߘtW<Ӽų^\*mh]4a v's04¦J =U#N䒏ޝKoN3JW%7OH1b# w?@ABCoDEFGHIJKLOE|-x oK~_~]8Pd.Kx|ߜoq~w=?  `oNULL AQM#GNULL MSG(NULL OBJ!0vr-NULL.ASMQ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFoGHIJKLMNOPzL7C7ZXZ78{ϐ^g]=p{ &7(v4t3߿;|B"&ͤڻV ΞT v2GaWPoY?F0[Yn;[5D=@W] ې$XvZx[΂ z& ; Tj >?~^%\VCl .IxI-nZcL7C7Z֥/ОZP\[p-j@} }ې avL`5qVA4@Wv8lBlix׮ag\ v`~5X%Y1iނ+$%8Z]HRv`ut =+xݫICoؽ I3iK^~ ]H{v`t ޥЧ;.W7 ඗$<+)g[p-KJwjSH[]?ε6q+B~SX`vnr޺L.[ˮ tjW[gZcXwh6%Lh]H ?Qoó *A}0%a .]MwL8c<"j 7]ږI3ibKXcShn1涫-J Lp ^ՎIU *A}L?U'h)$pOZ&(xd¦Ļn4fh0CX˟TvXŦ"m_Xly<$m'iI;dThis library contains a program for Osborne Executive or CPM3 users. The main purpose is for writing a directory entry to disk that uses 0 bytes of disk space. This will be needed if you want to use the MCAT cataloging programs. You may also want to write a 0 byte COM file for the purpose of executing a program already in memory. For those of you who don't have an Osborne Executive or CPM3 you can just use the command SAVE 0 filename.ext the save command for CPM3 does something different. If you find any problems with this program please let me know either here on FOG or VIA EMAIL on Compuserve. Guy Gamble Compuserve CP-MIG {vpGh¶w)(g*JU¤!3 EQ> g:~{;(&ͤ|4ZVU-ҝJt3têeLE]FkKrS1.a*MĢ./L]f2_1.d6ͲZct]SQլ1.Q7j j`Kܳjʦ|]_tˠ`VY2}u_L]n5F%!j B::+#M͢]x=]xwǴ_lhu翘4f]0x}GI3lucs$Hs}͠cTʤ4fd<7LI3iD,K !j[4ZtYńMFXX@%eW0gB`:YƟ<߿LhXXr&l <T{kjR&7(v{VPbcI3UUkbK@smW[peev5M*A/vuO ˪F(9vܿp{ v4Iz ͦi )G&ͤP<]\VyG=c?@k&|j"*&l <T+ץBrMKK΄M.Qm YT-ǐZ M-& Mp=0W.}ńh2&|s M-^b¦@#e,y,y|PClXXxd·òI3i&4hje6)cc_QVAwp)XbŒǒ3aS ZTQhQCTbŒǒ3aS>LhjnY1Ep< D ~`J\zM]4Uz.prt0 ݰj!É M-YT6;Z7 "Ú _1ʲ3ZKĄ~ä́o_1ʲ;&4KĄA/]V1aS2<<m/|Ť4.T 74375,257  Guy Gamble Compuserve CP-MIG 6 NULL FILE UTILITY v1.0 - for CPM PLUS - 03/19/84 This writes a NULL file to drive B: :v2y1l6 Type Q to QUIT or Press RETURN to continue OQ  6 TRY AGAIN !! d6 INSERT DISK in drive B: ENTER FILENAME.EXT :dpy͉<´͒<͛6 ä~F#~7#_   _ yo%\\\!yz&6d͛6 +++ FILE ALREADY EXISTS +++ ä6 +++ NO DIRECTORY SPACE +++ ä 6 {\ nt. If you find any problems with this program please let me know either here on FOG or VIA EMAIL on Compuserve. Guy Gamble Compuserve CP-MIG "j.UpI\j! +RŤ4N5ΛG ey7Lhj4YYVLm:aBx&7X3nk&|[|E/tLOxÄOՍ0aULI3,5vΏMl6ͲbyQ\3Eh6%vfQŤ4*Xf &4ͦdzqW~Äxf_txÄo_L&/ fQŤ4fnYq~&fQ䨋fS´Jօ#ʓ&b#j^VnWӤwD-ZfS2Ed3aULI3͛|ѣzLnPiUꛅ) [pee4~oWӤrS<@lJ8 B:P<6q{"X4 bL)ʦ|_eSg:QKܳb !NL(Ox;&4ͦdL8?z4qI[5]k&=FxfBS`lJ&̢I3iM%Zě.Z ^? *n 7ږ c`BS`lJ&̢I3i9q~h~rD8`r`L(O87ZfS2aULI3Kѣlʈ c`BS`lJ&̢I3i&M2G.uwo]H!LjT„䱉Xg&'ELɾC&ClXXxd·CfLץhj4L8?z4qQՠNT,]U j DUI0̄ٔL6wXeĤ4$_EKULhXxd,4f¦#±SY}Mc<#fL]% UTFIL> is the optional output filename are input file(s) is a hex load offset within the output file may be an optional non-HEX file to be patched by subsequently named HEX files (specifying The filetype enables this function). Note that ZCPR2-style drive/user notation may be used in all file specifications (e.g., "B3:MYFILE.COM, "A14:MDM7.HEX"). ͍v>2 " " * }o|g"   !]<: ! } w#͋ 2  % x _ } 6# 6 # 6# ͨ # ͨ #( :~U AC @#~#:+xG~0G#~:K #{ ~.#yu  k { ͨ #*ʗ ?‹ U  { à >? ™ ͨ #à ~/., :=ȷ/  " 2 = go : *  y "    go\ ] y!"#$a{ e!z #v i HEX ͽ ͽ I I  -09JAN86 MLOAD COMHmNULU15 DQC NULU15 NOT# WNULU151 COM-xЪNULUFIX ASM rNULUTERMAQMTCOM!9" 1I ͇MLOAD ver. 2.4 Copyright (C) 1983, 1984, 1985 by NightOwl Software, Inc. ͏ s͋zdͿͽ : ! * !  &<* !~#ʏG<6#" *}O| G6# x¿* +Fʏ#~ FUi~#Ui" ))))_* \ =A: i: i<2 –#![  < ,K6L#" x–2 ] 7ͽ <!e~ ½6H#6E#6X`^ ! ~4! ~d* 1:˜2 W _° g o: ̖ +: : " *  " :9 * " *   w# ØG! ~wx1N1N: R_!~! 4\ͽ 2 <4!͖ * * !:9ͽ \ͽ ѷ£*  " v+" * * " ͽ \ !  <~ !<ͽ ͽ <* * {OzGxrvNULU15.DOC^  !"#$%&'()o*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]9g>/W ic'bcqدWגszϞ~ԒsY/ZcK8_'02beg7;L eq<e<]+s |OzhwOOo Gt]0FO%θfz'DƓp$ɢ' iWD ⠘0 v=%:kXNli\vL u 0U'8X;,hFf+֢֪R'6G̼XFMHdwղ8GkuYky1Zdc,GkuFBDj ,8/{Xc`q[` =t lQ<0[Zcg!g+Ȕfd/W; t]TK3benc"Xk:H8 ES8õL$~PZk_.NzZΣx`fk3gQOl)6d pX#Bc`vx8O0zlF8‘pGɪ]َGKk-ܧ$,i7ؘ1$#Guw\!ͽ ͽ * #" yրOxGz͇Loaded * ͇ bytes (͇H)͇ to file %: ʚ͇ Over a * ͇ byte binary file͇ Start address: * ͇H Ending address: * ͇H Bias: * ͇H ͇Saved image size: * )͇ bytes (͇H, - ͇ records) * }G|͇ ++ Warning: program origin NOT at 100H ++ \ͽ <(͍~#%ʜ/Í:\©͋ <@/:[} o&>:/!]>./Í~ #/#  |{0/> /> /|}'Ɛ'@'_ͽ ~#=#~ FUX0:fAG?͇ Command line syntax error Ï͉ Ambiguous file name: % not allowed.͉ File % not found.͉ Disk full.͉ Directory full.͉ Premature end-of-file in %͉ Checksum error in %͉ Can't close %͉ Memory full while loading %͉ Format error in file %͉ Writing %, nothing loaded͉ MLOAD syntax: MLOAD [=] [,...] [] (brackets denote optional items) ܇ɱnkLIu$^=[3PKPh v&Qݝ|%/+ 34/꣸-XDHtB̝ 8_OwY1+HsB6%qxa6,̀cF6[3F-a0Q]/$(n qPٛ!1GKfd8bfk{KHtZe ђ|103Ye1$G(1tr#cAb-bK \]l,C] Y)q߄6ⶀVf3Sb@Z2G翍Dm਑jZ5[m,fȝDGY<:m$Hdn"Yγ5e%,LV 6'ƢKH4K0C=Q :BnRKtei'ƲЩOd=hfxc!Ԓqxג_gdV|Tjɧ.k@.qZF;Du)֒G6]Y<섬 ҔŸZ}k= Q N}"k`K^Z!_K"!5 A&vlM#mkf4ƅr䫧i=8r-Wrd5>+$AxF8bu Ƿ_NO/| 4xnKC7M)a#1zq[Z!r ]8xpT Px"i-4N}"Ay%걡VMYpٚ)P&;%`!16]bL:~Zf5A]†!Ι 8*#_Aӧ:Q% 8R-#YDuip$ KhƐ0x)A6zF;_8:}r%6f ]=8Ge8A2&LD?SA(# ^'(a[ vFEa\XJQ#.Drx8D hAR˗H35q[@d儠.6' H_5 8!d"ago.?}z tRx/y}ir!_go.?}z84xMGWnhN2 dq-' D^,% Ƃ#!Ѡc`$+'8~&L.̔vzgo.?}z6zzp$,Ԓ]`ZLfJPqxy˵ZnaZ6QZZG4n15l} Nj4nZm-5bHɂjc1f@P% ﲺ4j&qHb ȱ]ЩOdᴓ_3C3izD=!LDMɒfG ,RO+!,;p$5[m,4n_ֲQ6qH4n= z1QaF?j>S<̀$C]o#9 $5~p3`1#6-0찘 <3 4e)a y IݮqH$n cA m- bF@ Т-yA&v pTVƅe ItGB'uKԂÿ\d.'g/~cdXng[^Ԣ.a#!`bF y gV73gvH3U㰘e>-6&BS(J+p3`1#.XjŸS A;B.aa1#Z0 UjH$6&%M kݪZ#YBD`8n,DLТ-8$젍jꁉt=K 8* Y hwuɃ2FO)tRqa d.'$llqHAHLꒇD;8{oPpA3K;b-3taJlmIm+Ƃρv(SZLVN}" fzW %Zj_ gj2Ōh$ Ą$Zj_x9H ?SM$KGz=z>S n0{x8*T kNfd$w$8Ϥ f@ɪ]ЩOd ݱaGZ8phwu Q=&"Kgl-Σxű^C9yGp$fzW^Yl@d WxGBɪ]2Ξ bB> k)NjctYqp/$&Q-8c@~qp)̵d+ѵ Ud>]B=A&v%gOԊctYz@gFN}"khDg>▭-SZj%ãžZ 8& 3/sf(mi/HqP/ÎΉrc_a,l#͆NBQ= &"&ϔ0-jy'c%p$<𓱎pzMmd9!45!+ ?>s4ge|uQR=L1I|`p$8%h:QǺ%2YK-8|33 ȥѪk Y(|4a\xZK-@ɪ]AA<^6~AaEt*TY`@>G>+Smxl0 U@]flqH2Y XjlfL6sTµt]05cq";X5Ÿ]6]LT ]Ɣ U 8<+f³t8e@0tZj9KE2(j ]ݲxa,0DWO_?H[e@im<]C HgmfGnF@SWU%`wh&ma8 8q2H `"<ô0A- `ZHtqX6h78`3p$l3#-%a1NCXvm UhA 5PKSQYqc0H 3 d^,ԒB-!.-6 N; p$֒c4ӻnEtGB3Λ@)G^k<L60z*D0CHbgRQ-:Z3pBq_Q-vG KҔ 03qjj'&W<16嗃r%, d=@F}hF ?SA˛(d;^^@փ ar,RI=0H ҔŸ535j ׂqՒH^[KҔ yA@L D+p-Q-ɰǻ뺾| ,Zd!.IS& ,bZK-OF+n 63hwucEXj$'uY$ьAP`V dm+( hyHcv mck-ԒsՃǏR}'x|m-cęb@~ uk-d=ţ%Ay t$w`Zr\KFɪ]V=60њqjHbДmAy0.%#!gܢ-0H 먣gJkr v%C%M @C=A SB8LV}-N;a#!`"$sЅ%p$  0&Dih$4%a1,Aur 3U!k-1%0$ci#D@0M\KF?k#KHb ȱ]0FO V98%CC0MYpc0HyN<8*CL8jl`z;}-f`rk-d;\y +l$L-9ʔ0 1H hJZj9{i-cTK-QPqxYeJH[ ֒q?0̑ȳ8e1BTȡ)+xSKƖYeJf؀# ਌ US֒Ql,%GBɪ]Rcc 8*DHdlθd fG%?PK3 H"4udN떰09B  8]3ЩOdk$`,0H ?S6&fkyOip)Ƒ}- q D \-mѓ8|x=LVYd<mdjÇxj1:l-FN}"qp#r DsD6g>w[tZ2~oBtٜq_$6Nd0qO!.d3{4ӻne>)VK- fG]N%^0o8'4ӻkPfzW<̀fzWM`\Xr-|2 m.a#!`rk-dgg>k6pt'hRa60[F#^;Ւ%?~[K+,vq̖NČD+,_  m#d.d< Ą6ZKѩOd1HZ2N|zV֒ctY !$qokxѩOdѕ[yv:גu`8FO ^x"<f/Ԓ10qX0+H lh10 <8x֒qK ZK-OdAytmr$a#!`"`+'jH)! A&vAK]vF3cɁ#Ւ1H ?SZ0Zrɋ_82S-]Eq[ Q tYrrBgѯdGeiFBD]@Lip3#a@N; Z2rH)Sb@`IXNN}"G vFBDH %KH$6B-0&bJk-d G:, m(SBT|$ G O;@grl`#!`"c>~ t#Ւdj$ediZ,)Bh`@Ris<>}趖ű^_0H ?S?m gj$!yd jɸUT%$+'zdh1%wxc@8& 6H`3 H$x%gu czh'$[Kc,?VafbqR |-9 b1nqzVqԊcq]-96}X&}[K,?A&v'6ZKdjd< mSb@`Zr~7:m$H2%Joko,^@%@> 0:m$(n PKΎyvٚ>34Rc1m-GY>"Fk1:, TK9pvu6ZKѩOdkggyXhD߀mSb@x7:m$H2%Jok/RSKN;lMc0&$pqm-?|z-Z0<4 ȿ%pv%F$`0#Y9ף'[K,h 0qLlf0H \KFǺЩOd1H h]f.$%wm#d.Uɽ%Y~j18 7D3INnal"9#$xcvL6k-A&vz`"r@ SH3 (djZ2h-9 LnA ьna#!`όpc UZjP0.,HLf#nfzWe-d\~~yZjɸ;ڈ A&vxa\XCRccZ26p$ m,'N}"wHnZ2 :, ZjHǔ.#% )A'sBHdLmfRKƓъb@~C4dŸ@" 3%%#&M! ā#!.;@qZ26 ^>+8*#a@ؘ1$y Ɔ,ՒAl1%GBAHVNhH$3u]ZK-{OGhwu l@l1ЩOdAPK]b؀#֒c$+'zdȋ3d H~qGW$Mp$dvdD;@ȳ8e1 =Y%EZZ2ā#6 LmNρ.k%㌠o.?}CtVCC6B>`dpˣ' dY@vJP ,%Ԙ0-dKҔm L b#wAfe%#Y9MzWK8#|R_s-W0XJ+_?SG폗[ij%<ZccƐ0[FHLf#n K~ /k% ^0H p` גѓ%]c#0H ^f֒~Njch$LXo FOjIfG%#Ѡc`$+'%]-b#< xi% 68ЩOd1H 8:}<#גѓFȂ#i';@]]G%Sb@`d.Hd i'zstq>ybHo `)b\c 6ԩOd.󳷀 YkHY  ,%s1QV%C$ьՁ#6 LmYi'&{ dhM@x?>Mz D% u  gjd &e6jց<0[j5,n%#Y9ף' Ҕ8G7mA]-/O޽ƌ!jch'$#ՒFk1z=z;.n wP1cH3jxK ҔŸZ2VkX+ &ăvqʔ0-PX:8R-=LR&P%LfC  8{QKF3KqGfK'bFhwu HDd5)rkƯxqsqzű^_lAZ-d/FB'-b0 35KҔ)7!.ٚFދ87_ 380zZ2fk̔628;4Xʼn Lm%<ă#9XPImЭ[Glj%c#!5}f`0Nѱ@HN lLA`,0:( AR&n /Z2q,n$l 35L$n.Ԓq.D= c&2SY`4ؚPKbpfƬԅ1AxrtnߜWd0t}q.eZjpcqf;ζ\m[?3%ζgo캖Z2&`433"d.h%>^/^Ւa/qHh' +cf3TK'-' x3 Y9!c1H ?Sg_}]?SKXB6.#9h6:,0H _Kƌ!f)lѓԒϞf^]d!,;/ؘ1$xR"FOjIf@rB`,A4Jٛ7K`F|=1cHd0.NVذ4B$K ū#$IFԒ1Ђ񔀉c HE  i gjdLtEu[&`"r@D ڥ$n@Ѣ-!jD5Ёɂ#6d 5a"rFpccƐKTKFp&mwhf 㜔  I,56vYk8di0p$sd8`cƐ0Pc9ԒhLi l38qL=p$ d.d$ep-Dr  ǔ0̆R-p$xVⶰੱpcB UԒ1H]H`p$tY#A֒Q ƌ!6 d06d l0蚭66dp$ Ѡc`$+'zdt%p$\]a0 Zkx!NCXvRfG3@C@> }z[KV,^Kƛ8 x7XJ+_Zj8 ρ<6f 5il`6ⶰZ2}rB'$GϔZ2ޯ}rB'$GϔZ2}H)Sb@Awm0H ?SPKƟ>FϔZ2ެCbJ'$G(GO@ϔZ2Qqsx/S AB7Q#$ Ĕj$6 ^;im-g?>ǯNnkɸ]%LH38 _kɸ]%ޙ gjoh3H ?S˺(hwu 1zJ`KN;A X$ ĔЩOdk$_qEBjja a82]Fjp$hL8>v4QTK i@~f<@L @>@S0-dkxq[ i@~G`VK#yk-@Z2'&% 9,?+p?>}HɜZccƐ0[FHLf#n K~ /k%يÇhc9!Dܢ-1H ?S%χYoccƐO/֒q8KZjxj18]]B7ɍk-}z?WGG?jɸ]%Odac+Z2NO͸ЩOd=hf9D,M`l"[K24t;l"9(:,#Q $~F%ô6Bg6H03Yeq[3u`t, Ghwu AFz?ffG%c0!-ǓN_oOvY{R-4eq[28  ItKdp$|=_}F3KHN 0#1#Ւa\  nKHVNB-)0`,Gh0h1+H2Y ģ)d|_A&vA(˃gx%8R- =Y@-).#ad!3SԒ!n nY G>1$LTKN8Vq+ ':̸ Vג8VqHh8,rB'~7,Z2-DGu0m6HhnY dhc9![!t]rLҊÇHff1NC-Zd )A'sBrLFBD=%@}- pcfȱ+wh|5.Ddd,S"Y´YGck~H=&r- 2Y Rccѱz@@%`#!Ԓ#,MCX053:XL m-Xq5<8zvhWQ rB@>%c@>t#XيӀ U`#!`"43 %GԒa pAɪ]V<0zYkɰ0,9픰P `d_G 3bJ'$@ /N?ϱ1cHdLKN;% >dѩOd=r\K L 33%h0np%KҔmk 1$8ØvJk-W>hc9!tY ccƐ0xiGh--4eq[21$&,9jɘ  N;A%M Z@hfZj"3Gb\6A <2YK-.H0.,$,)SZ2LV8_쁍Oj[`,8 %iʔZ2nC<30L%(:y[FBDd$sЅ .IS `#O8@W0]Gxp$Odaxjl8t.GZ2{l$D=! @lДma,̼֒ѩOd1H RKAAzkhfJ+Í}"dFWn WGWԌMjce+NLV${e-d\]ٕq,n?ڽgR ,8 HŸ9,jxyH%?8p$lCɪ]0-bJTKG8 2Y &,d7 Hd8ڄ%oɑU+ Ƃ#a@HqG%#.08mdj7+H )(S%˃gגaipG A&vNk-d^kZ2]-WVK81Z2g#78ߟl>Zj8 ρ<6f 5il`6ⶰZ2#A&v6f z?L `p$ ѠcZ2z=zZy$,6f aL lqȵdp$Odac+٬d_GLVl0h|H@Ad$+'zdGm rfFc+8Vqjh8,rB'$_k8DѓZRl&B궔\֒1`, z? <GBɪ]1cHDd|=_}`6;ȱk-XGBAHVNB-)6f Eu[J`Wo.kɘh0|=_}D[q~#36f )7;FZ24 @Όc+hƱ4@ ՒѩOd <z=zPKCDhQݖ/Z2#9#!d.ؘ1$LGϔ[4~^K9B~s<>}趖ű^_,3֒q8K L_k%c (hwu doxn09l`fr2YBgЍZ28`ЩOd=%x0 p8 dk0OScc -pw4ӻu f: גdjt.Zj9{O:=}ű^_l L/$ L%vqח8A_Aں =Y Ҕ8Dip$y-qFBtÒ`@I0n \Ks` USb@~/ţե $GWnQܶ  xGxǧ?/ƌ!ՒAJ`Ǘdy /ؘ1$lTH=Yl{cYE3 ݁ ξ`El8C2HNdp`,8]3LVRK0̀#qDr-8G3KkaM-tBliL#QO]0`":}} >~uzt[KX/qƵԒqţ%>S`p$?yu  GO/Nkhwuɯn#H0Z~uztm-c  gj L  gjouk-c x9H ?S x9H ?S[Ԓq3 =Y Ҕ8Di9Z25」<% <`8݈'@ A&vA> ZK-QRZ{iuK;/HhZ2# HL'َfd VfGBca鄬'H"V# a"rd$Q=6FO਌jcY4e%2Ȳ˃42qid iZ9W8%vqח8AZ-d=.lD&J PKbSmBWnQ 'َf$Ւry#!!gJP(SZ\d y&%#Q ^Pp$ ^f0H &%a +HqafkqgG%#d.h8,03deG'd1bJk-=9nkɸ]%A9TK-QtY ccƐ0<9\ܞ_d| GBɪ] hƱ5 /-hKG ʵdlHp V<#hЌcq# 8R-N(d l(p$}" 7 rd$D {'7/no8|xw@ShQCXjhƱ6PE$,P pA&vxvdL#cH8s{_] 뺾H$N{JgLid;ѯԒ`80F.HfЌ&Zc{ݒ!KA": aYqp`,Ȑ{@3`&;o:bfb`@rB&%8$wx1`͌!bIq:qP_/`,8^<@ S-d@'uK+H=Yp$(qtz?:+K8_CR3'dW7 8Gep$$wب0&GKRFqp$KP! 3%l#8:y[wWG;\x[Kƃ3.n^s-dK8_1cHب0c0z`rL `0]s-qHap$ѓ%u GcL =BH3ג1cHLja8]38Z H=Ycdh vG 36&”0-Z2vؘ1$LY6Hx7~m- v%|=_}FBlͤSX`%p-QmF8u hfwԒqxh&VqP |D33#!d.k-=8K$wjyj_<dj$wi' cH ) qd |=_}8ȳ8e1H3PWK!]b]]DM;aCXk5ad1G72Yk,`Zъ_Wmwb_Kᡏf QO9!K aOaɉۂ#TKaɪ]V7$fN3R7'j81$LE%udjc9!tٵZ2o#eX6Z4Zq[ kX%ptHQGy,H)Ւqx8Q! >b Vlf 1`,rzt%M 39$e%8=:zpg+( zඖN8J u b t⽸ZK-GGM/wAԚ)PF=&4K `@WKF8 I,56v9B~ԒM"KH4k3#!#l&lV7î `8ETvGɂu8z &TKƴNGxl;yoLꒇL 3ג1cHy"5)A]B3 ؘ1$LY8%Í}"߼f x- g]gr vH &)ۂ#֒c_ Zjɸ5fzW<6QZ3k 5j'&끦%R#9!`Vk:Q}zKҔ)ܚ0wãh'3"Y9! Kgr8_Zj9=:zpgĬoM k5S~f % 5Aa0(-BYj8<ܨ,}RZbdX5`SK[ ZK-GG쏗$Zx~%Gخ,Ɓ i%J0E. lA0Ry$t; Y5/k9_qutZjDih`Z-6{<[@<&J+(ypTxǠ( r03%hf^ZXdV(N[3DY(a`6Zj9/x͋ǵTEPKā#DⰉ"8gR q8_׫ZNE`VnT%@]G :N4L青(SXG 80+hJ_܇hJ'Zt&Ltt k- VGTՒqxV}o:EYkWGW k5S~/H[D> %"d.;(j8<4KʔX@PXJ8#A&v%0.+aqkX裸C\]aK2%(9X:!pѕ[G%XيӀ+GBK]v਌N<8*#Ւqx話>o"Y2Y ȱ]K^y Ւqx8Q3Ќ̔V<%:$Br- :9 ā#!d.Hb zLLZ2vR<͆Nf\」C%pf), *N?rzt%a36S7v5S~{(3zk"A Uᘵ$l n `m͌)X`#k8<S t.k-&,]LH2Y >LEP% ?%P],U') @M&BT%`ZTKY3ZNOɢkjyj_`f W=KÂ@H=Y9%p3U〨5 ҊÇs-f&,y`Elq>v4 L]Z2'1Y;L)O @ɊB\iG[Kᡙ*q+  pG ٸdnZf4X}X2'j9(CrBⰘ/̀Ōqx=%xh3W7 l$̖N13535^ D$$+'byGcfq,ь=Y@-%#{`#!P35~{خz1~}%ãN񀱀zz3]%ã%%pTGpcȢ&%#P_i=`l-9gug 2KIj9ȳY6sOd גs]7gZgt37GQ< >s$hJ2G^=yp[KG'f&,n x!Zr8<56xhJ_ bZr8>xdz Ɓ2z_Ka; Q &`li<K TKaɪ]rK]CܲZE$KPKO&qDi3-Ib3U6]`Zr82>G3:8=0ډm͔Ï!"1!9"1!9"*e&###:fO *<"8*hDM) "<22m332r2(3 ͔"8=}0 -͔m͔">_Tm͔*"!"ͯ+ -O<  Wj1YqGqxx{L>==oOW>G%#r,o1lL %#7L ӊÇ.,j3D%y]WgP`Zj9K+Hs 1 pZr8|8<:#}" 3 #pT%ã 0-b-!Vܶ3:, يcqUT%p_KG'FA[36kpG8%ãيc"0Q0-16qx'/l Zr8V l21!N#W>ͼ: 6!!"6>2yZl֤{KAof0%c"Gb]-ɸ_2 |4,fyDYF8B"86Lgے; c>؟<8`v3hڝ&Ō 8R_3nl1N9~P>[.Qd!,qelF3}׏׌ c0[ .t݄mKٚ46`M8*ތъÇwj-5$n:a&0qf)lѓԒϞf^]d!,;/ؘ1$xR"FOjIf@rB`,A4Jٛ7K`F|=1c 11/01/85 I hope that you enjoy the new release of NULU. Even though I have not implemented all of the features I had planned for this version, like time and date support and multiple open libraries, this release was necessitated by some of the bugs that were found in NULU 1.1. I have added some new features as well. Please let me know if you work with libraries that have in excess of 200 members. I am seriously considering some future NULU upgrades that would limit the maximum library size to somewhere in the range of 150 to 200 members. However, if there is a sufficient number of people that use libraries larg:2 ÈABORTEDï2*6>!  2j%y$>2j%G ͪ4ð4 ͔>ë5:<2Clos͑Ͷ4\$:Ͷ>\>g222ê4 Ͷ4 changes?h4͡4͑2<~-#~GͶxN*U6ml! ͚͡4inreceived from :.͗>ON)ʨ:e2,2e*4m ã:͗+mTo! ͡4outsent to F+:.͗2O9ͪ4>KN) v2~5mͧ4ö4,}*6\, ͡4Press ^C to stopF+t9ȗ,:͗+X*h,1/Xͤ9.,w͡4Deleting: :.G3́.>P͛13,3*6Ϳ *6) ʣ úC% N8 ͡4Undeleting%" ͡4 %.&*%*%*/&.C%"%"% Ͷ4 can't be undeleted--name existsU&7÷~(#>):< +6>2:2> 92 2 g Tj !=2 º ͪ4>2  Ͷ4 |  2:\2:=Ī4:0ͪ4221em:À>?Ͷ!͚92<2ɗ2B *<;<= *6Ϳ: >:͟7 ͊7:= !<*6>͛ *6" *U" !"U:0!" >O2 :͗+Joclosed. 2~5͡4CONOUT file ö4!=:,ͭ.\[-og2G'3OG3;<1> y$`i""N8% |&#:N87g,!:,2=ͭ.!=͘7oG3F+͛1>5!ͭ. will be ked to >W4>5ͪ42ʬ!"%"r"%!oG3)2"+!"I"&&!="t9ʕ+"*&&}O<Ͷ4 -Continue?h4ʕ!}+"+͡4 Copying: !#"U&#!:"$ͼ:͓.% s#r###"ͨ&+>+>G3ͺ+`}*%"%*j"jʦ>MʦM•*,DM!"r:,G3>ͱ*ʕ*,",I8 :,G3'2*!O9Ͷ4 abortedreopenold>K2 *6!"6k"6m7*j}*,DM*r:,G3>ͱ*ʕ\:=G3͛1:,G3g,!>::#>.682͑Ͷ4 ked.m7÷!"jͪ4eT) +!<+*6\[-K !52>-2$>2!>?2ͧ4͔4Ͷ4 >5ö4l2 :.G32(321F+m2>͗+G>g,*<:,ͭ.o1Can't find ͑͡4Replace it and pCʑ1F+: 6KOXm͡4NO LIBRARY OPENmlF+! ͥ 7:͗+y$y;`i#"" N8 e<% s#r#6 #%:B=N7s#r#å oN8 7!"* ͪ4! y;;< " g|<") 2[ {<": ͪ4!Ͷ4.>͇5!|&͏.."6!R I6>  7>k2X Ͷ4 : 4O6ABCDEFLMOPQRTUVWXYZ? ] y͆!Ú9* # * +} * Õ g Ͷ4?h4 *) { %͡4Deleting: .&:>O >> >U&Ͷ4    Ͷ4ind what? s  O >*w#w#wC% %}BK;<, * Ͷ4Log: g "6g >*s͡4, , Print, , or View (DEPQV) Enter one: 42 O6EQDPV y͆ ͡4Destination? \[-  ͭ.>::#6} >D ͼ |&."6 : D{  Ͷ4 name: g "6kg  Ͷ4  ͱ Ͷ4  ;{ ͫ*c >*"22s Ͷ4 Tagged = >k͆Ë ͫ ʔ O<> e  ͡4Old:  =<Oͼ:"6͡4New: K N g o7!"6!"U >!͖564O6LOXYZ?y?` a ͽ Menu>52x 2$>2d !~> 2x ^No. ;^No open. Jͧ4ö4+j; !"22͑͘222 Ͷ4 open. (Buffer size: *,*,O<><Ͷ4 sectors)múU :>U !=> 6͓Ͱ4 not found. To make it, enter the number of to allow.!"͡4 Pnow to abort making the. Allow how many: ~~<~T#͓É!> ͖5ʑ52}>N ;<ڪ;<ҼDM!=o͇M Too many.2!<"*6>=:6#͌:"o5f5> 4o5f5͡4 ͧ42ʧ4O> >͇5#ͪ4>Ćy͆͆9͓#:2 :2ͪ4͓2>@mm͌:2|e<͘7o9*<@>ͫ5u*6̀66~ž:‹um*U6 :͗+mͪ4l*6) *<;<>>̀$K >Oà>Rà:>O mg,͘2͡4 is READ-ONLY. Modify anyway?h4g22 <2>S ͡4now O:2^>NÆͼ4FF:2: 6'":;BHIJLOUYZ<>ʋ>Í>?2 g,:,*<ͭ.> 6¨ > 6'":;ABCDEFGHJKLNOPQRSTUVWXYZ<>?*6Ϳ:22*6) ͢! >2:22?CmU:2*U>U=͘76,}"*6\, !I-͘7 w<2yOyO}o|g|g}!oi!#";<ڑgk<>ʨ#N#F<* g##~"i #k<*>::*6"*<"6*Ù6!"6B*U>"#:6#"U,m>"*6Ϳ2?2=2E!\>,8) C% >ʁ>͗+',,\3!=33ͭ.́.<:>ON)2E `iÎ%%(&>a(ž; 3;!#"> ͇5Ͷ4--> found;Ð!"͡4Now searching: O9e9TʬBO: 2y2 6':;BCFHKLXY>:y6"JZ:e:m m4 CmlF+͹2:.GG31Insert disk containx͗͡4 and pC]O9e9!W>"6"U>¾!J~6>¬͡4-:: 6ABCDEFGHKLNOPQRSTUVWXY<>?O!ͥ7͘7͓͉͆9z>:4Ͷ4:>>a*6:eG:͗+G&H6[7 !!̀6"U*62>͗+ʦt9ʑfʑ!+"z}l C5!"z!"zͣ:,2e'd>ͫ5O*6> ڷw# ²,2͋!33ͭ.!W>ͭ.> 6;76 #!U=͘7>O2 !mT5}"z:e͗+*:2i~5͒ERROR ͧ4>v>Ç5>&H%'2e9 a_{zı9{z33:l,>͗+*,*,w*,O<K'H",ė+G3Z͔z   := G >G:cx2> 2<5&o:2͡4ERROR Ͷ4: }!Z:!]W!Oͥ7͓ê4unnamed!W>{ʍ)ʍʍʍw# p6y~<#O!ͥ7͓Õ͉ÕJ*: 6VPS<+4T`UC} O P)Pk#E N d] = W ) / E Z  ,}\,͔4\:.́.!=<:>ON)3!DMc'',,LUS"`i#>(<"))"Ͳ&<:>PN)>2< <",;<͞:!  :`i"!rs#rͶ'!ͥ MSe<>K͛1'>M 212l"n͡4Library: +͡4Name Index Size KiloBytes CRC2j%>!C%"<%% y¸͋>5͡4DIRECTORY >5xͪ4(&>P5͂>P5͂>P5:B=N7͂>P5>2<*&&=I6>0 7͓x"<*%?͋*%X͋p͋>5͡4Active sectors ͡4Unused ͡4Total <2j%>5 <*,!&ʙ&<##Ï&4Ÿ!Aj; >9~ʼ&ʾ7#&y&~&&# &<<*+*B+w*D++}K'*,#",g,͛1'USɗ%'>%'>%'<<;'<4'K'g,1ȗ2e,K,*,7<*,DMF/g,*,͸,`i",>a('Gyʀ'Ͷ4---> !=͓x5:o'>5͡4^C=abort,^X=next file,L=next line,=next page>5>2(ͪ4x' (a('_(x5'4<͡4press RETURN...4>N͉ t9<>=2(x53(:o2(446 L3(!H(Ú9R(W(<\(R(>(>(>N2((2(+>ͺ:l,2(!("/"(!"(*<"(*, "(>(U/"(®(t(*,O<",*tڨ(!/"(>2(!;<~#"(:l,2)>͗+J**, "(*+*B+"(>͗+(S>*,DM8)/)**5)!)#",*,;<>RS*, ~2)")`i>(<> <"):l,͗+*,:gG~})#p)>F:g<͗+<:*g98PYO<گ)><> <³)>ڳ)ʳ)>MDMO<)BKe<*,s#r`i",!:)=$:)[-2,G3:<>,.K,9,,*,N8g,!$9:l,͗+>2e,*,DM*,!",J*<F*{><<2*]*"*",`i",*,}DM*,*,O<><>M; 2 72$:l,2՗C%<N8=[-2\BK.F+͡4Extracting...>͗+t9%<7͡4 %*/&͏.\͋Ͷ4 to ͨ&>7a(: ͗ '2RyN!=;6̓͗>&ʑa(S‘'ʑ:͗++*&&}O<>K \[-BK!=. '\͹2!=>ͭ.>K<:N)+ *!O9:<'4&*,>ͱ* 'C%͡4Deleting...%ʼ%͡4 .&y =U& >U&*%+"E >2< *,"; !; w3A ͡4Active entries: *%Ͷ4, Deleted: *%Ͷ4, Free: *&Ͷ4, Total: *%Ͷ4.ɗ2<>ON)!"&"&"&}#",J*ʁ!~’! #~ ’! #|<A<’!{<{<"T!'))Ͳ&y!"%"a!!j;"!e9<:*<>N):.2,>;;k *, ~͊& yi!:l,͙!>M'ʕ!ʕ!'>dO9'C%t9%ʼx5̔4̪4%(&c'å!2A",2#<=,"+t9q#+"H$2j%<$><$,q#,=;=m$#"!I->.:#m$#"!!"W$#ͪ4C%q"|<"W$V$q">Oʠ"Rʠ".&Ͷ4 already exists--not added.!:A"R "d$Ͷ4 g,>ҙ*2!3͋1,,*,DM*,O<",Ҿ*"*`i",BK*,*,g,*2!3{1*g,͸,:<,*<*,2g,!",",3͋12g,:,́.<ͬ<*,*,"B+*,O<"D+ͼ<33:l,2v+ :gj+͗+G3ù2y͗+W+*h,~W+! ~###~1)2wwW+:e,K,2l,,,ȷ:,G3:gO*<9,N8O ,N8*h,\$͋9<*,DM!",*,:",ͼ<*,*,*,O|,O:g,>Bɷ!+ "b,!++ ",v<"h,8 ",2!͞:R1<#22!͞:j1<2#!"-*-#"-< -[-!I-ͭ."-!I-[-G3!1O+},-2-y!`O #[-332.<2'32.>::~ʰ-͟7 # 6> 2<5ʙ-|™-}*kҙ-2.6ʯ-@O:j".+q# -*?-.- ڴ-3;-ô-xʴ- y-xʴ--w#.x >?-> H99>?:.>2<+:#>>;7#Pd.12Ͱ4File exists-delete it?h4>P͛12U2KU.2w.)2US>M<not in library--not replaced!=3"d$Ͷ4: Cannot add an 8 megabyte file!!"#V$>U&z$%"%"#*#O<"#e#>#Ͷ4No room for: d$<[#*&}>fG#Ͷ4No directory space for: #*H$"#*%O<#e#V$>U&!2# !>2j%U2$V$ʘ#Ͷ4Replacing: ç#Ͷ4Adding: "*$U&!=͘7;d$ q#p###"$4$=)2*,DM!"6$>+2$:.G3ͺ+:,G3$($+"<*#>ͱ**6$"6$($#!>U&q#pz$%%;¤%!#"%!"%ò%!#"%!"%l%s#r#l%"%DM"%y>U!}+"%!^#V#"%!O<*,DM"&|&"/&<~ k2<~!&n&<##d&^#Vr+swÊ&+>2!=ͭ.ɗÕ.> !=ͭ.>::#6ͼ 2<2@w#i&I6;76:#:>.:# .ͺ:<~> 2-/#~?/?/>2-/~=/#PY:>< #~?A/6/`i>(t×/ʹ/=2/>////>==2/:/2/O! "/O>/70O>=2/yO! 0##^#Vz/y2/z&0{/*/O<>70>J<2@2T0@ͳ0Ͷ4Drive : Total *I=T]*E=#zW{_u0+j0:B=ʆ0)=~0Ͷ4k, Used O<Ͷ4k, Free Ͷ4k<21:8=00*<*<22=_.͔D^#V2<0`Z30><<͔*E=#1W+}11z 1`i:B=-1)=(1<0ͼ<͔=1@=::8=1ȗ+w+w<͔ʼe1>Z3<͔ʼZ3<"͔ʼOZ3<!͔ʼOZ3՗2;>)ܔ;yOxG҈;ܔ;=v;:;><2;?y";}|;3333x;՗yOxG{_zWñ;z;}o|g!";é;*;<`i; ; FIX FOR NULU VERSION 1.5 ; A Message from Martin Murray ; with acknowledgements to ; Howard Goldstein ; 01/09/86 ; ; A fix has been found for NULU v1.5. Like all good fixes, however, it ; causes its own share of problems and can only stand as a temporary fix ; until I can get version 1.6 out. The problem was BDOS function 37, ; which NULU15<UZ3gyO|É2<ͮ2ͮ2yyOî2ɼ<33=;%͔Q3<_:j>S͔<Z3*< 2ͼ<"<Ô#͔! |<!!s#r#6>332(3:I3< ͔2I3<ͼ<2I3_ ÔG:8=0yu3xn3u3|y| d4:|<"A4{<")4{<"04{<"3|Ÿ3}=!I<Ҵ3DM)ң3`i÷34+}¾3#"3# 43!O<33 43!O<33*34þ3|g}o#4:g4A4!4;4;4J4 :f4-7J4͋9YͶ4No>N>5>2ͪ4ö4ͪ4ͼ4 o9ö4͓͓43;>́:42S=.:C5~>5~͆>5#4> 4 ͆S5:2:2::2O:<͆9É5*5++"5ͫ5##"5qܨ<#6+ ͔^#r{ͬ<=I6Ó՗2F6͌:A62ͼ<"k6:<O͜;}Q6{0:j6!w#"k66~ͮ9#v6 uses before writing to a drive in case it has been ; changed. Under certain circumstances, BDOS loses its mind when this ; function is called and starts giving away previously allocated disk ; blocks. This is no good for anyone. The "solution" lies in NOT USING ; BDOS 37. The problem now is that you cannot tell NULU to log in a new ; disk. Oh well, try to live with it until I get the new one out that ; will support the fix. ; ; Assemble with your favorite assembler and merge the resulting .HEX ; file into NULU15 with MLOAD. ; ; MLOAD NULU151.COM=NULU15.COM,NULUFIX.HEX ; ; The result will be NULU 1.51 and will have the date of 01/09/86. ; ; More than special thanks are due to Howard Goldstein for this fix. He ; found the problem. He tested the fix. He waded through all my self- ; modifying code. His family will appreciate any help in paying the ; psychiatrist's bills. ; ; ORG 010CH DB '1' ; ORG 0110H DB '01/09/86' ; ORG 0150H DW 9832H ; ORG 32B9H RET ; OR+Ͷ6"6W>~ʧ6ʥ6#ͫ6ʎ6Ͷ6y~6 #ͫ6¶6Z:;79:3;287̈́<>U~3;G3;#<(<)=U7"f7!N#F# ͌:{7 bk ͑7ü:͘7 ͌:ò:͌:ü:.:ü:|< xʼ7:#zª7<:`:88*Mm8*8*hOTDM#"8*8 w#s#r8e<"<#9ʼs#rÐ828"88*8;<><#|<8#98"8v<>8O<8"ÿ8ê8!}!#~#8~ 9;<#8++~<2$9~>269bk",9<>=2$9!##",9>v<<<<:*g9< O<*g9O<`9"g9<>M!"g9>Æ>́:>N:> Æͼ<͙<~w#_N::ͼ<_ 9 9 9:9=ü9 9 9>9><29ÔW:d 9999 y:2:͙<6#;;O~*:<#:<#2:yͬ<*?@ABCDEFoGHIJKLuk3OzӳNI]ۗ?ςHJ:%5nwm_4%"R&T DDaݵ}ٜe!]P3bZ)`ք,~bYbZ@1 @:d3!bZ)HI? ̚}]`h3( Vie935YIqJ1"_BN=0)]3*3NI]37^m9wlζnw_J:%YC2BF+TgY MH8wǣz3p |D¾3oC2eaPwHB! da._ymY-T4wL#a.xڲ~ؗ[fX\r w#|OQ0g޼[fRQd1xJ>ex2;2 2Tcw< s7-[fɐǏ)hH|P$nCT(E2҉.C)fJ:%i헒\SA#?@ABCDEFGHIJKLMI*9R +\WDX׈r*$cykƵ/\1TFFFbkŌ\ ;.؈ W rV3<0m w5~|al?A9ZP2crYA7'\=+|3m@bF.zawP;F0B Z &biEauE?ݶzQȰrxػmc8j kl{=(dX]fwxػmc8hdÊPoLT6<(ٓĝ@QPo?Z>5xB'oFVCV$?ZmV[m5;9E%%^4QI.&~pe$Q!B>+ɿ  #u=e ~ƄtQ)te$Qa:x4dǣ!; hȎGCv<1 e0\I$7> sAI.&akV[p1bM8 y%NIԅ|rWu!*@F"\Lfve$Q琅1'Ϟv!NInn/|r$Gcve$QN אS!'W1;2p\cNc{$nCT(E2҉.ˏH2V>|P$nCT(E2҉.C)fJ:%i헒\SA#`;.ڍzEΜl Y#VB`Z: #;3A' +aI@H f)ld4)4] pJ'4H-A3] ڈB6vga\yPNru$òh8 WW5Xt~ ~ò׸:raj|cXv_xoj#J$#nrǰ4aE7o]r֘rP^k\1cW<wT-h# ah( p F6ͱdÊ`iw.{Cٰ"q!L Rx d,pAnZl F6 +̐j#J1q'pƫ@1Xc%jx5H |ׁIfc4c5"7aȆŰ?kdÊ`y ȝW h#(M4)FtRa5aEBvf0K gb076ufuEDž.6mҸ2QaȆ]aE<,6Bho0֮f)uv fR-~[4h# ٰ"XQdN 9u}NnPdNT3KveQo5)oȝ"@9w5]_7۪zcWͮjmO|gcHF +19 8?h\1Y'R7SjmD!:ٰ"*M]6!m+lXȯ[*]4lXȯ[*kdÊ@~u]Ő[.Vf[ԯܼ*idÊ@~w-WnL߮bHۣF +uߵ_1}!mٰ"_7۪PX]aiWkir߮bH۳F +uZ |=vU&*w~o4ocH +uZ yiWw1]eÊ@~Cau}|9] ihae G!J>Cm5aElXȯ%G+fW +Ӯ0Ɛv;.VtaE nήȯ]b(۟ߞO*C5aEVy |sـm`N'4_>;hwؓmDZ:;kwXeAQ0BQ1 = VYFcHǤ_cHJ /Mo &g$#0/1_cHǽF6Mk/ٰ"E+fZX&A,Ůȯ/!WW51N#VtaEb0)_7IF)]}lXQ x ooX@QȆ]|o|Mb\9NǐlXj^aEL2iWMҭԆ3S6tp߼1lٰg Vy X#;3A'ٕa5"|1F6(]*+`PLȆkA3,5 jQTZ1lXQ FWS&1ygz0n +B1}SvGlXF h#`'76I拍awи:r8t ^n> n3sɝ?)%cp4aE7o]q`Eb$#0ż0BQ0zVE -I{ $'Р(TIpjI?t g0lXPøٕՑq1wWgz0|oqG݂6 +dÊ`d+0(G.f/ٰ"7ruPU:A#V +eO"nn,6+f[>xeW~ZuZۋ7vE~w6Ȇ} +F6M-~aȆ+7}ȆZԯܘ]pjdÊ@~lCau}>oϧ]կ} G+7}ԯ}ᨑ +uZ |=vE|rc85^p0 &v/1˭4aElX,^n23a56s +Bz(Ya5΋F6Vf&RjÙ)y +򀕙 Wt1ٰ"23bɫt6N#VVf&dõGlXvX?x"ȡP1$P *_p-o6A#V^Wtd܈B|ȆΟ~mĀIFCZ#VO%`*9IFCI#VCҕ<(Y !3ANI[) Gj ~;(dÊ`fOwfcH礑 +'7 3 {0X'4_>t4xG;ɂ6 +"1`jbIK6Mk/WGǭ! ,h# Fh0*tk,h# t ǐ;/w%ߘ=yL nC:5r1A#VzcƐglXj^aElX%VtɆ]aE1TZkdÊ` 6J'lX%Vd" LS }*Pٓĝ*]idÊ.@ @mO@sZc>zaOJt kwXeAQ[ `mDIPFW0ޘ6J5&g#PF*}PA5cRPJ /S_^bҢ񅗛J{lX%VDbNvE~ݤmkgvu0!{CŮȯ?BvE~tk?&gF16*m5aEϾfrƮȯm4+fѭQnmW~ڒ;&ccN#V[;&gIֲ+fѭo[[ꍍJGlXlםuͮȯEvRu߶tȆvE~ݤmk?vE~,F rƮȯd*\CFh0*_x*i|d,g}bɫtK UUi|cE#VzcڵlX,xutkg)L]_7˱P?vE~luk/N^1T^ˆ2Ɉ]_7IvRNu[ \cWVrU:CUm5aECCU4lXPUG0H 1TA*L<wT-h# ղEkwԯܘmD!V^_7Iu-WnvE~l+7~Ƶ7`(Nu'ՑCҕ!齆S WGU$TRRRt+r1$Ȇ;@CFPěziP5S(&C;lXĦ&RjÙ)Lƍ`r]Y]q!Օa*u IȆ]aE7l I4X`|cRNY47G } I5xB'} ڈB6V9tN]߀0R]Yo|Mbr'"X4Ff/WGI15"R>ՑCZ:* Vy X%x"]ƐҢ!cylcHiqu䐖!<oݙY :yήg )4"ƐQ!-{CJ Vy +b:^ed܈BCJg P>_y[FaEơ޼_y,+r\9t1JkWn|Ɛ!!UՑCZ:T-@J ׂf(Yj}ԢvcH^+B})}Rո:rH^ǐ<1YfC!Wؕ!UGlXQ :h*ƠPBh"wA-JkWu :kWnCZFW6$ *_w4w4/g i4ݿW!-FWS&1ez1e +B1}SҲȆYl6&qrL2_l i9j\9w:4rk i9k|j7NHU9so_bH{_cH +B1}SKƻ!+ Vy ٓ_tjj$%VٓlXѥˆa$ˆŐF6IFz(T^P- _x^psE0q'%j9ZuP-glX%V;q';Wd~"q ר8z55/$v(xNVENTORY.DOCF o !"#$%&'()*+,-./0123456789:;<=>?@ABCDE_~~{So~~{eT1x-O?Βas 9,ӯ~?>e,3KHcTp-zKdHbXeVׇ秝"ppIq2,N7ӑ&DGl)(h`NUS,93E,VC!:,!m-;zXTZŪ`sS(#ë́o 6ͱ4XO [H0$hη\_,ު`N5~=F,x$Ӑ/hM-V#Yr DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#&`*co'ƛ$!+7a2q-∫$ SԈKHNo\XBL4:$@g9-j W Szc$yNv',5 Swz!n{o޿ȯB$Q,uXwSd5h8:No)la`NU\1?kH2>,E0ƛyo'FI6 Y0ϲ/E- UDlaH`~א6j/"ʈM γa iyA\0zcJ&#&Ň&LN܄$5nd*h KLsEX 6@X"Y0GLMRى1mso'󳸆=2sԂcԍ% >z Ī<00ebXO[۝")\RHldW#LTJX"a ZsL(> >;zIBp(DtÜ- 󳸆=5zS- ᘢ_P7Bb nD- LSXiYZXO[ZxP\d"r-+s\Mb'00Gg179KkjZZYtXV+CAR&o?zꭷz˵\zc=mjCAPACITOR-DISC-.01-1KV = WCAPACITOR-DISC-.001-1KV 333RESISTOR-COMP-.5W-100K OHM 333RESISTOR-COMP-1W-1M OHM  QDIODE-POWER-2.5A-1KV -)\~I.C.-ECG 818 33SI.C. ECG 714 ffTRANSISTOR-2SC1308K <TRANSISTOR SK3440/ECG291 %SPLITTER-COAXIAL-2 WAY p="2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# * <s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r GRAFDEMOBQS+GRAFDEMODQC v}GRAFDEMO.BAS<  !"#$%&'()*+,-./01o23456789:;LKc3v1w`D9ǣw{B Viy)ӎ;nBaOZS8ܼ;L;︑w'BgXTFnQݑ~t+^[ac46[IwN?3aBīaC@Ŋ=cO!⁍`ڱ'@ݔ1w|"nʰ ]z FިsZV7*hq|䡳.bc"&Q_]^/hl%onkcs.(8]Ry. y,(==;&]Ry. y,([`򎉮#Jc0e0-#Jgտg=~Կ9zDm_cмtP.، sL#ӾAhDg۞c:u7O\cA܋G? u\-DZj_@nI eCðTcxyvGRAFDEMO.DOCH  !"#$%&'()*+,-./0123456o789:;<=>?@ABCDEFGW{qºr:r1]aiYEӳ%OMatCT%[@ز*[@;o+aٝzu«x޾|fb˪l5$PBպ&nnbT:cDgzl5:]x*y:gN\Qt @蛪u7H 9&nYDbCT%[@!81 l8'"HDEbT:6E^w׸;ݮ_XOXwrx /8O?gK`C#$nFu;Lj"()\kTnT#*V"(JIx( @E1P"H lbtCT%[zSd<=[%׾I}4B<RlPQj(2+JV·l ^TC"$:gEbyJ{BEHԗ>P%$VTS*D>r>Ū0nZnZ&PG*){OUI/KTԲbd 8@0F"EtkF Yѧ&ZP'$'c" ^-$Rl  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#""2<s#r# *  DM=^#"^dxt *B{Rl6؝qMG0F ^="89n ` '$i1Ք F"m_]FLJՋא@#ױ# ,`+r͸* 8O?1SM GV)D %DXMC@Yly5`ߍ' ~Q]䨐@{bJq/'H =W%8O۫`+Д.T_0 '2Rkx*rYe%ثpz q4H $"z%F`8*F T'$i{;]]0X!MRc gV/|I3BL0i5^@ W++xP#0'5J2^̑N>MZJ KUi!LdW%Mwr M%o4چ+Ff&u«x޾|fb˪l5$PBպ&nnbT:cDgzl5:]x*y:gN\Qt @蛪u7H 9&nYDbCT%[@!81 l8'"HDEbT:6E^w׸;ݮ_XOXwrx /8O?gK`C#$nFu;Lj"()\kTnT#*V"(JIx( @E1P"H lbtCT%[zSd<=[%׾I}4B<RlPQj(2+JV·l ^TC"$:gEbyJ{BEHԗ>P%$VTS*D>r>Ū0nZnZ&PG*){OUI/KTԲbd 8@0F"EtkF Yѧ&ZP'$'c" ^-$Rl #a{ |͒}͛Ɛ'@'7||}>"C"6# ""͐ͩ*B"[R5*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#E͊w}8uRB0 >R@RR!+ͨ z R!+ͨ z <!+ͨ z <!+ͨ z <!#ͨ z <!+ͨ z T]KB!z> S>))0 = |JJDMgo>jB0 7?= H\<z5+)+<z {0Gɯgo||H}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'ͬͬdͬ ͬ} wͦWͧ _}8(8J`9{T]=o`9y w >uJ u` }>(; xQ }} ˸T}ٕ(0D=C ,= ( [ 0%D , 7 ͏ ?(8u x O - ; 8˸x X ,-xG}; }م 9; .>#n0[ D = - nx P ,-(-˸G,-; }ٕ? 9.>͏ 8u ?= u+-(>O 0u O 8͏ ?x P , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx(ͼ ?}ٽÏ }ց; <(; 7D = |٤g{٣_z٢Wy١Ox٠GD u J }x>uu}ƀ/ƀo; -J }0W-J W,}l˸ͨ 8 ; ` x( -ͨ 8J  GRAPHICSCOMDGRAPHICSDOCEGRAPHICSPASLͫCopyright (C) 1984 BORLAND IncA Osborne 1al selected)(= ERT()~7#~=% o&ͦoͦܐԩͣ}!!"8~#(}:$= +*!Z!*B!!:(=2!Z: <2!!!:O::O:!*B! !45(!.+/ 0y0( d!kZ!{Z͈͈o&  :(y ͠|( *"x2y( >28!?"9!!>2 :D]SXN]D [ (!e}̈́A8Q0G: x@!\w# (   yV. V!h6# (*(.(!8}(*(̈́w#>?> w-ͨ 8,J }l8;*!` ! >u` ` u--- J ,,,-xGg?+2n*8t z~,->uxua}.; OJ , ; !U >,k- o&0%,` }g; }؉}颋.:}8c~I$I~L*kٷx˸; }0G,͙<},-(-J ! >0 a` o8 Oþ >um.`1pF,t6|!wS<.z}[|%FXc~ur1}Oٯx(<˸ͨ 8; !~Jͨ 0O!><ͨ 8 =  7 <` O ; 7 0 W-J OT0 j oD,:j !I}袋.}8c~I$I~L!>u` ` 77 ` = O nf^VNF!DLT\I!!53!r1!\!> x #-= o˸xO(- }(x>8(C ,C `iM!>u|; |J>| )=|(DMbo˸ͦ88ͦx(0 8> Mx(>-Ͳ{(ay(Ͱͦ \z(>.Ͳ (Ͱ ~ͦ{ *##~6͜O$*#~(08ʦ=ʦ==ʩ=ʬò+###~-_q46͡> *:4^q}Ò*|(M|( M6-#͐ͦ[R8 (G> ͒C~͒#*ͦC!h !lTRUEFALSEͦ!9^#(~#(G~͒#> ͒> Ò "F![(#RR0*4#4> RR *4 #4(>>2$*V(/˖:(#~+ x y2!͵( =( X:(R*:(###~-_-͌X> :("͟"*^˞*V˖0 SRѷR8A* N#F#s#r$ 0})jS\*###w* N#FB ͟r+s> !T]>)j)0 0= UR!#U*^#V#N#F#^#V>">!2DM"~x(L* :O(o:" C}=( ?*-N#Fp+qq#p! * F+N+++V+^Bq#p>>> SRѷR* s#r$ s#r"S"! N#FB(^x * 6#[<(H*! Kq#p##K[! *>EͲ>+|(|Dg>-Ͳ|/ 0:p# ~# +>0w#,-  60#J˸}րogM| .(C = ~> x0w#xG%P %P ZJDM%P = _~65i+~hìx-Sx9?+{Η@}|C C gZJDM0D ,7}o˸  #yO!@9i&   # w# /w# w#!9! E9!!9~(+F͊!"9!(#>2*Ͳ"|>" :( ͆ *6#w*6#6 !\$![ (̈́( #:~CONTRMKBDLSTAUXUSR>2$*#~ Ͷ$*:> >w###6  #6++p>2S-$Ͷ:*6###ww#w$w#w: ##N#F*B> w#w#[s#r>2S! 4 #4! x *$ *>w""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* 5KB!>u~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6# * *!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#VS>O"w2x2!"" @*>2"!"""!\Ͳ*: !~6go(\R*s#r_2x( s x(T]DMR0 -a%}̈́o*!~6o&͠|ͣ}%^C User break1:% I/O% Run-time% error ͒%, PC=[R"͍% Program aborted*1!͍!"ͲcŔgbŔ7a b c d e f g h i j k l m n o p q r t u v w x y z ` ~ {bŔG͐bŔ7a b c d e f g h i j k l m n o p q r t u v w x y z ` ~ $Ͷ$*6 #-Nw#Fwq#p#6#w#w#w* :( ͒: *^ F* < >26"~͟*-w#ww#͟"~ <@*Ͳ!\  <ʮ!\$> >2*|>! * \$\<(!: [1Á\!(f"> 2:!<"F( #~#6e>!["N>!~8>O6*"w (=(&("( :(N 8y(~#x+% (6*#~[*#~ *~(h#"b=  8 J= B== ͯ}8= ͵}/ͭ !*###~-_~(4Q6*>2>*##w:>*##~*#~(E[ ( ( ( !][ ( ( ((w#(6!]~-#8~>7  [>OkͼMs #rkͼpX á[ [ (( #w(q*#~[ ( {b!!Ŕ (ESC to quit)b!"! "!A}2!!ͽŔchar= *&!b!*!ͽŔX= *!! ́Y= *!b**!8!b*&!N*&! N}oEr!*!"**Å"*&!N*&! N}o*&! N}oE!*!"**Å"*&!N*&!N}oE"*!R"**Å"*&!N*&! N}oEA"*!R"**Å"*&!aEʅ"*!"ŔgbR*&bŔGb*&!NEʸ c}oEst*!R"**#"*&!aEa*!"ŔgbR*&bŔThis program was written in TURBO PASCAL on a 52 column Osborne 1. It allows you to see graphics characters by typing their corresponding letters (lower case alphabet). It also displays the current x and y coordinates in the lower right corner of a 52 column screen, and the CHAR value in the center. Type "Graphics" after the "A>" to run the program. Press ESC to exit.  It is intended to be a tool in finding the characters (with their xy coordinates) needed to form a picture in a graphics display routine. On the Osborne 1, using BASIC, you need to PRINT CHR$(27)+CHR$(103) to begin graphic character interpretation (p. 349 of the big grey Osborne Owner's Manual), and PRINT CHR$(27)+CHR$(71) to end it. (don't neglect to end it!). Copyright (c) by Doug Cox Aug '84 for non-commercial use in the Public Domain.var {$C-} x,y: integer; ch: char; begin ClrScr; write (#27#103); write ('a b c d e f g h i j k l m n o p q r t u v w x y z ` ~ {'); writeln (#27#71); write ('a b c d e f g h i j k l m n o p q r t u v w x y z ` ~ {'); GotoXY(1,23); write ('(ESC to quit)'); x:= 26; y:= 12; ch:= ('A'); repeat GotoXY(23,23); ClrEol; write ('char= ',ord(ch)); GotoXY(42,23); ClrEol; write ('X= ',x,' ','Y= ',y); GotoXY(x,y); read (Kbd, ch); if (ch= ^D) or (ch= ^L) then begin x:= x+1; Go JOURNEY COMJOURNEY DQCJOURNEY INS JOURNEY SSS vJOURNEY.DOC _ !"#$%&'(o )*+,-./0123456789:r  Q ;<=>?@ABCDEFGHIJKLMNOPSQRSTUVWXYZ[\]^_`abcdefghi}jklmnopqrstuvwxyz{|}~XuV]/>OM&E21+:843[NJA@<;,#!kgQEUTQEUTQEUTQEU?}u>{B \vc´`ꎨ SFJqFUTQEUtoXY(x,y); end else if (ch= ^X) or (ch= ^J) or (ch= ^M) then begin y:= y+1; GotoXY(x,y); end else if (ch= ^S) or (ch= ^H) then begin x:= x-1; GotoXY(x,y); end else if (ch= ^E) or (ch= ^K) then begin y:= y-1; GotoXY(x,y); end else if ch <> ^[ then begin x:= x+1; write (#27#103); write (chr(ord(ch))); write (#27#71); end; until (ch= ^[); ClrScr; end.var {$C-} x,y: integer; ch: char; begin ClrScr; write (#27#103); write ('a b c d e f g h i j k l m n o p q r t u v w x y z ` ~ {'); writeln (#27#71); write ('a b c d e f g h i j k l m n o p q r t u v w x y z ` ~ {'); GotoXY(1,23); write ('(ESC to quit)'); x:= 26; y:= 12; ch:= ('A'); repeat GotoXY(23,23); ClrEol; write ('char= ',ord(ch)); GotoXY(42,23); ClrEol; write ('X= ',x,' ','Y= ',y); GotoXY(x,y); read (Kbd, ch); if (ch= ^D) or (ch= ^L) then begin x:= x+1; GoTQEUTQEUTQEUTQE.3-)v auTȞ)ӝp #B)Ot*8'yqag#2ÍLTQEUTQEUNoqp89݊2S^FvW H1zGfţ"Jk%{ƃnU̥H|aZb#9Yz'TEJzK^P>pdZii-BחOvNmomGuGe%z=v aKmRC!KZ0!nG-3i!h2d+bCkAZ4pd!lEȜ%ң#m06L/S2IC2c둒ӂMe"҃<&RhDŽKTŌyTx0‘Ye%xBw,95.Ȯ: ͥ N6i"s&$!:R;`bMu!Ӏ}rhpOeB>:4rKTd,St3!y|/\Z#.ٵ*****O:.!-u(ef|˲+KM,v1N7֢jp#>UTQEUO[*3PFiU`kr!|g߀l 1z6lΪ~C&=NvQrGg5s(g~rp]Za)|Bd' i_D'CƣiBc.xzw=<3LB6y1͹ }G4TuF 9f.Rn<32YDZTQEU/wۋ{G ]V0#htBHGexװgίcv Z).B [o#& 9XÐbGTexZ <.7>)߇.ll/CG}Tlr{kqa{`:n=dգuҬbG8$!>j>C+UL*CG+EzJj)$[ Q-%9OCg.R'T\jL@O1IC!-dRރ4D.zJ8x0=DeZ}!\D;@BsZ߅pKV&Ӏ& g@+UL+ZTQ!_1<, !C86@ghe K:6^Z$ . HhN. b 5yg C11N6UjBH|ROI65/Fya z & ;y^<*nهp) .:DP\.=j^S ӂL߃x8g`&@au밂ݪnCO '$4d|ѥ!v BU\ Ңy1BOU,{`d!t.!J=U^+ńp5iY#9k=QELM?\9a- x" <UTv5 k_OD2uRwax;Xx/cub-x9#|kQELJ-ֲ : 2ksQEL=,NH1VX~**djͥvZ+jTQ!S Gɹ)g;ըQ!S[ONv#*dݳ NNyb UT>zb FSSLw,ֲ=/E[TDPj{ G/hq̵d,ֲ=EUFF|f-d x\㞵'jDU^~dzTQFl aR$!c.; ӂ%,1pg~Fg)fasJރp݋8r)FSE@7bETBsZ\l!x1Cк Q߃55Vp **dםLRwW )X8x*z:6. a5/.bF4. b 5yݪn3zIҜ m`y`+%[Eʺ18`JԇsI|uDOY NnR֕A J0=Dʵd+}ԼA)u$sK-E=zIDŽPrև٠CL*5 1]B+ 鮸#a9zC6ٱ.s}-7f xu+5*&RV z !h4. ^*c\RA8٠*z CasCCG}tD5y{ԼyT,=140:RA8 VxTz[ B+U3uS]ZTQ!i҃zPva` j>Xp]ZTQEU{Onagk'[Q{G˅zC.KiCrgq`~|>z+@ 7)@ OJ)('l z)Y&ӭW)U0=ui;<0Z=]ei7-INڵʨ]kĝgwó[whN ppĝ;O\v'~sΨ~=瞷p=_BKQQ!h \@]C֒].`ΒtVLV;b=ehP>@͋XDa934)d ,)AG*a5 S>Bu}r쁅 HcE:d#1 M[>j^S[[۷UQ q `)z]SA6. edZDO&]z|摳c !Kzw=Zi;<{`d3)%G+UHb65y1ݔ*ozHb8ϋz*/!=i2%ZB3Q$KHb6@CݒiqAgH<=p2heѡ#MsRy1Kyr冘Hw>\\pV]q|k+h Ld 5.P hkQE!^/*dGg*dםLR>zBwVC+UtF(o?v"ez!Eyqbx{ŀ]0rqs5!eKԄ%R >z.O  j^&B8J 'GisÓĮxT\H z%VqmWy1TӔ顇߅p]$$|Clႇ O1R?!\@OU\H HkQEl<*XbA:4By|v޹5*uLd SL=:4!6ȹR#{`02ؔx]TʵdV9!=`SH!C[Q.٪v쁅 )^|L/1eB$u!& 2 d 24.S5/F cHPV%J L0%Vq]X.x+9Qr5At'̣Cbs詔k+ȬxԼndR熘LQrGε}Լy=b19\[A#thBL4`zM$ j^@.KHwZTQ!ߘy|< id U%МVc =.ʝNQG讣>: tk r)6|iCCT )i \@ʵdL)i@ME=C#OdV< HYW>5*&RRSjrP̤XC|V&pl5`7e ht)L@*dR,!P޷d5!g}LB౱ zJH%| ;hc. '-hMZBM+6l \.)pw YKC|Jf9| .Ҁi1@͋*n;4=%,Ih`zـ9k$K&E2 Y+^ G#&-=x"%#&*R> :P.$B86@Om&<@C0lw(6{`2d{Gd)Tg(!: Hh"|N)6 X OڵʨۅèB5x;BB2x@~ wx{QEg wow\gRDUF5!fx;+5/F(m@+U$(Bf. 詔]plϐ>,d d]p݋hY4#0 =DOh2v,IȁGqLV1 i4`c.zJjAJ4{Lвd5jCdPd=H1N6 1A Ρ<8֑ Dz-4x,I0rQ$Y:3.mc| K:p٠ED"7Ρe* -*j>CU؋}H1y>Cg%R>z=%Xp-KNv! RnhfC%he ^Qߣ)55*,,I<,a cx;R u%{]p#eQ!S6n?50U٘H*?DZQV='lDatSbtYJkQEl6`&*ZBh f&Н6nd />j>CRuHѠV }j qTg;g( `z9lPH-QbkQElKzw`zK B=!+ SRM7!\@"±XU3 x6&FP.CO>t5C0.RZ*C<Uy_TȾ?YlDueTO }> HUL8[S EUKsBr=FO-\ƣu2L@aiهp]0=#ƐHu:IfrN}> ${lZTk_* _N[Q+#+#;IcBvMd, BvndplV&Hh<4@O gxuca"!gVPut /LQ"XIm詖%IB 0z:B$x|.x|V&<%!Sj0a*8Q.71SKVPRDYu>)di0a*8":W{ !!\[$4d , Lk>41 7=UGCj&(tBi(l) )IQX<;zjc"h1aI"8aU8Ҝ̊*i4{S) *,] DМVX)Q9O%KЭ*:+5!g}tm=%!\[$4ULH\=> ʝ 0=DeZ \@OU~X>1rAf쁅 IӀC!KZRv% |=etʓLluCp,uL- _HhN'詚YX 8GёJXMC> HY<@j` =DO `Ǝp3S6MӀY˺Բ%BayS97Fh<@j |:kQEld5yzqTZ (7.WC`]讣Xc3t!l0]Bԕ{||ILwC) `صZ;=ī/*d/olܾսwQ!_. !C60di !%kYX82=LH^zМh .) 8瑒`R֕9Z;QQ!ۿHӜF:B89OS; dS%*CJ6^AOC"|RP@86@XJ(4Ą \@Ӕ!dUjx#-V MЕs \]ۏmbW4ezb*lnx4}ԼbChei@"8gYQSRM -u6`bM'$Ҋ1pС\vc|p}-utt-{`A#$Yp9OSYӀ霒!kރp  (n`Nv!l tu|SA:,Z;={Q!?gu`I?ֱA V&謣uGgi=U!9@Q=pGŌy0QZB65XaHwEb&#Zb c|ԝ1Xdh@\$v-#uEBpl0zfSnX8xxL:|N.QX cMZ< )]dc]K]c,\]Kؤ%d9iIZ$K$(l@OR\pHǐ9ؤbLBt`$@=%\pE0#TzUT>$RA;tk#N=eD.b"Dp)SJzM+Y**d <fHZ H[%! Lln(5RPbMHQrـ  r;H9S)Y˺9c`#m.!J=UnbG{ˤ{-N\T}Q!{a?p y>plp„3cj  c|ԝ6L/SBCkAZ4.bCYRi`}k y]^Vw=p<8gk';he ;2g"@ J5y0Sya i,= +uw쁅ciW<LVaEg7`&ZbFGd~ó V Z'(m@g`& gRu2r`zrµ |fZbFX8@6}L.H (tF]^99|9OK-ރXpC JxSV03߅p]Pn3,n*k0I[UTkx5򾨐;/~'{<8}NvwFuGT~Xc0]2Q!Sgx7{S›@LMTó N=HYN01& +lEdHYW+.JS$`GBNj **d pȅC'IfdIC ҵ?+IV]qr"iQ5%6kQ!W*އtW\D:Ybyۇp݋HYWkQ!WLw0 ;HBB8Z±y9 L(uGa~ؖۀ!6"! g}p,1 ԼC8ËE+󵨢B6 LV1 `$@[m:69G`iéAO5%6cϐ>rpb#XZ$4]k a(zw!EL(c,l thz|EӔZTQ!i,) ⢇p=p񘳤);2g`!w!\0nJhoix̤|٠~(.`&3z^t/BہG.EQG+UZ#ezM; .R pJ /tgq̵dfz#mRv% HH2 . `IؔĊ A#Ԅ<rm x@XZ%G!xO|H=zk+4he1PB%:,L)UԼ ia)ȃdsVL (]#Pb&,nBt zj"nЄQ:NvQrG &2.Ҁ5lNC>>*Cp lR=±].llOmlo!z2d[  БvheI Z'5ZzL慱b .n|+E}|L@먏Si,jEU{Onal{ųQ{G  {^sC 0sӡ!xCasnhʙ=p#Tszup,˓!c|^ `snhʙdx@C]М]8@<):@ 7)Z4B슇Lꬠul txۇXGO1=㏣6̎BQ>+-uX .Д33D+Uj< .Kiţ3QWw]>!*CA}pC.?2<{-/\͹)gf nhهp]va`Ny8مpAOMd J:+1974 dӀ[1y>H=2=u'uX9O+RHR\9 ͹)g3z*ÍLy_TȮon\>DuoTݿy?~NTFUT^sgDwFU/]'=U~X"#46*dOo.- BTywÜwBT}1\HBT7%KǬ+s'ITȞ*DviäD.]'VqJdYWt'*dO["tUTȞ*/]:f]c[nTȞ*+]:f]c#-Q!{%OGF|/*dW7.|'7*d_va`Y^!!F|o8Y˺ԲCp)Vid °!]Լ{L8AȔ|V&z4x؊rV| RMhe GU|9hcn|=%\)dVPZ±yXLQb!&ZTQ!iHLfM!ZBrl@g(tB =ղ!(vx@6(tBAgpr({2U;RQbʥɋ s+5ylG)[BZus6!CO\[AfUR! 2 ݂{!=ա 1!heVq) 4˓!&|kQEl[ =rmƣ*,ȣ3咭zc)(mYCSuptA|tYJkQEv^/*d_?|rbk{'{(B<&HLN !hZb3fzRw8gC8`DR# "Y \@ʵ4B LSH&(YzLNy1p`R CS±GGʅz!wqw]~\6+ dRG2Abݣ=Dx0=DgH< Tl^ᨏdmmCO lX1򎨐=X#IJzd겴UƟ9OSiLUT,7Jd6Ljdj:V -#$ d-rNz-=X.2cjdSASiAFE%Kԛe#&R֕9*.$kQErDvi dl1S„ZTQ!{V"tMZk Gȹ@8B͵B`yP"tRBK )F.KZTQ!{<,]:,.V#ViHAZTQ!{.]&A6R֕9lnxE?m p6\>3)7+H B`yDv%d\M-ZbkQEzub׉0r1]p"!UT,?(]UU`HYWhEKd.V#{vo5#XkQE٥ x;GQA8LUT˯*]_R@8BUT˯Kdib:dib:G!H[%^**d;%K;lN6'G貔 5&2Z;܈ϔEO^TFh [q:މި sqpNd;* *U%)diDH[UQ!;]!(*dGkhNBUQ!;r,M@VEV,'TQ!;d.UQ!;J *) *S"{UUB>z !f&2I>#v O2ٴmRTȎyTȎ,ӝV.*dGtD쨒΢BvdMd=r+0I"u٨BC.$%DnTȎLjT%#CVpCxK&*dG먐}S|SQ!;ʹVr.vS&ITȎXJUTT$%e3! Q'tHP.$Q!;JYW萠\HBv$(:*dGV]HYaHw#XuTȎRVEP焼0Z;=;QEL&Dpϐ%ɛ#|-Jk6&F m9V=! 2+QN6CC̀s{`Լ=p]C߅pS&D t.K LEO j^<*ޒY2IVS~L!\@K}|f +uw-3$[[۷bECʵ4A͋1p,H.Q$4@6H[%!~|1pQ=UbdKt u/@g`&C3I9OLe"#&]rfhR$IUT^"e]Ap\Eg}<21ӚRul#3i`&JX-.llh@ ~ՃGε). dJ+5/F4 g}L,sȄy>C)CH lNCtY:4j>C+[**du\=tYJ+ y2=];]c,@k7)lVE"&^d QWUwZQ5&ZBC > HZ HW0#<4KzzD&b 4@u 8L4KCʐmS[ c)^.ll/^pԇ:rpt\pԇJ 2u@Klx6*dGBjdw<sB{Q!;kd娐YA {"EvBv$ ݵ4<*a2 U+ ]٨NN|&*dNDzSd_>$+ ّcvBvBvd78dBv4eB$vBvp݅mDH]t:-7d?`KV<!މ**dtDFnJݍ ّ#Hݍ Q0 EIrSل Qn 2RQ!;U萠\HBvD:wLjD2U^ciU"{0g;hmFh0CQ!;.*dGYȮQ!;JdtTȎr.YlTkx'r[ndBv$(:*dGVK Qe\HBvdޢ#d:*dGRϥӄBvĺ]LHBvdK NNTQ!SFZ$$Jd YDv  2%0ڨU,9n$ ّ\[AF24'-s=):*dG *#[XF[2Q!;R UTk򾨐]8<:|)^ި}م탭8>;YlmDuoTQEhgא~qUyGTȮ%6tԍ ٕm/2+iS҂&*dW%.:*dWʭm[ Ui+%^2>2!""!"" {2{2 {2{2{2&"!"{25{23{24{22{21{20{2>{2<{2;{2:{29{27{2={26{2?{2F{2E{2D{2C{2B{2A{2@>2>2! "! "! "!3 "!O "!k "! ">2>2>2>2͍͝! ! !ͫͲ! !!ͫ! !!ͫ! !!ͫ!9 !!ͫ!` !! ͫ! !! ͫ! !! ͫ! !! ͫ! !!ͫ۲! !!ͫ!! !ͫ! ! !ͫ>2!?!!ͫ*}» |¦ ;Ø !U! !Ð ͍!K!! m"ͥ!9?BKJHSWZLGECRONMFTVAYQIXUPD?000010031001100Z2110000040?123456789:;<=>?@ADMZakpz~~?1223334345547666367489==???89;=ADGJLMaAPQRSEVWAKafm~z?23457897=8J9AKCMOPD7N%ET#|-Jk6&F m9V=! 2+QN6CC̀s{`Լ=p]C߅pS&D t.K LEO 2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2r+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_QazZ~~BCDEFGHIJKLMANPOLFPKHQRSPWT!! USER SUPPORTED SOFTWARE !!Please give free copies of this programto your friends. This program may notbe sold for profit without permission ofthe author. If you use and enjoy thisprogram, please send a donation to theprogramming efforts of:Dan Sunday7272 Candleshine CourtColumbia, MD 21045What name will you use in this adventure ?Copyright (C) 1982, Dan Sunday.All Rights Reserved Worldwide.Type Name: You are entering the lost city !!!!x9DM!͐`is#rz–!#͐! s#r!! ͐++|ʿ! 6! ! s#r! ~5o}͐͐! ^#Vr+s! ^#Vr+snsâ͐͡!#!9!9DM͐ n}D!͐ ͤ`is#r͐! s#r͐͐ Ҿ!͐͐̿+|ʩ!3͐͐͡ !! ~#fos#r_͐͡!!9Diskette Full!9DM!"0`i6`in&|`in&)))))06`i4!!!!!!!!!͡!9!! !!!(!/!;!F!͡!9!O!W!b!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77!a{   `OE!y6$ -7rBo&))T])))!y|g}os! ~#fos#r!*&#kG*&! s#r! n*ѯgW+! s! ~5o}F͐n&|g}o|͐n&|g}os! n! nѯgWsF͐n&|g}os! ~#fos#r*&kG*&+! s#r*&+! nѯg`is`i~5o}͐n&|g}o|͐n&|g}os! n`inѯgWs! ^#Vr+sn&|g}os}*&kG*&#! s#r! n*ѯgW+`is`i~5o}ʆ͐n&|g}o|f͐n&|g}os! n`inѯgWsÆ! ^#Vr+sn&|g}os*&+kG!9DM! ! s#r͐|K! ^#Vr+s͐~#fon}-͐~#fo#n}S͐~#fo##n}!̀4͐~#fon#|8͐~#fo!& !͐~#foQs 3! 6|ž;!* |қ! ~4o&!l!v!}!!!͡!9!!!!!!!!!͡!9!!!!&!,!1!8!<!͡!9!D!U!`!k!v!!!!͡!9!!8Gtrap detection!NXdexterity!_esleep!lvpolymorph!}Èdrain life!×healing!çstriking! ͡!9!beacon!beacon!lantern!lantern!flashlight!torch!flare!")candle! ͡!9!>Kregeneration!R^aggravation!essee invisible!zÉslow digestion!Ûprotection!êstealth!ÿteleportation!power! ͡!9!eternal light!genocide monster!sustain power!#2trap detection!9Kprevent confusion!Rarepel monsters!hwpreserve skill!~Ïeternal darkness! ͡!9`i6`in&|! 6! n&|`in&)))))2! n&))w#w! 4ö`i4â!purple! black!white! 'orange!.4green!;?red!FKblue!RYyellow!ͧ!9!nvancient!}Äsea>2<;|g}o! s! n}2=>2>! n&##}2?>2+>2)>2> 2@>2A>2B{2{2C>2 >2{2/{2.{2-!9͍!"͝!!!ͫ!! !ͫ!#!!ͫ!)! !ͫ!0!(!ͫ!6!.!ͫͲ!=!!ͫ*|ک!"! !*UMI*&|>d2! !*&!0!R۲!D!!m"Ͷ!GOLDARMORPOWERENERGYSKILLWISDOMLevel *|n*#"*"N*|*|ڈ!'"! !*!!R!0!*!!R! !*!!R*&|>d2! !*&! !R*&|)>d2! !*&!!R*&|]>2! !*&!!R!/!"!t*&|ڠ>2! !*&!#!R!9DM*|!}"! 6  ! 6*`is#r͐| ! 4`i~#fos#r! !*!(!R! n*}I {!! n&# ?;|g}o! s#r! n*ѯgWled!Ôcrumpled!äofficial!ópapyrus!egyptian!manilla!dead sea!ͧ!9!glass! copper!teak!'mahogeny!.5bronze!<Bmaple!IOsteel!VZoak! ͧ!9!owdiamond!~Æemerald!Ösapphire!æplatinum!òjade!þgold!silver!turquoise! ͧ!9!crescent!star shaped!diamond!$.snowflake!5:oval!AGround!N[heart shaped!bnpear shaped! ͧ!9!9 \$+"%&}^|*=!@a monster pita nerve gas trapa space warpa hammer trapa poison needle trapa chutea tax trapquicksanda steaka pizzaa hamburgera sandwicha tacoa milkshakean eggrollan appleamnesiagain skillconfusionquicknesspoisonrestore powergain powerhealingremove cursemapstrengthen weaponstrengthen armorteleportationmagic detectiongold detectionidentityplate mailtungstenmagnesiumsteelironbronzetinleathertwo-handed swordlong swordbattle axewar hammershort swor !!3*͐ҩ ͐}2 *;|g}o}2**&}2&!!!3*͐!͐}2&!*;|g}o}2! n}2*&|B!>d2! !*&!0!R**ѯgWx!*}2I!9You are wiser than before.Your wisdom decreases.*7|!!"!""* |!!"!""*|!!"!""!!"FAINTINGSTARVING HUNGRY !9DM͐|?"͐`is#rH"!d"`is#r͐!!ͭ!9 !9DM͐! n&! n&ͫ!!!9DM!3! s! s! s`is*&'}2*}7-#8:# :#9A#4N#N#6W# W#1`#2o# o#3x#5ʇ#\ʐ#/ʐ#%7%=%`i6! 6C%`i6C%`i6! 6C%! 6C%! 6C%! 6! 6C%! 6C%! 6! 6C%e)͘*Ø(*&3k*&n! s! n&@|g}o|#! n&?|g}o))0n}#!(3Ø(*}\$*| $!(3Ø(*#"?$*}4$*+"|1$!̀4?$!(3Ø(**S$*"͍*}\¥$!(!! ͫ! )!!ͫdmacehand axeclubenchantment!9DM! n&)))))2##͐s#r! n&)))))2##͐s#r! n&)))))2##͐ s#r! n&)))))2 ##͐ s#r! n&)))))2##͐s#r! n&)))))2##͐s#r! n&)))))2##͐s#r! n&)))))2##͐s#r!9DM`i6! 6! 6! 6! 6! 6! 6! 6! 6! ~5o}n;! s! n&|g}o! s! n&|g}o! s! n&`in! s! n&`i! n&`ins! n&`i! ns! n&)))))2`in&))͐s#r! n&)))))2! n&))͐s#r! n&)))))2! n&))͐s#r! n&)))))2! n&))͐s#r! n&)))))2! n&))͐s#r! n&)))))2! n&))͐s#r! n&)))))2! n&))͐s#r! n&)))))2! n&))͐ s#r! 9!9DM0`is#r! 6@! ~5o}͐͐#͐###sss`i^#V!r+sû! s#r! 6! ~5o} ! ^#Vr+s6>2!Z>2,>2>28;|g}o! s! n}29>2:! n&##}2;! n&##}2>2*>2!)!!ͫ!!$! )!! ͫ!.)!! ͫ!1)!!ͫ!!3>2{20{22{21Ø(!@)!!ͫY|,%!̀4!3Ø(Ø(p-Ø(*3}ʴ%;|g}o`is;|g}o! s;|g}o! s;|g}o! s`in! n}´%! n! n}´%C%*! nѯgW`inѯg3k*! nѯgW! nѯg! s#r͐n&@|g}o|'&͐n&|g}o|]'`in}s&*&+3k*&n! s!@|g}o|s&! n&|g}o|]'! n}&*&#3k*&n! s!@|g}o|&! n&|g}o|]'! n}'*&3k*&+n! s!@|g}o|'! n&|g}o|]'! n}n'*&3k*&#n! s!@|g}o|n'! n&|g}o|n'*3}k'C%n'Ø(e)||'͘*Ø(͐n&@|g}o|'͐n& |g}o|'͐n&|g}o*}2͘*Ø(*0}'!T)3Ø(*! n`inѯgW}2*! n! nѯgW}2͐n&@|g}o|r(͐n& |g}o|r(͐n&|g}o|r(͐6!c)*&*&m"!"͐n& ^Q = Quit the gameL = List Pack ^S = Save the gameN = Name ^R = Refresh screenP = Put downR = Read SYMBOLST = Take off \ stairsU = Use Weapon $ goldW = Wear + trapZ = Zap Wand " food % potion NUMERIC KEYPAD & scroll(move in direction) ^ weapon } armor 7 8 9 * lamp \ | / | wand 4 - 5 - 6 = ring / | \ ! amulet 1 2 3 @ the ARK!9DM͐|ʕ33͐!!ͫX!!͐͋#}2`i6#6*`i^#Vr+szb3P3! s#r! ^#Vr+s! ^#Vr+sns{ʒ3l3ê3!!X>2!!!9!9DM*}4! 4!(!ͭ`is`in} 4`in} 4`in}03!9-> MORE....!C4Z4!!|>4/4WaPress RETURN when done!9DM۲͐!T!ͫX@|g}o|ʒ(͘a͘*Ø(!9There are no stairs hereYou can't go down any furtherYou can't go upstairs without the ARKYou are goingdownthe stairs....You are goingupthe stairs....Really QUIT (Y/N) ?You can't move *3}r)!35*4}~)!45*6}ʊ)!65*5}ʴ)!55*5&|ڱ)!Z*3!)*8|);|g}o|);|g}o}25*1}*!15!d*3*}2!*2}%*!25!*3*}2!*7}S*!85n}S*f;|g}o}28!!You faintYou are stuck in quicksandYou are stuck in the Gel!9DM*}ʯ*!5 +z| +*|ͩ**6*!}2*;|g}o}2*.7| +*&}2*.#".*>})+*})+!5H+*}2**ѯgWH+!4I*-}ʹ+*-&))0#n}¹+*-&))0###n}ʉ+*-&))0###5ù+! -3>2B!"*-&))0#6>2@!"*+}2,*.|g}o|2,!5n}2,>2* &|,!#-3!"! 5*&++}2!"*+&))0###* ʯg+s*4&|g}o|U,2r|U,!"*5}¤,*|m,!̀4*;}ʆ,*.|g}!9DM͍! n}«4!""! 6I5ñ4! 6! n}¿4 ;͍۲!::`is#r! n}4!d:`is#r 5! n}4!:`is#r 5! n&͝}ʤ,*|ʤ,*+"*8|,!<-3>25*+",* |,!P-3*+",*|,!a-3,-Ͷ!!9Your amulet turns blackYour lamp becomes dimmerYou are FAINTING !!You are STARVINGYou are HUNGRY!9DM*}?-a-c-d-e-l-n.p .r,.t8.u>.wJ.zP.\.͐.w.!3w.8=! sg.XT! sg.VS! sg.!!!)]!H!4w.?Hw.h! sg.W! sg.Dw.͘>! sg.i?w.I! sg.!.3w.! n}w.e)͘*!9Invalid Command!9DM!/! s#r! 0! s#r! 0! s#r!0! s#r!J0! s#r!s0! s#r!0! s#r!0! s#r!0! s#r!1! s#r!"1! s#r!H1! s#r!l1! s#r!1! s#r!1! s#r!1! s#r!2!! s#r!&2!# s#r!K2!% s#r!o2!' s#r!2!) s#r!2!+ s#r!2!- s#r`i6`in&|/`in&)! ~#fo!K`in&ͭ`i4Ù/!H!4!/9 COMMAND AND SYMBOL SUMMARYA = Again (message)C = Carry Lamp \ = Go downstairsD = Drink / = Go upstairsE = Eat ~#fo|8ï9! 4*a!! n&ͫ*a~#fo|9! !*a~#fo! ! n&J!0!*a ~#fo!! n&J69! !*a ~#fo!! n&J! !*an&!! n&J! !*a~#fo!! n&J*an&͝2.E*/! n}E>2/EcG! 6! n}+F[FgFnFuF|FʓFʚFáF*}XF*&|IF>2UF*&+++}2áF!75>28áF!95áF!:5áF!;5áF!<5*<}F!"áF!=5áF!>5áF! n} cG*-! n}F>2-FcG! 6! n}FGG%G-G=GEGKGcG!">2@!"cG>2AcG>2BcG>2CcG>2D!"cG>2EcG!âG!">2?!"cG! n}†G! n&!H͚j3ÜG! n&!1H͚j3!âG!9Takeoff what ? (ESC to Cancel)You aren't wearing anythingThat's CURSED !! You can't take it off.You took off You aren't wearing You took off !9DM!kI!I!iͽP`is#r͐#|oH!bI͐n! s!ld.Press RETURN to continue!9DM! n}<<<<!h>!eͽP`is#r͐#|h=!A>͐n! s! n&))0n! s*+}ʼ=*+&))0###*&|g}o* ѯg+s! n}2+*+&))0###n}2!"*&|g}o#}2 * &)+}2!"! n&))0##n&|g}os! n&!>͚j3!A>!9Carry what ? (ESC to Cancel) You have no lamps to carryYou're now carrying !9DM!?!!?͐n! s! n&))0n! s! n}2*! n&!W?͚j3!?!9Use which weapon ? (ESC to Cancel)You have no weapons to useYou're now using !9DM!}C!C!gͽP`is#r͐#|™?!tCe)͘*͐n! s! n&))0n! s! n&))0#n! s! n}6@*,}?!C3!tC! n}2,*,&))0###n}2! n&))0##n&|g}os! n} gA*.}_@*/}_@!C3!tC*.}s@! n}2.|@! n}2/!  n&))0n! s! n&))0#n! s! n} H! n! sH! n} H! ng! sH!I3! n&)))))0! s#r!I!!ͫ!A! ͐͐n}TI! n&)))))2! n&))͐s#r!3!bI!9Name what ? (ESC to Cancel) You don't have anything to nameSorry! You can't name that!Call it: !9DM!O!O! ͽP`is#r͐#|I!äO͐n! s! n&))0n! s! n&))0#n! s! n&))0###! s#r͐ n}jJ!O3!äOoJ͐ 5! 6! n}ʦJfKʢKL N O6OGOiO*&+! s! n*&#cK*&+! s! n*&#[K! n&3k! n&! s#r͐n&@|g}o|5K͐n& |g}o|8KSK͐n&|g}o! 6! 4J! 4òJiO!4*;|g}o}2*}2I>23! 6!P3iO!P3*&+! s! n*&#ڷL*&+! s! n*&#گL! n&3k! n&! s#r͐n&@|g}o|9L͐n& |g}o|4gA! n} XC*-}ʈA!D3!tC! n}2-! n}AAAAABB@CXC!">2@!"XC>2AXC>2BXC>2C>23XC>2D!"XC>2EXC!*D3!DD3Y}2F*Fɯg|JB*F&|JBMBB!3*F&mo!sD! ȸ! 3! 6!7 s#r!6 6! ~5o}C*F!~#fo͐7n&n}B͐76͐7##n&3k͐7###n&͐7ns!6 6!7 ^#V!r+sÎB!6 n}C!"!D3>2-͐Cj! n&))06!tC!">2?!"XC! n&!D͚j3!tC!99Wear what ? (ESC to Cancel) You have nothing to wearSorry! You're already wearing ArmorSorry! You're already wearing two RingsSorry! You're already wearing an AmuletThis is a genocide amuletWhich monster (A-Z) do you want to genocide ? The %s no lonWsçL͐ #6͐n&|g}o#! 4K! 4öK*&}2I! 6iO*&+! s! n*&#N*&+! s! n*&#M! n&3k! n&! s#r͐n&@|g}o|aM͐n& |g}o|dMM!!͕! s!~#fo! n&n*F}ʖMÙMdM͐n&|g}ok! ns͐n&|g}ok#!~#fo! n&ns! 6! 4L! 4L! n}N!;P3!"iO*&+! s! n*&#N*&+! s! n*&#N! n&3k! n&! s#r͐n&@|g}o|¯N͐n& |g}o|²NN͐n&|g}ok!!͕s! 6! 4MN! 4,N! n} O!VP3iO*4!!!͕}24! 6!pP3iO!+́[! 6iO! !͕}26! 6!P3iO! n}ʖO! n&)))))2! n&))w#wÞO!P3!äO!9Zap what ? (ESC to Cancel) You don't have any magic wands to zapNothing happens!You feel better than beforeThe air is charged with energyYou cast a polymorph spellYou cast a spell of sleepYou feel quickerYÎZ!Z!Z!(ͽP`is#r͐#|¬XÎZ͐n! s! n&))0n! s! n&))0#n! s! n&)))))2! n&))w#w! n}%Y! n}%Y! n} DY! n&))0##n&|g}osWa! n&![͚j3ÎZ!́[ÎZ!́[ÎZfÎZ*,}ʿY*,&))0###4*,&))0##n&|g}os!4!$[3ÎZ**}Y**&))0###4!B[3ÎZ!ḿ[ÎZ*,}Z*,&))0##n&|g}os*.}9Z*.&))0##n&|g}os*/}^Z*/&))0##n&|g}os*-}ʃZ*-&))0##n&|g}os!^[3ÎZ!ÔZ!9Read what ? (ESC to Cancel) You don't have any scrolls to readThis is Identify what ? You don't have anything to identifyThis is Your armor shines with light.Your weapon glows brightly.You feel blessed with good fortune!9DM! n! s`i6#6! s#r`i^#Vr+szʾ]! n}m[+^\ʧ\\ð]͐n&@|g}o|\͐n&?|g}o))0n}\͐n&|g}os[\͐n& |g}o|2\[\͐n&|g}o|[\͐n&|g}osð]͐n&@|g}o|ʤ\͐n&?|g than beforeYou feel enchantedThe magic wand has no effect!9DM! s! s! n}gPhQeQfQi#Q2Q! 6! 6 ! 6 =Q! 6h=Q! 6 =Q! 6=Q! 6 ! 6 =Q! n! s! n&! n&! n&]|rQWa͐3!MS3!3!H!͐Z4`is`in} ʬQ`in}Q! n}(QWa!MS`in&Y! s! n&|QÊQ! n&n! s! n}RÊQ! n&))0n! s#6! n&))0#n! s#6! n})MR(PRhRS@S͐|wR͐|wR͐|R! n&))0##n&|g}o|ʚRÊQÿR͐)))))2͐))~#fo|¿RÊQ@S! n*,}S! n*-}S! n*.}S! n*/}SÊQ@S͐! n&@S͐! n&@S͐! n&@SÊQWa! n&MS! 9!9DM! T!%T!ͽP`is#r͐#|†S!T͐n! s*! n&))0###n&)))"*/|S!"Ͷ!*7|S>25!LAMP -------->ARMOR ------->RIGHT HAND -->LEFT HAND --->AMULET ------> %c.%sUSINGPACK LIST!9DM!!`i6`i~5o}ʏa!H`in&Xpa!9!9DM*&3k*&! s#r͐n&?|g}o`is`in&))0n! s! n}db*`in&))0###n&))))"*|7b*|-b*#"*"M͐6`in&!c͚j3`in&))06éc! n}®b`in&!c͚j3͐n&|g}os`in&))0#n&céc! n}b`in&!c͚j3éc*)&|b!c3éc*)! s! n! n&n&))0nѯgWKc! n&|Kc! n&#! n&ns! 5b! n&|ec`in}2xc! n&#`ins! n} ‹c{>2!)4͐6`in&!c͚j3!9You found You fell into You found Sorry, your pack is fullYou found !9DM͐>d>jd>d>ʁd>+d>d>7d>e>Cd>4e>Od>he>[d>ne>gd>ʳe.f;|g}o}21.͐m!dn! s#rÙm!kn! s#rÙm!rn! s#r!xn! s#r͐))0##n&|g}o|lmlÙmm! n}'m͐! s#r!~n! s#r͐))0##n&|g}o|$mm2m!n! s#rÙm! n}Ym͐! s#r!n! s#rdm!n! s#rÙm!n! s#rÙm!n! s#r!n! s#rÙm!n! s#r͐͐͐͐!n͐ȸ͐m͐͐͐ `in&͐͐!n͐ȸ!9͐m!9 a the stairs%s%d pieces of GOLD!%s%spotionscrollsome armorwand ofwandring ofringamuletthe ARKBUG%s%s%s %s%s%s%c%d %s %s!9DM!4o! s#r!~#fo! n&kn&n&mo`is#r͐ ͐͐!fo͐ȸ͐+o!9 %s%s%s!9DM! n}ApB pCpD$pE0pFi!^i!)ͽP! s#r͐#|qh!i͐n! srAq!q`is#rAq!q`is#rAq!q`is#rAq!q`is#rAq!q`is#rAq!q`is#rAq!q`is#rAq!q`is#rAq!q`is#rAq!r`is#rAq!r`is#rAq!r`is#rAq!r`is#rAq!"r`is#rAq!'r`is#rAq!.r`is#r͐Hq!9AnhkhegBatCentaurDragonElephantViolet FungusGelatinous CubeHobgoblinInvisible StalkerJackalKoboldLeprechaunMimicNomadOgrePurple WormQuasitRust MonsterSnakeThiefUmber HulkVampireWaspXornYetiZombieBUG!9DM! 6! 6! ~5o}ʒr! n&k`is#r͐n}ʏr! n͐ͥr|g}osFr! n&Ür!9!9DM͐!##n! s͐!###n! s*! nѯgW! s#r͐|r͐! ss͐! s! n&|s!*! nѯgW`is#r͐|Js͐! sTs͐! s! n&|js!͐!n! s!~#fo! n&n! s͐!n}#t! n}F#t*9}ʴs!! n&|s! n&|s!! n}Ms!͐!n}t!͐!n&|#t͐!5!*B}yt! n&|pt! n&|pt͐`is#r͐! s#r! 6vt! 6t! 6!! n*,}ʼh! n*-}ʼh! n*.}ʼh! n*/}h!i3!i! n&!i͚j3! n&͹i͐! ng@|g}os͐Cj!i!9Sorry, something's there already.Put down what ? (ESC to Cancel)You don't have anything in you pack!Sorry! You have to take that off firstYou put down !9DM! n&))0n} i 2+!"{2{2 !"Aj>2!9DM! n`is`in*)ѯgW҃j`in&`in&#ns`i4Tj!)~5o&6!9!9DM!n! s#r͐))0n! s͐))0#n! s͐))0###n! s#6! n} k! ~#fo|g}os#r3k! n} 3k! ~#fo! n&#s#r͐ |Rk`i6-͐ ! s#rVk`i6+!:n! s#r! n&)))))2! n&))~#fo! s#r! 6͐|k! n&)))))2! n&))##~#fo! s#r! 6!=n! s#r! n}l6lglglʈlʖlʤlʺl l l 5m gm umÎm!>n! s#r!In! s#rÙm͐))0###n&))))͐!Jn͐ȸ͐m͐͐!_n͐ȸ n}Bʠt! n}Vʠt! n}I8u! n}B´t! 6t! n}Vt! 6t! 6! n&|u;! nѯg|g}o|u͐`is#r! n&|8u;! nѯg|g}o|8u͐! s#r! s! s! s! s! n! s͐|pu! 4~u͐|~u! 5! n! s͐|ڞu! 4ìu͐|Ҭu! 5! n! n}v! n&3k! n&n! s! n}u! n&@|g}o|vÄy;|g}o|v! 4v! 5! n! n}’v! n&3k! n&n! s! n}qv! n&@|g}o|tvÄy;|g}o|ʍv! 4Òv! 5! n&3k! n&n! s! n} w! n&@|g}o| w! n& |g}o|v! 6 w͐|w! 6! n! s! n&3k! n&n! s! n}ʄw! n&@|g}o|„w! n& |g}o|jw! 6Äw͐|yw! 6! n! s! n! n}¦w! n! n}w! n}ʺw! n}w! n}#x! n}#x! n}x! n&|x! n&|x͐`is#r͐! s#r! 68u!! n}7x! n}:xÄy! n&3k! n&n! s! n}ʄy! n&@|g}o|„y! n##! ns͐!###! ns! n&3k! n&! s#r͐!͐ ns͐ ! ns!!9 missedThe hit youThe You feel less skillfulYou are covered with GelHe steals and disappears...Your armor is protectedYour armor weakensHe takes some goldand disappears...His gaze confuses youThe sting has no effectThe sting weakens you!9DM͐k`is#r͐n! s!~#fo! n&n! s!~#fo! n&n&! s! n! s#6**ѯgW! s#r**&))0###n! s**}ʛ! ~#fo! nѯgs#r͐ ͐ ͍! s#r**}߂͐|ͩт͐Ԃ!! s#r͐|͐! nѯgͩ͐ ! n&! s#r͐n}J! n}F7͐6! n}MJ!"! n}FZ>20͐|~!͐!n3͐*ѯgͩҙ͐Þ*&! s#r͐#n͐ă͐#6ڃ͐#n͐s!͐!n3͐#!9You missed the You hit the !9DM͐ k`is#r͐n! s!~#fo! n&n! s͐#n}s͐##n! s͐##}x! n}x! n}x! n&|x! n&|x͐`is#r͐! s#r! 68u!! n}x! n! sÄy! n}y! n! sÄy! n! nѯgW7y! n! sÄy! n! nѯgWZy! n! sÄy;|g}o|yy! n! sÄy! n! s! n&3k! n&n! s! n}z! n&@|g}o|z! n}z! n&|z! n&|z͐`is#r͐! s#r! 68u!! n&3k! n&! s#r! n*}O! n*}O*6}iz!! n}Fyz>20*&)! s!~#fo! n&n&! s! n! nѯgWͩz! n&z! n! s! n&! n&͍! s*&|ͯ{!{*ȯg! s! n! nѯgWͩ6{! n&;{! n! s! n}Dm{! n;|g}osÆ{*:}ʆ{! n&s! n}º{!͐ n&|g}o!n3!*#! s!~#fo! n&n&! s! n! nѯgWͩ|! n& |! n! s! n! nѯgWͩ1|! n&6|! n! s!͐ n&|g}o!n3! n}Rʺ|*! nѯgWڥ|>#n! s! n&3k! n&͐ns! n}F>203>2!|͐ !}n3! s{@A! n}TQ7LKÚ! n&ͳ! n&))0###!@!͕sÝ;|g}o|KA! n&)! n&))0n! s! n}K! n}K! n}K! n} KÝA! 6! ~5o}A͐##n! s͐###n! s! n}! ! g|ã! n*} ! n*} ã! n&3k! n&! ng@|g}osAã!"*!~#fo! n&n&"͐6! 9You killed the !9DM! n! nѯgW####`is!`inѯg! s! n! n&#!*! n! nѯgWs! n&|ͩ! n&#!! s! n&*!9͌ͤs?+0*&|g*ȯg }2l>2*}2!".|ʇy!9DM{2{2{2{2{2{2{2*} և*;|g}o|և!5`i6#6! s#r`i^#Vr+szʛ*|ډ͐n&@|g}o|2͐n&?|g}o))06É͐n& |g}o|ʉ͐n&|g}okn! s{ʉ! n&?|g}2I3!~#fo! n&n&̀4ú|*! nѯgW}2I! n}A|G:}Lu}Rʑ~T~UʺWI*A}|*||I;|g}o|}I*+"**"!3I*2}E}I;|g}o|Y}I!!͕}22!3I;|g}o|ʉ}I*)&#!͕! s! n&n! s! n**} ~! n*+} ~! n*,} ~! n*-} ~! n*.} ~! n*/}~I! n&!6͚j3! n&͹i! n&Cj! n&))06!A3͐!##n&3k͐!###n&͐!ns͐!6!"I*,}ʧ~*&|Ҫ~I*,&))0#n}¿~I*:}~!S3I*,&))0###5!5!k3I*| ;|g}o|I!!2͕! s! n*ͩG! n&P*! s*! nѯg"!~3M!3͐!##n&3k͐!###n&͐!ns͐!6!"I*C}*3};|g}o|I*3!!͕}23!3I;|g}o|!*&|$I*E}7!3I!5!с3I!! n}F`!͐ n! s͐ ͐!ns͐!o))06! ^#Vr+s6!9!9DM`i6`in&|j! 6! n&|d`in}`in}! n}! n}2`in&3k! n&6\! n&|g}o|A`in&|g}o|\`in&3k! n&6! 4Ĉ`i4ð!9!9DM>2!!!4;|g}o;|g}o###ͺ*}M;*ѯg}2*&)! s#r͐ n`is͐ #n! s!5͐ *&)ns͐ #*&)#ns! n&`in&! n&`in&ͺø*|\ñ*))! s! ~5o}ʱ; ! s;! s! n&! n&m! 9!9DM! n&k! n&`is#r͐n&|g}os! n&|)!͐#! n&#! n&‹! n}X!͐! n&! n&+‹! n}ʄ!͐+! n&+! n&‹! n&|ҹ!͐! n&! n&#‹!9!9DM͐n}*&)! ns*&)#! ns!4͐n! nѯgW|g}os!9DM;|g}o|>9>>t>*>ʯ>6>(`in&|g}o|t! n&3k! n&#! ns(`in&|g}o|ʯ! n&3k! n&+! ns(`in&|g}o|! n&+3k! n&! ns(`in&|g}o|%! n&#3k! n&! ns(9! 5n}6B!9!9DM`i6`in&|Ү! 6! n&|Ҟ;! s! n&|g}o! n&|g}o|©Ì! n&|g}o! s! ng!͕|g}o! s! n`inѯgW|g}o! s! n&|g}o! s! ng!͕|g}o! s! n! nѯgW|g}o! s! n&! n&! n&! n&N! n&s_`in&sK! `i@`in&3k! n&6@>20;|g}o|* |W! s! n&|W! `i@`in&3k! n&! ng@|g}os! n&Z**hE*|ސ*}ސ ¯`in}¯*F}ʪ!!͕`isï>2F͐ ))0#`ins! n} ٘ 1 Pi`in&))))d|g}o! s`in&|! n&|g}os.! n&|g}osÄ`ing !͕! sÄ;|g}o! sÄ`in&`in&͕! s͐ ))0###! ns! 6! n}ʸ Й ! n`in}͙! 6 ;|g}o|"`in}`in}! 6 `in} ! 6͐ ))0##! ns!9!9DM`i6! s#r`i~5o}e͐6! ^#V!r+sA;|g}o`is`i~5o}ʯ! ! @̚! n&! n&vy;|g}o)}2!9!9DM*|*++++`is#r`i6#6͐| `i6#6*####! s#r͐|0! 6#6͕͐͐! s!~#fo! n&n*F}dn! n&q0!9!9DM`i6`i~5o}–!m! ! @! n*ѯgWͩϛ! n*ѯgW*! nѯgW! s! n*ѯgWͩ! n*ѯgW!*! nѯgW! s! n* ѯgWM! n*ѯgW҆̚! n&! n&v!m!9!9DM!! s! n&|ސ! `i@`in&3k! n&! ng@|g}os! n&))06 ;|g}o##! s! 6! n! nѯgWp! s{@"!E! `i@`in&3k! n&! ng@|g}os! n&ͳ! 4*|ғ;|g}o##! sǑ*|ҵ;|g}o#! sǑ;|g}o! s! 6! n! nѯgWE! s{@!E! `i@`in&3k! n&! ng@|g}os! n&)! 4͑! 9!9DM! n! nѯgW! s! n! nѯgW! s! n! s! n! nѯgW!! n! nѯgW! n&3k! n&4! 4Í;|g}o|!!! n&! n&! n&! n&*!͕*###l!! n&! n&! n&! n&*)!͕*ҵ!! n&! n&! n&! n&*))!͕*!! n&! n&! n&! n&!9!9DM**.! n}.! ! s{@C! ! n&! n&͕! s! n&! n&͕`is! n&3 6#6! ^#Vr+szʲ͐kn}¯òÇ͐|!!~#fo͐n! s͐k`is#r͐͐s͐#!~#fo͐n&*s͐##! ns͐###! ns*=}_! n}F_͐6À͐!~#fo͐n&s͐n}§͐;|g}os͐! n&3k! n&ns! n&3k! n&͐ |g}os! n}FPMʽ;|g}o|'͐n}8! s{@J! n&)! n}Pp! n&))06 ! n}Fž! n&))0n} ž! n&))06͐! ng@|g}os͐!0~#fo! !͕ns!!9!9DM͋! 6! n&|! 6! n&| ! n&3k! n&n`is!|g}o|! n&! n&`in&@|g}o|ʮ!0~#fo`in&?|g}o))0n&n&͙`in& |g}o|!~#fo`in&|g}okn&n&͙`in&|g}o|۲!͙`in&@|g}o|+`in& |g}o|Ѡ`in&|g}okn! s! n&@|g}o|Π! n&! ^#Vr+sn&|g}os7*&+kG*&+! s#r*&+! nѯg! s*&+! nѯg! s! ~5o}̩͐! s#r! n`is`i~5o}ʷ͐n&|g}o|f͐#n&|g}o|c͐n&|g}osé͐n&|g}o|ʩ͐#n&|g}o|ʩ͐n&|g}os! ^#Vr+s! ~#fos#r*&+kG*&#! s#r*&+! nѯg! s! n*ѯgW+! s! ~5o}͐! s#r! n`is`i~5o}͐n&|g}o|ʏ͐+n&|g}o|ʌ͐n&|g}osҪ͐n&|g}o|Ҫ͐+n&|g}o|Ҫ͐n&|g}os! ^#Vr+s?! ~#fos#r*&#kG*&+! s#r! n*ѯgW+! s*&+! nѯg! s! ~5o}͐! s#r! n`is`i~5o} ͐n&|g}o|ʸ͐#n&|g}o|ʵ͐n&|g}os͐n&|g}o|͐#n&|g}o|͐n&|g}os! ^#Vr+sh! ~#fos#rG*&#kG*&#! s#r! n*ѯgW+! s! n*ѯgW+! s! ~5o}F͐|g}o|Π! n&! n&!0~#fo! n&?|g}o))0n&n&͙`in&|g}o|! n&! n&۲! ͙! 4! 4ʹ!!!9!!@!9DM͐!!͕s͐!1!͕s͐n&3k͐n&n}H!9DM;͐͐͐!9DM*|g}o|`i6#6@`iw#w*͐*|g}o@|g}o|g}o"*!9!9DM*?}A! 6! 6j*@}X! s! sj* ! s*! s*! nѯgW+! s*! nѯgW#! s*! nѯgW+! s*! nѯgW#! s! n&|! n&|! 6! n&|! 6! n&|! 6! n&|,! 62! n! s! n! s! n**ѯgWs! n**ѯgWs! n**ѯgWs! n**ѯgWs! n! nѯgW#! s! n! nѯgW#! s! n! s! n! s! n! s! n! s! n&kG! n&! s#r! n&3k! n&! s#r! n! s! n! s! ~5o}ݥ͐! s#r! n`is`i~5o}1͐n&|g}o|͐+n&|g}o|ݬ͐n&|g}os#͐n&|g}o|#͐+n&|g}o|#͐n&|g}os! ^#Vr+sÐ! ~#fos#ro! n&kG! n&! s#r! n&3k! n&! s#r! n! s! n! s! ~5o}N͐! s#r͐ ! s#r! n`is`i~5o}!͐n! s͐n&|g}o|k͐n& |g}o|k! n&|g}okn! s! n&|g}o|k͐! n&|g}os! n! s͐n&|g}o|)͐n&@|g}o|Į͐!0~#fo! n&?|g}o))0n&ns&͐n& |g}o| ͐!~#fo! n&|g}okn&ns&͐n&|g}os͐6! n}<͐6 ͐n&|g}o|͐n&|g}o|z͐n&|g}os͐n&@|g}o|͐n&|g}o|ʬ*D}ۯ͐!0~#fo! n&?|g}o))0n&ns͐6͐n& |g}o|͐!~#fo! n&|g}okn&ns͐n}I®*<}«! n&|g}okn! s! n&@|g}o|ʥ͐!0~#! s#r͐ ! s#r! n`is`i~5o}ʶ͐͐n&|g}os͐n&@|g}o|H͐n&|g}os͐n&?|g}o))0n! s! n}&͐n&|g}os! n}E͐n&|g}osÝ͐n& |g}o|t͐n&|g}osÝ͐n&|g}o|ʝ͐n&|g}os! ^#Vr+s! ^#Vr+sß! ~#fos#r! ~#fo3s#rr*&kG*&n&|g}os*&+kG*&! s#r*&+! nѯg! s! ~5o}ʲ͐n&|g}o|ʉ͐n&|g}os! n! nѯgWsò͐n&|g}os! ~#fos#r=*&#kG*&! s#r! n*ѯgW+! s! ~5o}b͐n&|g}o|9͐n&|g}os! n! nѯgWsb͐n&|g}os! ~#fos#r*&kG*&+! s#r*&+! nѯg`is`i~5o}͐n&|g}o|͐n&|g}os! n`inѯgWs! ^#Vr+sn&|g}osÙ*&kG*&#! s#r! n*ѯgW+`is`i~5o}ʢ͐n&|g}o|ʂ͐n&|g}os! n`inѯgWsfo! n&?|g}o))0n&nsë͐6͐n}M͐! n&|g}okns͐n&|͐6M͐6͐6 ! ^#Vr+s! ^#Vr+sϭ͐6! ~#fos#r! ~#fo3s#râ! n}q*&kG*&6 ! n&kG! n&! s#r! 6! n! nѯgW͐ ! n&! n! nѯgWͭ! ~#fos#r! 4Ú!9!Q!Q!9DM!!Q!=!Q͐ !Q͐ !Q!c·T!9DM͐·!U͐͐!!Q!·l!9DM͐͐͐·!ز·m!·)!·(!9DM`iw#w͐͝s{ =! n}U8͐͐n&Ys͐n}u͐|c`i^#Vr+s! ^#Vr+sC͐6Ͳ!L:͐n}­͐|ڪ`i^#Vr+s! ^#Vr+sͲ͝:͐n}Ͳ͐|޳`i^#Vr+s! ^#Vr+sû͝:͐͐+:͐ng|:͐n&|:͐n&!Q`i^#Vr+s! ^#Vr+s͐6Ͳ!L!9!9DM`iw#w͐|ʨ`i^#Vr+s! ͐ͯژ! n&Zͯ!9DM! n&aͯǼ! n&zͯ!9DM͐͐ ͐^#Vr+s͐ ͐0͐7s!&f͐ ͐͐ ͉͐˼`is͐ ͐͐ )͐˼`in&#&f!9!9DM! n&0ͯښ! n&9ͯ!9DM`iw#w͐~#fon&o}͐ ?͐^#Vr+snѯg`is#rì͐!9**  !\&!7*|;*"۾*"ݾ*"߾|e*A!Z ##L"۾"ݾ"߾:۾2۾!6#r!Ծ ~W!~w# ‹zҬ!۾w# ¢„ |!۾ᾯ?/w#¿+~g:߾oŇ7,2q*&:q):#=#=r:qo&7:)~:,"s!"u*|ʁ**s†! ~6*u*+"*"*u#"uM#7*\!*7:)~:,"s!"u*|*u2*~# "*s*u2#"u*+"7**:OzLq#D7*+++:G_*DM!po&  ‰ 0s! ~#fo s#rc͐͐͐͐! s#r͐|! ^#Vr+s! ^#Vr+sz! n&!Q͐|<`i^#Vr+sz9͐! n&!QI!0!Q!9!9DM! w#w͐͐`is#r͐|ĵ! ^#Vr+s! ͐ 0s! ~#fo s#r}͐͐%͐͐! s#r͐|! ^#Vr+s! ^#Vr+sz%`i^#Vr+s! ns͐|^! ^#Vr+sz[`i^#Vr+s͐! ns.k`i^#Vr+s60!9!9DM͐͐`is#r͐! ns!9!9DM͐͐`is#r͐ n}`i^#Vr+s! ^#Vr+snsж!9!9DM!!Q!S!Q͐ !Q͐ !Q!9DM͐͐! n&͐ ͐U!!Q!·g!9DM! n&!Q!·G!9DM͐n}! ^#Vr+sn&!Qʷ!· !y9DM! `i`iA!9!9DM! n&m|N! n& S! n&!9DM! n&͜|ʀ! n&Å > _ ™l!9DM͐͐͐·!ز·m!·)!·(!9DM`JOURNEY TO THE LOST CITY is supplied on a single density diskette for the OSBORNE 1. The program on the diskette is named "JOURNEY.COM". The user's manual for the game is in the file "JOURNEY.DOC" which is a Wordstar document file. The game itself has some built-in help which is given when a '?' is typed in play mode. Note that JOURNEY TO THE LOST CITY will only operate properly on an OSBORNE 1 with 52 columns, and auto-scroll turned OFF. This is "User Supported Software". Donations to support the author's programming efforts would be appreciated, but are not necessary. The author is: Daniel M. Sunday 7272 Candleshine Court Columbia, MD 21045 ELRIC OF ULM0ý:ҷ=!Ҿý^T!~ ?#ˆK{`O> K{͘A͒͢! n&!9DM`iw#w! ^#Vr+sn}ʸ`i^#Vr+sÙ͐ÿ!9!9DM! ͐!h9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{2`in}%! ! s#r! 6#6! s! s! s͐n}-q! ^#Vr+s! 4͐n}0! 4͐n&o}ʞ! ͞á!! s#r! ^#Vr+sn`is{.! ͞! s#r! 4! ^#Vr+sn`is`in&Y}DUQXZOcCʩSں͐~#fo|Q! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 i! 6i! 6! ~#fo! n&! ^#Vr+s~#fo! ˼ѯgs#rR! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+sR! n}! 6#6! ^#Vr+s~#fo! s#r͐n}R͐|R! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+s͐6! ! s#r! n}©! ^#Vr+s!ҩ! ^#Vr+s! n}ʠ!0ã! sn͐! ^#Vr+sns{һ! ^#Vr+sé! n}! ^#Vr+s!! ^#Vr+s6 ܻ! ^#Vr+s`ins/! ^#Vr+s`ins͐6!9!9DM͐n}k! ^#Vr+sn&uI!9DM! n&A>:͒͢ > > ͒x ͢Æ͂#~Y‚#"T<ÆALL (Y/N)?^ JOURNEY TO THE LOST CITY is supplied on a single density diskette for the OSBORNE 1. The program on the diskette is named "JOURNEY.COM". The user's manual for the game is in the file "JOURNEY.DOC" which is a Wordstar document file. The game itself has some built-in help which is given when a '?' is typed in play mode. Note that JOURNEY TO THE LOST CITY will only operate properly on an OSBORNE 1 with 52 columns, and auto-scroll turned OFF. This is "User Supported Software". Donations to support the author's programming efforts would be appreciated, but are not necessary. The author is: Daniel M. Sunday 7272 Candleshine Court Columbia, MD 21045 ELRIC OF ULM0ý:ҷ=!Ҿý^T!~ ?#ˆK{`O> K{͘A͒͢ ~?w#‚*B## ~~w#š *B +~#w+µ6*B## #~+w#6*BD~AApï*B## ~ #~+ >͌ïyO#*D6#62\2h2|\<  \!A\<r\ѷ>͙͌=$A+-----------+=%A| |=&A| |='A| |=(A| |=)A| |=*A| |=+A| |=,A| |=-A| |=.A+-----------+%*B~AL'BB##~pyOSP#{MSy>*͌>͌>=͌z͌{͌_㯆#͌Ùr͙++ no filename ++͙++ i/o error ++AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz0123456789!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~ vwOKICHA12.DOC\  !"#$%&'()*+o,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[>wCbӫ]wB8b_nabd8Ox6? OSvmv-vׇ3Ee=7P(n0R򚑢&&C vw⋲ⷧ{Ѽc0%eh<z1pcQuܠ_x3!2V& ֈ' ai Cɂ7w-vׇ3dF* q M)ib2$q{r J׮%PNLHXn )ib2Ņ8>6Gr~sj}E,hFkHHQM8]qHE=*_ndLPL68}psv=Om"e Q p5qhv'(+Fɺۿ? |ypsv=V]A#+,;9#!E5MLHE=PGeڮۿ>.4s3vm׮{4RQNa܌2ɡt) u;B8ǡk|8q27YH5N|QV,  )ib2,P=9 '7qWqnHERr@{r ;5!. đk=###Đe C=9ɕq"q$ OKICHA12COM OKICHA12DQC  1:] ʶ!e~ #6O#6K#6I\<`! 6# y5! 6#6%#6A#6 ! 6#6%#6A#6!! Í  w!e!! Í\ѷ~ʥ•Í+++"D͙= 8OKICHAR 1.2 - (c) E.Meyer 12/84=!8--------------------------------z͙=58Undefined characters in this set:=6.!4~5> ͌#-͙=73!*~R> ͌#J͙=28Enter character, or to save: ͥҚ!Ң >͌ZO!#~¦~!! ~ʚ÷+"B~w*D6#6%#6A"B#q "D͙=28 Character *B#~͙͌ - to save =58 =6. Use arrow keys to move, spacebar to toggle pixels.=73 ( Other commands: R/L/U/D, A, Z ) %*B~Aʼ'B##z<yͥ  WG_ARʩLUyDʑZa:':A:4:L>͌>͌>yO>@yO>L#>B+~wp *B##6#i*B##*B##GBj T6]+>@4$r b(B6GPך>@C"W拮 |X4Pѳ34R1cP}B6I@8+j)ib2 Q^#I!$10+, р41|`A2Rx!6HQ$5;U&pk86HR(@ aDz1c]L1cdCbTWJצ|ʄeЋ'#h=}::h6ҠPMQMMhb9cEXnHAsFGٻ RTdagώޟ=B$ 8z +B=p2;d46E5MLF*u  ~ XGr{v#p$f02T-8]#a%gT$uXdO 5`H5 8&<aEY8ԵaDXa9e?F*xm#+}:G4Ru\PGp$L =pGe >gb 41لPS]۟_mk} k}OZl߾<lZl߾l?ZlqN.{GF'ӌ0ROdYP8E }hAzpk}ʄeЋ'#h"=Zl?M XdOHd¨dg~ykyqdpۏ~ `l2"2+(B417l{|;G%Fe&sXeu'`A`5}ɡ{G)ib2d6HA#:HŢ j6zf68{v E26T4 M+ܵ{$L{4R=C|δьj&p$(g >gQޥ\ Ad 5`FF\GJ+҃#!E5ML6k .Z(t-[,'(RTd਌L vOOKISET3.ASMS  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHoIJKLMNOPQR2/}X";3?Cq[\U ;u,ncvoOO|׹x>r'I̞cwE Ϲ^ɰY^} ;X>|'ȍ8bw-|/:~ʺ"a'G}i̶ML--NnunYc;Z_dohxU ;w1ݳƨ>_dop~b77:xo ~X丟Lty/>vO?^o/olQl mq|/>qWlOPlG;'_l5.qm_vw|Cq[\鷗_>^1"qEq]':{>,^u96Ztvx嗿_^szDǤzY*n >Dոq޵U/pW Ͽ?`EͲo(a'c=߄7IRSMZtz p7௧)Aخ_OT>XSX7*³z k;?SX׃4z6~z A8௧pp(_O4MV௧76itGsg ->| #v'(+fGe8ҵZc)xu vohao]uek~!4RQ(Bh"ꞰPTP "X+19J nu G6`Ad7#!c0wmb{o{B&&C3CdB#6 5iK6R _ydӅfnƮ];xB#I2RT!@hf&sʄ411V Tj}ݦk=Th1XzBH&HGGQCתkpZ];*HQMx8F&&C Ƣ NCM&vQ!E5MLF;2_tmvѳͣ5__?ڮdws~N8KbFq L w]' ^\| u-+d8\=@wIQٯ|`E<9?w%2:cػ zizkY0gàeqXJ=Ti⠮]X9p_b~Y I2NHO^ܵ-F4C I2WX]Q+]ıIFB>| R&5p$dDng| F 8p$jAlGB#vGXt ,>Mb]kJʄF*Q"CzR Id$)^4Tdj)XȞH5jA uPdpo"OPWg wHX8Եz X]Q+8p‡Lz7Hrs1k=9F 5!ۓES&4Rhmk9R wwGn"AK1 p^Nj p^dp.o/s\^L=s쮰5]4-uNOA _H% $ u_Cܳ6*aCRCHwv5:jaH%Jp6`k7aH%j7S ^|]V!]I,r' 4p2Kʎr# Oh1J+7?7fulE>aHYv lM7& pQ&C% {8 ;탿J`!![@.Syjgw06RRg2O&:λV C@H°?RS $UpFYDIlU$ {i ;aH% 'eѭm[@ iZNc ZpFYD$ *, iZNc gtkpEV%PMpqVX ѭm< J OpqVX 6_V8[,"HlUH0N*vKT$_kgtkpE'[@O$ {i ;aH% *l58[," $ *=ӴJ0$cRn nT0ت*I0N*vK/Ӥ*f@`@pqVX in nN`蝄p4Ra' ɱA% f)!aU 0aU*!90)35"ҒV%Вp4RapXVc%석U7Eddop-4 'ȍNxUzZʾk&C/ 4 0c V%eHݼV/K^̵0>Iz |X # X IVM°?"j *0h2V%-yўpd+aòqV)Mp썰^u6YoߊEg:\>|XFG)%eW*d& ui(R#);RsѱʼnX3)R_]a T, EuZ5xpHRB5;b'ń_&u<) pgKY5Sŧ]%?P8}Oj.*LҾQ>XE7AR>XEw׿=w[E>?+̄n UtC,*#EDG,]d& ui(RT#);R6Q,_t\$)gRvJfP7*!EI`ݑGWsNbRv0 }|nH I`ݑGdK/pܐ+T2oV )zBR>XEwlik0g"7J%3aHF`ݐI`ݑG EX3NbRvJfP7*!E%*#E"-Nt"IٕJfP7*!E$UtG "-Nt"IٕJf* C@7#);RA.>9 _IٕJfP7*!E *#EsDʮT2SLҾQ>XE7h|H#mpWI7/g4__֯J%3aHF`ݐ"_Vc&}aHٕJf* C@7|ntğ>bwzn,o/HP7@$ݧlXFGg ;᪴VA-q}Ruv\Vpu>XE[j@݀VQzK›/u>XE- M@4(%7#ga|/P7`[p?M8Ǥ*/P7U㖄}&Uy[Nf˧| E^_oI8-N?H%E閄?Φ*} uZ*%a' ua'u_0M-3*=]O?=}hA~A92h'}*(GF-yўpd+aòqV)Mp썰^u6YoߊEg:\>|XFG)%eW*d& ui(R#);RsѱʼnX3)R%AZ@ QIE%A[`F@%A\ 0@%A]@@`%A^%D_@@@@@%A`%Aa PPP$X%Ab`GD$%Ac0@@@%Ad0@@`%Ae0H@@%Afd%Dg RQ1 %Ah`d%Ai@dD%Dj %Ak` H%Al@`F%Amd`d%And`%Ao0H@$%Dp` %Dq q %Ar`%As@@@ %At0LD%Au0L@@0L%Av| %Awp  `%Ax@$ H%DyB$%Az@dTL%A{ XA%A|@ %A}@A0 %A~%AX$BI! Character download complete $vDgOKITALIC.ASMg  o!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefUo6O}pwӳW߶^~P]i[vWf~}x}>.<_O3;|j=;o;;ζl'3{7O>z=;ӟ;;Ύד=_n/yjΟp7Nj_O'[炙7vW2O<彝*_/ϧ4O_z?]r]O{8^oe|9~w^2mt||nz?yʗ|zzd.=\2O6f.{8^oez|\uo3t>xy|\ovv:\_}\mI>}z͕ptmr?]yʗ|x^߼tt|?=3m!.mi[7)   H`d\7)AІPAéb\0Ovu3JSNEιnA S: ⃂ ⃂ ιnA SA(`tu H.?';纙%N G;QJC;ő\hf@;e @N8^)! $?';纙%NA |@ %A?@%A@8BHD%AA@ %AB`FHH1%AC8DAA!%AD`F@ %AE`CAA%AF`%AG8DAI %AH``%AI@aG%AJ0@@ %AK`"@%AL`F@@%AM` b%AN``%AO0LAA %AP` %AQ8BQ!P%AR`(A%AS FII1%ATa%AU0L@@0 %AV %AW`#`%AX@!$@%AYd NE\9Ovu3J6PEЎP U EιnA vA>FA\A*Ku3J^hF)x"yJ[7 iSiAryJ[7RNT$u3Jm@; ڎ"yJ[7遠hc8;UQeu3J>AMA |2Oif@}GQԠ A\yJ[7QAU)6"H.1Oif@;ZҨJ*4/)m̃hGAІPJ4WnA F*AE$s( *PnA +:p#D8q$oSں%N8®0⃂yJ[7ډ hCoDESں%N46ІJqT$u3J QFEryJ[7 Ev!T!hC\~9Oif@;⃂Pa |g<(vb  AUv)m̃h'v6юxG\~5Oif@;Cvʎ#(%cit]^ªJyX佘Xѵ g\&`ES^b(ȝ&ϫ%X[2zaܹb!/"!-qQ K+ɋp dmK5hqY*=_߿9ezJ*j3}6c5 =|ۑٸ}S?·XiHC*#f,=CSfV*L5RS?DZ,pK*ɛ3QX佳L5RS?cY"=.RIe\MjbñT.~2)TRjr>bb#jWt;w*b&|}q>eJ*W?GX {dlGk#Yj8E.k*1+ߟTydlGk#Yjl>DzH/O%TkjlǒJ*J* zm;wg ~=; bcSc;TRvGA.d6uS8h 1;ջ:goD1A<ֈz.nJ ZU:wvnc*Ӳv)<18X;Ll+#Wfb*f,X1 %ffb< 8PSwYF oDb³؈p tґAGfFةM- &1$̃ɋҭ9TY怦Y8kjM~^&Oǟ~J*`؃TY;2 S\s<(v 7Bh"T$u3JP6І Sں%^!h+Q*?nA 7!8Bi\~7Oif@;ABQU)N8BCrt<(W*EʠTyJ[7کh nA S ⌁"H.O])m̃hzCQ4 H.)m̃hzG!h jŶu~?[==_<^xz?xu~ overwrite (Y/N/Quit)? b!8!b*&(}2*&Q!Yh4y:(_Rf2S1ga@,~ko9Oif@;⃂Pa |g<(vb  AUv)m̃h'v6юxG\~5Ov_OKITALIC.DOCX  !"#$%&'()*+,-./0o123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWuwMS7j};7R &k?(,xcS7+t{d,a{5xUm]⓶zp馩zty>CԹTX8e F2'+8FYBs#`C[`RłYSq5qbbMȠ312E'݀l& !=.fgX܀q쀦8h p =E)B-b{50{‚w tbLf)mZ&<sWMg <'Ԡ#UEe2KɴnSp΃˔ wWT.#1}18a+AOx߷aQyT.{d q)Y %aX@ zrpmLDm0wMo;2>1ud*g)N{g eFn+"zt1N8X7j`[sAmu?j c59uԶs9 1w/.FMD%odxḾ?@ ABCDEFGHIJKLMNOPQRSTUSQlOKI6V1c-x#Φ[ 7X-|rr(ep}Ob[4gVS|.%b|MAc>ٽ3+N[ܰt|rdJxK^]v :hTRUx,jX!r!G(LQvUWX(5P !ْS(Uy :G+0Y sPäDę-%נTm\ ACCNTPAYCQDvDATAFILECQD^MAILENTRCQD%(ZMAILINFOCQD)MAILLTTRCQD/.0THINK CQD6ZXMENU CQD;XNEWENTRCQDAACCNTS DQFIU}CHECKREGDQFNCHECKS DQFSKEYFILE DQF[ߗMIND DQF`CSHOPLISTDQFcDSORTFILEDQFgZSTUDENT DQFn!TEST DQFuSESSIONSFQMzCPS CMD|oSDEMGRAPHCMD4xACCNTPAYCMDDBALANCE CMDCALJUL CMD0YCANCELS CMDWCHREPORTCMDdDEPOSIT CMDJULCAL CMDMAIL CMD?KMAILLAB CMDJMENU CMDzNEWENTR CMD.1#C,jX9"U"G~#栆I!"Xj%XV RMA4'O{MAyBtss 8h)V~+0]H Jː*g1?de'#e(#" EXIT TO SYSTEM: YES = 1, NO = 2";De2# D %e<# D f%(H);"BOLD MODE IS ACTIVE"eb '#v;TYPE.DOCW _ !"#$ o%&'()*+,-./0r123456789:;<=>?@ ABCDEFGHIJKLMNOPQRSTUSQlOKI6V1c-x#Φ[ 7X-|rr(ep}Ob[4gVS|.%b|MAc>ٽ3+N[ܰt|rdJxK^]v :hTRUx,jX!r!G(LQvUWX(5P !ْS(Uy :G+0Y sPäDę-%נTm\RECALL CMD+RECORD CMDXBALANCECMD iXCANCEL CMDXDEPCANCCMDXDEPOSITCMDUSQ CMDaANIMATE CMD='ANIMATE2CMD*FORM CMDаLABELPT1CMD%OLABELPT2CMD %POKE1 CMD1VPRINTER CMDM SHOWMEM CMDm$mSQRT CMDˏTA4/LT CMD?TALLY CMDIgTIMECHARCMDUGRAPH CMD(STRU DBFUGRAPH DBFJ*MAIL DBF ,SQRT DQC(BYMAIL DQC0 :%CPS DQC<}FORM DQCB POKE1 DQCGETALLY DQCJUGRAPH DQCOCHREPORTFRM]kWSHOPFORMFRM_:0WAAÂ7*Xx)NLoB0t2 VvZ %L[i^`~{NqB> d&Tn[Cù ZKkE 7Y8 KNqB lǍ ccC4 vZ8F^2R U 2ל5 QN 8kPXx)N)NȋoBzA7jcap0?@ABCDEFGHIJKLMNOP6R.y4瞱~O0>@YhGA3F#gZ]F418Yr@ɚ $Tb&BYh48:أ[FqD֣CpYBɚ $1=2 uE3  N2_Gt5Hhbp=ʌ˛?3Z]F_8RTCׂfӈV1Ys&GϐX@ҿAτNc%R4183YPyuO\Țx&t+iRcu'/tZYX\>,Nw:ߗYV}n53L( ux “H)~a{9|uSVU_A ,55K|tx3 R8H)ǿ | 5 ;YR+w,≠yk< EYz[Ys!x.֚ \'4N*TT,\Y _r:$BJqd :H)ƓFFRx ^`Cg :H)R!$>7h[ N*&fI@a{ "k=[asRYaI#qR1Hbk0lB3tNb=[֓F?@J*.pTV@ؽV@ ]_p\ѩ |HS폲b+\ 椵w)Q?oBzA7jcap0cL3)ހG l,!@+]Lo qIs`z8 SK'=:SWGJ~ ;' Aޟ"aB$ o`2,PDߖ|/uD_1l~ِ}EK)^mYλO:$ YzdYY߻88LK"0]Љ*(VtJ*p'BU Q/aaB| kDȮLNNT?D/(UR 10')k16WdQ(?Ph'ՏՄ 1bJ`y qaBܮ2;}qel>0!>KUMP)X!)~S5vl?S}NhKNkIHv(@Kkrd PIlaf M䦗 1 N*h紖p 4C%EfRYq 4iR@m`xpN#HZˡƚ8=ʌԡGkvx?KT>l>KRKKpW:)_'kv_b"/zO~1fiz=ߧoiHX0^Zk>l5;c=K7?oopdXkxibkv+",}pHEX,bqa<5J*c郻GZ,bQ/dy~)Cѣ : $kvGxi1URoTIEøZa郻GzzJ0׏"0>YzUkxiߑaWxiAm^Տ#H SBְYL. vdDATAFILE.CMD,  !"#$%&'()*+ou%Es\VH88!ˬ gWPu'pUR<@J|@'d6"#$%&'()*+o,-./0123456789:;<=>?@ApK0(>(A#ڼ Rޠ9+ڼ"Ǻ T%=7HVӬZTSA{WM8j"ASWјkANsKZ0'dU O1J-75%AĜ[R7y ujZG?ϫ""^WP.wOc~??+8\oo}~Zp]ӏ9ۛpkr.wnpCG-t0QK&aˈw8aTY|,\!T [Ʒ0߭7@:k5(M4$ TM߯+pVt50dY-CM:@ 0QK'–@?aҗ~; O-CM: \zߣI|,lj:KiI|,\ .`>GY넦3m1Ǯ >A#k<)p"Tf *} /O) פ v9?'4N*TT,\Y _r:$BJqd :H)vTHINK.CMD)  !"#$%&'(oDi~FneF,0pQ5ʌtK,зl[Gmm{}nQf$2J M?,&@x‹ u6'(zx6pj Lj8Z uP3F9Zi_9 V+)Xǩvj1ZsC#%'q]grHbk0lB3tNb=[֓F?@J*v8ACCNTS.DBFA o !"#$%&'()*+,-./0123456789:;<=>>4?3@l>8Rm_bWFu󩮭Qm~֨6mR/96*H]5KOۜgMN]Q枦'B1,_¸=r6 BhnӶd#w.ߖ@*`7; @"󅚨mJj4ͻكt$^@*`?,;ِ]:? G]o>ZO^H66:Cg;`MgCer}kKJF6SJS ^ @*`7T`lH;׶F*wy @엙Cy'slTxhS-6j"R6=ȝO=vjCHECKREG.DBFL o !"#$%&'()*+,-./0123456789:;<=>?@ Vܴe MK <-&vD2cz0S.rib ,H&@[ vnZQaTcδSN_ C4Tvx}CGwSոVtSU~(ESXe7 Z̄āqV>Zs?'?%2|Do ˋq?Ge1 փQ. 9>#H@Z1X@[g l(E# kr.wnpCG-t0QK&aˈw8aTY|,\!T [Ʒ0߭7@:k5(M4$ TM߯+pVt50dY-CM:vҾXMENU.CMD? o !"#$%&'()*+,-./0123456789:;<=>ae]ȎP/y|1~L[)܍Ԧ1!\i?ۧwŀ?yd$I] ƺagi q=ɟ{F5b̆PחAmtgH@U2Y?OpٚJ$R|y+P+4 ;kdZ~l{Z(4H5,s$Oðۦ5QnPfkt{d4۔(WL.to轋"R6=ȝO=vCHECKS.DBFX o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW^O|%}:+*y~GvXNEWENTR.CMDN o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMΨ0#*''q iضGA T Ox{{ BaP59AT׾G ` / juh19ATg^mPC384B UqTM=.#3G9#r?Y_fv!JFfF{6L=.ό+3*Gq=3j%`Bw~4Q8APFx]Nnig˷eV9QGTua 'Az(yWbrA>]~]u '!hRp>0!}D؈9w8 cMEN_`Za@aSޞ>lf\a\a6q(rVkw܌7J%['ǣS،0%w_v΁#>,Nzx>^xr`KQGl}X vHO?"=9<;wH]5HYaw5C'^A3? F)uS7}1hneLqhMM 7d%'q]grHbk0lB3tNb=[֓F?@J*vRKEYFILE.DBF8  !o"#$%&'()*+,-./0123456>7OeWSr.Jo^%x7B S)te0SvxSUz5VU:Uյ"MLӄ!E$Ǥćܵ}=`)hwGr1)/,ܵ=:ޔPG\;B ذ_τvzGK`L( fĤt@c5#V {g=`.wm,@ݑlBMVav=9,| u 2Gv4II3 !wmߵ= 触z I}GQ<r]#7VC!]b`vlzlX HҖ r ) 'A /4/f$bF9 jޱE86wr^?7MNOPQRSTUVWXYZ[\]}|hOH>: w47sIpq3Ym EtmWlvQ aEQJ>AZfH stfӣ(I slKPV( "Jtfs0G^"w nQ-\GGg XhcD)D; b hgA 5-` h6@~1|YIf#^t25-`DU謮3 cU4 5pj @TekĿyz : nv?*TH*0(bJ݆tRo*(bJ݆tRo*(bJHIƔ*$.LUpS>|3UaL?B(._*RE]W bu_U_UW;g~L:_?2?>^xr`KQGl}X vHO?vnTEST.DBFA o  !"#$%&'()*+,-./012r3456789:;<=>?|^J6@,O8/?84"FΠE}@ڧ Y3hdQvA#;2hdQ@},HA#GfȢ~/cA< 鳺1vHYMIND.DBF2 o  !"#$%&'()*+,-./01g\fWd{{"?h\JqClXl!"6oMX.j mzF=FtcX9P~r|iK.Li$r5iiJnl@8FA @8F_Cv I#܏n!4BitvUSHOPLIST.DBF;o  !"#$%&'()*+,-./0123456789:/B[7;,UR mv^NQl\[I)ۗxX2g̥={4l'd u0]C `IbAL &Y "^S. jPW p\ |A̵./[\G 8Ĥt@c5#V {g=`.wm,@ݑlBMVav=9,| u 2Gv4II3 !wmvfSORTFILE.DBFr o !"#$%&'()*+i).&CmPS\m8McMS9RtHq-z)~/UO) U=ŕ).R\U=Ŷ4_Ig+mˠE}@mֈY Ye+mΠE}@}Ƃx@?tfs0G^"w nQ-\GGg XhcD)D; b hgA 5-` h6@~1|YIf#^t2vP-SESSIONS.FRM oǮ_&a%L2/ʔ]P L> I2A0)@,&(&> Ƀ oar2A0)@<@t?n??@A* * start.cmd * * Glenn Story - 1/1/83 * * This command procedure starts up DBASE * set talk off * * First get the date from the CPS card * we poke a small assembler routine to convert a DBASE string descriptor * to an MBASIC string descriptor * the code we are poking is as follows: * * CLOCK: MOV A,M; get string length * STA DESC; store into descriptor * INX H; bump pointer * SHLD DESC+1; store address * LXI H,DESC; point to new descriptor * JMP 0f300h; jump to clock dr,-.2/0123456789:;<=>?@ABCDHEFGHIJKLMNOPQRSTUVWXYZ?=<6+[\]^_`abcdefghijklmnozpA;:95/-*'%pqr$O*΢咝Y!u<}HJ.{PDCqKiVZ|璗g/}wRj_Ȝ׎ 2yTgʑ]ز|&*m|&?{ַV?FNgIm믿|[{sjmM(0 A7]ؕ98zh)7ThƾPp0jʪPQLKpL2>PJ`!M?aB3IՔUMစt#d0}աte*Běp??J%['ǣS،0%w_v΁#>,Nzx>^xr`KQGl}X vHO?vNSTUDENT.DBF^ 2o !"#$%&'()*#N+,-./0123456789:<53;<=>?@ABCDEFGHIJKLiver in bdos * * DESC EQU CLOCK+20H store 41984 to clock poke clock, 126,32,164,34, 33, 164, 35, 33, 32, 164, 195, 0, 243 store " " to tod set call to clock call tod * * now we have the time we can extract the date * store $(tod,2,8) to date * * now tell the system * set date to &date * all my files, lord, are on drive b set default to b * ? "Current date set to ",date ? "dBASE II is ready" set talk on 8 ;ZERO-PAGE,Y MODE ;NONE OF ABOVE, DEFAULT TO ABSOLUTE OR IMPLICIT MODE ;--------------------------------------------------------- ; DB 1 ;MAKE ONE PATCH DW ORIGIN ;DESTINATION OF DRIVER DW CEND-CLOCK ;LENGTH OF DRIVER DB 1 ;PAB' STORE 'LABEL' TO LABEL ENDIF ERASE ?'DETERMINING MINIMUM AND MAXIMUM DATA POINTS ...' ? STORE -10000 TO XMAX STORE 10000 TO XMIN STORE -10000 TO YMAX STORE 10000 TO YMIN STORE 1 TO NUM STORE 0 TO SUME GOTO TOP DO WHILE .NOT. EOF * DISPLAY OFF 'RECORD #:',#,CHR(11) IF &C IF &VX<=XMIN STORE &VX TO XMIN ELSE IF &VX>=XMAX STORE &VX TO XMAX ENDIF ENDIF IF &VY<=YMIN STORE &VY TO YMIN ELSE IF &VY>=YMAX STORE &VY TO YMAX ENDIF ENDIF STORE NUM+1 TO NUM STORE SUME+&VY TO SUME ENDIF SKIP+1 ENDDO *------------------------------------------------------- * display minimum and maximum - allow alternate entries| *------------------------------------------------------- STORE ' ' TO RET ERASE @ 2,10 SAY 'AXIS SETUP SCREEN' @ 5,10 SAY 'NUMBER:' @ 5,20 SAY STR(NUM,6,0) @ 7,10 SAY 'AVERAGE:' @ 7,20 SAY STR(SUME/NUM,8,2) @ 8,10 SAY '-------------------' @ 10,10 SAY 'LOWER X' @ 10,20 SAY STR(t get the date from the CPS card * we poke a small assembler routine to convert a DBASE string descriptor * to an MBASIC string descriptor * the code we are poking is as follows: * * MOV A,M; get string length * STA DESC; store * start.cmd * * Glenn Story - 1/1/83 * * This command procedure starts up DBASE * set talk off * * First get the date from the CPS card * we poke a small assembler routine to convert a DBASE string descriptor * to an MBASIC string descriptor * the code we are poking is as follows: * * CLOCK: MOV A,M; get string length * STA DESC; store into descriptor * INX H; bump pointer * SHLD DESC+1; store address * LXI H,DESC; point to new descriptor * JMP 0f300h; jump to clock drXMIN,8,2) @ 11,10 SAY 'UPPER X' @ 11,20 SAY STR(XMAX,8,2) @ 13,10 SAY 'LOWER Y' @ 13,20 SAY STR(YMIN,8,2) @ 14,10 SAY 'UPPER Y' @ 14,20 SAY STR(YMAX,8,2) @ 17,1 SAY 'THESE ARE THE ACTUAL MAXIMUM AND MINUMUM DATA POINTS IN THE DATA' @ 18,1 SAY 'BASE. THESE VALUES WOULD BE USED TO DETERMINE THE AXIS ENDPOINTS.' @ 19,1 SAY 'THE Y AXIS HAS 4 INTERVALS SO THE DIFFERENCE BETWEEN THE UPPER POINT' @ 20,1 SAY 'AND THE LOWER POINT SHOULD BE EVENLY DIVISABLE BY 4. X AXIS HAS 5.' @ 23,10 SAY 'PRESS "RETURN" TO CONTINUE' GET RET READ STORE 0 TO XMIN STORE 10 TO XMAX STORE 0 TO YMIN STORE 8 TO YMAX *-------------------------------------------------------- * determine axis scaling factors | *-------------------------------------------------------- STORE XMAX-XMIN TO XDIF STORE XDIF/5 TO XINC STORE YMAX-YMIN TO YDIF STORE YDIF/4 TO YINC STORE 1 TO X STORE 1 TO Y STORE 1 TO A ERASE *-------------------------------------------------------- * draw Y axis | *-*-------------------------------------------------------- * Screen graphics demonstration program | * Universal terminal version | * John Hathaway 3/1/83 | *-------------------------------------------------------- RELEASE ALL SET TALK OFF ERASE *-------------------------------------------------------- * new DBF file ? | *-------------------------------------------------------- ? 'DBASE SCREEN GRAPHICS DEMONSTRATION PROGRAM' ? IF FILE("UGRAPH.DBF") USE UGRAPH ELSE ? 'FILE "UGRAPH.DBF" NOT IN THIS USER GROUP' RETURN ENDIF STORE 0 TO D DO WHILE D<50 STORE D+1 TO D ENDDO RELEASE D *-------------------------------------------------------- * setup field variables and data base read conditions | *-------------------------------------------------------- *? 'ENTER FIELD VARIABLES AND CONDITIONS BELOW' ? STORE 'X' TO VX STORE 'Y' TO VY STORE 'X<>0' TO C ? ? STORE 'B' TO BARS IF !(BARS)='------------------------------------------------------- STORE YMAX TO B STORE ' ' TO D DO WHILE A<23 STORE (A-2)/5 TO F IF YMAX>10 STORE STR(B-F*YINC,3) TO D ELSE STORE STR(B-F*YINC,3,1) TO D ENDIF IF A=2 .OR. A=7 .OR. A=12 .OR. A=17 .OR. A=22 @ A,1 SAY D @ A,4 SAY '+' ELSE @ A,4 SAY '|' ENDIF STORE A+1 TO A ENDDO *-------------------------------------------------------- * draw X axis | *-------------------------------------------------------- STORE 0 TO A @ 22,4 SAY '+--------------+--------------+--------------+--------------+--------------+' STORE 15 TO N5 DO WHILE A<6 IF A=5 STORE 14.4 TO N5 ENDIF STORE XMIN+A*XINC TO B @ 23,A*N5+1 SAY STR(B,5,1) STORE A+1 TO A ENDDO @ 1,50 SAY 'Y AXIS =' @ 1,58 SAY VY @ 1,30 SAY 'X AXIS =' @ 1,38 SAY VX *-------------------------------------------------------- * read file and plot data | *---IN,8,2) @ 11,10 SAY 'UPPER X' @ 11,20 SAY STR(XMAX,8,2) @ 13,10 SAY 'LOWER Y' @ 13,20 SAY STR(YMIN,8,2) @ 14,10 SAY 'UPPER Y' @ 14,20 SAY STR(YMAX,8,2) @ 17,1 SAY 'THESE ARE THE ACTUAL MAXIMUM AND MINUMUM DATA POINTS IN THE DATA' @ 18,1 SAY 'BASE. THESE VALUES WOULD BE USED TO DETERMINE THE AXIS ENDPOINTS.' @ 19,1 SAY 'THE Y AXIS HAS 4 INTERVALS SO THE DIFFERENCE BETWEEN THE UPPER POINT' @ 20,1 SAY 'AND THE LOWER POINT SHOULD BE EVENLY DIVISABLE BY 4. X AXIS HAS 5.' @ 23,10 SAY 'PRESS "RETURN"* ACCOUNTS PAYABLE 29 JAN 1980 ? 'THIS PROGRAM USES THE PRINTER. IF YOUR PRINTER IS NOT READY IT' ? ' MAY HANG UP AT THIS POINT. 5 LINES FURTHER DOWN IN THIS FILE' ? ' YOU WILL FIND A SECTION OF CODE TO SET UP AN ANADEX PRINTER FOR' ? ' PRINTING CHECKS. USE YOUR TEXT EDITOR TO MODIFY THIS FOR YOUR' ? ' PRINTER. ' SET TALK OFF SET FORMAT TO PRINT SET PRINT ON SET CONSOLE OFF EJECT * SET FORM LENGTH TO 22 LINES ON ANADEX 9500 * ESC 4 022 ? CHR(27)+CHR(52)+CHR(48)+CHR(50)+CHR(50) SET PRINT----------------------------------------------------- GOTO TOP DO WHILE .NOT. EOF IF &C STORE (&VX-XMIN)/XDIF*75 TO X1 STORE (&VY-YMIN)/YDIF*20 TO Y1 STORE 22-Y1 TO JJ IF !(BARS)='B' @ JJ,X1+3 SAY '*' @ JJ,X1+4 SAY '*' @ JJ,X1+5 SAY '*' STORE JJ+1 TO JJ DO WHILE JJ<22 @ JJ,X1+3 SAY '|' @ JJ,X1+5 SAY '|' STORE JJ+1 TO JJ ENDDO *-------------------------------------------------------- * plot labels vertically inside bars | *-------------------------------------------------------- STORE 1 TO L STORE TRIM(&LABEL) TO TLABEL DO WHILE L<=LEN(TLABEL) @ 21-LEN(TLABEL)+L,X1+4 SAY $(TLABEL,L,1) STORE L+1 TO L ENDDO *------------------------------------ scatter plot ELSE @ JJ,X1+4 SAY '*' ENDIF ENDIF SKIP+1 ENDDO RELEASE ALL *--------------------------------------------------------  OFF SET CONSOLE ON STORE T TO STAY ACCEPT "Enter Today's Date (YYMMDD)" TO TODAY INPUT 'Enter Beginning Check No. ' TO NNO ACCEPT 'Enter Data Disk Drive ' TO DRV SET DEFAULT TO &DRV USE CHECKS SELE SECO USE ACCNTS DO WHILE STAY SELECT SECONDARY ? ? LIST PNAME,S.AMT,DDATE ? INPUT 'Which Account' TO ACCNT IF ACCNT<0 STORE F TO STAY LOOP ENDIF IF ACCNT=0 ACCEPT 'Enter Payee ' TO NAME INPUT 'Enter Amount ' TO MAMT ELSE GOTO ACCNT STORE PNAME TO NAME IF .NOT.VARIABLE STORE S.AMT TO MAMT IF TODAY>=LDATE STORE S.AMT+LAMT TO MAMT ENDIF ELSE INPUT 'Enter Amount To Pay ' TO MAMT ENDIF IF PERIOD>0 IF (VAL($(DDATE,3,2))+PERIOD)>12 STORE VAL(DDATE)+((88+PERIOD)*100) TO NDATE ELSE STORE VAL(DDATE)+100*PERIOD TO NDATE ENDIF REPLACE DDATE WITH STR(NDATE,6) ENDIF ENDIF STORE STR(NNO,4) TO X* jump up here to avoid rolling the screen up | *-------------------------------------------------------- STORE ' ' TO YS @ 1,70 SAY 'RET' GET YS READ ERASE ? 'TYPE FILE "UGRAPH.DOC" FOR FURTHER INFORMATION' RETURN 1 TO Y STORE 1 TO A ERASE *-------------------------------------------------------- * draw Y axis | *- jump up here to avoid rolling the screen up | *-------------------------------------------------------- STORE ' ' TO YS @ 1,70 SAY 'RET' GET YS READ ERASE ? 'TYPE FILE "UGRAPH.DOC" FOR FURTHER INFORMATION' RETURN 1 TO Y STORE 1 TO A ERASE *-------------------------------------------------------- * draw Y axis | *-NO STORE STR(MAMT,10,2) TO XAMT DISP OFF 'Check #',XNO,' Pay ',XAMT,' To ',NAME ? 'OK? (Y/N)' WAIT TO X IF X$'Yy' SELE PRIMARY APPEND BLANK REPLACE TO WITH NAME,NO WITH NNO,AMT WITH MAMT,CAN WITH F REPLACE DATE WITH TODAY,MEMO WITH TYPE STORE NNO+1 TO NNO ENDIF * NOW PRINT CHECK ON PRINTER @ 3,67 SAY 'Check No.' @ 3,77 SAY XNO @ 5,67 SAY 'Date:' @ 5,73 SAY $(TODAY,3,2)+'/'+$(TODAY,5,2)+'/'+$(TODAY,1,2) @ 10,1 SAY 'Pay to the' @ 11,1 SAY 'Order of' @ 11,12 SAY NAME @ 11,68 SAY MAMT USING '$$,$$$,$$$.99' @ 17,12 SAY INT(MAMT) USING '$$,$$$,$$$' @ 17,23 SAY 'D O L L A R S and ' @ 17,44 SAY (MAMT-INT(MAMT))*100 USING '99' @ 17,47 SAY 'C E N T S' @ 20,12 SAY 'Type: ' @ 20,18 SAY TYPE @ 20,41 SAY '----------------------------------------' EJECT ENDDO RETURN NOTE - BALANCE Command File to Balance Checkbook * SUM AMT to OUTSTAND for .NOT.CAN ? ? DISPLAY off 'Total Outstanding ChecNOTE - NEWENTR COMMAND FILE TO ENTER NEW CHECKS * REMARK ENTER DEPOSIT AMOUNT OF 0 TO EXIT STORE '01/01/81' TO C:DAT DO WHILE T ? ? INPUT "Amount of Deposit " TO C:AMT IF C:AMT=0 RETURN ENDIF STORE C:DAT TO OLD:DATE ACCEPT "Date of Deposit as MM/DD/YY " TO C:DAT IF C:DAT=' ' STORE OLD:DATE TO C:DAT ENDIF INPUT "ARE ALL FIELDS CORRECT ? " TO GO:NOGO IF .NOT.GO:NOGO LOOP ENDIF APPEND BLANK REPLACE NO WITH 0,TO WITH 'DEPOSIT',AMT WITH C:AMT REPLACE DATE WITH C:DAT,CAN WITH F ENDDO INPUT "ENTER JULIAN DATE - " TO X STORE INT(X/365.26)+1 TO Y STORE X+INT(395.25-365.25*Y) TO D IF INT(Y/4)*4=Y STORE 1 TO D1 ELSE STORE 2 TO D1 ENDIF IF D>(91-D1) STORE D+D1 TO D ENDIF STORE INT(D/30.57) TO M STORE D-INT(30.57*M) TO D IF M>12 STORE 1 TO M STORE Y+1 TO Y ENDIF STORE Y-1900 TO Y STORE STR(M,2)+'/'+STR(D,2)+'/'+STR(Y,2) TO DATE ? 'CALENDAR Dks = $',OUTSTAND ? REMARK Enter Outstanding Deposits, Enter 0 to Proceed STORE T to ACTIVE STORE 1 to COUNT STORE 0 to T:OUT DO WHILE ACTIVE STORE STR(COUNT,3) to I INPUT 'Enter Amount of Outstanding Deposit &I ' to D:OUT IF D:OUT=0 STORE F to ACTIVE ELSE STORE D:OUT+T:OUT to T:OUT STORE COUNT+1 to COUNT ENDIF ENDDO DISPLAY OFF COUNT-1,' Total Outstanding Deposits Total = $',T:OUT ? INPUT "Enter Beginning Balance" to BEGIN DISPLAY OFF 'Current Balance = $',BEGIN+T:OUT-OUTSTAND WAIT RETURN SET TALK OFF ACCEPT 'ENTER DATE AS MM/DD/YY' TO DATE STORE VAL($(DATE,1,2)) TO M STORE VAL($(DATE,4,2)) TO D STORE VAL($(DATE,7,2))+1900 TO Y STORE INT(30.57*M)+INT(365.25*Y-395.25)+D TO X IF M>2 IF INT(Y/4)=Y/4 STORE X-1 TO X ELSE STORE X-2 TO X ENDIF ENDIF ? 'JULIAN DATE = ' ?? X RETURN ATE =' ?? DATE RETURN NOTE Example VULCAN Command file program * * SET TALK OFF USE MAIL ACCEPT 'Enter date as mm/dd/yy' TO DATE DO WHILE T ? ? ? ? ' Form Letter Writing System' ? ? ? ' 0 - EXIT' ? ' 1 - Enter new entries' ? ' 2 - Make Labels' ? ' 3 - Write Letters' ? ? ' enter desired action' WAIT TO ACTION IF ACTION='0' SET TALK on CANCEL ENDIF IF ACTION='1' DO MAILENTR ENDIF IF ACTION='2' DO MAILLAB ENDIF IF ACTION='3' DO MAILLTTR ENDIF ENDDO RETURN REMARK WHEN LABELS ARE IN PLACE, HIT CARRIAGE RETURN WAIT SET PRINT ON GO TOP DO WHILE .NOT.EOF DISP OFF $(NAME,13,17)-(' '+$(NAME,1,12)) IF OF#' ' DISP OFF OF DISP OFF ADDR DISP OFF $(CITY,1,20)-(', '+$(STATE,1,2))-(' '+$(ZINOTE - CANCELS Command file to enter cancelled checks * REMARK Enter Check Number of 0 to Exit DO WHILE T ? INPUT "Enter Cancelled Check no " to C:CAN IF C:CAN=0 RETURN ENDIF GO TOP LOCATE for C:CAN=NO REPLACE CAN with T ENDDO NOTE - report on the checks in a database * first, index the database * then get a title string * then print report * * note: uses database with structure same as XMENU * ? 'THIS PROGRAM IS SET TO RUN ON YOUR PRINTER. IF PRINTER IS NOT READY' ? ' THE PROGRAM MAY HANG UP.' ACCEPT 'Enter check database name' to DBNAME USE &DBNAME * database has name of xxxx.DBF * index will be xxxx.NDX INDEX ON MEMO TO &DBNAME ACCEPT 'Enter report title (up to 60 chars)' to TITLE SET HEAD TO &TITLE REPORT FORM CHREPORT FOR NO#0 TO PRINT RETURN P,1,5)) ELSE DISP OFF ADDR DISP OFF $(CITY,1,20)-(', '+$(STATE,1,2))-(' '+$(ZIP,1,5)) ? ENDIF ? SKIP ENDDO SET PRINT OFF REMARK ALL DONE RETURN NOTE Example VULCAN Command file program * * SET TALK off USE CHECKREG DO WHILE T ? ? ? ? ' Checkbook Balancer Menu' ? ? ? ' 0 - EXIT' ? ' 1 - Enter New Checks' ? ' 2 - Enter Cancelled Checks' ? ' 3 - Balance' ? ? ' enter desired action' WAIT TO ACTION IF ACTION='0' SET TALK on CANCEL ENDIF IF ACTION='1' DO NEWENTR ENDIF IF ACTION='2' DO CANCELS ENDIF IF ACTION='3' DO BALANCE ENDIF ENDDO RETURN NOTE - NEWENTR Command File to Enter New Checks * REMARK Enter Check Number of 0 to Exit DO WHILE T ? ? INPUT "EnNOTE - CANCELS COMMAND FILE TO ENTER CANCELLED CHECKS * REMARK ENTER CHECK NUMBER OF 0 TO EXIT DO WHILE T ? INPUT "ENTER CANCELLED CHECK NO" TO C:CAN IF C:CAN=0 RETURN ENDIF GO TOP LOCATE FOR C:CAN=NO IF .NOT.EOF ? DISP OFF 'Payed to ',TO,' on ',DATE DISP OFF 'Amount of check is ',AMT INPUT 'Is this the one? (Y/N)' to ANSWER IF ANSWER REPLACE CAN WITH T ENDIF ELSE DISP OFF 'Check ',C:CAN,' cannot be found' ENDIF ENDDO RETURN note - DEPOSIT CANCELLATION PROGRAM * GO TOP DO WHILE T * FIND AN FIRST UNCANCELLED CHECK LOCATE FOR NO=0.AND..NOT.CAN NEXT 65535 IF .NOT.EOF ? * MAKE SURE THIS IS THE THE RIGHT ONE DISP OFF 'Deposited on ',DATE,' Amount = ',AMT INPUT ' Cancel this one? (Y/N)' TO ANSWER IF ANSWER REPLACE CAN WITH T ENDIF ELSE * END OF FILEter Check Number " to C:NO IF C:NO=0 RETURN ENDIF ? ACCEPT "Payed to Order of " to C:TO INPUT "Amount of Check " to C:AMT ACCEPT "Date of Check as MM/DD/YY " to C:DAT ? INPUT "Are all fields correct ? " to GO:NOGO IF .NOT.GO:NOGO LOOP ENDIF APPEND BLANK REPLACE NO with C:NO, TO with C:TO, AMT with C:AMT, DATE with C:DAT, CAN with F ENDDO ERASE USE KEYFILE SELECT SECONDARY USE MIND SELECT PRIMARY ACCEPT 'Enter Key to search for' TO KEY GO TOP DO WHILE .NOT. EOF LOCATE FOR KEY$KEYW NEXT 1000 IF .NOT. EOF ? ? ENTR:DATE ? STORE STRT TO PLACE STORE STOP-PLACE+1 TO NUMBER SELECT SECONDARY GOTO PLACE DO WHILE NUMBER > 0 ? LINE SKIP STORE NUMBER-1 TO NUMBER ENDDO WAIT ENDIF SELECT PRIMARY SKIP ENDDO RETURN  ? ? 'No more uncancelled deposits' RETURN ENDIF * IF NOT EOF ? INPUT 'Any more deposits to cancel? (Y/N)' to ANSWER IF .NOT.ANSWER RETURN ENDIF ENDDO RETURNNOTE - NEWENTR COMMAND FILE TO ENTER NEW CHECKS * REMARK ENTER DEPOSIT AMOUNT OF 0 TO EXIT STORE '01/01/81' TO C:DAT DO WHILE T ? ? INPUT "Amount of Deposit " TO C:AMT IF C:AMT=0 RETURN ENDIF STORE C:DAT TO OLD:DATE ACCEPT "Date of Deposit as MM/DD/YY " TO C:DAT IF C:DAT=' ' STORE OLD:DATE TO C:DAT ENDIF INPUT "ARE ALL FIELDS CORRECT ? " TO GO:NOGO IF .NOT.GO:NOGO LOOP ENDIF APPEND BLANK REPLACE NO WITH 0,TO WITH 'DEPOSIT',AMT WITH C:AMT REPLACE DATE WITH C:DAT,CAN WITH F ENDDO ISTORE ' ' TO L1,L2,L3,L4,L5,L6,L7,L8,L9,TEST DO WHILE T ERASE @ 1,0 GET L1 @ 2,0 GET L2 @ 3,0 GET L3 @ 4,0 GET L4 @ 5,0 GET L5 @ 6,0 GET L6 @ 7,0 GET L7 @ 8,0 GET L8 @ 9,0 GET L9 @ 14,0 SAY 'Enter up to 9 lines of information at a pass' @ 16,0 SAY 'USE CARRAGE RET TO PLACE CURSOR BELOW LAST BLANK LINE AFTER DATA IS ENTERED.' READ STORE 1 TO I DO WHILE I < 10 STORE STR(I,1) TO IC STORE I+1 TO I IF L&IC = TEST RETURN ENDIF APPEND BLANK REPLACE LINE WITH L&IC STORE TEST TO L&IC ENDDO ENDDO RETURN NOTE - BALANCE COMMAND FILE TO BALANCE CHECKBOOK * SUM AMT TO OUTSTAND FOR .NOT.CAN.AND.NO>0 SUM AMT TO T:OUT FOR .NOT.CAN.AND.NO=0 ? ? DISP OFF ' TOTAL OUTSTANDING CHECKS = $',OUTSTAND ? DISP OFF ' TOTAL OUTSTANDING DEPOSITS = $'T:OUT ? INPUT "ENTER ENDING BALANCE" TO BEGIN DISP OFF 'CURRENT BALANCE = $',BEGIN+T:OUT-OUTSTAND WAIT RETURN  3FFFVvVvV^;t%PP03P-DDvVF^;t3PPp03Pz-DD636:633FFF=v, uv44F:Vv^;t F udvP1DD uA3Vv^;t)vP=DDP6XP=P_9F vQPI9-Vv^;tv4 uvPtz~ uz ugPPrtO3I  UF t5x t/PV±$'@'Nuӱ 9nvnX&^3^.U+;&v^.PF^;rPvX^P6X4F uF]øP PPFDD]3FF0_vY~aX uvBn~G3F8(v"X u3]ËF=|3]ËF udF=FP0~v, u@Fvv" Pv4X u Fv, ukPvYFP6XBvPv̊^;t F́FFPv4^VF^ƉXF=}0P P PGv̊ uvY+PvPX u# PF6K<v,3Pn~$vFvFv4X@PvXvv_ PvqX uPvHX u3PvVPvYF uvu~zvcviF]Ë]gF FH=v7X u"v&R~+vƸ-F=|tvƸ0vƸ.vvYF=|vvY+3F3Vv^;|vƸ0rvFF0PvXP`vvTh~Vv, uF uvƸ.v, uIv=FF0PvXXv*vO~v3VF+F ^ t3]Ë]v u%Pv^;t_F-Pv4^;ƸtHF u vvF0PF^;u F*Pv^;tv 4XFvF3FvPDD u-0PvƊX+V PvX^^ƉF.Pv^;ƸtHF uv*Pv^;tv 4v́4Xv,4Xv́4X+@F̸>PvЊ^;tvЁ4XBF̸PDPv ^;uPvv ^;uPFPv ^;uHP P[P\PFԉXFPv:ۃP ]3F3FF=|)FP6X4 u vF=tmPPFF uMPv5^#PvtXVvDD^;:Vv^;t'3FF=|3FF=|/PvX^P6`XvPvvPDD^;t vF=t(PvX#VPvX^P6`XD^;tPvtY PvX^P6`XDPvXPPvtX^#^;t/Pv4^;tvt vt vt vPvtX5^# ufvDDPvX uF uv4VPVv4VFP^;lvt vtDDPvtX uEPvtvtVFPFP6XXPvtX5^# u F uv4V#PV3RPv4t#t!XZY[RPvtXZTPvtX^# uvttXZ uvXFvF3FvPDD u-0PvƊX+V PvX^^ƉF3FlPvPG"DD^;ƸtHF u vvPaF uFF Fv~FF 3PvV!F޸gPv^;tF=|F=PF^PvVPvދYvP\Pv1P\^ƉF܍v܋ƸEF=|v܋Ƹ-F؉Fv܋Ƹ+v޸&Pv \P DDF썆\FF uFF Fv~FF 3PvVF޸PvދF^^PvVPvދYvFށP\Pv2P\^ƉF܍\P DDF썆\FFF9FF*F FFF FFދF u)F Fvt4vXZTFF EF=|v 4XRPvXZTv 4X3RPvXZTvލ\Pvt4F u2\F3RPvt4XZ^_;u;r v܁vDDFF uPvXVF^;rbPF^PPvX^PPvX^PF^Ɓ^+Pv0PPF^+FPvxPF^ƉF!4t!,\t4XZvtVPv4V!P3FF=|(Pvtv^;t vFRPvtTY[ӉTF]ËF u!v4 u v4VxDDvpDD]Ë]PvtX^# uPvtX^# uPv4^;tqvtvtV P PPvt Pvt^Pvt Xvt XPvtX hv4V|DDPvtXPvtX^# u Pvt^;tvt vt  vt ]øRPvtt XZY[F3FFF=|vttPvX^RPvtt XZ^_^_;u;rPvX^Pvt^PPFF3RPv4t!XZTv4V!PiFF=t F=t-3PPPvX^Pvt^P3F F u vF u@PvtY PvX^Pvt Xvtt vttXZ^_+RPvt X^_;u;w&vtt vttXZ^_+RPvt XZ] PvtX^# uLvtvt X^;|vt vtXvt XRPvtt XZ^_RPvttu 3ҋ]øPvtY#F Pvt XRPvvvtt XZ^_^_׉VFvvXZVFvt XRPvtt XZ^_RPvttXZ^_;u;r*vt XRPvtt XZ^_RPvtXZTvvvttXZ^_׉VF3ҋ]aNvt X u$vtt vvXZ^_;u;r9vt XRPvtt XZ^_RPvvXZ^_;u;sR PvtX^# uvDDRPvvXZ^_##RPvt XZTvt 3vDDvtt vvXZ^_+RPvt XZvt vt X^;vt vt XvvXZ]Ë]\*FP!PF^ƉFXF =|RPvvXZ^_;u;r FvvXZ؃VFRPv XRPvv}XZ؃RP ލ~^YƉƊPv,4^XF ؙRPFu56XZU ujvvXZVF3RPv X3RPvv ݍ~^YƉƊPv,4^Xv X3RPFu5XZU uF u-Pv,4^XP!PF^+F^ t3FFPvvF]Ë]P%PCF u:Pv^;tHvPDXZ^_;u;r*vt XRPvtt XZ^_RPvtXZT3Fvt PvX^^;|PvX^Pvt^PPvXRPRPvtt XZY[K^_RPv4t!XZTv4V"P@ u@PvtY vYPvtY#]UNV]vvvX^Fv F uPvv)F]Ë]7PF^PDD u]v+DDFPvtX5^# u v4VDDvt u vtVwDDvoDD3PPvX^P6XX3]Ë]3FF=|,FP6X4 uv8DDvv DD]PPF^+P ]Ë]9PF^+PCDDFPvtX^# u PvtX^# uvDDPv4tY Vv4VP@^;@PvtY Pv4tY#@PvtX^# uP3PX]Ë]bFPPvVPF^+PZ ^;uFF]Ë]"FFFv uv4^PdFF uFPvY F uFF uFPvY DFF=A}F=P~F@PvXgPvY P PvtVvVPvtVD uvVPvt V& uF]vDD3]Ë]v4Fv ubvƊPDDFF=.t8F=!|]ËF uv,vƋFFPvX3]Ë]KPPF^^#ƉF6Fv4F uvVvtX^;sPF^PvtX^;sMPvX^PF^ƁFv4VvXPvtX+F^+PvtXFPvX vtXFv4VvX FFSF uPF^PF u%FPvtXFPvXPvYF]Ë]U؎v~N;rNO]ڍvVvP0?P7]Ë]vDDFPvtX^# udP P2P DD3FvVvX^;r3VvDDF^;|vƋFvPvtX^# uF=tvt ,v,nF= tR3VvDDF^;|JF= tv 0vtFPvtY F= t@PvtX^# uPFPX]Ë]ٸPvtX^awrb _FPRPFFPvFF=u F=t3PFFPvtFVF=tF=uPRPv5F=u F]ø]Ë]vVvFP0?P]Ë]PPvVPF^+P^;uFF]Ë]WPvY+v4VF^;u^P PP6Fv4 uvVv4^;r v4Fv4VvXFPvXPvtX^PF^ƁPF^;t+PvtX^PvtYv4VvXFFv4FPvtX^PF^ƁPF^;t(PvtX^PvtYv4VvX]FPA^;ƸvH uH uPZPF^;ƸvH uHPX uH tPGFPa^;ƸvH uH uPzPF^;ƸvH uHPX uHPX]Ë]xFP0^;ƸvH uH uP9PF^;ƸvH uHPX]Ë]/FPa^;ƸvH uH uPzPF^;ƸvH uHPX]Ë]FPA^;ƸvH uH uPZPF^;ƸvH uHPX]Ë]vDDFPvtX^# !# uPvtY#vD]Ëvt vt X^;} PvtX^# uvBDDPvtX^# uOvtvt X^;t*vtXRPvt TY[ӉTvt 3vt X uvt 3vDDvt vt X^;}]Ëvt PvtX]Ë]uP64X^Pv^+PF^;s3]Í6464X^+ƉFv6YF]Ë]U؎~NF]vv4VvPvX^PvYPv4X]׍vVvvV}=P܃]Ë]FFv4^ uv,4Xv4^Pv4^X uF]Ë]OFFv4^Pv4^X uF]Ë]v4XFv4^ uPF+F^ t3]Ë]֊FPA^;~ ZPF^;~ PvYF]Ë]֊FPa^;~ zPF^;~PvYF]Ë]TvfDDFPvtX^# ujP PPDDPvtX^# uv3FvVvX^;r^ Vv^;tPvtX^# u Pv4V8vƊPv4Vv3FvVo animate a character string * across any line of a screen using dBase II. * It may be useful during a sign-on routine * displaying the copyright, or some such... * * This module can be run as a stand-alone demo * as is. Just type DO ANIMATE * * To call this routine from another * dBase II command file, delete the first * "accept" statement, and the first "input" * statement in this file. * * Then add these lines to your main .cmd file: * * store "WHATEVER CHR STRING, ETC." to x * store 12 to mline * (or whatever line * * number you want * * the animation to * * appear on) * do animate * * * * This program currently animates from the right side * of the screen, revealing the character string from * the end, toward the beginning. I think this holds * interest. If you don't, then it is a simple matter * to make it reveal the animated line from the right * in standard fashion. * ****************************************************************vX^;rX Vv^;tPvtX^# u v PtvvƊP\vvt vt X^;vt vt X@PvtX^# uPFPX]Ë]ԋvtvt X^;}Kvtvt XvDDvtXRPvt TY[ӉTvt 3Pvt Xvt X uPvtX5^# u-vt 3vDDvt X u vt  PvtY vt PvtXF]@(#)usq.c 1.7u (UCF) 82/12/15Wildexp ERRORNo files Output drive = %s ERROR - Ignoring %s Can't define -r and -n at the same time. Can't define -r and -n at the same time.File unsqueezer version %s 1.82c 3 Aug 83Originally by Richard Greenlaw Usage: usq [d:] [-n | -r] [d:]afn.aft ... -n Nlmode: remove carriage returns -r CrNlm* * * === CAN SOMEONE ANSWER ME THIS??? === * ***************************************************************** * * In this program you will note the use of the unusual * convention: * do etc. * @ mline-1,0 * ? $(x,mstart) * enddo * * I would much prefer to use: * * store 0 to mcol * do etc. * @ mline,mcol say $(x,mstart,mlen) * store mcol + 1 to mcol * enddo * * The above does not work, while the seemingly * identical code below does work! * * store 0 to mcol * do etc. * @ mline,mcol * ? str(x,mstart,mlen) * enddo * * If anyone knows why, I'd appreciate the info... * ************************************************************ erase set talk off accept "What character string do you want to animate? " to x erase input "Which line (1-23) do you want to animate on?" to mline erase store len(x) to mlen store mlen to mstart do while mstart > 0 @ mline-1,0 ? $(x,mstart) store mstart - 1 to mstart enddo store " " tode: convert newline to cr,lf rbusq: can't open %s usq: %s is not a SQueezed file usq: %s has invalid decode tree usq: %s -> %s wbusq: can't create %s usq: bad checksum in %s *.*BAD FILE$%03dcon: TOO MANY ARGS$warw REDIRECTION ERROR$cFREE$READ$WRITE$4 NO CORE$ $$@Y@@חA7yACnF?O8M30HwZ?sOu?{Gz?-C6?:0yE>ؗҜ<2#I9 80-mlen store mlen-1 to mlen endif @ mline-1,0 ? mspace + $(x,1,mlen) store mspace + " " to mspace store mcount + 1 to mcount enddo erase return * animate2.cmd IF F Bill Weinman, 10 May 1983 In answer to Michael Cohn's Animate.cmd It would appear that the problem you were running into was dBASE's steadfast refusal to evaluate an expression as an argument to @ SAY. Really you can only have a variable or a literal as an argument to @ SAY. The routine that I am presenting here has only been tested under dBASE II version 2.4 (yet to be released by Ashton-Tate). Copyright (c) 1983, by: Bill Weinman, PO Box 60807, Los Angeles, CA 90060 pursuant to the following paragraph: Reserving the right to sell these routines myself in any form that I wish, I hereby donate this file in it's origional form as of 10 May 1983 to the public domain. You may do with it as you wish. w set inte on return SET TALK OFF ERASE SET INTENSITY OFF STORE " " TO fdesc STORE " " TO fname @ 7,20 SAY "FILE DESCRIPTION" @ 9,20 SAY "FILE NAME" @ 7,37 GET fdesc @ 9,37 GET fname READ USE &fname COPY STRUCTURE EXTENDED TO FORM USE FORM SET FORMAT TO PRINT ********** next command causes expanded print on nec pc-8023a printer @ 00,00 SAY CHR(14) STORE 60 TO cntr STORE 1 TO page STORE 1 TO fld DO WHILE .NOT. EOF IF cntr >= 60 IF page > 1 EJECT ENDIF page > 1 @ 00,34 SAY "PAGE" + STR(page,2) @ 01,09 SAY "DBASE FILE LAYOUT FORM" @ 03,16 SAY DATE() @ 06,04 SAY "FILE DESC:" @ 06,15 SAY fdesc @ 08,04 SAY "FILE NAME:" @ 08,15 SAY fname @ 13,04 SAY "|==============================|" @ 14,04 SAY "|FIELD| NAME |TYP|WIDTH|DEC|" @ 15,04 SAY "|==============================|" @ 16, TIP: Try turning of the terminal's cursor! ( ?? chr(27)+'.0' for the Televideo 950 and ?? chr(27)+'.2' to turn it back on ). 10 May 1983 Bill E. Weinman Business Computer Services P O Box 60807 Los Angeles, CA 90060 ENDIF F ***************************************************************** * initialization section set talk off set colon off erase store ' ' to string store 0 to col store 0 to colfin store 0 to row @ 10,10 say 'Enter the string to be animated: ' get string @ 11,10 say ' Enter the column to start in: ' get col pict '##' @ 12,10 say ' Enter the column to finish in: ' get colfin pict '##' @ 13,10 say ' Enter the line to animate on: ' get row pict '##' read clear gets erase store col+1 to initcol store trim(string) to string store len(string) to length * the "if not firsttime" within the "do while not done" loop * is to force dbase to read the entire routine into memory * before executing it. this eli04 SAY "| | | | | |" STORE 17 TO cntr STORE page+1 TO page ENDIF cntr >= 60 STORE STR(fld,3) TO flds STORE STR(field:len,3) TO LEN STORE STR(field:dec,3) TO dec @ cntr,4 SAY "| " + flds + " |" + field:name + "| " + field:type + ; " | " + LEN + " |" + dec + "|" STORE fld + 1 TO fld SKIP IF EOF @ cntr+1,4 SAY "| | | | | |" ELSE @ cntr+1,4 SAY "|_____|__________|___|_____|___|" STORE cntr + 2 TO cntr ENDIF EOF ENDDO WHILE .NOT. EOF @ cntr + 02,04 SAY "|==============================|" * print total characters in record (+1 for delete flag) at end SUM field:len TO msum @ cntr + 03,26 SAY STR(msum+1,4) ********** next command switches nec pc-8023a printer back to normal print @ cntr + 04,00 SAY CHR(15) EJECT RELEASE ALL SET FORMAT TO SCREEN RETURN * * * Labelprt.Cmd Label Printing Command File * * by Micheal R. Abram * 11/20/81 * (rev. 07/11/82) minates any disk bound delays * in the middle of animation. store t to firsttime store f to done do while .not. done if .not. firsttime * the animation starts here do while (initcol-col) # length * first, evaluate the sub-string store $(string,1,initcol-col) to partial @ row,col say partial store col-1 to col enddo do while col > colfin @ row,col say string+' ' store col-1 to col enddo * a little flash store col+1 to col store 0 to wait * low is a logical switch used to control the * alternation of the flash (only for terminals * that support rev video or dual intensity) store t to low do while wait < 10 if .not. low set inte off @ row,col say string store t to low else set inte on @ row,col say string store f to low endif store wait+1 to wait enddo store t to done endif firsttime store f to firsttime enddo * rele firsttime, done, row, col, wait, string, partial, length, lo" * * From October, 1982 Lifelines * * * This dBASE II command file will print labels several across * the page. It expects a .DBF file in USE positioned at the first * record to print, and will print to the end of the file. The * fields expected are: * Field Type Comment * Name C Name-flipping a la NAD. "Abram*Micheal R." * Last name, asterisk, first name. This * allows you to sort or index on Name. * Addr1 C Use for second name, affiliation, or * comment: If the first column is blank, * the line will not be printed and the next * lines will move up. * Addr2 C Street Address * City C The length of City, State, and Zip may * State C not total more than five less than the * Zip C horizontal spacing between labels, or * City will be truncated. * The horizontal increment specified must be at least one more * than the lenght of the longest field, or truncation will occure. * * SAVE TO LABELPRT SET TALK OFF SET EXACMline4+$(Blanks,1,Hinc) TO Mline4 ELSE STORE LEN(Mline2) TO Length STORE Mline2+$(Addr1,1,Maxaddr1) TO Mline2 STORE Mline2+$(Blanks,1,; Hinc-(LEN(Mline2)-Length)) TO Mline2 STORE 'Mline3' TO Maddr2 STORE 'Mline4' TO Mcity ENDIF STORE LEN(&Maddr2) TO Length STORE &Maddr2+$(Addr2,1,Maxaddr2) TO &Maddr2 STORE &Maddr2+$(Blanks,1,Hinc-(LEN(&Maddr2)-Length)); TO &Maddr2 STORE LEN(&Mcity) TO Length STORE &Mcity+TRIM($(City,1,Maxcity))+', '+State+' '; +Zip TO &Mcity STORE &Mcity+$(Blanks,1,Hinc-(LEN(&Mcity)-Length)); TO &Mcity STORE N+1 TO N STORE Lpr+1 TO Lpr OTHERWISE SKIP STT OFF ERASE STORE ' ' TO Blanks STORE 1 TO Perrec STORE 2 TO Nwide STORE 35 TO Hinc STORE 6 TO Vinc @ 9,10 SAY ' labelprint.cmd -- Label printing Command File' @ 10,10 SAY ' How many labels for each name? ' GET Perrec PICT '9' @ 11,10 SAY ' How many labels across the form? ' GET Nwide PICT '9' @ 12,10 SAY ' What is the horizontal spacing in columns? ' GET Hinc PICT '99' @ 13,10 SAY ' What is the vertical spacing in lines? ' GET Vinc PICT '9' READ STORE Hinc-1 TO Maxname STORE Hinc-1 TO Maxaddr1 STORE Hinc-1 TO Maxaddr2 STORE Hinc-(LEN(State)+LEN(Zip)+5) TO Maxcity STORE 'Y' TO Offer DO WHILE !(Offer) = 'Y' @ 20,10 SAY 'Print a line of dummy labels? (Y or N)' GET Offer READ IF !(Offer) = 'Y' SET CONSOLE OFF SET PRINT ON STORE Nwide TO N DO WHILE N > 0 ?? ' Name'+$(Blanks,1,Hinc-6) STORE N-1 TO N ENDDO ? ? ? STORE Nwide TO N DO WHILE N > 0 ?? ' City'+$(Blanks,1,HincORE Reccount+1 TO Reccount STORE 0 TO Lpr ENDCASE ENDDO SET CONSOLE OFF SET PRINT ON ? Mline1 ? Mline2 ? Mline3 ? Mline4 STORE Vinc-4 TO N DO WHILE N > 0 ? STORE N-1 TO N ENDDO SET PRINT OFF SET CONSOLE ON ENDDO @ 14,10 SAY 'There were ' @ 14,22 SAY Reccount USING '99999' @ 14,28 SAY 'records processed ' @ 15,10 SAY ' and ' @ 15,22 SAY Reccount*Perrec USING '99999' @ 15,28 SAY ' labels printed. ' RESTORE FROM LABELPRT DELETE FILE LABELPRT.MEM RETURN * * * Labelprt.Cmd Label Printing Command File * * by Micheal R. Abram * 11/20/81 * (rev. 07/11/82) * * From October, 1982 Lifelines * * * This dBASE II command file will print labels several across * the page. It expects a .DBF file in USE positioned at the first * record to print, and will print to the end of the file. The * fields expected are: * Field Type Comment * Name C Name-flipping a la NAD. "Abram*Micheal R." * Last name, asterisk, first n-6) STORE N-1 TO N ENDDO STORE Vinc-4 TO N DO WHILE N > 0 ? STORE N-1 TO N ENDDO SET PRINT OFF SET CONSOLE ON ENDIF ENDDO * * labelprt.cmd STORE 0 TO Reccount STORE 0 TO Lpr DO WHILE .NOT. EOF STORE ' ' TO Mline1 STORE ' ' TO Mline2 STORE ' ' TO Mline3 STORE ' ' TO Mline4 STORE 0 TO N DO WHILE N < Nwide DO CASE CASE EOF STORE Nwide TO N CASE Lpr < Perrec STORE LEN(Mline1) TO Length IF '*' $ Name STORE Mline1; +$(TRIM($(Name,@('*',Name)+1,Hinc)); +' '+$(Name,1,@('*',Name)-1),1,Maxname); TO Mline1 ELSE STORE Mline1+$(Name,1,Maxname) TO Mline1 ENDIF STORE Mline1+$(Blanks,1,Hinc-(LEN(Mline1)-Length)); TO Mline1 IF Addr1 = ' ' STORE 'Mline2' TO Maddr2 STORE 'Mline3' TO Mcity STORE #ame. This * allows you to sort or index on Name. * Addr1 C Use for second name, affiliation, or * street address. * Addr2 C Second address line. If the first column * is blank, the line will not be printed * and the next lines will moved up. * City C The length of City, State, and Zip may * State C not total more than five less than the * Zip C horizontal spacing between labels, or * City will be truncated. * The horizontal increment specified must be at least one more * than the lenght of the longest field, or truncation will occure. * * SAVE TO LABELPRT SET TALK OFF SET EXACT OFF ERASE STORE ' ' TO Blanks STORE 1 TO Perrec STORE 2 TO Nwide STORE 35 TO Hinc STORE 6 TO Vinc @ 9,10 SAY ' labelprint.cmd -- Label printing Command File' @ 10,10 SAY ' How many labels for each name? ' GET Perrec PICT '9' @ 11,10 SAY ' How ne3) TO Length STORE Mline3+$(Addr2,1,Maxaddr2) TO Mline3 STORE Mline3+$(Blanks,1,; Hinc-(LEN(Mline3)-Length)) TO Mline3 STORE 'Mline4' TO Mcity ENDIF STORE LEN(&Mcity) TO Length STORE &Mcity+TRIM($(City,1,Maxcity))+', '+State+' '; +Zip TO &Mcity STORE &Mcity+$(Blanks,1,Hinc-(LEN(&Mcity)-Length)); TO &Mcity STORE N+1 TO N STORE Lpr+1 TO Lpr OTHERWISE SKIP STORE Reccount+1 TO Reccount STORE 0 TO Lpr ENDCASE ENDDO SET CONSOLE OFF SET PRINT ON ? Mline1 ? Mline2 ? Mline3 ? Mline4 STORE Vinc-4 TO N DO WHILE N > 0 ? STORE N-1 TO N ENDDO SET PRINT OFF SET CONSOLE ON ENDDO ERASE @ 14,10 SAY 'There were ' @ 14,22 SAY Reccount USING '99999' @ 14,28 SAY 'records processed ' @ 15,10 SAY ' and ' @ 15,22 SAY Reccount*Perrec Umany labels across the form? ' GET Nwide PICT '9' @ 12,10 SAY ' What is the horizontal spacing in columns? ' GET Hinc PICT '99' @ 13,10 SAY ' What is the vertical spacing in lines? ' GET Vinc PICT '9' READ STORE Hinc-1 TO Maxname STORE Hinc-1 TO Maxaddr1 STORE Hinc-1 TO Maxaddr2 STORE Hinc-(LEN(State)+LEN(Zip)+5) TO Maxcity STORE 'Y' TO Offer DO WHILE !(Offer) = 'Y' @ 20,10 SAY 'Print a line of dummy labels? (Y or N)' GET Offer READ IF !(Offer) = 'Y' SET CONSOLE OFF SET PRINT ON STORE Nwide TO N DO WHILE N > 0 ?? ' Name'+$(Blanks,1,Hinc-6) STORE N-1 TO N ENDDO ? ? ? STORE Nwide TO N DO WHILE N > 0 ?? ' City'+$(Blanks,1,Hinc-6) STORE N-1 TO N ENDDO STORE Vinc-4 TO N DO WHILE N > 0 ? STORE N-1 TO N ENDDO SET PRINT OFF SET CONSOLE ON ENDIF ENDDO * * labelprt.cmd STORE 0 TO Reccount STORE 0 TO Lpr SING '99999' @ 15,28 SAY ' labels printed. ' RESTORE FROM LABELPRT DELETE FILE LABELPRT.MEM RETURN * * poke1.cmd * set echo off set talk off erase * * display current fcb * store (5*16)+13 to fcb1 store 0 to count store ' ' to s * do while count<12 store s+chr(peek(fcb1+count)) to s store count+1 to count enddo count * store len(s) to lenofs @ 10,0 say 'Current fcb ===>'+$(s,2,lenofs)+'<===' * * blank the fcb poke fcb1,32,32,32,32,32,32,32,32,32,32,32,0,0,0,0,0 * store 0 to count store ' ' to s * do while count<12 store s+chr(peek(fcb1+count)) to s store count+1 to count enddo count @ 12,0 say 'fcb after poke ===>'+'&s'+'<===' * * get parameters for called pgm * *store 'abc def **' to param store ' ' to param @ 23,0 say 'Enter a string to use in the poke'; get param * read * * * truncate, capDO WHILE .NOT. EOF STORE ' ' TO Mline1 STORE ' ' TO Mline2 STORE ' ' TO Mline3 STORE ' ' TO Mline4 STORE 0 TO N DO WHILE N < Nwide DO CASE CASE EOF STORE Nwide TO N CASE Lpr < Perrec STORE LEN(Mline1) TO Length IF '*' $ Name STORE Mline1; +$(TRIM($(Name,@('*',Name)+1,Hinc)); +' '+$(Name,1,@('*',Name)-1),1,Maxname); TO Mline1 ELSE STORE Mline1+$(Name,1,Maxname) TO Mline1 ENDIF STORE Mline1+$(Blanks,1,Hinc-(LEN(Mline1)-Length)); TO Mline1 STORE LEN(Mline2) TO Length STORE Mline2+$(Addr1,1,Maxaddr1) TO Mline2 STORE Mline2+$(Blanks,1,Hinc-(LEN(Mline2)-Length)); TO Mline2 IF Addr2 = ' ' STORE 'Mline3' TO Mcity STORE Mline4+$(Blanks,1,Hinc) TO Mline4 ELSE STORE LEN(Mli#italize for CP/M * store trim(param) to param ****store !(param) to param * * convert ascii to decimal * store ' !"#$%&' to tab1a store chr(39) to tab1b store '()' to tab1c store '*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`' to tab2 store 'abcdefghijklmnopqrstuvwxyz{|}~' to tab3 store tab1a + tab1b + tab1c + tab2 + tab3 to table * store 31 to base store ' ' to dstring store 0 to pointer * do while pointer EXIT' @ 15,11 SAY ' 1> 10 CPI (STANDARD PICA PRINT) *** DEFAULT ***' @ 16,11 SAY ' 2> 16.5 CPI (CONDENSED PRINT)' @ 17,11 SAY ' 3> 8.5 CPI (BOLD PRINT)' @ 18,11 SAY ' 4> 5 CPI (WIDE PRINT)' @ 19,11 SAY ' 5> 6 LINES PER INCH (STANDARD LINE PRINT) *** DEFAULT ***' @ 20,11 SAY ' 6> 8 LINES PER INCH (CONDENSED LINE PRINT)' @ 21,27 SAY ' ------------------------ ' @ 22,27 SAY ' | YOUR CHOICE IS NUMBER: | ' @ 23,27 SAY ' ------------------------ ' WAIT TO Action IF Action = '0' ERASE ELSE IF ACTION = '1' ERASE SET PRINT ON ? CHR(30) SET PRINT OFF ERASE ELSE IF Action = '2' SET PRINT ON ? CHR(30) ? CHR(29) SET PRINT OFF ERASE ELSE IF Action = '3' SET PRINT ON ? CHR(30) ? CHR(29) + CHR(31) SET PRINT OFF ERASE ELSE IF Action = '4' SET PRINT ON ? CHR(30) ? CHR(31) SET PRINT OFF ERASE ELSE IF Action = 'do while count'+'&s'+'<===' * * set up the call address * store 10*(16*16*16) to ca store ca+(4*(16*16)) to ca set call to ca store 'dummy' to adress * * do the call * * call adress return +tab3 to table * store 31 to base store ' ' to dstring store 0 to pointer * do while pointer EXIT' . ' @ 14,11 SAY ' 0> EXIT' IT' * * showmem.cmd * * This command module is used to display memory * on the console. Only printable characters show, * non-printable characters are shown as a period. * Memory is displayed in 64-byte chunks. * set echo off set talk off set bell off erase * * display memory * store '0123456789*(16) to eaddr3 store (en4-1) to eaddr4 * store eaddr1 + eaddr2 + eaddr3 + eaddr4 to eaddr * erase ? 'Displaying from &start hex to &end hex' ? ' Press escape to interrupt' ? ' ' store 0 to cnt store ' ' to line do while cnt < (eaddr - saddr) do while len(line) < 65 store chr(peek(saddr+cnt)) to byte if byte < ' ' .or.; byte > '~' store '.' to byte endif byte * store line + byte to line store cnt + 1 to cnt enddo line * ? '===>' + $(line,2,64) + '<===' store ' ' to line enddo cnt * store ' ' to ans set intensity off set colon off ? ' ' ? ' ' ? 'Press any key to continue' @ 0,0 get ans * read * set intensity on set colon on * enddo reading ABCDEF' to hextable store ' ' to line store ' ' to start store ' ' to end store t to reading do while reading erase store t to badans do while badans @ 1,0 say ' To exit this function enter XXXX ' @ 2,0 say 'Enter the starting address to display (in hex 0-F) ===>'; get start; picture '!!!!' * read * if start = 'XXXX' return endif start * @ 3,0 say 'Enter the ending address to display (in hex 0-F) ===>'; get end; picture '!!!!' * read * store $(start,1,1) to start1 store $(start,2,1) to start2 store $(start,3,1) to start3 store $(start,4,1) to start4 * store $(end,1,1) to end1 store $(end,2,1) to end2 store $(end,3,1) to end3 store $(end,4,1) to end4 * store @(start1,hextable) to st1 store @(start2,hextable) to st2 store @(sta$ store line + byte to line store cnt + 1 to cnt enddo line * ? '===>' + $(line,2,64) + showmem.cmd * * This command module is used to display memory * on the console. Only printable characters show, * non-printable characters are shown as a period. * Memory is displayed in 64-byte chunks. * set echo off set talk off set bell off erase * * display memory * store '0123456789 WAIT ENDIF SET PRINT OFF ENDDO ? '* NEW FUNCTION *' WAIT ERASE DISP; 'Re-indexing file',TRIM(FILE),'for analysis of',TRIM(FD:NAME),'LENGTH..' OFF COPY FIELDS ITEM:COUNT,ITEM:SIZE TO TALLY/TM COPY STRU EXTENDED TO STRU USE STRU DELETE FILE TALLY/WK GO 2 * Build a var named XXX with X's the size of ITEM FIELD:SIZE STORE FIELD:LEN TO SIZE STORE 'X' TO XXX DO WHILE SIZE > 1 STORE XXX+'X' TO XXX STORE SIZE-1 TO SIZE ENDDO DELETE SKIP REPLACE FIELD:TYPE WITH 'C' PACK USE CREATE TALLY/WK FROM STRU USE TALLY/WK DELETE FILE STRU SET TALK ON APPEND FROM TALLY/TM SET TALK OFF DELETE FILE TALLY/TM TOTAL ON ITEM:SIZE TO ITEM/SZ USE ITEM/SZ GO BOTTOM COUNT TO REC:NO SUM ITEM:COUNT TO TOTAL:REC ERASE ACCEPT 'Would you like a print of list by &FD:NAME SIZE (Y/ENTER)' TO QUESTION IF $(!(QUESTION),1) = 'Y' ? 'Turn the printer on and push ' WAIT SET PRINT ON ENDIF DISP 'LIST OF SIZE OF',TRIM(FD:NAME),'AND COUNT - file is',TRIM(FILE) OFF ? DISP 'PEABCDEF' to hextable store ' ' to line store ' ' to start store ' ' to end store t to reading do while reading er * SQUARE ROOT COMMAND FILE (JOHN HATHAWAY 8/5/82) * HANDLES ANY NUMBER GREATER THAN 0 SET TALK OFF INPUT 'NUMBER' TO in STORE 0 TO a STORE in*.5 TO out STORE 0 TO z5 * YOU CAN INCREASE OR DECREASE NUMBER OF LOOPS HERE TO * CHANGE ACCURACY. I'VE FOUND 7 TO BE ADEQUATE DO WHILE a<7 STORE (in/out-out)*.5 TO w5 STORE out+w5 TO out STORE w5 TO z5 STORE a+1 TO a ENDDO DISPLAY OFF out RELEASE in,out,w5,z5 SET TALK ON RETURN * = file is TALLY/LT rev 10/15/82 * ========= USE FOR TESTING ========== * STORE 'OWNER ' TO FD:NAME * STORE 'USDAMS ' TO FILE * SET TALK OFF * ==================================== ERASE USE TALLY/WK DISP; 'Re-indexing file',TRIM(FILERCENT COUNT --SIZE-- (MAX SIZE IS',FD:LEN,')' OFF ? STORE 0 TO COUNT DO WHILE REC:NO > 0 STORE ITEM:COUNT/TOTAL:REC*100 TO PERCENT IF PERCENT < 10 DISP ' ',PERCENT,ITEM:COUNT,ITEM:SIZE,' ',$(XXX,1,VAL(ITEM:SIZE)) OFF ELSE DISP ' ',PERCENT,ITEM:COUNT,ITEM:SIZE,' ',$(XXX,1,VAL(ITEM:SIZE)) OFF ENDIF SKIP-1 STORE REC:NO-1 TO REC:NO STORE COUNT+1 TO COUNT IF COUNT = 20 STORE 0 TO COUNT WAIT ENDIF SET PRINT OFF ENDDO RETURN *file is TALLY.CMD rev 10/19/82 10pm SET TALK OFF ERASE ACCEPT 'Enter drive which your file is on ' TO DRIVE STORE !(DRIVE) TO DRIVE SET DEFA TO &DRIVE STORE T TO NO:FILE DO WHILE NO:FILE ERASE ? '------ DBASE FILES ON DRIVE &DRIVE -------' ? DISP FILES ACCEPT 'Enter file name for TALLY - or to quit ' TO FILE STORE !(FILE) TO FILE IF FILE = ' ' RETURN ENDIF STORE FILE+'.DBF' TO CK:FILE IF .NOT. FILE('&CK:FILE') ? ? 'Sorry I did no),'for analysis of',TRIM(FD:NAME),'LENGTH..' OFF COPY STRU EXTENDED TO STRU USE STRU APPEND BLANK REPLACE FIELD:NAME WITH 'ITEM:SIZE' REPLACE FIELD:TYPE WITH 'N' REPLACE FIELD:LEN WITH 5 USE IF FILE('TALLY/TM.DBF') DELETE FILE TALLY/TM.DBF ENDIF RENAME TALLY/WK TO TALLY/TM CREATE TALLY/WK FROM STRU USE TALLY/WK DELETE FILE STRU SET TALK ON APPEND FROM TALLY/TM SET TALK OFF DELETE FILE TALLY/TM REPLACE ALL ITEM:SIZE WITH LEN(TRIM(ITEM)) SET TALK ON INDEX ON ITEM:SIZE TO TALLY/SZ SET TALK OFF SET INDEX TO TALLY/SZ GO BOTTOM COUNT TO REC:NO ERASE ACCEPT 'Would you like a print of list by &FD:NAME SIZE (Y/ENTER)' TO QUESTION IF $(!(QUESTION),1) = 'Y' ? 'Turn the printer on and push ' WAIT SET PRINT ON ENDIF DISP 'LIST OF',TRIM(FD:NAME),'COUNT, BY SIZE - file is &FILE' OFF ? STORE 0 TO COUNT DO WHILE REC:NO > 0 DISP ITEM:SIZE,ITEM:COUNT,ITEM OFF SKIP-1 STORE REC:NO-1 TO REC:NO STORE COUNT+1 TO COUNT IF COUNT = 20 STORE 0 TO COUNT %t list that file .....' STORE 0 TO COUNT DO WHILE COUNT # 50 STORE COUNT + 1 TO COUNT ENDDO LOOP ELSE STORE F TO NO:FILE ENDIF ENDDO USE &FILE COPY STRU EXTENDED TO STRU USE STRU STORE T TO NoItem GO BOTTOM STORE # TO MaxItem DO WHILE NoItem ERASE ? '- FOLLOWING IS A DIRECTORY OF YOUR DATA BASE -' ? ? 'Item # Item name' ? DISP ALL ? ACCEPT 'Enter item number for TALLY ' TO ITEM:NO IF VAL(ITEM:NO) < 1 .OR. VAL(ITEM:NO) > MaxItem ? ? 'Please enter a number betweem 1 and',MaxItem,'.....' STORE 0 TO COUNT DO WHILE COUNT # 50 STORE COUNT + 1 TO COUNT ENDDO LOOP ELSE STORE F TO NoItem ENDDO GOTO &ITEM:NO * store item info to mem var STORE FIELD:NAME TO FD:NAME STORE FIELD:TYPE TO FD:TYPE STORE FIELD:LEN TO FD:LEN STORE FIELD:DEC TO FD:DEC ? ?'Doing setup ...' * GO TOP DO WHILE .NOT. EOF DELETE SKIP ENDDO PACK APPEND BLANK REPLACE FIELD:NAME  IF $(!(QUESTION),1)='Y' DO TA4/LT ENDIF ACCEPT 'Should I delete all work files (Y/ENTER) ?' to QUESTION IF $(!(QUESTION),1)='Y' USE DELETE FILE TALLY/WK DELETE FILE TALLY/WK.NDX DELETE FILE TY/ITEM.NDX DELETE FILE TALLY/SZ.NDX DELETE FILE ITEM/SZ ? 'All work files deleted' ENDIF SET TALK ON RETURN E TY/ITEM.NDX DELETE FILE TALLY/SZ.NDX TIMECHAR.CMD * * ERASE SET TALK OFF ? CHR(27)+CHR(40) ? ' GCS Timesheet Entry ' ? CHR(27)+CHR(41) ? CHR(27)+CHR(40) ? 'Entry of R for DATE Will Return You to Menu ' ? CHR(27)+CHR(41) ACCEPT 'ENTER DATE (MM/DD/YY) ' to C:DATE IF !(C:DATE)='R' RELEASE C:DATE RETURN ENDIF USE &COST DO WHILE T ERASE ? ? CHR(27)+CHR(40) + ' GCS TIMESHEET ENTRY '+; CHR(27)+CHR(41) ? ? ? CHR(27)+CHR(40) REMARK Entry of 0 for Name will Return you to Menu ? CHR(27)+CHR(41) ? ACCEPT 'Enter Employee Name' to C:NAME IF C:NAME = '0' USE RELEASE C:DATE, C:JOBNWITH 'ITEM:COUNT' REPLACE FIELD:TYPE WITH 'N' REPLACE FIELD:LEN WITH 10 APPEND BLANK REPLACE FIELD:NAME WITH 'ITEM' REPLACE FIELD:TYPE WITH 'C' REPLACE FIELD:LEN WITH FD:LEN USE IF FILE('TALLY/WK.DBF') DELETE FILE TALLY/WK ENDIF CREATE TALLY/WK FROM STRU USE DELETE FILE STRU SELE PRIM USE &FILE GO TOP SELE SECO USE TALLY/WK STORE T TO FIRST:TM SELE PRIM STORE 0 TO REC DO WHILE .NOT. EOF STORE REC+1 TO REC IF REC=50 STORE 0 TO REC DISP 'Records processed' ENDIF * if item of interest is numeric convert to a string IF FD:TYPE='N' STORE STR(&FD:NAME,FD:LEN,FD:DEC) TO STRING ELSE STORE &FD:NAME TO STRING ENDIF SELE SECO * IF FIRST:TM APPEND BLANK REPLACE ITEM:COUNT WITH 1 REPLACE ITEM WITH STRING INDEX ON ITEM TO TALLY/WK SET INDEX TO TALLY/WK STORE F TO FIRST:TM ERASE ? 'Reading data file....' ELSE FIND '&STRING' IF # <> 0 REPLACE ITEM:COUNT WITH ITEM:COUNT+UM, GO:NOGO, C:PCODE, C:NAME, C:HOURS, C:RATE, ; C:AMT, C:CUSTCD, C:CUSTOD RETURN ENDIF ? ACCEPT 'Enter Operation Code' to C:OPCODE STORE '0' TO C:PCODE STORE 'y' TO PERSON DO WHILE !(PERSON) = 'Y' ERASE ? ? CHR(27)+CHR(40) + ' GCS TIMESHEET ENTRY '+; CHR(27)+CHR(41) ? ? ? CHR(27)+CHR(40) ? 'Date set is :'+CHR(27)+CHR(41)+' &C:DATE'+CHR(27)+CHR(40) ? 'Operation Code :'+CHR(27)+CHR(41)+' &C:OPCODE'+CHR(27)+CHR(40) ? 'Entering Time For:'+CHR(27)+CHR(41)+' &C:NAME' IF C:PCODE = '0' ACCEPT 'Enter Production Code: ' to C:PCODE ENDIF ? CHR(27)+CHR(40) ? 'Production Code is:'+CHR(27)+CHR(41)+' &C:PCODE' ? ? CHR(27)+CHR(40) ACCEPT 'Do you Wish to Change Production Code (Y/N)?' TO CHANGE ? CHR(27)+CHR(41) IF !(CHANGE) = 'Y' ACCEPT 'Enter New Production Code: ' to C:PCODE ENDIF IF C:PCODE = "245" STORE 21 TO C:RATE ELSE IF C:PCODE = "246" STORE 24 TO C:RATE ELS1 ELSE APPEND BLANK REPLACE ITEM:COUNT WITH 1 REPLACE ITEM WITH STRING ENDIF ENDIF FIRST:TM SELE PRIM SKIP ENDDO WHILE.NOT. EOF SELE SECO ERASE DISP 'LIST OF',TRIM(FD:NAME),'COUNT, IN NAME ORDER - file is &FILE' OFF ? DISP ALL ITEM:COUNT,' ',ITEM OFF ?'Push enter to continue' WAIT ? ? 'Re-indexing by item count...' INDEX ON ITEM:COUNT TO TY/ITEM SET INDEX TO TY/ITEM GO BOTTOM COUNT TO REC:NO ERASE ACCEPT 'Would you like a print of list by max. count (Y/ENTER)' TO QUESTION IF $(!(QUESTION),1) = 'Y' ? 'Turn the printer on and push ' WAIT SET PRINT ON ENDIF DISP 'LIST OF',TRIM(FD:NAME),'COUNT, IN MAX.COUNT ORDER - file is &FILE' OFF ? STORE 0 TO COUNT DO WHILE REC:NO > 0 DISP ITEM:COUNT,' ',ITEM OFF SKIP-1 STORE REC:NO-1 TO REC:NO STORE COUNT+1 TO COUNT IF COUNT = 20 STORE 0 TO COUNT WAIT ENDIF ENDDO USE SET PRINT OFF ACCEPT 'Do you want to look at the length of &FD:NAME (Y/ENTER) ?' to QUESTION%E IF C:PCODE = "247" STORE 70 TO C:RATE ELSE IF C:PCODE = "248" STORE 40 TO C:RATE ELSE IF C:PCODE = "250" STORE 55 TO C:RATE ELSE IF C:PCODE = "251" STORE 47 TO C:RATE ELSE IF C:PCODE = "252" STORE 50 TO C:RATE ELSE IF C:PCODE = "253" STORE 45 TO C:RATE ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ? CHR(27)+CHR(40) + 'Enter Job Number "C" to Charge Hours ' ? 'to Customer Code and Order number ' + CHR(27)+CHR(41) STORE "Y" TO NUM DO WHILE !(NUM) = "Y" ACCEPT 'ENTER JOBNUMBER ' to C:JOBN ? IF C:JOBN <> "C" .AND. LEN(C:JOBN) <> 6 ? CHR(27)+CHR(40) REMARK INVALID JOB NUMBER -- REENTER REMARK PRESS ANY KEY TO CONTINUE ? CHR(27)+CHR(41) WAIT LOOP ENDIF STORE "N" TO NUM IF C:JOBN = 'C' ACCEPT 'ENTER CUSTOMER CODE ' to C:or ar )' TO bars IF !(bars)='B' ACCEPT 'LABEL FIELD' TO label ENDIF ERASE ?'DETERMINING MINIMUM AND MAXIMUM DATA POINTS ...' ? STORE -10000 TO xmax STORE 10000 TO xmin STORE -10000 TO ymax STORE 10000 TO ymin STORE 1 TO num STORE 0 TO sume GOTO TOP DO WHILE .NOT. EOF *--------------------change following line for cursor up and remove '*' * DISPLAY OFF 'RECORD #:',#,CHR(11) IF &C IF &vx<=xmin STORE &vx TO xmin ELSE IF &vx>=xmax STORE &vx TO xmax ENDIF ENDIF IF &vy<=ymin STORE &vy TO ymin ELSE IF &vy>=ymax STORE &vy TO ymax ENDIF ENDIF STORE num+1 TO num STORE sume+&vy TO sume ENDIF SKIP+1 ENDDO *------------------------------------------------------- * display minimum and maximum - allow alternate entries| *------------------------------------------------------- ERASE @ 2,10 SAY 'AXIS SETUP SCREEN' @ 5,10 SAY 'NUMBER:' @ 5,20 SAY STR(num,6,0) @ 7,10 SAY 'AVERAGE:' @ 7,20 SAYCUSTCD ACCEPT 'ENTER CUSTOMER ORDER NUMBER ' to C:CUSTOD ELSE IF !(C:JOBN) <> 'C' STORE "NA" TO C:CUSTCD STORE "NA" TO C:CUSTOD ENDIF ENDIF INPUT 'ENTER HOURS ' to C:HOURS ? ? CHR(27)+CHR(40) ACCEPT 'ARE ALL FIELDS CORRECT? (Y/N)' TO GO:NOGO ? CHR(27)+CHR(41) IF GO:NOGO <> 'Y' LOOP ENDIF STORE (C:RATE * C:HOURS) TO C:AMT APPEND BLANK REPLACE JOBNUMBER WITH C:JOBN, BILL:DATE WITH C:DATE, OPCODE ; WITH C:OPCODE, NAME WITH C:NAME, HOURS WITH C:HOURS, INTCOST ; WITH C:AMT, PROD:CODE WITH C:PCODE, CUSTCODE WITH C:CUSTCD, ; CUSTORDER WITH C:CUSTOD ERASE ? ? CHR(27)+CHR(40) + ' GCS TIMESHEET ENTRY '+; CHR(27)+CHR(41) ? ? ? CHR(27)+CHR(40) ACCEPT 'MORE HOURS FOR &C:NAME? (Y/N)' TO PERSON ? CHR(27)+CHR(41) ERASE RELEASE C:JOBNUM, GO:NOGO, C:HOURS, C:RATE, C:AMT ENDDO ENDDO ENDDO RETURN STR(sume/num,8,2) @ 8,10 SAY '------------------' @ 10,10 SAY 'LOWER X' GET xmin @ 11,10 SAY 'UPPER X' GET xmax @ 13,10 SAY 'LOWER Y' GET ymin @ 14,10 SAY 'UPPER Y' GET ymax IF NUM>15 @ 17,5 SAY 'Too many points for BAR GRAPH. Switching to SCATTERPLOT.' STORE 'S' TO BARS ENDIF READ *-------------------------------------------------------- * determine axis scaling factors | *-------------------------------------------------------- STORE xmax-xmin TO xdif STORE xdif/5 TO xinc STORE ymax-ymin TO ydif STORE ydif/4 TO yinc STORE 1 TO X STORE 1 TO Y STORE 1 TO A ERASE *-------------------------------------------------------- * draw Y axis | *-------------------------------------------------------- STORE ymax TO B STORE ' ' TO D DO WHILE A<23 STORE (A-2)/5 TO F IF ymax>10 STORE STR(B-F*yinc,3) TO D ELSE STORE STR(B-F*yinc,3,1) TO D ENDIF IF A=2 .OR. A=7 .OR. A=12 .OR. A=17 .OR. A=22 @ A,1 SAY D *-------------------------------------------------------- * Screen graphics command module (bar graph) | * Universal terminal version | * John Hathaway 3/1/83 | *-------------------------------------------------------- RELEASE ALL SET TALK OFF ERASE *-------------------------------------------------------- * new DBF file ? | *-------------------------------------------------------- ? 'DBASE SCREEN GRAPHICS COMMAND PROGRAM' ? ACCEPT 'USE LOGGED IN DATA BASE? (Y/N)' TO YS IF !(YS)<>'Y' ACCEPT 'ENTER DATA BASE NAME' TO name USE &name ENDIF ERASE RELEASE YS *-------------------------------------------------------- * setup field variables and data base read conditions | *-------------------------------------------------------- ? 'ENTER FIELD VARIABLES AND CONDITIONS BELOW' ? ACCEPT ' FIELD X' TO vx ACCEPT ' FIELD Y' TO vy ACCEPT 'CONDITIONS' TO C ? ? ACCEPT 'GRAPH TYPE ( catter & @ A,4 SAY '+' ELSE @ A,4 SAY '|' ENDIF STORE A+1 TO A ENDDO *-------------------------------------------------------- * draw X axis | *-------------------------------------------------------- STORE 0 TO A @ 22,4 SAY '+--------------+--------------+--------------+--------------+--------------+' STORE 15 TO N5 DO WHILE A<6 IF A=5 STORE 14.4 TO N5 ENDIF STORE xmin+A*xinc TO B @ 23,A*N5+2 SAY STR(B,4,1) STORE A+1 TO A ENDDO @ 1,50 SAY 'Y AXIS =' @ 1,58 SAY vy @ 1,30 SAY 'X AXIS =' @ 1,38 SAY vx *-------------------------------------------------------- * read file and plot data | *-------------------------------------------------------- GOTO TOP DO WHILE .NOT. EOF IF &C STORE (&vx-xmin)/xdif*75 TO X1 STORE (&vy-ymin)/ydif*20 TO Y1 STORE 22-Y1 TO JJ IF !(bars)='B' @ JJ,X1+3 SAY '*' @ JJ,X1+4 SAY '*' @ JJ,X1+5 SAY '*'  XNlYNlLABELC l 1 3.30ONE 2 5.50TWO 3 6.60THREE 4 4.50FOUR 5 3.80FIVE 6 2.80SIX 7 7.70SEVEN 8 5.50EIGHT 9 4.90NINE  0 14444-2-3243FF 076.3123.6942.8257.151.332.650.29 0 14444-2-3245FF 076.0223.9943.0256.981.322.660.25 50 52 8 200-2-0496FF 076.7323.2742.5457.461.352.320.49 OK 0 5 130-2-0580FF 076.2423.7742.7457.261.340.000.47  STORE JJ+1 TO JJ DO WHILE JJ<22 @ JJ,X1+3 SAY '|' @ JJ,X1+5 SAY '|' STORE JJ+1 TO JJ ENDDO *-------------------------------------------------------- * plot labels vertically inside bars | *-------------------------------------------------------- STORE 1 TO L IF TYPE(&label)='N' STORE STR(&label,4) TO Tlabel ELSE STORE TRIM(&label) TO Tlabel ENDIF DO WHILE L<=LEN(Tlabel) @ 21-LEN(Tlabel)+L,X1+4 SAY $(Tlabel,L,1) STORE L+1 TO L ENDDO *------------------------------------ scatter plot ELSE @ JJ,X1+4 SAY '*' ENDIF ENDIF SKIP+1 ENDDO RELEASE ALL *-------------------------------------------------------- * jump up here to avoid rolling the screen up | *-------------------------------------------------------- STORE ' ' TO YS @ 1,70 SAY 'RET' GET YS READ RETURN  QxTITLEN lNAMEC lOFC*lADDRCHlCITYCflSTATECzlZIPC|l :r=5p=8o*p!^t#p6*p6:^topXp!_t4:s=>2_toXp~Gp5>Åoo!^t~4:r=:_t?~p!s 1Jones John J. Micro Enterprises 1234 Chip Road Silicon CA90002 1Jones John J. Micro Enterprises 1234 Chip Road Silicon CA90002 1Brown Thomas 1234 West Winchester Dr. Boston MA10024 ACK COMMAND ; PACK: CALL INUSE LXI D,0 CALL RECNT TESTH Z,PACK3 ;JNZ PACK3 CALL BTFLN ;ARE WE INDEXED? JNZ PAKER1 ;YES, ERROR CSFIELD:NAMEC lFIELD:TYPEClFIELD:LENNlFIELD:DECNl X N005000 Y N007002 LABEL C010000HGFE_  61h`haH`H ` 8`.`aahhhVhWhThUhhh...hhhh...J0ITIJIVI@JI`IJJ aaL@KKUA2mm  dA /AKKL@mmL 6A`hhϮƢLȭBLGAL &vSQRT.DOCY  ! "$#%'&()+*r-, ./0324167598:;< =?@>QoSDBAEGCFIJHMKLNO:PQTRVSXUW0VX +;1@['Ioj5NY VC3WN!F*Qq_]AUr)=4QcjrH~ *.JU"+[2_}8/}. 4 H`*.[%*Υ}~Oq cm5؜>{\qtXwߑ#p}Afe˱ʫ6>).;*]EV6}.˱ [pY[eZq=->{L9Mg{:`_1؜p EinepA28NiGbd%*}Zm׾L?eZRJ}+1xcJʢ-W_ǹO8'3̔.b:g`^_aALqA\a޲ceq9N ǨOx=⻤8V=NvA/J9013㠾 .Qߓ9OAqJ;q|qinV_ }yWza\Xɫ }~P~Rm5_!%q_[ƨϜɫ }D {HAH5{H[R*LC#_tv2c'jV>]j-kPEY)g;mklx;/J/c᣿~?2e;CQb+&{  tXL}PQ6 v2e0폵tY˅5/};1SI$*/9\EU.jhmr5؂CQb+&{  tXL}Pv8JPOKE1.DOC0   !$%"&'#v;BYMAIL.DOCS ! "$#%&(')*+,/-0.o12435687;9=<:?>A@BCEFDHGIJLNMKPQRO:+݌y5'ۆ|v3r̡x{![WvNz]}lnc9t8W&aćqrW:*U8=AŧN8Tc.XW}/XcU8rAOA5}z~~-rN_A/-XIK?x%擎+,h(iSJcB&/OƪtIR'tο-%?xLY%5XJ'4M_xN)5DkG6ćo\u>ITo5̿-%׸i)1Gt1]($iLKq {Z׫?1@@!yLUظ!R)5Dk p cړ>q* Urk#ϣ,@nq; ;'8kt y"'֓3Xc1FҽQ66|{#ҽ66㬽߅ll,Ɨι?kl|$kcc1>{`g,b|`lgml,o X/;W~6Feml,F߅I#kl50҆t1( J :B1+kN!}sJXpiM_/(*+,-)./oL1G֒ϓ}'J33?ȿ*>f~wjhbִ_myQFb**JadNҤ/&h~Z3?~駘av^久߹f-=5 β3X-uxuBUW?ΠvGTALLY.DOC=   !"#$%&(')*+-,o/0.42135698;7:<^Zޞs1"~>?6ڗs{~o:5ΉT)'Sqư ?ungb1ɪ߫4Og!bu$Gdgjd-yJu!j\KT֚dk ewOM|$o|z~mqwkl}\z$BK><Y1DPÈ_ fpX0 sq-y4s u]&>\mZloek @uuT)n×PB q腜uBv 1DՇ"!NeQ^;mvUGRAPH.DOCq  ! "#%$'&)(Du>IIJ4JU8kan5 H1Ur)bӚ^c=*[Rt\*}NisyWLTT47Nf5:%ƪpH C:U8syQaNpN!56||FITSWa\=\?O(E6`M9 M$טpz!wqSN CB9Xo *Rh :岴0_m)1F-5>`W!y }-vQШ(m\[cC@qO}Akl*_BnS*{M/T]?zsBzӻ盍5\Ƥ3᣿~+zw@qSN<we{4|Qz.cZ's~f e{ܑ/Jπ6U=kM8y}`/JπKJ,@Qg'*,+ /-.10r23456798:;<= >@?BACQEDoIGFHJKMLONPSQRTWVZYU[^X`\]_cbaS _Vfehgjklminpdo'&6KW1+7E:JFXO![0[T~7=P95dhYJzLU˚h т """nBd gew-;D Їlo7%eA4k&Nbm0Fa~M1I!y#cx$&^Mr満?ع 1snz:I F'߬ɳB˜/ݯ9}Czwm{wvYoqZ}縡@mvhOaP;wo}ù=x[qZNҋ9+C Ul~sC8f4 ɇ\ .g˂ 318{vߥaF-}満?}S֤CMoR`?l9F%O(x. :$z3}ǐ4c f5Eి~z&5瞴DjCv.=$%bQs> k 0^𴑘C~56BPu OkD.+;Բ-=F4[XV+4:یǗrKgD\ z9Ba" 7eM:,1B?9MV$&q5vY- "yXH"n dHTz$/B) s+([{@ ضmuan+Dޔ5вd|W8O!Vp@wPj˂^ ~Oޔ}͹s|ntb.%3 "۵ua>+DnGKr6Bg ּ3}v/ޠOUD67 7S 'axMl_VSK^fNT!~#us%oUA~_9}Czwm{wvYoqZ}縡@mvhOaP;wo}ù=x[qZNҋ9+C U Y Checks subtotalled by type n y y MEMO N N Check type : 5,NO CHECKNO N 33,TO PAY TO THE ORDER OF 10,$(DATE,3,2)+'/'+$(DATE,5,2)+'/'+$(DATE,1,2) DATE;WRITTEN 12,AMT >AMOUNT Y W=55 Y SHOPPING LIST N Y N 23,ITEM+'...' ITEM 4,NO NO N 10,COST PRICE N 10,NO*COST >COST Y O P Q R S T U V W X Y Z A B C D E F G H I J K L M N PP Q R S T U V W X Y Z A B C D E F G H I J K L M N O QQ R S T U V W X Y Z A B C D E F G H I J K L M N O P RR S T U V W X Y Z A B C D E F G H I J K L M N O P Q SS T U V W X Y Z A B C D E F G H I J K L M N O P Q R TT U V W X Y Z A B C D E F G H I J K L M N O P Q R S UU V W X Y Z A B C D E F G H I J K L M N O P Q R S T VV W X Y Z A BF HH I J K L M N O P Q R S T U V W X Y Z A B C D E F G II J K L M N O P Q R S T U V W X Y Z A B C D E F G H JJ K L M N O P Q R S T U V W X Y Z A B C D E F G H I KK L M N O P Q R S T U V W X Y Z A B C D E F G H I J LL M N O P Q R S T U V W X Y Z A B C D E F G H I J K MM N O P Q R S T U V W X Y Z A B C D E F G H I J K L NN O P Q R S T U V W X Y Z A B C D E F G H I J K L M O ONECOPY VERSION 2.0 $ Replace System Disk and Hit RETURN.$ ERROR -- No File Name Specified. The Correct Syntax is "ONECOPY FILENAME.TYP".$ Insert Source Disk in Drive, Press RETURN.$ Insert Distination Disk in Drive, Press RETURN.$ ERROR -- Source File Not Found.$ ERROR -- Can't Read Source File.$ ERROR -- Can't Write Destination File.$ Transfer Completed. Replace System Disk, Hit RETURN.$  *ͨ:] MC2O2P*"R:2X2Q!"T"2:O2|Y"V\*T#"TiX*T+"T^$C:Q2QÆ*V*R}o|g0:Q2Q":Q®\2h\<®GC:Q2Q2:O2|Y"V\GC*T+"T}*V\<GC:Qp":|2O:h2PͨͲͭ:X_ý:P2h\<ͨ%" .OP The Vignere Tableau _____________________________ 'CSIZE% = 174 169 MAX.STATIONS% = 4 : MAX.SATELLITES% = 10 170 REM ----------------------------------------------------------------------- 180 GOSUB 2650 : REM *** REINITIALIZATION FOR MULTIPLE PASSES *** 200 REM ----------------------------------------------------------------------- 210 PRINT CHR$(26): REM *** SIGNON HEADER AND DISCLAIMER *** 220 PRINT " AMSAT ORBITAL PREDICTION PROGRAM" 230 PRINT " Written by Dr. Thomas A. Clark, W3IWI" 240 PRINT " Converted for use with the IBM Personal Computer by:" 250 PRINT " Robert J. Diersing, N5AHD" 260 PRINT 270 PRINT " Copyright (c) 1980 by:" 280 PRINT " Dr. Thomas A. Clark, W3IWI" 290 PRINT " 6388 Guilford Road" 292 PRINT " Clarksville, MD 21029" 294 PRINT 296 PRINT " Permission granted for non-commercial use providing credit is given" 298 PRINT ORBIT BASORBIT TXT 10 REM ------------------------------------------------------------------------ 20 REM ******** ******** 30 REM ******** AMSAT ORBITAL PREDICTION PROGRAM ******** 40 REM ******** Written by: Dr. Thomas A. Clark, W3IWI ******** 50 REM ******** Converted for use with the IBM Personal Computer by: ******** 60 REM ******** Robert J. Diersing, N5AHD ******** 70 REM ******** May 31, 1982 ******** 80 REM ******** ******** 90 REM ------------------------------------------------------------------------ 92 REM ******** The subroutines equivalent to the functions used in ******** 93 REM ******** original North Star version of this program can be ******** 94 RE " to the author, AMSAT and ORBIT Magazine." 300 PRINT CHR$(7) 320 REM ----------------------------------------------------------------------- 830 REM *** SET STARTING DAY/TIME, DURATION, STEP SIZE, AND INITIALIZE *** 832 PRINT : PRINT TAB(28);"To continue press return "; : INPUT DUMMY$ 833 IF DUMMY$ = "END" OR DUMMY$ = "EOJ" THEN STOP 834 PRINT CHR$(26): PRINT TAB(25);"INITIALIZE STARTING PARAMETERS" : PRINT 836 INPUT " START DATE: Year = ",Y 838 Y = Y / 100 : Y2 = INT(100 * (Y - INT(Y)) + .1) 840 IF Y2 / 4 = INT(Y2 / 4) THEN F9 = 1 ELSE F9 = 0 850 INPUT " Month = ",MONTH 852 INPUT " Day = ",DAY 880 REM *** CALCULATE D8 = DAY#, MONTH #13 = JANUARY OF NEXT YEAR *** 890 RESTORE 2480 : FOR I% = 1 TO MONTH : READ D9 : NEXT I% : D8 = DAY + D9 900 IF M > 2 THEN D8 = D8 + F9 902 PRINT " Julian = "; : PRINT USING I1$;D8 910 INPUT " START UTC: Hours = ",H 920 INPUT " Minutes = ",M : T7 = D8 + H / M ******** found at the line numbers indicated. ******** 95 REM ******** ******** 96 REM ******** FNA(X,Y) at line 10040 - FNC(T) at line 10146 ******** 97 REM ******** FNO(D) at line 10550 - FNX(T) at line 10660 ******** 98 REM ******** FNM(T) at line 10345 - FNK(M) at line 10400 ******** 99 REM ------------------------------------------------------------------------ 120 DEFDBL A-Z : REM *** DEFAULT ALL DOUBLE PRECISION *** 130 DIM T$(20),S$(40),I$(40),C(3,2) : P = 0 : REM *** P = PAGE COUNTER *** 140 DIM C1$(50),X(4,9) : REM *** PLACE HOLDERS FOR STATION NAME / COORD *** 150 DIM S(10),T1$(20) : REM *** PLACE HOLDERS FOR MULTI-SATELLITE LOOP *** 154 I1$ = "###" : I2$ = "##/##/##" : I3$ = "##:##" 156 I4$ = "###.########" : I5$ = "##." : I6$ = "+###.##" 157 I7$ = "#####" : I8$ = "+#.########" : I9$ = "####.########" 158 I10$ = "##:##:##" : I11$ = "###.##" 168 STATION.RECSIZE% = 143 : ELEMENT.RE