IMD 1.16: 29/05/2007 12:32:08 FOGCPM.036 ååååååååååååååå--FOGCPM036ARROWK1 COM^ ARROWK4 COM`ARROWKIICOM^ !"#$%&ARROWS PASR'()*+,-./01AUTOBOOTCOMM23456789:;AUTOBOOTPASA<=>?@ABCDBARGRAPHCOM€EFGHIJKLMNOPQRSTBARGRAPHCOMQUVWXYZ[\]^_-06-00 86 `BARGRAPHDOC;abcdefghDBASTIMECMD ijDBASTIMEASMBklmnopqrsDBASTIMEHEXtKPBROWSECOM[uvwxyz{|}~€KPBROWSEDOC�‚ƒ„KPBROWSEPASA…†‡ˆ‰Š‹Œ�KPVIDEO PASŽTIME COM�TIME ASMM�‘’“”•–—˜™KPPRTLSTCOMkš›œ�žŸ ¡¢£¤¥¦§KPPRTLSTDOC¨©ª-CPM036 DOC«¬­åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååThis is the disk name. e call putchr lda memcon+8 call putchr lda memcon+9 call putchr ; ; ; ********************************************* ; EXIT: ; ********** EXIT ROUTINE ******************* lxi d,endmsg mvi c,printf call bdos lhld oldsp sphl ret ; ********************************************* ; ; ; ****************************** ; SEND CHAR TO CONSOLE ; *********ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååÃÉÍ«Copyright (C) 1984 BORLAND Inc‚AKaypro II and IV P= ERC1B1~·7È#õå~Íáñ=ÈóÍ% ÉÅÕåÝåýåõo&åͦñýáÝááÑÁÉoåͦÉþ€Ü�Ô©æîÅÕåÝåýåÍ£}Ùå!å!"8áãõÅÕ~#·(åÍáôÑÁñãÉ}´È:$‡‡‡ããããÅÒÁ= ô+èÍÐØ*ÎßõÅÕå!¨ÍZ!¢ÍÐ*ºÔBáÑÁñÉõÅÕå!´éõÅÕå!®àõ:¼·(ÅÕå=2¼!ÈÍZáÑÁñÉõ:¼· ÷ÅÕå<2¼!ÂåõÅÕå!¼ÛõÅÕååð!‹í°Ñ:žO:œ‚ÕÍÑ:ŸO:�ƒÍ!ðÍÐ* ÍBáÑÁñÉ!ð ë!›45(É!.+/ –0ü†õyþ0(ñíÉ d!kÃZ!{ÃZ͈æ͈o&Éô  áÁå:á·(yþ ÕÅÍ |µ(Íþ ÍþÊÅÁÑ*é"ÛÕx2áy·( >Ã28!?"9!É í°!á¸í°áí°>2گà Ã:ÃDÃ]ÃSÃXÃNÃ]ÃDÿ í[Ûþ (ú!eÍ}Í„þA8þQ0Gþ: xÖ@¯!\w# ( þ  ÍyÍVþ. ÍV!h6#ûÉ (þ*(þ.(þ!8þ}(þ*(Í„w#ßÉ>?> w#üÉþaØþ{ÐÖ É|Í’}õÍ›ñæÆ�'Î@'Ãè¯7Ë|À|·}È>ÿÉ"ÍíCß"í6#ûëÑùü "Ïë"ÕÍ�Í©éå*Ï·íB"Ïí[Í·íRëáÚ5í°É*Ïí°"ÏÙÉ^#V#Õ^#V#N#FáÉÝáëO/o&ÿ9ùëí°ÝéÑO/o&ÿ9ùëí°éÝáë!àÿ9ùëÅ(¯üí°Á> �‘(G¯üÝéÝá!àÿ9ù ¯w#üÝéÝáEÍŠ¶wÝéÝáÑ}“8÷�Ãu·íR·íB0 É>‘î·íRëê@ðøÉÕë·íRëáë·íR!È+Éͨ õÍz ð·íR!À+Éͨ õÍz ðÍ<!Ð+Éͨ õÍz ðÍ<!ÈØ+Éͨ ôÍz ïÍ<!ÈØ#Éͨ ôÍz ïÍ<!Ø+Éͨ õÍz ðT]KBë!z·> S>)ë)ë0 = öÉ|ªõÍJëÍJëDM¯go>íjíB0 7?ËË= ðëñðHåÍ\Ë<ËÑëÍÞëËzÈ5Í+È)ýÉÍ+ÈË<ËúÉëz· {þ0G·É¯goÉë|ª|úHºÀ}»ÉÉË|È|/g}/o#É}æo&ÉíKÓí[ÑÅÕxAJSËËËËáëáíJDM!éb"Ñë!6íJ"ÓDMÉ'ͬèͬdͬ ͬ} ¯<íR0û= ÈÆ0ÝwÝ#ÉÝ~Ö$O! Ý#Ý~Í„Ö08)þ 8 !Öþ 8þ0T])Ø)Ø T]Ø)Ø_ØËy·È|‡ÉÝááå}&#9N�8wë!DíB9ùëåí°ëá+Oí¸ë#ùÝé>ÃwÝáͦWáͧ _áå}“8(º8J`9{‚T]=o`9yí¸ë ¯ÃwÍÖ Ð>ÃuÍJ õÍuÍ` íÙ}·Ù>(è; àÙËxÙÂQ Ù}·ÙÈÙÅÕåÙ}· Ù˸TÅËø¯ÙËø}Ù•(0íD=ÙÍC ,= ù(Ùñæ€ Í[ 0%ÍD ·, 7 Í� ?õ(8ÙÍu Ëx ÍO - öÍ; ñ8˸·ÙáÑÁÙÉÙËxÙÂÝ ÍX ÍÝ Ø,-Èxî€GÉÙ}·ÙÊ; }·ÈÙ…ÙÍ ÅÕåÝ9Í; Ù.Ù>Ý#ÝnË0Í[ ÍD = ñÙ-Ù åÝnûËx ÍP ,-(-ñññ·ñÙÁáÙÝá˸°G,-Ì; É}·ÈÙ•Ù?Í åååÝ9Ù.Ù>Í� 8Íu ?Ë= ÝuÝ+Ù-Ù(>ÍO 0ßÍu ·áÍO 8Í� ?áÑÁËx ÍP š, —7•8Æ€8Æ€8oÝãÙåÅxËøÙ¨æ€õËøÝåÝ!ÉáØ¯oGOW_gÉ·ËËËËËÉ·ËËËËËÉ|Ù„Ùg{Ù‹Ù_zÙŠÙWyÙ‰ÙOxÙˆÙGÉ|Ù”Ùg{Ù›Ù_zÙšÙWyÙ™ÙOxÙ˜ÙGÉxÙ¸ÙÀyÙ¹ÙÀzÙºÙÀ{Ù»ÙÀ|Ù¼ÙÉÙxÙ¨ò² xÉËx(ͼ È?É}Ù½ÙÀ·ÈÃ� }Ö�Ú; <þ(ÐÙÅÕåÍ; 7ÍD = ùÙ|Ù¤Ùg{Ù£Ù_zÙ¢ÙWyÙ¡ÙOxÙ ÙGÃD ÙÅÕåÙÍuÙÍÆ ÙÍJ ë}·ÈËx>ÂuÍu}Æ€Ë/Æ€oÖõÙÅÕå; ÍÖ -ÅÕåÍJ }áÑÁÙáÑÁã¼ã0ãñÙÉÙÍW-ÍJ ÙÍW,Ù}þlØÅ˸ͨ Á8 ; Íý Í` Ëx(ÍÖ Ù-Ùͨ õ8ÍJ Ù-Ùͨ 8Ù,ÍJ }þl8;Ùª*ªª!ªÍ` ÝåÝ!Ð >ÍýÝáÍuÍ` Í` ÅÕåÙÍu--Ù-ÍÖ ÙáÑÁÙÍJ ,,ñ,-ÈØxî€GÉgª?+2×n¶*ï8t Ð Ðzˆˆˆˆ~«ªªªª,->ÊuËxÂuÙÍaÙ}.�•õ; ÙÍOÙÍJ ÅÕåÙ,ÍÖ ÙáÑÁ; ÝåÝ!U >ÍýÝá,ÙÍk-ÙÍÖ ñÅÕåo&0%ÍÑÙ,Í` ÙáÑÁÍÖ }þgÚ; É}Š�؉}颋.:}Žã8Žc~I’$I~ÍÌÌÌL«ªªª*ÙÍkÙ·Ëxõ˸; }þˆ0GÅÕå,Í™åË<Ë}áõÍÑ,-(-ÙñáÑÁõÍJ ÝåÝ!Ù >ÍÝáñ0 õÙÍaÙÍ` ñ…o8 ñÈÙÍOþ á>Ãum.`1pF,þåt6|‰„!wS<ÿÃ.zÒ}[•|%¸FXc~üïýu€Ò÷r1}·ÈÝåÙÍOÙ¯Ëx(<˸õͨ 8Ù; ñËÿõÙÏŽé!~JÙͨ 0Í÷OÝ!—>ÙÝÍ<Ùͨ 8 = ìÙ ÝÙÙÍ7ËøÍÖ ÅÕåÍ<Í` ÙÍOÍÖ ÙáÑÁ; ÝåÍ÷ÝáÙÍ7ÍÖ ñ0 õÙÍW-ÍJ ñÝáËOÈËøÉçÏÌTöô¢0 jÁ‘ €µžŠoD€‚,:Í€jÁ‘ �€!¢ÚI}袋.º}Žã8Žc~I’$I’~ÍÌÌÌL«ªªªªÝ!Ó>ÅÕåõÍuÍ` ñÍÙáÑÁÃ` õÙÍ7õÙÅÕåÍ7ÍÖ ÙáÑÁÙÍ` ñ= éÙÍOÃÖ ÝÝnÝfÝ^ÝVÝNÝFÉ!�DLT\ÉI¢Ú!‚!É53ó!�úÉr1÷!€ÒÉÅÕåÙáÑÁÉÍ\!€> Ëx Ë#ËËË-= ðo˸ÉËxÙÍO(Ëø-ÍÖ ·Ë}(ËxËø>�½8(ÍC ,óÍC `iÈÃM!É>’Ãu|µÊ; Ë|ÍJ>�Ë| )=Ë|(úDMboÀ˸Éͦë8þ8ͦÙËxÙ(’0¯þ 8> ÕÍMÑËx(>-ͲË{(aËy(Ͱͦ ò\z·(>.Ͳ (Ͱ ÷ú~ͦ÷Ë{È>EͲ>+Ë|(|íDg>-Ͳ|/Ö 0ûÆ:ÝpÝ# ý~ý#· ý+>0ÝwÝ#Éýå,-  ý60ý#ø¯ÃJÅ˸}ÙÖ€oŸgMÍÄ|þÙ <ýwíDÍ }þ�0Í€ý5Ëø>„•.(ÍC Ë= øý~õ> xæÆ0ýwý#xæGÅÕåË%ÍP Ë%ÍP ëãÑãíZëáãíJDMáË%ÍP = ÈñÁýáÉýåá_~6þ5Øúi+~¨¥Ôh¶¿ÉìÅëx-ÐÍÎÂSÞùx9?ë+¨­ÅøÉ{Η@}·ÈËøÅÕ|ÍC ÍC „gãíZëáãíJDMá0ÍD ,7È}Æo˸ÉÍ ¾ #øyîO!@9ùi&ÝéÍ  ë¶¾ â#÷ÚÍ ¶w#ùëùÝéÍ /¦w#øïÍ ¦w#ùãýáÝá!9ë! E9ýéÝá!!9~·(¯+FÍŠ¦!"9ù!(#Ýé>¯2æýá*ÛͲ¯á"âýå|·>"Ê :æ·( ͆ *â6#wÉÍ÷*â6#6 ë!\$í°É!¶Ååí[Ûþ (úÍ„–( áÁã·É#ëÁÁþ:À~ÉCONTRMKBDLSTAUXUSR>¯2æÍîÍ$*â#~þ ͶÍ$*â:æ·> >w###6ÀÃÖþ þ #6++pÉ>¯2æíSäÍ-Í$Ͷ:Ù·À*â6###ww#w$w#wÖÿ:æ· åÍôá##N#F*ä·íBÈ>�à å¯w#w#í[äs#ráÃó>¯2æÍSÍ$ͶÍ$*â6å ë#Íá-¯Nw#FwÖÿq#p#6€#w#w#wÉÍß*â ë:æ·( ÕÍÑñÅÍÁ<Àxà *â6#ûÉ"â#~+þ 2ËN(>Í’:Ù· *âË^ îËFÈ*âå ëÍá< >ÿ2Ù6É"â~æÈÍŸ*â-¯w#wÕÿw#ÍóÍŸÀ"â~æÈ·ÍÀ ëÍ<À@ýá*ÛͲ¯áýåÍÀåÍ÷áåë!\ í°á åëÍÑ<Ê®!\$í°É>à >¯2æÍÀ*ß|µ>! ë*â \$í°\Í<(Ï!ý€í°:æ· í[1Ã�ÿÕÍ\ÍÑ!€ë·(éf"âÍÂÈ> 2ÙÉ:Ù·ÈñÉÝáÝåå!ÊÍ<áÉÝáÝå"âËF( #~þÀ#6Ãe>Îå!ÊÍ[áÉ"âËNÀ>ë!Ú~þ€8>O6*Û"ÝÍwþ (=þ(&þ("þ(þ :á·(ßÃNþ 8Øyº(Ô~#ÍèÌúx+Í% (½ï6Éå*â#~þáÉÍÂÈÍ[þÈÅÕå*â#~· *Ý~þ(h#"Ýb= Íõþ 8Íèþ ÌáñJ= ÍB== ͯ}8= ͵}/Í­ !*â###å~Æ-_~áþ(4òQ6*âËÖ>™2Ù>*â##wáÑÁÉ:Ù·>Àå*â##~áÉå*â#~þÿ(EÍÌÍ[þ ( þ (þ (þ ÍÖè!]Í[þ (þ (þ (þ(w#(ÍÖãÍÂÌÖ6áÉÝ!]Ý~·Èþ-ÀÝ#É8Ý~·È>7à ëÍ Í[ÃÖÍÖÉ>¯OÅÍkÁͼÈÅåÍÁÑÁÍÎØÌMës #rëÉÍkͼÈÅåÍpÙáÁÍÎØÙÌX ÙáåÍÌÍ[þ ÍÖôÍ[þ (þ( #w(ÍÖêÍÂÌÖáqÉ*â#~þÊáÍ[þ (þÈÍÖñÍ ÍÖþ ÀÃÖ*â##~þÈ6ÉÅÕåÍœáÑÁÉOÍ$*â#~þ(08áÅå·Ê¦=ʦ==Ê©=ʬò+ËÞ###å~Æ-_qá4ð6Í¡È>ðà *æ:è¾È4^qÉ}Ã’ÁÑÅÝ*ÛË|(ÍMëëË|( ÍMÝ6-Ý#ÕÍ�áͦí[ÛÝåá·íRë“8 (G> Í’ùCÈ~Í’#÷ÁÑÙáÑÁÙÅÝ*ÛÕÍôÇÁÑÅͦËC!h Ç!lÀTRUEFALSEͦ!9^#Í(ÑùÕÉá~#·(G~Í’#ùé> Í’> Ã’ "âËF!ÈÍ[¸(þÀ#ÉåÍRë·íRá0Íô*â4À#4É>™Ã åÍR·íR *â4 #4(áÍóÒ>òÜ>¯2çÍ$ë*âËV(/Ë–:ç·(#~+· x· y·ú2ÅÕ!͵ÑÁ( =(þ X:ç·(R*â:ç·(ËÞ###~Æ-Õ_ÑÖ-ÍŒí âX<òN=<ÍŒ*â###æw ÅÕåÍŸáÑÁ Õ*Ñ4 #4x±ÂüëÉ>™>ðà õ:ç·(ëñÉ"âÍŸÈè"*âËÖË^ÈËž*âËVÈË–åÅ0ëÍÁá ëÍ·ÉÁÑíSâÅåÍRÑ·íR8A*â N#F#s#rÍ$ 0}æ)ëíjëS\*â###w* N#Fë·íB ÈÕåÍŸÑár+sÉ>‘à ÕÙáÙ!T]>)ëíjëÙ)Ù0 0= ïÉÍU·íR!À#ÉÍUëÉ*â^#V#ÕN#F#^#VáÉ>">!2çDMÝáÑáÝå"â~æÊóx±(LÅÕÍ*â ë:çOÍÑÁ·(o:çþ" C}=(þ ?ÅÕ*â-N#Fp+qÛÿq#pÑÁ!€ë °*â F+N+++V+^ë·íBÐëq#pÉ>™>ð>à ÁÑíSâÅåÍRÑ·íRÚ*â s#r$ s#rÉ"äíSæëá"â! N#Fë·íB(^x± *â 6#ûí[âÍ<(H*â! íKäq#p##ëíKæÅÕÍí[â!Í· *â! 4 #4Ñ!€ëÁ x± Õ*â$ éÝ*â>ðÃw"òëáã"ô{æü_!í"ëÝ*íÝnÝf}´(HíR0ÝnÝfåÝ"ëÝáã Ý^ÝVÝåMDÝnÝfÝåÝÝuÝtÝqÝpÝåÑ*ës#rÑ*ôs#rÉÝåá"Í*ò ÝåÁ Ú5íKÏíB!Úð>ÿÃuëáã~#fo{æü_ë"ò*íåÝá·íR0RÝnÝfå·íR0ÝáðáÕýáíKòýqýpýuýtÝsÝrÝåáÝNÝFÍÄ( Ý^ÝVÕÝáÝåáÝNÝFÝ^ÝV*ííSíÕÝáÝuÝtíKòÝqÝpë ·íRÀÕýá*Í·íR(ý~Ýwý~Ýwýnýf ÝuÝt¯ÉÝåá"Í6#ûÉÍ *öÉÍ *øÉ!"ö"øÝ*íÝNÝFy°(*ö "ö*ø·íB0íCøÝnÝfåÝáØ*Ïûÿ í[Í·íRØë*ö"ö*ø·íRÐíSøÉí[Ís#rÉ^#VíSÍÉ>¯O"æ¯w2Ùx2è!ê"âá"äá ÍöÍ@*äé>¯2ê"æ!ê"âá"äá"è!\Ͳ¯*è:ê· ÍîÍ!Ù~6·go(Ýåá\íRë*æs#r¯ÿí_2ÔÉëÝáÁáx±( s x±(T]í°ÝéDMÝáÑá·íR0ð ë ëí¸ÝéÑÁÕ-a%ÃÆ}Í„oÉ*é!Ù~6o&ÉÍ |µÈÍ£}þÀÝáÍ%^C User break1:Ù·ÈÝáõÍ% I/OÝáÍ% Run-timeÍ% error Í’Í%, PC=Ýåáí[Õ·íR"×Í�Í% Program aborted*ßé1!€£¸ÿÍ�!–/7£ͲÃo"Ãú0123456789ABCDEFýáá}2W£ýåÍ00h!O£Í²!O£å!Ñå!êå*W£&å!ÑÍÞÑn&ëás!O£å!Ñå!êå*W£&å!ÑÍÑn&ëás!O£Í ÍR!Íq! ÍòÍbÉýáá}2N£ýå*N£& ·íR·íBÒ´ ÍRÍ�CTRL-*N£&å!@ÑÍò! ÍòÍbÃ8!  ·íRÂÒ ÍRÍ�SPACE ÍbÃ8!!]·íR·íBÒù *N£&ÍRÍò! ÍòÍbÃ8! ·íRÂ!ÍRÍ�DEL ÍbÃ8!~·íRÊ/!€€·íR·íBÒ8!*N£&åÍçÉýá!E£Í²ýå!å!ÑÍ5z³Êr!Õ"\£!E£å*\£Ñn&åÍq *\£#ÑÃP!ÍRÍ�ÍbÉýáá";£á"=£á"?£ýå*?£n&å!ÑÍNËEÊ«!*=£Í Í9!õ!*?£n&åÍq ÍRÍ� New definition: ÍbÍ*=£Í²*;£å!ÑÍ›ËEÊC"!ë*?£s!å*;£ÑÍ5z³Ê@"Õ"\£!¾Í8!^£ÍÛÍb*^£&åÍq *=£å*\£Ñå*^£&ëás*\£#ÑÃ"Ãe"!¾Í8!^£ÍÛÍb*^£&åÍq *^£&ë*?£sÍRÍ�ÍbÉÍRÍ�ÍbÍRÍ�0Current settings of the vector pad (arrow keys).Í�ÍbÍRÍ�Íb!Cñn&}2{£*{£&å!ÑÍNËEÊ;#Í!_£Í²!å!ÑÍ5z³Ê-#Õ"\£!`ðå*\£Ñn&}2^£!_£Í *^£&e.åÍ!_£Í²*\£#ÑÃñ"!_£Í !s£Í²ÍRÍ� Up arrow = Íb*{£&å!ÑÍNËEÊq#!s£Í Í9!÷#*{£&å! ÑͯËEʦ#ÍRÍ�CTRL-*{£&å!@ÑÍòÍ�Íb÷#ÍR*{£&ÍòÍ�Íb!Dñn&}2z£*z£&å!ÑÍNËEÊ4$Í!_£Í²!å!ÑÍ5z³Ê&$Õ"\£!dðå*\£Ñn&}2^£!_£Í *^£&e.åÍ!_£Í²*\£#ÑÃê#!_£Í !n£Í²ÍRÍ� Down arrow = Íb*z£&å!ÑÍNËEÊv$!n£Í ÍR!ÍqÍ�Íbü$*z£&å! ÑͯËEÊ«$ÍRÍ�CTRL-*z£&å!@ÑÍòÍ�Íbü$ÍR*z£&ÍòÍ�Íb!Eñn&}2y£*y£&å!ÑÍNËEÊ9%Í!_£Í²!å!ÑÍ5z³Ê+%Õ"\£!hðå*\£Ñn&}2^£!_£Í *^£&e.åÍ!_£Í²*\£#ÑÃï$!_£Í !i£Í²ÍRÍ� Left arrow = Íb*y£&å!ÑÍNËEÊ{%!i£Í ÍR!ÍqÍ�ÍbÃÁ%*y£&å! ÑͯËEʰ%ÍRÍ�CTRL-*y£&å!@ÑÍòÍ�ÍbÃÁ%ÍR*y£&ÍòÍ�Íb!Fñn&}2x£*x£&å!ÑÍNËEÊ>&Í!_£Í²!å!ÑÍ5z³Ê0&Õ"\£!lðå*\£Ñn&}2^£!_£Í *^£&e.åÍ!_£Í²*\£#ÑÃô%!_£Í !d£Í²ÍRÍ�Right arrow = Íb*x£&å!ÑÍNËEÊ€&!d£Í ÍR!ÍqÍ�ÍbÃÆ&*x£&å! ÑͯËEʵ&ÍRÍ�CTRL-*x£&å!@ÑÍòÍ�ÍbÃÆ&ÍR*x£&ÍòÍ�ÍbÍRÍ�ÍbÍRÍ�Change? (y/n) Íb!¾Í8!^£ÍÛÍb*^£&Í(åÍQ!YÍa!NÍaÍËEÊç&*^£&ÍRÍòÍ�Íb*^£&Í(å!NÑÍNËEÊB'ÍÅÇ/ÍRÍ�0Please select one of the following (? for help)-Í�ÍbÍRÍ�ÍbÍRÍ� 1. CP/M setÍ�ÍbÍRÍ� 2. WordStar setÍ�ÍbÍRÍ� 3. Perfect Writer setÍ�ÍbÍRÍ� 4. Design your ownÍ�ÍbÍRÍ� 5. Abort - no changesÍ�ÍbÍRÍ�ÍbÍRÍ�Your selection: Íb!¾Í8!^£ÍÛÍb*^£&Í(åÍQ!1Ía!2Ía!3Ía!4Ía!5Ía!AÍa!?ÍaÍËEÊL(*^£&ÍRÍòÍ�Íb*^£&Í(1·íRÂ)!Cñå! ëás!Dñå! ëás!Eñå!ëás!Fñå! ëásÍRÍ�CP/M set installed:Í�ÍbÇ/2·íRÂ_)!Cñå!ëás!Dñå!ëás!Eñå!ëás!Fñå!ëásÍRÍ�WordStar set installed:Í�ÍbÇ/3·íR¾)!Cñå!ëás!Dñå!ëás!Eñå!ëás!Fñå!ëásÍRÍ�Perfect Writer set installed:Í�ÍbÇ/4·íRÂH-ÍRÍ�ÍbÍRÍ�9Entering a '0' will leave that arrow definition the same.Í�ÍbÍRÍ�ÍbÍRÍ�%Length of Up arrow definition? (1-4) Íb!Z£Í+ÍîÍ_Íb*Z£å!ÑÍNËEÊq*Ãß*ÍRÍ�Current up arrow = Íb!{£å!s£å*Z£åÍ|!!Cñå*{£&ëás!å!ÑÍ5z³Êß*Õ"\£!`ðå*\£Ñå!s£å*\£Ñn&ëás*\£#Ñô*ÍRÍ�ÍbÍRÍ�'Length of Down arrow definition? (1-4) Íb!Z£Í+ÍîÍ_Íb*Z£å!ÑÍNËEÊ;+ë+ÍRÍ�Current down arrow = Íb!z£å!n£å*Z£åÍ|!!Dñå*z£&ëás!å!ÑÍ5z³Ê«+Õ"\£!dðå*\£Ñå!n£å*\£Ñn&ëás*\£#ÑÀ+ÍRÍ�ÍbÍRÍ�'Length of Left arrow definition? (1-4) Íb!Z£Í+ÍîÍ_Íb*Z£å!ÑÍNËEÊ,Ãw,ÍRÍ�Current left arrow = Íb!y£å!i£å*Z£åÍ|!!Eñå*y£&ëás!å!ÑÍ5z³Êw,Õ"\£!hðå*\£Ñå!i£å*\£Ñn&ëás*\£#ÑÃL,ÍRÍ�ÍbÍRÍ�(Length of Right arrow definition? (1-4) Íb!Z£Í+ÍîÍ_Íb*Z£å!ÑÍNËEÊÔ,ÃE-ÍRÍ�Current right arrow = Íb!x£å!d£å*Z£åÍ|!!Fñå*x£&ëás!å!ÑÍ5z³ÊE-Õ"\£!lðå*\£Ñå!d£å*\£Ñn&ëás*\£#ÑÃ-Ç/5·íRÊ\-A·íRƒ-ÍRÍ�Aborted - no changesÍ�ÍbÍÅÇ/?·íR‡/ÍRÍ�ÍbÍRÍ�Arrow CP/M WS PWÍ�ÍbÍRÍ� set set setÍ�ÍbÍRÍ�ÍbÍRÍ�Up ^K ^E ^PÍ�ÍbÍRÍ�ÍbÍRÍ�Down ^J ^X ^NÍ�ÍbÍRÍ�ÍbÍRÍ�Left ^H ^S ^BÍ�ÍbÍRÍ�ÍbÍRÍ�Right ^L ^D ^FÍ�ÍbÍRÍ�ÍbÍRÍ�IEntering the number of the corresponding set, will install the definitionÍ�ÍbÍRÍ�G set above. Entering '4' will allow you to enter your own definitions,Í�ÍbÍRÍ� up to four characters per key.Í�ÍbÃB'ÍRÍ�Íbþ"ÃÅ Entering '4' will allow you to enter your own definitions,Í�ÍbÍRÍ� up to four characters per key.Í�ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååÃâ Í«Copyright (C) 1985 BORLAND Inc¡BKaypro with hiliteedP=  E RC1B1~·7È#õå~Íèáñ=ÈóÍ ÉoåͦÉþ€ÜkÔ„æîå!îå!è"áãõÅÕ~#·(åÍèáôÑÁñãÉ}´È:$‡‡‡ããããÅÒÁ= ô+èÍÐØ*ÎßõÅÕå!¨Í5!¢ÍÐ*ºÔáÑÁñÉõÅÕå!´éõÅÕå!®àõ:à·(ÅÕå¯2à!ÈÍ5áÑÁñÉõ:àþÿ(öÅÕå>ÿ2à!ÂãõÅÕå!¼ÚõÅÕååð!‹í°Ñ:žO:œ‚ÕÍÜÑ:ŸO:�ƒÍÜ!ðÍÐ* ÍáÑÁñÉ!ð ë!›45(É! +/ –0ü†õyþ0(ñíÉ d!kÃ5!{Ã5Í_æÍ_o&Éô  áÁå:Ý·(ÕÅÍ |µ(Íáþ ÍáþÊÔ ÁÑ*é"Òx2Ýy·( >Ã28!û"9!¥ í°!½¸ í°¯og2Ð"Ô"Ö>~2Ñ2àÉÃà Ã9Ã/Ã4Ã*Ã9à Á‚CÄÅÁÅÕåÝåýåõo&åͦñýáÝááÑÁÉÅÕåÝåýåÍ£}ëÿ í[Òþ (ú!eÍ{ͦþA8þQ0Gþ: xÖ@¯!\w# (Í‚ þ?(þ*( þ.( ÍwÍ^þ. Í^!h6#ûÉ (þ?( þ*( Í‚( w#éÉ>?> w#üÉͦþ 8 åÅ!˜í±ÁáÉ¿É .,;:=?*[]<>{}þaØþ{ÐÖ É|Í´}õͽñæÆ�'Î@'Ãɯ7Ë|À|·}È>ÿÉ2ØÅͯÁ*·íBÚ¨ ëÑùü "Ưog"Î2Ü>Ã2Ù!Þ "Úë"Ìéå*Æ·íB"Æí[Ä·íRëáÚuí°É*Æí°"ÆÙÉ^#V#Õ^#V#N#FáÉÝáëO/o&ÿ9ùëí°ÝéÑO/o&ÿ9ùëí°éÝáë!àÿ9ùëÅ(¯üí°Á> �‘(G¯üÝéÝá!àÿ9ù ¯w#üÝéÝáEͺ¶wÝéÝáÑ}“8÷�Ã' ·íR·íB0 É>‘Ã' ·íRëêqðøÉÕë·íRëáë·íR!È+ÉÍß õͰ ð·íR!À+ÉÍß õͰ ðÍr!Ð+ÉÍß õͰ ðÍr!ÈØ+ÉÍß ôͰ ïÍr!ÈØ#ÉÍß ôͰ ïÍr!Ø+ÉÍß õͰ ðT]KBë!z·> S>)ë)ë0 = öÉ|µÊ |ªõÍ€ëÍ€ëDM¯go>íjíB0 7?ËË= ðëñðHåÍ’Ë<ËÑëÍëËzÈ5ÍaÈ)ýÉÍaÈË<ËúÉëz· {þ0G·É¯goÉë|ª|ú~ºÀ}»ÉÉË|È|/g}/o#É}æo&ÉíKÊí[ÈÅÕxAJSËËËËáëáíJDM!éb"Èë!6íJ"ÊDMÉ'ÍâèÍâdÍâ Íâ} ¯<íR0û= ÈÆ0ÝwÝ#ÉÝ~Ö$O! Ý#Ý~ͦÖ08)þ 8 !Öþ 8þ0T])Ø)Ø T]Ø)Ø_ØËy·È|‡ÉÝááå}&#9N�8wë!DíB9ùëåí°ëá+Oí¸ë#ùÝé>Ã) ÝáÍÈWáÍÝ _áå}“8(º8J`9{‚T]=o`9yí¸ë ¯Ã) Í Ð>Ã' Í� õͬÍ— íÙ}·Ù>Ê' Íõ ßÙËxÙˆ Ù}·ÙÈÙÅÕåÙ}· Ù˸TÅËø¯ÙËø}Ù•(0íD=ÙÍz ,= ù(Ùñæ€ Í’ 0%Í{ ·, 7 ÍÆ ?õ(8Ùͬ Ëx ͆ - öÍr ñ8˸·ÙáÑÁÙÉÙËxÙ Í� Í Ø,-Èxî€GÉÙ}·ÙÊr }·ÈÙ…ÙÍM ÅÕåÝ9Ír Ù.Ù>Ý#ÝnË0Í’ Í{ = ñÙ-Ù åÝnûËx ͇ ,-(-ñññ·ñÙÁáÙÝá˸°G,-Ìr É}·ÈÙ•Ù?ÍM åååÝ9Ù.Ù>ÍÆ 8ͬ ?Ë= ÝuÝ+Ù-Ù(>͆ 0ßͬ ·á͆ 8ÍÆ ?áÑÁËx ͇ š, —7•8Æ€8Æ€8oÝãÙåÅxËøÙ¨æ€õËøÝåÝ!ÉáØ¯oGOW_gÉ·ËËËËËÉ·ËËËËËÉ|Ù„Ùg{Ù‹Ù_zÙŠÙWyÙ‰ÙOxÙˆÙGÉ|Ù”Ùg{Ù›Ù_zÙšÙWyÙ™ÙOxÙ˜ÙGÉxÙ¸ÙÀyÙ¹ÙÀzÙºÙÀ{Ù»ÙÀ|Ù¼ÙÉÙxÙ¨òé xÉËx(Íó È?É}Ù½ÙÀ·ÈÃÆ }Ö�Úr <þ(ÐÙÅÕåÍr 7Í{ = ùÙ|Ù¤Ùg{Ù£Ù_zÙ¢ÙWyÙ¡ÙOxÙ ÙGÃ{ ÙÅÕåÙͬÙÍý ÙÍ� ë}·ÈËx>Â' ͬ}Æ€Ë/Æ€oÖõÙÅÕåÍõ Í -ÅÕåÍ� }áÑÁÙáÑÁã¼ã0ãñÙÉÙÍŽ-Í� ÙÍŽ,Ù}þlØÅ˸Íß Á8 Íõ Í4 Í— Ëx(Í Ù-ÙÍß õ8Í� Ù-ÙÍß 8Ù,Í� }þl8;Ùª*ªª!ªÍ— ÝåÝ! >Í4ÝáͬÍ— Í— ÅÕåÙͬ--Ù-Í ÙáÑÁÙÍ� ,,ñ,-ÈØxî€GÉgª?+2×n¶*ï8t Ð Ðzˆˆˆˆ~«ªªªª,->Ê' ËxÂ' Ù͘Ù}.�•õÍõ Ù͆ÙÍ� ÅÕåÙ,Í ÙáÑÁÍõ ÝåÝ!Œ >Í4Ýá,ÙÍ¢-ÙÍ ñÅÕåo&0%ÍÙ,Í— ÙáÑÁÍ }þgÚr É}Š�؉}颋.:}Žã8Žc~I’$I~ÍÌÌÌL«ªªª*ÙÍ¢Ù·Ëxõ˸Íõ }þˆ0GÅÕå,ÍÐåË<Ë}áõÍ,-(-ÙñáÑÁõÍ� ÝåÝ!>ÍIÝáñ0 õÙ͘ÙÍ— ñ…o8 ñÈÙ͆Ãõ á>Ã' m.`1pF,þåt6|‰„!wS<ÿÃ.zÒ}[•|%¸FXc~üïýu€Ò÷r1}·ÈÝåÙ͆Ù¯Ëx(<˸õÍß 8ÙÍõ ñËÿõÙÏŽé!~JÙÍß 0Í.OÝ!Î>ÙÝÍsÙÍß 8 = ìÙ ÝÙÙÍnËøÍ ÅÕåÍsÍ— Ù͆Í ÙáÑÁÍõ ÝåÍ.ÝáÙÍnÍ ñ0 õÙÍŽ-Í� ñÝáËOÈËøÉçÏÌTöô¢0 jÁ‘ €µžŠoD€‚,:Í€jÁ‘ �€!¢ÚI}袋.º}Žã8Žc~I’$I’~ÍÌÌÌL«ªªªªÝ! >ÅÕåõͬÍ— ñÍIÙáÑÁ× õÙÍnõÙÅÕåÍnÍ ÙáÑÁÙÍ— ñ= éÙ͆à ÝÝnÝfÝ^ÝVÝNÝFÉ!�DLT\ÉI¢Ú!‚!É53ó!�úÉr1÷!€ÒÉÅÕåÙáÑÁÉÍ’!€> Ëx Ë#ËËË-= ðo˸ÉËxÙ͆(Ëø-Í ·Ë}(ËxËø>�½8(Íz ,óÍz `iÈÃ!É>’Ã' |µÊr Ë|Í€>�)=Ë|(úDMboÀ˸ÉÍÈë8þ8ÍÈÙËxÙ(’0¯þ 8> ÕÍ€ÑËx(>-ÍåË{(aËy(ÍãÍÙ ò�z·(>.Íå (Íã ÷ú±ÍÙ÷Ë{È>EÍå>+Ë|(|íDg>-Íå|/Ö 0ûÆ:ÝpÝ# ý~ý#· ý+>0ÝwÝ#Éýå,-  ý60ý#ø¯Ã}Å˸}ÙÖ€oŸgMÍõ|þÙ <ýwíDÍ@}þ�0ͳý5Ëø>„•.(Íz Ë= øý~õ> xæÆ0ýwý#xæGÅÕåË%͇ Ë%͇ ëãÑãíZëáãíJDMáË%͇ = ÈñÁýáÉýåá_~6þ5Øúœ+~¨¥Ôh¶¿ÉìÅëx-ÐÍÎÂSÞùx9?ë+¨­ÅøÉ{Η@}·ÈËøÅÕ|Íz Íz „gãíZëáãíJDMá0Í{ ,7È}Æo˸ÉÍ?¾ #øyîO!@9ùi&ÝéÍ? ë¶¾ â#÷ÚÍ?¶w#ùëùÝéÍ?/¦w#øïÍ?¦w#ùãýáÝá!9ë! E9ýéÝá!!9~·(¯+Fͺ¦!"9ù!(#Ýé>¯2èýá*ÒÍâ¯á"âýå|· >"2ÐÉ:è·( Ͷ *âwÉÍò*â6 ë!\$í°É!æÅåí[Òþ (úͦ–( áÁã·É#ëÁÁþ:À~ÉCONÁTRMÁKBD‚LSTCAUXÄUSRÅ>¯2èÍi:зÀ*âË®~æÀÍ0:зÀ*â:è·€€(@q##pÉÍZ*â ë:è·( ÕÍÑñÅÍÁ<Àx2ÐÉ*â6#ûÉ"â~æÀËv( >ÍÆÍ Ë~È*âå ëÍá< >ÿ2Ð6Éã"äãå!Â"âáÉã"äã"âË~À>2ÐÉã"äã"âËvÀ>2ÐÉ>¯ã"äãå!Â"âË®õÍèñ·(ÍááÉ!Ñ~þ8>~O6~*Ò"ÔÍáwþ(6þ(2þ(-þ()þ(6þ (8þ 0þ Ù:Ý·(ÓÝ*äà yº(È~#ÍÉÀúý+Í (±ï(« 6Íá6 #6 #"ÖÉ*â:з y~Ëo pæ .##~·ò—åͺá(å.6á¯w4Æ._~þ =*â##55= *Ôí[Ö·íR8ÿÍê*Ô~#"Ô= Í£}== ͯ}͵}*âËî#w+É#~+É>Éå*â~æþ('Íkþ!0þ(Ë®ñ]ÅÕÍkÑÁþ!8Ë®ï¯áÉÝ!]Ý~·Èþ-ÀÝ#É8Ý~·È>2Ð7ÉåÍkË®áwÉ>¯OÅÍðÁÍ$ÈÅåÍ÷ÑÁÍ6Ø̃ës #rëÉÍðÍ$ÈÅåÍ£ÙáÁÍ6ØÙÌ� ÙÃÑåëÅÕÍkÑÁþ ( þ(Ë® êáqÉÍkþ(Ë®þ ( þ ïÍkþ Ë®É*âO:зÀ~æ ##å~Æ._qá4ð(þ(áÅå=ʦ==Ê©=ʬò*è:ê¾È4^qÉ*â##~·È6ͺÈ>ð2ÐÉ}ÃÆÁÑÅÝ*ÒË|(̓ëëË|( ̓Ý6-Ý#ÕÍÆáÍÈí[ÒÝåá·íRMë‘8( Gå> ÅÍÆÁ÷áAÈ~ÅåÍÆáÁ#óÁÑÙáÑÁÙÅÝ*ÒÕÍ'¾ÁÑÅÍÈËC!¡ ¿!¥¸TRUEFALSEÍÈ!9N#ÍYÑùÕÉá~#·( G~ÅåÍÆáÁ#õé> ÍÆ> ÃÆ   "âË~(ÕÍkÑ»(þ( þ!0 (Ë®è!É!É>¯2èíSæÍz:зÀÍ0:зÀ*â6Ð##ww#w$w#wÖÿ:è· å¯Í á##N#F*æ·íBÈ>�2ÐÉå¯w#w#í[æs#rá>à "â~æÀÈÍ®*â-¯w#wÔÿw##>Í Í®Ã�ã"äã"â~æÀÀ>2ÐÉ:зÀåÍZë·íRá0¯Í *â4À#4É>™2ÐÉ:зÀåÍZ·íR> *â4 #4(>áÍ Èá>ò2ÐÉ2éë*âËf(/˦:éËG(##~++· :éËO x· y·úCÅÕ!ͺÑÁ Q*â:éËG(Ëî##~Æ.Õ_ÑÖ.Íší âf<ò\=<Íš*â##æw ÅÕåÍ®áÑÁ Õ+Ñ4 #4x±Â ëÉ>™>ð2ÐÉõ:éËG(ëñÉ"âÍ®Èæ"*âËæËnÈË®*âåÅ0ëÍÁá ëÍ·ÉÁÑíSâÅåÍZÑ·íR8@*â N#F#s#rÍ, 0}æ)ëíjëS\*â##w+ N#Fë·íB ÈÕåÍ®Ñár+sÉ>‘2ÐÉÕÙáÙ!T]>)ëíjëÙ)Ù0 0= ïÉÍ]·íR!À#ÉÍ]ëÉ*â^#V#ÕN#F#^#VáÉ>¯2èͰ:зÀÍ0:зÀ*â6Àå ë#Íá-¯Nw#FwÖÿq#p#6€#w#w#wÉ"â~æÀÈÃ�>">!DM!ð"æÝáÑáÝåÅÍýÁ:зÀ*ðíBÈ:éþ!>™(>ð2ÐÉ>">!"æÝáÁÑáÝå2é"â~æÀʰ*æ¯w#wx±(9ÅÕÍ*â ë:éOÍÑÁ· Õ*â-4 #4Ñ!€ë*æ4 #4 Ã*â-N#FÚÿq#püÿV+^ë·íBÐëq#pÉÁÑíSâÅåÍZÑ·íRÚ&*â s#r$ s#rÉÍLÀ ëÍ<À?ýá*ÒÍâ¯áýåÍLÀåÍòáåë!\ í°á åëÍÑ<( !\$í°É>2ÐÉ>¯2èÍLÀ:Ø·>!(ë*â \$í°\Í<(Ï!3°í°:è· í[1ðÕÍ\ÍÑ!€ë·(é7"â~æÈ> 2ÐÉ"æíSèëá"âNs#Frë·íB(Zë#\:Ü í°¯üå\ÍÑ<(?*æ"}íKèÅÕÍ\!ÍÑÁ· !*}#"}!€ë x± Û\Í*â éÝ*â>ðÃ) ÍÈþÐ2ÜÉ"ðëáã"ò{æü_!Þ"øÝ*ÞÝnÝf}´(HíR0ÝnÝfåÝ"øÝáã Ý^ÝVÝåMDÝnÝfÝåÝÝuÝtÝqÝpÝåÑ*øs#rÑ*òs#rÉÝåá"Ä*ð ÝåÁ ÚuíKÆíB!Ú0>ÿÃ' ëáã~#fo{æü_ë"ð*ÞåÝá·íR0RÝnÝfå·íR0ÝáðáÕýáíKðýqýpýuýtÝsÝrÝåáÝNÝFÍ( Ý^ÝVÕÝáÝåáÝNÝFÝ^ÝV*ÞíSÞÕÝáÝuÝtíKðÝqÝpë ·íRÀÕýá*Ä·íR(ý~Ýwý~Ýwýnýf ÝuÝt¯ÉÝåá"Ä6#ûÉÍK*ôÉÍK*öÉ!"ô"öÝ*ÞÝNÝFy°(*ô "ô*ö·íB0íCöÝnÝfåÝáØ*Æûÿ í[Ä·íRØë*ô"ô*ö·íRÐíSöÉí[Äs#rÉ^#Vë"Ä"Þ6#ûÉ>¯O"è¯w2Ðx2ê*â"í!F"âá"äá Í&Íy*í"â*äé>¯2ì"è*â"í!F"âá"äá"ê!\Íâ¯*ê:ì· ÍNÍr!Ð~6·go(Ýåá\íRë*ès#r£Æí_2ËÉëÝáÁáx±( s x±(T]í°ÝéDMÝáÑáx±(ôíR0í ë ëí¸ÝéU(Í�ÝáO/o&ÿ9ùq#ë (í°Ýé!€>F¸0#( ~þ (þ #ï]( ~þ (þ (#ï}“(  Õi&TÉÑÁÕ-a%â}ͦoÉ*é!Ð~6o&ÉÍ|µÈ:Ýõ¯2ÝÍ ñ2Ý}þÀÝá:зÈÝá_Ýá_ÕÍzѯ2Ý*Î|µÝåáíKÌíB "η ÕÕåÍÙÑz· Í^C User break+= Í I/OÍ Run-timeÍ error {Í´Í, PC=*ÎͯÍNot enough memoryÍ Program aborted :Ø·ÊŽ'ÃáÑÑé1!€ ÿÍd!¢0# ¡>ÍÔÇ#Ã!0123456789ABCDEFýáá}2S ýåÍM00h!G Íâ!G å!Ñå!!å*S &å!ÑÍÑn&ëás!G å!Ñå!!å*S &å!ÑÍEÑn&ëás!G Í:Í›!ͪ! Í"Í Éýáá}2F ýå*F & ·íR·íBÒÌ!Í›ͺCTRL-*F &å!@ÑÍ"! Í"Í ÃP"  ·íRÂê!Í›ͺSPACE Í ÃP"!]·íR·íBÒ"*F &Í›Í"! Í"Í ÃP" ·íRÂ-"Í›ͺDEL Í ÃP"~·íRÊG"€€·íR·íBÒP"*F &åÍÿ Éýá!9 Íâýå!å!ÑÍfz³ÊŠ"Õ"X !9 å*X Ñn&å͉!*X #ÑÃh"Í›ÍÍÍ Éýáá"+ á"- á"/ ýå*/ n&å!ÑÍËEÊÃ"*- Í:ÍQ"ÃÍ"*/ n&å͉!Í›ͺ New definition: Í ÍM*- Íâ*+ å!ÑÍÌËEÊ[#!ë*/ s!å*+ ÑÍfz³ÊX#Õ"X !ºÍ©!Z ÍDÍ *Z &å͉!*- å*X Ñå*Z &ëás*X #ÑÃ#Ã}#!ºÍ©!Z ÍDÍ *Z &å͉!*Z &ë*/ sÍ›ÍÍÍ ÉÍ›ÍÍÍ Í›ͺ0Current settings of the vector pad (arrow keys).ÍÍÍ Í›ÍÍÍ !5ön&}2w *w &å!ÑÍËEÊS$ÍM![ Íâ!å!ÑÍfz³ÊE$Õ"X !`öå*X Ñn&}2Z ![ Í:*Z &e.åÍ=![ Íâ*X #Ñà $![ Í:!o ÍâÍ›ͺ Up arrow = Í *w &å!ÑÍËEʉ$!o Í:ÍQ"ÃÏ$*w &å! ÑÍàËEʾ$Í›ͺCTRL-*w &å!@ÑÍ"ÍÍÍ ÃÏ$Í›*w &Í"ÍÍÍ !6ön&}2v *v &å!ÑÍËEÊL%ÍM![ Íâ!å!ÑÍfz³Ê>%Õ"X !döå*X Ñn&}2Z ![ Í:*Z &e.åÍ=![ Íâ*X #ÑÃ%![ Í:!j ÍâÍ›ͺ Down arrow = Í *v &å!ÑÍËEÊŽ%!j Í:Í›!ͪÍÍÍ ÃÔ%*v &å! ÑÍàËEÊÃ%Í›ͺCTRL-*v &å!@ÑÍ"ÍÍÍ ÃÔ%Í›*v &Í"ÍÍÍ !7ön&}2u *u &å!ÑÍËEÊQ&ÍM![ Íâ!å!ÑÍfz³ÊC&Õ"X !höå*X Ñn&}2Z ![ Í:*Z &e.åÍ=![ Íâ*X #ÑÃ&![ Í:!e ÍâÍ›ͺ Left arrow = Í *u &å!ÑÍËEÊ“&!e Í:Í›!ͪÍÍÍ ÃÙ&*u &å! ÑÍàËEÊÈ&Í›ͺCTRL-*u &å!@ÑÍ"ÍÍÍ ÃÙ&Í›*u &Í"ÍÍÍ !8ön&}2t *t &å!ÑÍËEÊV'ÍM![ Íâ!å!ÑÍfz³ÊH'Õ"X !löå*X Ñn&}2Z ![ Í:*Z &e.åÍ=![ Íâ*X #Ñà '![ Í:!` ÍâÍ›ͺRight arrow = Í *t &å!ÑÍËEʘ'!` Í:Í›!ͪÍÍÍ ÃÞ'*t &å! ÑÍàËEÊÍ'Í›ͺCTRL-*t &å!@ÑÍ"ÍÍÍ ÃÞ'Í›*t &Í"ÍÍÍ Í›ÍÍÍ Í›ͺChange? (y/n) Í !ºÍ©!Z ÍDÍ *Z &ÍäåÍ�!YÍ‘!NÍ‘ÍOËEÊÿ'*Z &Í›Í"ÍÍÍ *Z &Íäå!NÑÍËEÊZ(ÃÔ Ã“0Í›ͺ0Please select one of the following (? for help)-ÍÍÍ Í›ÍÍÍ Í›ͺ 1. CP/M setÍÍÍ Í›ͺ 2. WordStar setÍÍÍ Í›ͺ 3. Perfect Writer setÍÍÍ Í›Íº 4. Design your ownÍÍÍ Í›ͺ 5. Abort - no changesÍÍÍ Í›ÍÍÍ Í›ͺYour selection: Í !ºÍ©!Z ÍDÍ *Z &ÍäåÍ�!1Í‘!2Í‘!3Í‘!4Í‘!5Í‘!AÍ‘!?Í‘ÍOËEÊd)*Z &Í›Í"ÍÍÍ *Z &Íä1·íRÂ*!5öå! ëás!6öå! ëás!7öå!ëás!8öå! ëásÍ›ͺCP/M set installed:ÍÍÍ Ó02·íRÂw*!5öå!ëás!6öå!ëás!7öå!ëás!8öå!ëásÍ›ͺWordStar set installed:ÍÍÍ Ó03·íRÂÖ*!5öå!ëás!6öå!ëás!7öå!ëás!8öå!ëásÍ›ͺPerfect Writer set installed:ÍÍÍ Ó04·íRÂT.Í›ÍÍÍ Í›ͺ9Entering a '0' will leave that arrow definition the same.ÍÍÍ Í›ÍÍÍ Í›ͺ%Length of Up arrow definition? (1-4) Í !V ÍËÍNÍ *V å!ÑÍËEʆ+Ãô+Í›ͺCurrent up arrow = Í !w å!o å*V åÍ”"!5öå*w &ëás!å!ÑÍfz³Êô+Õ"X !`öå*X Ñå!o å*X Ñn&ëás*X #ÑÃÉ+Í›ÍÍÍ Í›ͺ'Length of Down arrow definition? (1-4) Í !V ÍËÍNÍ *V å!ÑÍËEÊM,ý,Í›ͺCurrent down arrow = Í !v å!j å*V åÍ”"!6öå*v &ëás!å!ÑÍfz³Ê½,Õ"X !döå*X Ñå!j å*X Ñn&ëás*X #ÑÃ’,Í›ÍÍÍ Í›ͺ'Length of Left arrow definition? (1-4) Í !V ÍËÍNÍ *V å!ÑÍËEÊ-Æ-Í›ͺCurrent left arrow = Í !u å!e å*V åÍ”"!7öå*u &ëás!å!ÑÍfz³Ê†-Õ"X !höå*X Ñå!e å*X Ñn&ëás*X #ÑÃ[-Í›ÍÍÍ Í›ͺ(Length of Right arrow definition? (1-4) Í !V ÍËÍNÍ *V å!ÑÍËEÊà-ÃQ.Í›ͺCurrent right arrow = Í !t å!` å*V åÍ”"!8öå*t &ëás!å!ÑÍfz³ÊQ.Õ"X !löå*X Ñå!` å*X Ñn&ëás*X #ÑÃ&.Ó05·íRÊh.A·íRÂ�.Í›ͺAborted - no changesÍÍÍ ÃÔ Ã“0?·íR“0Í›ÍÍÍ Í›ͺArrow CP/M WS PWÍÍÍ Í›ͺ set set setÍÍÍ Í›ÍÍÍ Í›ͺUp ^K ^E ^PÍÍÍ Í›ÍÍÍ Í›ͺDown ^J ^X ^NÍÍÍ Í›ÍÍÍ Í›ͺLeft ^H ^S ^BÍÍÍ Í›ÍÍÍ Í›ͺRight ^L ^D ^FÍÍÍ Í›ÍÍÍ Í›ͺIEntering the number of the corresponding set, will install the definitionÍÍÍ Í›ͺG set above. Entering '4' will allow you to enter your own definitions,ÍÍÍ Í›ͺ up to four characters per key.ÍÍÍ ÃZ(Í›ÍÍÍ ÃÖ#ÃÔ Entering '4' will allow you to enter your own definitions,ÍÍÍ Í›ͺ up to four characterÃÉÍ«Copyright (C) 1984 BORLAND Inc‚AKaypro II and IV P= ERC1B1~·7È#õå~Íáñ=ÈóÍ% ÉÅÕåÝåýåõo&åͦñýáÝááÑÁÉoåͦÉþ€Ü�Ô©æîÅÕåÝåýåÍ£}Ùå!å!"8áãõÅÕ~#·(åÍáôÑÁñãÉ}´È:$‡‡‡ããããÅÒÁ= ô+èÍÐØ*ÎßõÅÕå!¨ÍZ!¢ÍÐ*ºÔBáÑÁñÉõÅÕå!´éõÅÕå!®àõ:¼·(ÅÕå=2¼!ÈÍZáÑÁñÉõ:¼· ÷ÅÕå<2¼!ÂåõÅÕå!¼ÛõÅÕååð!‹í°Ñ:žO:œ‚ÕÍÑ:ŸO:�ƒÍ!ðÍÐ* ÍBáÑÁñÉ!ð ë!›45(É!.+/ –0ü†õyþ0(ñíÉ d!kÃZ!{ÃZ͈æ͈o&Éô  áÁå:á·(yþ ÕÅÍ |µ(Íþ ÍþÊÅÁÑ*é"ÛÕx2áy·( >Ã28!?"9!É í°!á¸í°áí°>2گà Ã:ÃDÃ]ÃSÃXÃNÃ]ÃDÿ í[Ûþ (ú!eÍ}Í„þA8þQ0Gþ: xÖ@¯!\w# ( þ  ÍyÍVþ. ÍV!h6#ûÉ (þ*(þ.(þ!8þ}(þ*(Í„w#ßÉ>?> w#üÉþaØþ{ÐÖ É|Í’}õÍ›ñæÆ�'Î@'Ãè¯7Ë|À|·}È>ÿÉ"ÍíCß"í6#ûëÑùü "Ïë"ÕÍ�Í©éå*Ï·íB"Ïí[Í·íRëáÚ5í°É*Ïí°"ÏÙÉ^#V#Õ^#V#N#FáÉÝáëO/o&ÿ9ùëí°ÝéÑO/o&ÿ9ùëí°éÝáë!àÿ9ùëÅ(¯üí°Á> �‘(G¯üÝéÝá!àÿ9ù ¯w#üÝéÝáEÍŠ¶wÝéÝáÑ}“8÷�Ãu·íR·íB0 É>‘î·íRëê@ðøÉÕë·íRëáë·íR!È+Éͨ õÍz ð·íR!À+Éͨ õÍz ðÍ<!Ð+Éͨ õÍz ðÍ<!ÈØ+Éͨ ôÍz ïÍ<!ÈØ#Éͨ ôÍz ïÍ<!Ø+Éͨ õÍz ðT]KBë!z·> S>)ë)ë0 = öÉ|ªõÍJëÍJëDM¯go>íjíB0 7?ËË= ðëñðHåÍ\Ë<ËÑëÍÞëËzÈ5Í+È)ýÉÍ+ÈË<ËúÉëz· {þ0G·É¯goÉë|ª|úHºÀ}»ÉÉË|È|/g}/o#É}æo&ÉíKÓí[ÑÅÕxAJSËËËËáëáíJDM!éb"Ñë!6íJ"ÓDMÉ'ͬèͬdͬ ͬ} ¯<íR0û= ÈÆ0ÝwÝ#ÉÝ~Ö$O! Ý#Ý~Í„Ö08)þ 8 !Öþ 8þ0T])Ø)Ø T]Ø)Ø_ØËy·È|‡ÉÝááå}&#9N�8wë!DíB9ùëåí°ëá+Oí¸ë#ùÝé>ÃwÝáͦWáͧ _áå}“8(º8J`9{‚T]=o`9yí¸ë ¯ÃwÍÖ Ð>ÃuÍJ õÍuÍ` íÙ}·Ù>(è; àÙËxÙÂQ Ù}·ÙÈÙÅÕåÙ}· Ù˸TÅËø¯ÙËø}Ù•(0íD=ÙÍC ,= ù(Ùñæ€ Í[ 0%ÍD ·, 7 Í� ?õ(8ÙÍu Ëx ÍO - öÍ; ñ8˸·ÙáÑÁÙÉÙËxÙÂÝ ÍX ÍÝ Ø,-Èxî€GÉÙ}·ÙÊ; }·ÈÙ…ÙÍ ÅÕåÝ9Í; Ù.Ù>Ý#ÝnË0Í[ ÍD = ñÙ-Ù åÝnûËx ÍP ,-(-ñññ·ñÙÁáÙÝá˸°G,-Ì; É}·ÈÙ•Ù?Í åååÝ9Ù.Ù>Í� 8Íu ?Ë= ÝuÝ+Ù-Ù(>ÍO 0ßÍu ·áÍO 8Í� ?áÑÁËx ÍP š, —7•8Æ€8Æ€8oÝãÙåÅxËøÙ¨æ€õËøÝåÝ!ÉáØ¯oGOW_gÉ·ËËËËËÉ·ËËËËËÉ|Ù„Ùg{Ù‹Ù_zÙŠÙWyÙ‰ÙOxÙˆÙGÉ|Ù”Ùg{Ù›Ù_zÙšÙWyÙ™ÙOxÙ˜ÙGÉxÙ¸ÙÀyÙ¹ÙÀzÙºÙÀ{Ù»ÙÀ|Ù¼ÙÉÙxÙ¨ò² xÉËx(ͼ È?É}Ù½ÙÀ·ÈÃ� }Ö�Ú; <þ(ÐÙÅÕåÍ; 7ÍD = ùÙ|Ù¤Ùg{Ù£Ù_zÙ¢ÙWyÙ¡ÙOxÙ ÙGÃD ÙÅÕåÙÍuÙÍÆ ÙÍJ ë}·ÈËx>ÂuÍu}Æ€Ë/Æ€oÖõÙÅÕå; ÍÖ -ÅÕåÍJ }áÑÁÙáÑÁã¼ã0ãñÙÉÙÍW-ÍJ ÙÍW,Ù}þlØÅ˸ͨ Á8 ; Íý Í` Ëx(ÍÖ Ù-Ùͨ õ8ÍJ Ù-Ùͨ 8Ù,ÍJ }þl8;Ùª*ªª!ªÍ` ÝåÝ!Ð >ÍýÝáÍuÍ` Í` ÅÕåÙÍu--Ù-ÍÖ ÙáÑÁÙÍJ ,,ñ,-ÈØxî€GÉgª?+2×n¶*ï8t Ð Ðzˆˆˆˆ~«ªªªª,->ÊuËxÂu ÙÍaÙ}.�•õ; ÙÍOÙÍJ ÅÕåÙ,ÍÖ ÙáÑÁ; ÝåÝ!U >ÍýÝá,ÙÍk-ÙÍÖ ñÅÕåo&0%ÍÑÙ,Í` ÙáÑÁÍÖ }þgÚ; É}Š�؉}颋.:}Žã8Žc~I’$I~ÍÌÌÌL«ªªª*ÙÍkÙ·Ëxõ˸; }þˆ0GÅÕå,Í™åË<Ë}áõÍÑ,-(-ÙñáÑÁõÍJ ÝåÝ!Ù >ÍÝáñ0 õÙÍaÙÍ` ñ…o8 ñÈÙÍOþ á>Ãum.`1pF,þåt6|‰„!wS<ÿÃ.zÒ}[•|%¸FXc~üïýu€Ò÷r1}·ÈÝåÙÍOÙ¯Ëx(<˸õͨ 8Ù; ñËÿõÙÏŽé!~JÙͨ 0Í÷OÝ!—>ÙÝÍ<Ùͨ 8 = ìÙ ÝÙÙÍ7ËøÍÖ ÅÕåÍ<Í` ÙÍOÍÖ ÙáÑÁ; ÝåÍ÷ÝáÙÍ7ÍÖ ñ0 õÙÍW-ÍJ ñÝáËOÈËøÉçÏÌTöô¢0 jÁ‘ €µžŠoD€‚,:Í€jÁ‘ �€!¢ÚI}袋.º}Žã8Žc~I’$I’~ÍÌÌÌL«ªªªªÝ!Ó>ÅÕåõÍuÍ` ñÍÙáÑÁÃ` õÙÍ7õÙÅÕåÍ7ÍÖ ÙáÑÁÙÍ` ñ= éÙÍOÃÖ ÝÝnÝfÝ^ÝVÝNÝFÉ!�DLT\ÉI¢Ú!‚!É53ó!�úÉr1÷!€ÒÉÅÕåÙáÑÁÉÍ\!€> Ëx Ë#ËËË-= ðo˸ÉËxÙÍO(Ëø-ÍÖ ·Ë}(ËxËø>�½8(ÍC ,óÍC `iÈÃM!É>’Ãu|µÊ; Ë|ÍJ>�Ë| )=Ë|(úDMboÀ˸Éͦë8þ8ͦÙËxÙ(’0¯þ 8> ÕÍMÑËx(>-ͲË{(aËy(Ͱͦ ò\z·(>.Ͳ (Ͱ ÷ú~ͦ÷Ë{È>EͲ>+Ë|(|íDg>-Ͳ|/Ö 0ûÆ:ÝpÝ# ý~ý#· ý+>0ÝwÝ#Éýå,-  ý60ý#ø¯ÃJÅ˸}ÙÖ€oŸgMÍÄ|þÙ <ýwíDÍ }þ�0Í€ý5Ëø>„•.(ÍC Ë= øý~õ> xæÆ0ýwý#xæGÅÕåË%ÍP Ë%ÍP ëãÑãíZëáãíJDMáË%ÍP = ÈñÁýáÉýåá_~6þ5Øúi+~¨¥Ôh¶¿ÉìÅëx-ÐÍÎÂSÞùx9?ë+¨­ÅøÉ{Η@}·ÈËøÅÕ|ÍC ÍC „gãíZëáãíJDMá0ÍD ,7È}Æo˸ÉÍ ¾ #øyîO!@9ùi&ÝéÍ  ë¶¾ â#÷ÚÍ ¶w#ùëùÝéÍ /¦w#øïÍ ¦w#ùãýáÝá!9ë! E9ýéÝá!!9~·(¯+FÍŠ¦!"9ù!(#Ýé>¯2æýá*ÛͲ¯á"âýå|·>"Ê :æ·( ͆ *â6#wÉÍ÷*â6#6 ë!\$í°É!¶Ååí[Ûþ (úÍ„–( áÁã·É#ëÁÁþ:À~ÉCONTRMKBDLSTAUXUSR>¯2æÍîÍ$*â#~þ ͶÍ$*â:æ·> >w###6ÀÃÖþ þ #6++pÉ>¯2æíSäÍ-Í$Ͷ:Ù·À*â6###ww#w$w#wÖÿ:æ· åÍôá##N#F*ä·íBÈ>�à å¯w#w#í[äs#ráÃó>¯2æÍSÍ$ͶÍ$*â6å ë#Íá-¯Nw#FwÖÿq#p#6€#w#w#wÉÍß*â ë:æ·( ÕÍÑñÅÍÁ<Àxà *â6#ûÉ"â#~+þ 2ËN(>Í’:Ù· *âË^ îËFÈ*âå ëÍá< >ÿ2Ù6É"â~æÈÍŸ*â-¯w#wÕÿw#ÍóÍŸÀ"â~æÈ·ÍÀ ëÍ<À@ýá*ÛͲ¯áýåÍÀåÍ÷áåë!\ í°á åëÍÑ<Ê®!\$í°É>à >¯2æÍÀ*ß|µ>! ë*â \$í°\Í<(Ï!ý€í°:æ· í[1Ã�ÿÕÍ\ÍÑ!€ë·(éf"âÍÂÈ> 2ÙÉ:Ù·ÈñÉÝáÝåå!ÊÍ<áÉÝáÝå"âËF( #~þÀ#6Ãe>Îå!ÊÍ[áÉ"âËNÀ>ë!Ú~þ€8>O6*Û"ÝÍwþ (=þ(&þ("þ(þ :á·(ßÃNþ 8Øyº(Ô~#ÍèÌúx+Í% (½ï6Éå*â#~þáÉÍÂÈÍ[þÈÅÕå*â#~· *Ý~þ(h#"Ýb= Íõþ 8Íèþ ÌáñJ= ÍB== ͯ}8= ͵}/Í­ !*â###å~Æ-_~áþ(4òQ6*âËÖ>™2Ù>*â##wáÑÁÉ:Ù·>Àå*â##~áÉå*â#~þÿ(EÍÌÍ[þ ( þ (þ (þ ÍÖè!]Í[þ (þ (þ (þ(w#(ÍÖãÍÂÌÖ6áÉÝ!]Ý~·Èþ-ÀÝ#É8Ý~·È>7à ëÍ Í[ÃÖÍÖÉ>¯OÅÍkÁͼÈÅåÍÁÑÁÍÎØÌMës #rëÉÍkͼÈÅåÍpÙáÁÍÎØÙÌX ÙáåÍÌÍ[þ ÍÖôÍ[þ (þ( #w(ÍÖêÍÂÌÖáqÉ*â#~þÊáÍ[þ (þÈÍÖñÍ ÍÖþ ÀÃÖ*â##~þÈ6ÉÅÕåÍœáÑÁÉOÍ$*â#~þ(08áÅå·Ê¦=ʦ==Ê©=ʬò+ËÞ###å~Æ-_qá4ð6Í¡È>ðà *æ:è¾È4^qÉ}Ã’ÁÑÅÝ*ÛË|(ÍMëëË|( ÍMÝ6-Ý#ÕÍ�áͦí[ÛÝåá·íRë“8 (G> Í’ùCÈ~Í’#÷ÁÑÙáÑÁÙÅÝ*ÛÕÍôÇÁÑÅͦËC!h Ç!lÀTRUEFALSEͦ!9^#Í(ÑùÕÉá~#·(G~Í’#ùé> Í’> Ã’ "âËF!ÈÍ[¸(þÀ#ÉåÍRë·íRá0Íô*â4À#4É>™Ã åÍR·íR *â4 #4(áÍóÒ>òÜ>¯2çÍ$ë*âËV(/Ë–:ç·(#~+· x· y·ú2ÅÕ!͵ÑÁ( =(þ X:ç·(R*â:ç·(ËÞ###~Æ-Õ_ÑÖ-ÍŒí âX<òN=<ÍŒ*â###æw ÅÕåÍŸáÑÁ Õ*Ñ4 #4x±ÂüëÉ>™>ðà õ:ç·(ëñÉ"âÍŸÈè"*âËÖË^ÈËž*âËVÈË–åÅ0ëÍÁá ëÍ·ÉÁÑíSâÅåÍRÑ·íR8A*â N#F#s#rÍ$ 0}æ)ëíjëS\*â###w* N#Fë·íB ÈÕåÍŸÑár+sÉ>‘à ÕÙáÙ!T]>)ëíjëÙ)Ù0 0= ïÉÍU·íR!À#ÉÍUëÉ*â^#V#ÕN#F#^#VáÉ>">!2çDMÝáÑáÝå"â~æÊóx±(LÅÕÍ*â ë:çOÍÑÁ·(o:çþ" C}=(þ ?ÅÕ*â-N#Fp+qÛÿq#pÑÁ!€ë °*â F+N+++V+^ë·íBÐëq#pÉ>™>ð>à ÁÑíSâÅåÍRÑ·íRÚ*â s#r$ s#rÉ"äíSæëá"â! N#Fë·íB(^x± *â 6#ûí[âÍ<(H*â! íKäq#p##ëíKæÅÕÍí[â!Í· *â! 4 #4Ñ!€ëÁ x± Õ*â$ éÝ*â>ðÃw"òëáã"ô{æü_!í"ëÝ*íÝnÝf}´(HíR0ÝnÝfåÝ"ëÝáã Ý^ÝVÝåMDÝnÝfÝåÝÝuÝtÝqÝpÝåÑ*ës#rÑ*ôs#rÉÝåá"Í*ò ÝåÁ Ú5íKÏíB!Úð>ÿÃuëáã~#fo{æü_ë"ò*íåÝá·íR0RÝnÝfå·íR0ÝáðáÕýáíKòýqýpýuýtÝsÝrÝåáÝNÝFÍÄ( Ý^ÝVÕÝáÝåáÝNÝFÝ^ÝV*ííSíÕÝáÝuÝtíKòÝqÝpë ·íRÀÕýá*Í·íR(ý~Ýwý~Ýwýnýf ÝuÝt¯ÉÝåá"Í6#ûÉÍ *öÉÍ *øÉ!"ö"øÝ*íÝNÝFy°(*ö "ö*ø·íB0íCøÝnÝfåÝáØ*Ïûÿ í[Í·íRØë*ö"ö*ø·íRÐíSøÉí[Ís#rÉ^#VíSÍÉ>¯O"æ¯w2Ùx2è!ê"âá"äá ÍöÍ@*äé>¯2ê"æ!ê"âá"äá"è!\Ͳ¯*è:ê· ÍîÍ!Ù~6·go(Ýåá\íRë*æs#r¯ÿí_2ÔÉëÝáÁáx±( s x±(T]í°ÝéDMÝáÑá·íR0ð ë ëí¸ÝéÑÁÕ-a%ÃÆ}Í„oÉ*é!Ù~6o&ÉÍ |µÈÍ£}þÀÝáÍ%^C User break1:Ù·ÈÝáõÍ% I/OÝáÍ% Run-timeÍ% error Í’Í%, PC=Ýåáí[Õ·íR"×Í�Í% Program aborted*ßé1!€£¸ÿÍ�!–/7£ͲÃo"Ãú0123456789ABCDEFýáá}2W£ýåÍ00h!O£Í²!O£å!Ñå!êå*W£&å!ÑÍÞÑn&ëás!O£å!Ñå!êå*W£&å!ÑÍÑn&ëás!O£Í ÍR!Íq! ÍòÍbÉýáá}2N£ýå*N£& ·íR·íBÒ´ ÍRÍ�CTRL-*N£&å!@ÑÍò! ÍòÍbÃ8!  ·íRÂÒ ÍRÍ�SPACE ÍbÃ8!!]·íR·íBÒù *N£&ÍRÍò! ÍòÍbÃ8! ·í RÂ!ÍRÍ�DEL ÍbÃ8!~·íRÊ/!€€·íR·íBÒ8!*N£&åÍçÉýá!E£Í²ýå!å!ÑÍ5z³Êr!Õ"\£!E£å*\£Ñn&åÍq *\£#ÑÃP!ÍRÍ�ÍbÉýáá";£á"=£á"?£ýå*?£n&å!ÑÍNËEÊ«!*=£Í Í9!õ!*?£n&åÍq ÍRÍ� New definition: ÍbÍ*=£Í²*;£å!ÑÍ›ËEÊC"!ë*?£s!å*;£ÑÍ5z³Ê@"Õ"\£!¾Í8!^£ÍÛÍb*^£&åÍq *=£å*\£Ñå*^£&ëás*\£#ÑÃ"Ãe"!¾Í8!^£ÍÛÍb*^£&åÍq *^£&ë*?£sÍRÍ�ÍbÉÍRÍ�ÍbÍRÍ�0Current settings of the vector pad (arrow keys).Í�ÍbÍRÍ�Íb!5ún&}2{£*{£&å!ÑÍNËEÊ;#Í!_£Í²!å!ÑÍ5z³Ê-#Õ"\£!`úå*\£Ñn&}2^£!_£Í *^£&e.åÍ!_£Í²*\£#ÑÃñ"!_£Í !s£Í²ÍRÍ� Up arrow = Íb*{£&å!ÑÍNËEÊq#!s£Í Í9!÷#*{£&å! ÑͯËEʦ#ÍRÍ�CTRL-*{£&å!@ÑÍòÍ�Íb÷#ÍR*{£&ÍòÍ�Íb!6ún&}2z£*z£&å!ÑÍNËEÊ4$Í!_£Í²!å!ÑÍ5z³Ê&$Õ"\£!dúå*\£Ñn&}2^£!_£Í *^£&e.åÍ!_£Í²*\£#ÑÃê#!_£Í !n£Í²ÍRÍ� Down arrow = Íb*z£&å!ÑÍNËEÊv$!n£Í ÍR!ÍqÍ�Íbü$*z£&å! ÑͯËEÊ«$ÍRÍ�CTRL-*z£&å!@ÑÍòÍ�Íbü$ÍR*z£&ÍòÍ�Íb!7ún&}2y£*y£&å!ÑÍNËEÊ9%Í!_£Í²!å!ÑÍ5z³Ê+%Õ"\£!húå*\£Ñn&}2^£!_£Í *^£&e.åÍ!_£Í²*\£#ÑÃï$!_£Í !i£Í²ÍRÍ� Left arrow = Íb*y£&å!ÑÍNËEÊ{%!i£Í ÍR!ÍqÍ�ÍbÃÁ%*y£&å! ÑͯËEʰ%ÍRÍ�CTRL-*y£&å!@ÑÍòÍ�ÍbÃÁ%ÍR*y£&ÍòÍ�Íb!8ún&}2x£*x£&å!ÑÍNËEÊ>&Í!_£Í²!å!ÑÍ5z³Ê0&Õ"\£!lúå*\£Ñn&}2^£!_£Í *^£&e.åÍ!_£Í²*\£#ÑÃô%!_£Í !d£Í²ÍRÍ�Right arrow = Íb*x£&å!ÑÍNËEÊ€&!d£Í ÍR!ÍqÍ�ÍbÃÆ&*x£&å! ÑͯËEʵ&ÍRÍ�CTRL-*x£&å!@ÑÍòÍ�ÍbÃÆ&ÍR*x£&ÍòÍ�ÍbÍRÍ�ÍbÍRÍ�Change? (y/n) Íb!¾Í8!^£ÍÛÍb*^£&Í(åÍQ!YÍa!NÍaÍËEÊç&*^£&ÍRÍòÍ�Íb*^£&Í(å!NÑÍNËEÊB'ÍÅÇ/ÍRÍ�0Please select one of the following (? for help)-Í�ÍbÍRÍ�ÍbÍRÍ� 1. CP/M setÍ�ÍbÍRÍ� 2. WordStar setÍ�ÍbÍRÍ� 3. Perfect Writer setÍ�ÍbÍRÍ� 4. Design your ownÍ�ÍbÍRÍ� 5. Abort - no changesÍ�ÍbÍRÍ�ÍbÍRÍ�Your selection: Íb!¾Í8!^£ÍÛÍb*^£&Í(åÍQ!1Ía!2Ía!3Ía!4Ía!5Ía!AÍa!?ÍaÍËEÊL(*^£&ÍRÍòÍ�Íb*^£&Í(1·íRÂ)!5úå! ëás!6úå! ëás!7úå!ëás!8úå! ëásÍRÍ�CP/M set installed:Í�ÍbÇ/2·íRÂ_)!5úå!ëás!6úå!ëás!7úå!ëás!8úå!ëásÍRÍ�WordStar set installed:Í�ÍbÇ/3·íR¾)!5úå!ëás!6úå!ëás!7úå!ëás!8úå!ëásÍRÍ�Perfect Writer set installed:Í�ÍbÇ/4·íRÂH-ÍRÍ�ÍbÍRÍ�9Entering a '0' will leave that arrow definition the same.Í�ÍbÍRÍ�ÍbÍRÍ�%Length of Up arrow definition? (1-4) Íb!Z£Í+ÍîÍ_Íb*Z£å!ÑÍNËEÊq*Ãß*ÍRÍ�Current up arrow = Íb!{£å!s£å*Z£åÍ|!!5úå*{£&ëás!å!ÑÍ5z³Êß*Õ"\£!`úå*\£Ñå!s£å*\£Ñn&ëás*\£#Ñô*ÍRÍ�ÍbÍRÍ�'Length of Down arrow definition? (1-4) Íb!Z£Í+ÍîÍ_Íb*Z£å!ÑÍNËEÊ;+ë+ÍRÍ�Current down arrow = Íb!z£å!n£å*Z£åÍ|!!6úå*z£&ëás!å!ÑÍ5z³Ê«+Õ"\£!dúå*\£Ñå!n£å*\£Ñn&ëás*\£#ÑÀ+ÍRÍ�ÍbÍRÍ�'Length of Left arrow definition? (1-4) Íb!Z£Í+ÍîÍ_Íb*Z£å!ÑÍNËEÊ,Ãw,ÍRÍ�Current left arrow = Íb!y£å!i£å*Z£åÍ|!!7úå*y£&ëás!å!ÑÍ5z³Êw,Õ"\£!húå*\£Ñå!i£å*\£Ñn&ëás*\£#ÑÃL,ÍRÍ�ÍbÍRÍ�(Length of Right arrow definition? (1-4) Íb!Z£Í+ÍîÍ_Íb*Z£å!ÑÍNËEÊÔ,ÃE-ÍRÍ�Current right arrow = Íb!x£å!d£å*Z£åÍ|!!8úå*x£&ëás!å!ÑÍ5z³ÊE-Õ"\£!lúå*\£Ñå!d£å*\£Ñn&ëás*\£#ÑÃ-Ç/5·íRÊ\-A·íRƒ-ÍRÍ�Aborted - no changesÍ�ÍbÍÅÇ/?·íR‡/ÍRÍ�ÍbÍRÍ�Arrow CP/M WS PWÍ�ÍbÍRÍ� set set setÍ�ÍbÍRÍ�ÍbÍRÍ�Up ^K ^E ^PÍ�ÍbÍRÍ�ÍbÍRÍ�Down ^J ^X ^NÍ�ÍbÍRÍ�ÍbÍRÍ�Left ^H ^S ^BÍ�ÍbÍRÍ�ÍbÍRÍ�Right ^L ^D ^FÍ�ÍbÍRÍ�ÍbÍRÍ�IEntering the number of the corresponding set, will install the definitionÍ�ÍbÍRÍ�G set above. Entering '4' will allow you to enter your own definitions,Í�ÍbÍRÍ� up to four characters per key.Í�ÍbÃB'ÍRÍ�Íbþ"ÃÅ Entering '4' will allow you to enter your own definitions,Í�ÍbÍRÍ� up to four characters per key.Í�on for this program was to conservatively list the contents of a large MAST.CAT file (mine has 4000+ files) for easy and quick referrence. My catalog used to take 60+ pages if using XCAT's printer option, now it only takes 21 pages. Bug reports, proPROGRAM Vector_Pad_Definition; { Written by Craig Brown Sept. 1985 } { This program will re-define the vector pad (arrow keys) on the Kaypro 4'84. It DOES NOT affect the definition on the disk, only that which is in memory. It allows choices from three sets of pre-defined definitions or make your own. } (* * * * * VARIBLE DECLARATIONS * * * * *) type str4= string[4]; var up, { arrow key value fields - prime definition } down, left, right: byte; up4, { multiple value fields - secondary definition } down4, { if an arrow key has more then a one byte definition } left4, { the prime field is set to 00 and the (up to) four } right4, { bytes of definition are stored here. } ans4: str4; ans: char; { input field, with multiple type definition } ansb: byte absolute ans; x, y, z: integer; { garbage fields } (* * * * * PROCEDURES * * * * *) PROCEDURE displayhex(in value: byte); { This procedure displays a byte in hex. It is a modification of a routine from Micro Cornucopia #24, written by Tom Geldner. } var hexstr: string[3]; const hexltr: array[0..15] of char= '0123456789ABCDEF'; begin hexstr:='00h'; hexstr[1]:=hexltr[((invalue) div 16)]; hexstr[2]:=hexltr[((invalue) mod 16)]; write(hexstr,' '); end; PROCEDURE Write1(inchar: char); { This procedure will display a byte value differentaly, depending on its ASCII value. It either displays it as a control character (CTRL-A) or as its ASCII character or the hex equivilent (for those that don't have a character) } var inbyte: byte absolute inchar; begin case inchar of #0..#31: write('CTRL-',chr(inbyte+$40),' '); #32: write('SPACE '); #33..#125: write(inchar,' '); #127: write('DEL '); #126, #128..#255: displayhex(inbyte); end; {case} end; PROCEDURE Write4(invalue4: str4); { This procedure will display the 4 bytes of the secondary key definition. } begin for x:=1 to 4 do write1(invalue4[x]); writeln; end; PROCEDURE EditEntry(var invalue: byte; var invalue4: str4; len: integer); { This procedure allows you to enter a new key definition up to 4 bytes long. It first displays the old definition and then enters the new. } begin if invalue=0 then write4(invalue4) else write1(chr(invalue)); write(' New definition: '); invalue4:=#0#0#0#0; { set the 4 byte definition to 0's so a short (2 or 3 byte) definition doesn't include any part of the old } if len>1 then begin { if definition is to be more then one byte } invalue:=0; { input and display values } for x:=1 to len do begin read(kbd,ans); write1(ans); invalue4[x]:=ans; end; {for} end {if} else begin { if definition is 1 byte enter and display } read(kbd,ans); write1(ans); invalue:=ansb; end; writeln; end; (* * * * * MAIN PROGRAM * * * * *) { The memory locations used in this program are for the Kaypro 4'84 running CP/M 2.2F. Other machines or versions of CP/M may vary, no guarentees extended, or liability assumed by the author. } label 0, 1, 2, 3, 4, 5; BEGIN writeln; writeln('Current settings of the vector pad (arrow keys).'); writeln; 0: up:=mem[$F635]; { the definition for the up arrow is at } if up=0 then begin { F635h. if it is 00h the definition is} ans4:=''; { stored starting at F661h for up to 4 } for x:=1 to 4 do begin { bytes } ansb:=mem[$F660+x]; ans4:=ans4+ans; end; up4:=ans4; end; write(' Up arrow = '); if up=0 then write4(up4) else if up<$20 then writeln('CTRL-',chr(up+$40))  else writeln(chr(up)); down:=mem[$F636]; { down arrow is at F636h. if 00h then } if down=0 then begin { starts at F665h for 4 bytes } ans4:=''; for x:=1 to 4 do begin ansb:=mem[$F664+x]; ans4:=ans4+ans; end; down4:=ans4; end; write(' Down arrow = '); if down=0 then writeln(down4) else if down<$20 then writeln('CTRL-',chr(down+$40)) else writeln(chr(down)); left:=mem[$F637]; { left arrow is at F637h. if 00h then } if left=0 then begin { start at F669h for 4 bytes } ans4:=''; for x:=1 to 4 do begin ansb:=mem[$F668+x]; ans4:=ans4+ans; end; left4:=ans4; end; write(' Left arrow = '); if left=0 then writeln(left4) else if left<$20 then writeln('CTRL-',chr(left+$40)) else writeln(chr(left));  right:=mem[$F638]; { right arrow is at F638h. if 00h then } if right=0 then begin { start at F66Dh for 4 bytes } ans4:=''; for x:=1 to 4 do begin ansb:=mem[$F66C+x]; ans4:=ans4+ans; end; right4:=ans4; end; write('Right arrow = '); if right=0 then writeln(right4) else if right<$20 then writeln('CTRL-',chr(right+$40)) else writeln(chr(right)); writeln; write('Change? (y/n) '); repeat read(kbd,ans); until upcase(ans) in ['Y','N']; writeln(ans); if upcase(ans)='N' then halt else begin 1: writeln('Please select one of the following (? for help)-'); writeln; writeln(' 1. CP/M set'); writeln(' 2. WordStar set'); writeln(' 3. Perfect Writer set'); writeln(' 4. Design your own'); writeln(' 5. Abort - no changes'); writeln;   write('Your selection: '); repeat read(kbd,ans) until upcase(ans) in ['1','2','3','4','5','A','?']; writeln(ans); case upcase(ans) of '1': begin { CP/M pre-defined set } mem[$F635]:=$0B; { up = ^K } mem[$F636]:=$0A; { down = ^J } mem[$F637]:=$08; { left = ^H } mem[$F638]:=$0C; { right = ^L } writeln('CP/M set installed:'); end; '2': begin { WS pre-defined set } mem[$F635]:=$05; { up = ^E } mem[$F636]:=$18; { down = ^X } mem[$F637]:=$13; { left = ^S } mem[$F638]:=$04; { right = ^D } writeln('WordStar set installed:'); end; '3': begin { PW pre-defined set } mem[$F635]:=$10; { up = ^P } mem[$F636]:=$0E; { down = ^N } mem[$F637]:=$02; { left = ^B } mem[$F638]:=$06; { right = ^F } writeln('Perfect Writer set installed:'); end; '4': begin { Self definition routine } writeln; writeln('Entering a ''0'' will leave that arrow definition the same.'); writeln; write('Length of Up arrow definition? (1-4) '); readln(y); if y=0 then goto 2; write('Current up arrow = '); editentry(up,up4,y); mem[$F635]:=up; for x:=1 to 4 do mem[$F660+x]:=byte(up4[x]); 2: writeln; write('Length of Down arrow definition? (1-4) '); readln(y); if y=0 then goto 3; write('Current down arrow = '); editentry(down,down4,y); mem[$F636]:=down; for x:=1 to 4 do mem[$F664+x]:=byte(down4[x]); 3: writeln; write('Length of Left arrow definition? (1-4) '); readln(y); if y=0 then goto 4; write('Current left arrow = '); editentry(left,left4,y); mem[$F637]:=left; for x:=1 to 4 do mem[$F668+x]:=byte(left4[x]); 4: writeln; write('Length of Right arrow definition? (1-4) '); readln(y); if y=0 then goto 5; write('Current right arrow = '); editentry(right,right4,y); mem[$F638]:=right; for x:=1 to 4 do mem[$F66C+x]:=byte(right4[x]); 5: end; '5','A': begin writeln('Aborted - no changes'); halt; end; '?': begin { help information } writeln; writeln('Arrow CP/M WS PW'); writeln(' set set set'); writeln; writeln('Up ^K ^E ^P'); writeln; writeln('Down ^J ^X ^N'); writeln; writeln('Left ^H ^S ^B'); writeln; writeln('Right ^L ^D ^F'); writeln; writeln('Entering the number of the corresponding set, will install the definition'); writeln(' set above. Entering ''4'' will allow you to enter your own definitions,'); writeln(' up to four characters per key.'); goto 1; end; end; {case} end; {else} writeln; goto 0; END. åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå ÃÉÍ«Copyright (C) 1984 BORLAND Inc‚AKaypro II and IV P= ERC1B1~·7È#õå~Íáñ=ÈóÍ% ÉÅÕåÝåýåõo&åͦñýáÝááÑÁÉoåͦÉþ€Ü�Ô©æîÅÕåÝåýåÍ£}Ùå!å!"8áãõÅÕ~#·(åÍáôÑÁñãÉ}´È:$‡‡‡ããããÅÒÁ= ô+èÍÐØ*ÎßõÅÕå!¨ÍZ!¢ÍÐ*ºÔBáÑÁñÉõÅÕå!´éõÅÕå!®àõ:¼·(ÅÕå=2¼!ÈÍZáÑÁñÉõ:¼· ÷ÅÕå<2¼!ÂåõÅÕå!¼ÛõÅÕååð!‹í°Ñ:žO:œ‚ÕÍÑ:ŸO:�ƒÍ!ðÍÐ* ÍBáÑÁñÉ!ð ë!›45(É!.+/ –0ü†õyþ0(ñíÉ d!kÃZ!{ÃZ͈æ͈o&Éô  áÁå:á·(yþ ÕÅÍ |µ(Íþ ÍþÊÅÁÑ*é"ÛÕx2áy·( >Ã28!?"9!É í°!á¸í°áí°>2گà Ã:ÃDÃ]ÃSÃXÃNÃ]ÃDÿ í[Ûþ (ú!eÍ}Í„þA8þQ0Gþ: xÖ@¯!\w# ( þ  ÍyÍVþ. ÍV!h6#ûÉ (þ*(þ.(þ!8þ}(þ*(Í„w#ßÉ>?> w#üÉþaØþ{ÐÖ É|Í’}õÍ›ñæÆ�'Î@'Ãè¯7Ë|À|·}È>ÿÉ"ÍíCß"í6#ûëÑùü "Ïë"ÕÍ�Í©éå*Ï·íB"Ïí[Í·íRëáÚ5í°É*Ïí°"ÏÙÉ^#V#Õ^#V#N#FáÉÝáëO/o&ÿ9ùëí°ÝéÑO/o&ÿ9ùëí°éÝáë!àÿ9ùëÅ(¯üí°Á> �‘(G¯üÝéÝá!àÿ9ù ¯w#üÝéÝáEÍŠ¶wÝéÝáÑ}“8÷�Ãu·íR·íB0 É>‘î·íRëê@ðøÉÕë·íRëáë·íR!È+Éͨ õÍz ð·íR!À+Éͨ õÍz ðÍ<!Ð+Éͨ õÍz ðÍ<!ÈØ+Éͨ ôÍz ïÍ<!ÈØ#Éͨ ôÍz ïÍ<!Ø+Éͨ õÍz ðT]KBë!z·> S>)ë)ë0 = öÉ|ªõÍJëÍJëDM¯go>íjíB0 7?ËË= ðëñðHåÍ\Ë<ËÑëÍÞëËzÈ5Í+È)ýÉÍ+ÈË<ËúÉëz· {þ0G·É¯goÉë|ª|úHºÀ}»ÉÉË|È|/g}/o#É}æo&ÉíKÓí[ÑÅÕxAJSËËËËáëáíJDM!éb"Ñë!6íJ"ÓDMÉ'ͬèͬdͬ ͬ} ¯<íR0û= ÈÆ0ÝwÝ#ÉÝ~Ö$O! Ý#Ý~Í„Ö08)þ 8 !Öþ 8þ0T])Ø)Ø T]Ø)Ø_ØËy·È|‡ÉÝááå}&#9N�8wë!DíB9ùëåí°ëá+Oí¸ë#ùÝé>ÃwÝáͦWáͧ _áå}“8(º8J`9{‚T]=o`9yí¸ë ¯ÃwÍÖ Ð>ÃuÍJ õÍuÍ` íÙ}·Ù>(è; àÙËxÙÂQ Ù}·ÙÈÙÅÕåÙ}· Ù˸TÅËø¯ÙËø}Ù•(0íD=ÙÍC ,= ù(Ùñæ€ Í[ 0%ÍD ·, 7 Í� ?õ(8ÙÍu Ëx ÍO - öÍ; ñ8˸·ÙáÑÁÙÉÙËxÙÂÝ ÍX ÍÝ Ø,-Èxî€GÉÙ}·ÙÊ; }·ÈÙ…ÙÍ ÅÕåÝ9Í; Ù.Ù>Ý#ÝnË0Í[ ÍD = ñÙ-Ù åÝnûËx ÍP ,-(-ñññ·ñÙÁáÙÝá˸°G,-Ì; É}·ÈÙ•Ù?Í åååÝ9Ù.Ù>Í� 8Íu ?Ë= ÝuÝ+Ù-Ù(>ÍO 0ßÍu ·áÍO 8Í� ?áÑÁËx ÍP š, —7•8Æ€8Æ€8oÝãÙåÅxËøÙ¨æ€õËøÝåÝ!ÉáØ¯oGOW_gÉ·ËËËËËÉ·ËËËËËÉ|Ù„Ùg{Ù‹Ù_zÙŠÙWyÙ‰ÙOxÙˆÙGÉ|Ù”Ùg{Ù›Ù_zÙšÙWyÙ™ÙOxÙ˜ÙGÉxÙ¸ÙÀyÙ¹ÙÀzÙºÙÀ{Ù»ÙÀ|Ù¼ÙÉÙxÙ¨ò² xÉËx(ͼ È?É}Ù½ÙÀ·ÈÃ� }Ö�Ú; <þ(ÐÙÅÕåÍ; 7ÍD = ùÙ|Ù¤Ùg{Ù£Ù_zÙ¢ÙWyÙ¡ÙOxÙ ÙGÃD ÙÅÕåÙÍuÙÍÆ ÙÍJ ë}·ÈËx>ÂuÍu}Æ€Ë/Æ€oÖõÙÅÕå; ÍÖ -ÅÕåÍJ }áÑÁÙáÑÁã¼ã0ãñÙÉÙÍW-ÍJ ÙÍW,Ù}þlØÅ˸ͨ Á8 ; Íý Í` Ëx(ÍÖ Ù-Ùͨ õ8ÍJ Ù-Ùͨ 8Ù,ÍJ }þl8;Ùª*ªª!ªÍ` ÝåÝ!Ð >ÍýÝáÍuÍ` Í` ÅÕåÙÍu--Ù-ÍÖ ÙáÑÁÙÍJ ,,ñ,-ÈØxî€GÉgª?+2×n¶*ï8t Ð Ðzˆˆˆˆ~«ªªªª,->ÊuËxÂuÙÍaÙ}.�•õ; ÙÍOÙÍJ ÅÕåÙ,ÍÖ ÙáÑÁ; ÝåÝ!U >ÍýÝá,ÙÍk-ÙÍÖ ñÅÕåo&0%ÍÑÙ,Í` ÙáÑÁÍÖ }þgÚ; É}Š�؉}颋.:}Žã8Žc~I’$I~ÍÌÌÌL«ªªª*ÙÍkÙ·Ëxõ˸; }þˆ0GÅÕå,Í™åË<Ë}áõÍÑ,-(-ÙñáÑÁõÍJ ÝåÝ!Ù >ÍÝáñ0 õÙÍaÙÍ` ñ…o8 ñÈÙÍOþ á>Ãum.`1pF,þåt6|‰„!wS<ÿÃ.zÒ}[•|%¸FXc~üïýu€Ò÷r1}·ÈÝåÙÍOÙ¯Ëx(<˸õͨ 8Ù; ñËÿõÙÏŽé!~JÙͨ 0Í÷OÝ!—>ÙÝÍ<Ùͨ 8 = ìÙ ÝÙÙÍ7ËøÍÖ ÅÕåÍ<Í` ÙÍOÍÖ ÙáÑÁ; ÝåÍ÷ÝáÙÍ7ÍÖ ñ0 õÙÍW-ÍJ ñÝáËOÈËøÉçÏÌTöô¢0 jÁ‘ €µžŠoD€‚,:Í€jÁ‘ �€!¢ÚI}袋.º}Žã8Žc~I’$I’~ÍÌÌÌL«ªªªªÝ!Ó>ÅÕåõÍuÍ` ñÍÙáÑÁÃ` õÙÍ7õÙÅÕåÍ7ÍÖ ÙáÑÁÙÍ` ñ= éÙÍOÃÖ ÝÝnÝfÝ^ÝVÝNÝFÉ!�DLT\ÉI¢Ú!‚!É53ó!�úÉr1÷!€ÒÉÅÕåÙáÑÁÉÍ\!€> Ëx Ë#ËËË-= ðo˸ÉËxÙÍO(Ëø-ÍÖ ·Ë}(ËxËø>�½8(ÍC ,óÍC `iÈÃM!É>’Ãu|µÊ; Ë|ÍJ>�Ë| )=Ë|(úDMboÀ˸Éͦë8þ8ͦÙËxÙ(’0¯þ 8> ÕÍMÑËx(>-ͲË{(aËy(Ͱͦ ò\z·(>.Ͳ (Ͱ ÷ú~ͦ÷Ë{È>EͲ>+Ë|(|íDg>-Ͳ|/Ö 0ûÆ:ÝpÝ# ý~ý#· ý+>0ÝwÝ#Éýå,-  ý60ý#ø¯ÃJÅ˸}ÙÖ€oŸgMÍÄ|þÙ <ýwíDÍ }þ�0Í€ý5Ëø>„•.(ÍC Ë= øý~õ> xæÆ0ýwý#xæGÅÕåË%ÍP Ë%ÍP ëãÑãíZëáãíJDMáË%ÍP = ÈñÁýáÉýåá_~6þ5Øúi+~¨¥Ôh¶¿ÉìÅëx-ÐÍÎÂSÞùx9?ë+¨­ÅøÉ{Η@}·ÈËøÅÕ|ÍC ÍC „gãíZëáãíJDMá0ÍD ,7È}Æo˸ÉÍ ¾ #øyîO!@9ùi&ÝéÍ  ë¶¾ â#÷ÚÍ ¶w#ùëùÝéÍ /¦w#øïÍ ¦w#ùãýáÝá!9ë! E9ýéÝá!!9~·(¯+FÍŠ¦!"9ù!(#Ýé>¯2æýá*ÛͲ¯á"âýå|·>"Ê :æ·( ͆ *â6#wÉÍ÷*â6#6 ë!\$í°É!¶Ååí[Ûþ (úÍ„–( áÁã·É#ëÁÁþ:À~ÉCONTRMKBDLSTAUXUSR>¯2æÍîÍ$*â#~þ ͶÍ$*â:æ·> >w###6ÀÃÖþ þ #6++pÉ>¯2æíSäÍ-Í$Ͷ:Ù·À*â6###ww#w$w#wÖÿ:æ· åÍôá##N#F*ä·íBÈ>�à å¯w#w#í[äs#ráÃó>¯2æÍSÍ$ͶÍ$*â6å ë#Íá-¯Nw#FwÖÿq#p#6€#w#w#wÉÍß*â ë:æ·( ÕÍÑñÅÍÁ<Àxà *â6#ûÉ"â#~+þ 2ËN(>Í’:Ù· *âË^ îËFÈ*âå ëÍá< >ÿ2Ù6É"â~æÈÍŸ*â-¯w#wÕÿw#ÍóÍŸÀ"â~æÈ·ÍÀ ëÍ<À@ýá*ÛͲ¯áýåÍÀåÍ÷áåë!\ í°á åëÍÑ<Ê®!\$í°É>à >¯2æÍÀ*ß|µ>! ë*â \$í°\Í<(Ï!ý€í°:æ· í[1Ã�ÿÕÍ\ÍÑ!€ë·(éf"âÍÂÈ> 2ÙÉ:Ù·ÈñÉÝáÝåå!ÊÍ<áÉÝáÝå"âËF( #~þÀ#6Ãe>Îå!ÊÍ[áÉ"âËNÀ>ë!Ú~þ€8>O6*Û"ÝÍwþ (=þ(&þ("þ(þ :á·(ßÃNþ 8Øyº(Ô~#ÍèÌúx+Í% (½ï6Éå*â#~þáÉÍÂÈÍ[þÈÅÕå*â#~· *Ý~þ(h#"Ýb= Íõþ 8Íèþ ÌáñJ= ÍB== ͯ}8= ͵}/Í­ !*â###å~Æ-_~áþ(4òQ6*âËÖ>™2Ù>*â##wáÑÁÉ:Ù·>Àå*â##~áÉå*â#~þÿ(EÍÌÍ[þ ( þ (þ (þ ÍÖè!]Í[þ (þ (þ (þ(w#(ÍÖãÍÂÌÖ6áÉÝ!]Ý~·Èþ-ÀÝ#É8Ý~·È>7à ëÍ Í[ÃÖÍÖÉ>¯OÅÍkÁͼÈÅåÍÁÑÁÍÎØÌMës #rëÉÍkͼÈÅåÍpÙáÁÍÎØÙÌX ÙáåÍÌÍ[þ ÍÖôÍ[þ (þ( #w(ÍÖêÍÂÌÖáqÉ*â#~þÊáÍ[þ (þÈÍÖñÍ ÍÖþ ÀÃÖ*â##~þÈ6ÉÅÕåÍœáÑÁÉOÍ$*â#~þ(08áÅå·Ê¦=ʦ==Ê©=ʬò+ËÞ###å~Æ-_qá4ð6Í¡È>ðà *æ:è¾È4^qÉ}Ã’ÁÑÅÝ*ÛË|(ÍMëëË|( ÍMÝ6-Ý#ÕÍ�áͦí[ÛÝåá·íRë“8 (G> Í’ùCÈ~Í’#÷ÁÑÙáÑÁÙÅÝ*ÛÕÍôÇÁÑÅͦËC!h Ç!lÀTRUEFALSEͦ!9^#Í(ÑùÕÉá~#·(G~Í’#ùé> Í’> Ã’ "âËF!ÈÍ[¸(þÀ#ÉåÍRë·íRá0Íô*â4À#4É>™Ã åÍR·íR *â4 #4(áÍóÒ>òÜ>¯2çÍ$ë*âËV(/Ë–:ç·(#~+· x· y·ú2ÅÕ!͵ÑÁ( =(þ X:ç·(R*â:ç·(ËÞ###~Æ-Õ_ÑÖ-ÍŒí âX<òN=<ÍŒ*â###æw ÅÕåÍŸáÑÁ Õ*Ñ4 #4x±ÂüëÉ>™>ðà õ:ç·(ëñÉ"âÍŸÈè"*âËÖË^ÈËž*âËVÈË–åÅ0ëÍÁá ëÍ·ÉÁÑíSâÅåÍRÑ·íR8A*â N#F#s#rÍ$ 0}æ)ëíjëS\*â###w* N#Fë·íB ÈÕåÍŸÑár+sÉ>‘à ÕÙáÙ!T]>)ëíjëÙ)Ù0 0= ïÉÍU·íR!À#ÉÍUëÉ*â^#V#ÕN#F#^#VáÉ>">!2çDMÝáÑáÝå"â~æÊóx±(LÅÕÍ*â ë:çOÍÑÁ·(o:çþ" C}=(þ ?ÅÕ*â-N#Fp+qÛÿq#pÑÁ!€ë °*â F+N+++V+^ë·íBÐëq#pÉ>™>ð>à ÁÑíSâÅåÍRÑ·íRÚ*â s#r$ s#rÉ"äíSæëá"â! N#Fë·íB(^x± *â 6#ûí[âÍ<(H*â! íKäq#p##ëíKæÅÕÍí[â!Í· *â! 4 #4Ñ!€ëÁ x± Õ*â$ éÝ*â>ðÃw"òëáã"ô{æü_!í"ëÝ*íÝnÝf}´(HíR0ÝnÝfåÝ"ëÝáã Ý^ÝVÝåMDÝnÝfÝåÝÝuÝtÝqÝpÝåÑ*ës#rÑ*ôs#rÉÝåá"Í*ò ÝåÁ Ú5íKÏíB!Úð>ÿÃuëáã~#fo{æü_ë"ò*íåÝá·íR0RÝnÝfå·íR0ÝáðáÕýáíKòýqýpýuýtÝsÝrÝåáÝNÝFÍÄ( Ý^ÝVÕÝáÝåáÝNÝFÝ^ÝV*ííSíÕÝáÝuÝtíKòÝqÝpë ·íRÀÕýá*Í·íR(ý~Ýwý~Ýwýnýf ÝuÝt¯ÉÝåá"Í6#ûÉÍ *öÉÍ *øÉ!"ö"øÝ*íÝNÝFy°(*ö "ö*ø·íB0íCøÝnÝfåÝáØ*Ïûÿ í[Í·íRØë*ö"ö*ø·íRÐíSøÉí[Ís#rÉ^#VíSÍÉ>¯O"æ¯w2Ùx2è!ê"âá"äá ÍöÍ@*äé>¯2ê"æ!ê"âá"äá"è!\Ͳ¯*è:ê· ÍîÍ!Ù~6·go(Ýåá\íRë*æs#r¯ÿí_2ÔÉëÝáÁáx±( s x±(T]í°ÝéDMÝáÑá·íR0ð ë ëí¸ÝéÑÁÕ-a%ÃÆ}Í„oÉ*é!Ù~6o&ÉÍ |µÈÍ£}þÀÝáÍ%^C User break1:Ù·ÈÝáõÍ% I/OÝáÍ% Run-timeÍ% error Í’Í%, PC=Ýåáí[Õ·íR"×Í�Í% Program aborted*ßé1!€£¸ÿÍ�!I'¶¢ͲÃ'!æ¢"ä¢!åÁÍo&}2h£ÉÍcÍRÍ�AUTOBOOT ver 1.01Í�ÍbÍRÍ�June 1985 by Waid ReynoldsÍ�ÍbÍRÍ�([Modified 8/14/85 by George B. Cabellon]Í�ÍbÍRÍ�ÍbÍRÍ�FPublic domain software for setting the autoboot command line of KayproÍ�ÍbÍRÍ�Kfloppy or hard disks. This program works with all 8 bit Kaypros, includingÍ�ÍbÍRÍ�Lthe Kaypro 10. On the 10, only hard drive A: and floppy C: are boot drives.Í�ÍbÍRÍ�@DO NOT put an autoboot command on hard drive B:. It won't work.Í�ÍbÍRÍ�ÍbÉÍRÍ�ÍbÍRÍ� "Íb!å!ÑÍ5z³Êí#Õ"¢!æ¢å*¢Ñn&ÍRÍòÍb*¢#ÑÃÆ#ÍR!"ÍòÍ�ÍbÍRÍ�ÍbÉÍRÍ�ÍbÍI#ÍRÍ�Press to quit orÍ�ÍbÍRÍ�Enter desired command lineÍ�ÍbÍRÍ�A of up to 16 characters: [................]Í�ÍbÍRÍ�0 [Upper or lower case may be used] -----------> Íb!j£Í+Í.Í_Íb!j£Í Ím}2i£*i£&å!ÑÍ›ËEÊn%ÍRÍ�ÍbÍR!ÍòÍ�2 ++ Sorry, must be less than 16 characters long ++Í�ÍbÍRÍ�Íb*i£&å!Ñ͇ËEÊ$*i£&å!ÑÍN}2ç*ç&}îoËEÊþ%!j£åÍ¥"!j£åÍß"!å!ÑÍ5z³Êì%Õ"¼¢!æ¢å*¼¢Ñå!j£å*¼¢å!Ñë·íRÑn&ëás*¼¢#Ñø%!æ¢å!Ñå*i£&ëásÉÍRÍ�ÍbÍRÍ�0Writing new autoboot command line ------------> Íb!j£Í ÍR!ÍqÍ� to disk...Íb! å!DMÑÍ.! å!DMÑÍ.! å*ä¢DMÑÍ.! åÑÍ.!å!Ñå!å!ÑÑÍ5z³ÊÑ&Õ"¶¢! å*¶¢DMÑÍ.! åÑÍ.*¶¢#Ñê&ÍRÍ�ÍbÍRÍ�ÍbÍR!ÍòÍ� ++ Done ++Í�ÍbÉÍèÍþÍß!*ç&}îoËEÊ-'Í$*ç&}îoËEÊ-'Íÿ%!å*h£&DMÑÍ.*ç&ËEÊ'ÃŶ¢#Ñê&ÍRÍ�ÍbÍRÍ�ÍbÍR!ÍòÍ� ++ Done ++Í�ÍbååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååProgram AUTOBOOT; { By Waid Reynolds June '85 Ever want to set up a boot disk so that it would run a program automatically when your Kaypro boots up? This can be done when you format a disk using the COPY program, but, you may want to later change the boot instructions without having to reformat the disk. Here's a simple Turbo Pascal program which will allow you to specify a command line of up to 16 characters for the autoboot sequence. To run this program after it is compiled, just type AUTOBOOT followed by the key. The program will prompt you for the disk drive and the desired autoboot command line. Once entered, the program will write your command line to the appropriate disk, then ask if you want to do it again. The command line is written to track 0, sector 2 beginning at byte 8. After booting up, CP/M looks at this location to determine if an autoboot is desired. A valid command line will then be executed, if found. } Type str17 = string[17]; Const { BIOS entry points relative to Warm Boot } seldsk = 8; { select disk } settrk = 9; { set track } setsec = 10; { set sector } setdma = 11; { set dma address } rd = 12; { read selected sector } wr = 13; { write it} getdisk = 25; { BDOS get disk function } track = 0; { Location of auto boot } sec = 1; { command line } quit: boolean = false; Var cmd_line: str17; { The new command line string. Includes one extra byte, so we can tell if user entered too long a string. } cmd_line_len: byte; bios_address: integer absolute 1; { Address of BIOS jump vector } default_drive_num, drive_num: byte; drive_letter: char; { Drive A - P } sector: array [0..127] of char; { Buffer for the disk sector we are going to modify } dma_address: integer; Procedure Init; (* Set the dma address in memory for sector t0,s1 to be read into memory so that it will overlay our array called "sector[]". Also find out what the currently logged disk drive is. *) begin dma_address := addr(sector); { The addr of the 1st byte of "sector[]" array } default_drive_num := Bdos(getdisk); { 0 = A:, 1 = B:, etc. } End; {init} Procedure Intro; (* Introduce the program *) begin clrscr; writeln('AUTOBOOT ver 1.01'); writeln('June 1985 by Waid Reynolds'); writeln('[Modified 8/14/85 by George B. Cabellon]'); writeln; writeln('Public domain software for setting the autoboot command line of Kaypro'); writeln('floppy or hard disks. This program works with all 8 bit Kaypros, including'); writeln('the Kaypro 10. On the 10, only hard drive A: and floppy C: are boot drives.'); writeln('DO NOT put an autoboot command on hard drive B:. It won''t work.'); writeln; End; {Intro} Procedure Get_drive; (* Get the user to enter the letter of the desired disk drive. *) begin repeat writeln; write('Enter the letter of the desired drive (A - P) or Q to quit: '); read(kbd, drive_letter); drive_letter := upcase(drive_letter); { "upcase()" is a built-in Turbo function which converts one character to upper case if it is lower case. } until drive_letter in ['A'..'Q']; quit := (drive_letter = 'Q'); if not quit then (* Convert to number *) begin drive_num := ord(drive_letter) - 65; { The above line converts the ASCII value of drive_letter to a number in the range of 0 - 15. The ASCII values of letters A to P are 65 to 80. The "ord" built-in function tells Turbo to return the value of the character, 65 - 80 in this case. By subtracting 65 we then arrive at a number in the range of 0 - 15, which CP/M can understand. } Bios(seldsk, drive_num); { Select the drive } end; End; {get_drive} Procedure Pad(var s: str17); (* Fill out the command string to full length of 16 chars using spaces. We don't want anything other than spaces following our command line. By using "var" ahead of "s" in the first line of this procedure, we tell Turbo to pass the actual location of the string to be operated on. If "var" was not present, we would be operating on a temporary string, "s" created in this proc. Thus adding spaces to the end of "s" would not effect the real string. *) Var pos: integer; begin while length(s) < 16 do s := s + ' '; End; {pad} Procedure Upcase_string(var s: str17); (* Convert the command line string to upper case so CP/M won't choke on it. Note the use of "var" again, so that we will be operating on the real string, not a temporary clone of it. *) Var pos: integer; begin for pos := 1 to length(s) do begin if s[pos] in ['a'..'z'] then s[pos] := upcase(s[pos]); end; End; {upcase_string} Procedure Display_old_cmd_line; (* Display the command line, if any, currently located at track 0, sector 1 on the designated disk drive. *) Var pos: integer; begin Bios(settrk, track); { Set the track } Bios(setsec, sec); { Set the sector } Bios(setdma, dma_address); { Set dma address } Bios(rd); { Read the disk sector into memory starting at the beginning of our array called "sector[]". It is critical that this be done so that the array will contain the proper data when it is rewritten to disk later on. } { Now, display the current command line, if any. } writeln; write('Current autoboot command line ---------------> "'); for pos := 8 to 23 do write(sector[pos]); writeln('"'); writeln; End; {display_old_cmd_line} Procedure Get_command_line; Var pos: integer; begin writeln; Display_old_cmd_line; repeat writeln('Press to quit or'); writeln('Enter desired command line'); writeln(' of up to 16 characters: [................]'); write(' [Upper or lower case may be used] -----------> '); readln(cmd_line); cmd_line_len := length(cmd_line); if cmd_line_len > 16 then begin writeln; writeln(#7,' ++ Sorry, must be less than 16 characters long ++'); { "#7" makes the Kaypro beep. } writeln; end; {if} until cmd_line_len <= 16; quit := (cmd_line_len = 0); if not quit then begin Pad(cmd_line); { Fill out w/spaces to length of 16 } Upcase_string(cmd_line); { Convert to uppercase } { Assign new cmd line to sector[] character by character } for pos := 8 to 23 do sector[pos] := cmd_line[pos-7]; { And set the length byte so CP/M will know how long the new command line is } sector[7] := chr(cmd_line_len); end; {if} End; {get_command_line} Procedure Write_command_line; (* Write the "sector[]" array to disk at sector t0, s1. *) Var secno: integer; begin writeln; write('Writing new autoboot command line ------------> '); write(cmd_line,' to disk...'); Bios(settrk, track); { Set the track } Bios(setsec, sec); { Set the sector } Bios(setdma, dma_address); { Set dma address } Bios(wr); { Write the sector to disk } { Force BIOS to actually write our modified sector to disk. Kaypro CP/M buffers 4 128 byte sectors in memory. So, a write to disk must be forced by reading enough sectors to cause CP/M to flush the current buffer to disk. } for secno := sec+1 to sec + 5 do begin Bios(setsec, secno); Bios(rd); end; writeln; writeln; writeln(#7,' ++ Done ++'); End; {write_command_line} BEGIN {============ MAIN =============} Init; Intro; repeat Get_drive; if not quit then begin Get_command_line; if not quit then Write_command_line; end; {if} { Set default drive back to original } Bios(seldsk, default_drive_num); until quit; END. of AutobootååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååËhihi*ùÍ�7>Í _>Í _ÃsáÍ$`!÷g>Í5fÍ1`å>Í _ÅÍ=`ÃM*KåͶ:Í–XÃ[B*Z&åÍGX*÷gåÍGX>Í _É>Í _ÃÅáÍ$`!ùg>Í5fÍ1`å>Í _ÅÍ=`ß*�åͶ:Í–XíC*¬&åÍGX*ùgåÍGX>Í _É>Í _Ã@áÍ$`!ýg>Í5f!ûg>Í5fÍ1`å>Í _ÅÍ=`Ãù*÷åͶ:Í–XÃ=*&åÍGXÃ*ûgå*&åÍ�GÍGXÃ(*ýgå*'&åÍ�GÍGX>Í _É>Í _ûáÍ$`!h>Í5f!ÿg>Í5fÍ1`å>Í _ÅÍ=`Ãt*råͶ:Í–XÂ**�&åÍGXÃ�*ÿgå*Ž&åÍ�GÍGXã*hå*¢&åÍ�GÍGX>Í _É>Í _Ã6áÍ$`!h>Í5f!h>Í5fÍ1`å>Í _ÅÍ=`Ãï*íåͶ:Í–XÃý *ü&åÍGXà *hå* &åÍ�GÍGXÃ*hå*&åÍ�GÍGX>Í _ É>Í _"ÃéáÍ$`! h>Í5f! h>Í5f! h>Í5f!h>Í5fÍ1`å>Í _#ÅÍ=`Ãz*xåͶ:Í–XÈL*‡&åÍGXÕ*hå*”&åÍ�GÍGXé* hå*¨&åÍ�GÍGXý* hå*¼&åÍ�GÍGXÃÑ* hå*Ð&åÍ�GÍGX>Í _$É>Í _&ÜáÍ$`!h>Í5f!h>Í5f!h>Í5f!h>Í5fÍ1`å>Í _'ÅÍ=`Ã-*+åͶ:Í–XÃ;D*:&åÍGXÃH*hå*G&åÍ�GÍGXÃ\*hå*[&åÍ�GÍGXÃp*hå*o&åÍ�GÍGXÄ*hå*ƒ&åÍ�GÍGX>Í _(É>Í _0ÃÐ>Í _1ÅÍ=`ø*¶åͶ:Í–XÍL`Ím`>Í _2É>Í _4ØáÍ$`!h>Í5fÍ1`å>Í _5>Í _7*hå>!hÍ5f>Í _8Ã*å>!hÍ5f>Í _9*hå*håÍYGÍCLÊ…>Í _9>Í _@ÃG*hå*håÍ�G*Eå;G>!hÍ5f>Í _A*hå*hå;G>!hÍ5f>Í _BÃ#>Í _CáÍ$`*håÍ1`é>Í _EÃ' áÍ$`!+h>Í5f!)h>Í5f!'h>Í5f!%h>Í5f!#h>Í5f!!h>Í5f!h>Í5f!h>Í5fÍ1`å>Í _F>Í _GÃý*ûå!Ì7>ÿÍUÃ*å!Ì7>ÿÍUÃ#*!å!Ì7>ÿÍU>Í _IÃ=*;å>!5hÍ5f>Í _PÃU*Så>!7hÍ5f>Í _QÃm*kå>!3hÍ5f>Í _RÃ…*ƒå>!1hÍ5f>Í _T*5hå!9hͤWÍ$`*håÍ1`>Í5f>Í _U*7hå!9hͤWÍ$`*håÍ1`>Í5f>Í _V*5hå!@hͤWÍ$`*hå*#hå*+håÍ©GÍ�GÍ1`>Í5f>Í _W*7hå!@hͤWÍ$`*hå*!hå*)håÍ©GÍ�GÍ1`>Í5f>Í _X*5hå!GhͤWÍ$`*5hå!@h͇W*%hå*+håÍ©GÍ�GÍ1`>Í5f>Í _Y*7hå!GhͤWÍ$`*7hå!@h͇W*%hå*)håÍ©GÍ�GÍ1`>Í5f>Í _a*'hå*1håÍmGÍCLÊ >Í _a>Í _b*5hå!9h͇W>!-hÍ$`Í5fÍ1`å*5hå!@h͇W*+hå>Í _c*7hå!9h͇W*-hå*7hå!@h͇W*-håÍó>Í _d!âÍ’8>Í _fÃ!*å>!-hÍ$`Í5fÍ1`å*#hå*+håÍ©G*+hå>Í _g*7hå!@h͇W*5hå!@h͇W*-håÍ‘G*7hå!Gh͇W*5hå!Gh͇W*-håÍ‘GÍó>Í _h!CÍ’8>Í _iÜ*šå>!-hÍ$`Í5fÍ1`å*!hå*)håÍ©G*)hå>Í _p*7hå!@h͇W*-håÍ‘G*5hå!@h͇W*7hå!Gh͇W*-håÍ‘G*5hå!Gh͇WÍó>Í _q!¾Í’8>Í _s*7hå!9h͇W*5hå!9h͇W*7hå!@h͇W*5hå!9h͇WÍ@>Í _t*7hå!9h͇W*5hå!9h͇W*7hå!9h͇W*5hå!@h͇WÍ@>Í _u*7hå!@h͇W*5hå!@h͇W*7hå!@h͇W*5hå!9h͇WÍ@>Í _v*7hå!@h͇W*5hå!@h͇W*7hå!9h͇W*5hå!@h͇WÍ@>Í _x*7hå!@h͇W*5hå!@h͇W*7hå!Gh͇W*5hå!Gh͇WÍ@>Í _€*7hå!9h͇W*5hå!@h͇W*7hå!Gh͇W*!hå*)håÍ©GÍ‘G*5hå!Gh͇WÍ@>Í _�*7hå!@h͇W*5hå!9h͇W*7hå!Gh͇W*5hå!Gh͇W*#hå*+håÍ©GÍ‘GÍ@>Í _ƒ*7hå!Gh͇W*5hå!Gh͇W*7hå!Gh͇W*!hå*)håÍ©GÍ‘G*5hå!Gh͇WÍ@>Í _„*7hå!Gh͇W*5hå!Gh͇W*7hå!Gh͇W*5hå!Gh͇W*#hå*+håÍ©GÍ‘GÍ@>Í _†>Í _ˆ*'hå*3håÍmGÍCLÊ >Í _ˆ>Í _‰*5hå!9h͇W>!-hÍ$`Í5fÍ1`å*5hå!@h͇W*+hå>Í _�*7hå!9h͇W*-hå*7hå!@h͇W*-håÍ@>Í _‘!Y Í’8>Í _“Ø *– å>!-hÍ$`Í5fÍ1`å*#hå*+håÍ©G*+hå>Í _”*7hå!@h͇W*5hå!@h͇W*-håÍ‘G*7hå!Gh͇W*5hå!Gh͇W*-håÍ‘GÍ@>Í _•!º Í’8>Í _–à * å>!-hÍ$`Í5fÍ1`å*!hå*)håÍ©G*)hå>Í _—*7hå!@h͇W*-håÍ‘G*5hå!@h͇W*7hå!Gh͇W*-håÍ‘G*5hå!Gh͇WÍ@>Í _˜!5 Í’8>Í _*7hå!@h͇W*5hå!@h͇W*7hå!@h͇W*5hå!9h͇WÍó>Í _*7hå!@h͇W*5hå!@h͇W*7hå!9h͇W*5hå!@h͇WÍó>Í _*7hå!@h͇W*5hå!@h͇W*7hå!Gh͇W*5hå!Gh͇WÍó>Í _>Í _É>Í _>Í _>Í _>Í _ >Í _>Í _>Í _>Í _>Í _Ãk *i å!Ì7>ÿÍU>Í _Ã… *ƒ å!Ì7>ÿÍU>Í _ß *� å!Ì7>ÿÍU>Í _ù *· å!Ì7>ÿÍU>Í _ÃÓ *Ñ åáååÃß *Ý å!Ì7>ÿÍUá>Í _Ãú *ø åáååà *å!Ì7>ÿÍUá>Í _ Ã!*å!€ÁÍZå>!Ì7ÍU¯ÍšdS0i–CôD>Í _!!–6>ÿÍN]>Í _#ÃŽ>Í _$ÅÍ=`ÃoÃuB1*måͶ:!råÍ:Í–X>Í _%É>Í _'ÃÉ>Í _(ÅÍ=`êðC1*¨åͶ:!­åÍ:Í–X>Í _)É>Í _1Ã>Í _2ÅÍ=`ÃåÃëB0*ãåͶ:!èåÍ:Í–X>Í _3É>Í _5Ã?>Í _6ÅÍ=`à Ã&C0*åͶ:!#åÍ:Í–X>Í _7É>Í _9Ãz>Í _@ÅÍ=`Ã[ÃaB2*YåͶ:!^åÍ:Í–X>Í _AÉ>Í _Cõ>Í _DÅÍ=`ÖÜC2*”åͶ:!™åÍ:Í–X>Í _EÉ>Í _GÃã>Í _HÅÍ=`ÃÑ*ÏåͶ:Í–X>Í _IÉ>Í _Qè>Í _Rͦ>Í _SÍI>Í _TÅÍ=`Ã2 NO BARS HAVE BEEN DEFINED YET!!!!åÍ–XÍL`Ím`>Í _UÍ„>Í _VÅÍ=`ÍL`Íò\Return to main menu by pressing any key ÍL`Í}`2phÍL`yÍm`>Í _WÃD2>Í _XÉ>Í _`ÃL>Í _aÅÍ=`ÃÒNo more values!!ÂåÍ–XÍL`Ím`>Í _bÅÍ=`ÍL`Ím`>Í _cÅÍ=`ÍL`Íò\Return to menu by pressing any key ÍL`Í}`2phÍL`yÍm`>Í _dÃD2>Í _eÉ>Í _gç>Í _hͦ>Í _iÍI>Í _pÍò\ YOU HAVE USED SMALL LETTER IN THE FILENAME!! THIS MIGHT CAUSE PROBLEMS LATER!!!!!!!!!!!!! USE O N L Y CAPITAL LETTERS IN YOUR FILENAMES!!!!!!!! >Í _„Í„>Í _…ÅÍ=`ÍL`Íò\Return te menu by pressing any key....ÍL`Í}`2nhÍL`yÍm`>Í _†ÃD2>Í _‡É>Í _‰à >Í _�ͦ>Í _‘Í]>Í _’ÅÍ=`Ã0Do you wish to change all bars (O)pen or (F)ull !ÕåÍ–X>Í _“͘>Í _”ÅÍ=`ÍL`Í}`2|hÍL`yÍm`>Í _•Ã@*>å>!NhÍ$`Í5fÍ1`å*^håÃ\!Z>Íf>Í _–ÃpOÃuo*|hå!nåÍÿ8ÍòGÍL*|hå!såÍÿ8ÍòGÍLÍ4GÍCLÊÈ>Í _–*Nhå!iͤWÍ$`ù*·åÍ1`>Í5fÃí>Í _–*Nhå!iͤWÍ$`Ãá*ßåÍ1`>Í5f>Í _—!dÍ’8>Í _˜ÃD2>Í _™É>Í _Ãó>Í _ͦ>Í _ÍÓ>Í _Ã6*4å>!NhÍ$`Í5fÍ1`åÃN*LåÃW!U>Íf>Í _ÅÍ=`Ãq !oåÍ–XÍL`Ím`>Í _!_Í’8>Í _ÅÍ=`Ã�Lâ *›å* åÍÃ:Í–XÍL`Ím`>Í _ÅÍ=`ÃÈLÃÍ *Æå*ËåÍÃ:Í–XÍL`Ím`>Í _ Í>Í _É>Í _ÃÁ>Í _ͦ>Í _à !å!šhÍFa>Í _Í]>Í _ÅÍ=`Ãb)Enter the graph headier, max. 50 letters.!8åÍ–XÍL`Ím`>Í _ÅÍ=`Ç ---> !åÍ–X>Í _͘>Í _ÅÍ=`ÍL`yÍe[!šhÍÂaÍL`yÍm`>Í _ É>Í _"ÃÃ>Í _#ͦ>Í _$Ãá*dhå*ßåÍmGÍCLÊQ>Í _$ÅÍ=`Ãà B0*åͶ:!åÍ:Í–XÃ.OUT OF SCALE!!!!åÍ–XÃ:Ã@C0*8åͶ:!=åÍ:Í–X>Í _%ÅÍ=`ÍL`Ím`>Í _&Ãp*nå>!dhÍ5f>Í _'Í]>Í _(ÅÍ=`ÃÂ+ The latest ACCEPTED scale valeu was: !–åÍ–X*hhåÍÏXÍL`Ím`>Í _)ÅÍ=`Ã+ Previous NOT ACCEPTED attempt was: !æåÍ–X*bhåÍÏXÍL`Ím`>Í _0ÅÍ=`Ãb+ Change maximum only, enter new maximum: !6åÍ–X>Í _1͘>Í _2ÅÍ=`ÍL`yÍe[!`hÍ—YÍL`yÍm`>Í _3*`hå>!bhÍ5f>Í _4ó*±å>!NhÍ$`Í5fÍ1`å*^håÃÏ!Í>Íf>Í _5*Nhå!iͤWÍ$`Ãò *Nhå!i͇W*`håÍ€9ÍR9ÍBOÍ$fîÍ÷MÍ1`>Í5f>Í _6Ã' *Nhå!i͇WÍ$f#ÍHÍ#LÊW>Í _6ÃK*Iå>!dhÍ5f>Í _7!×Í’8>Í _8Ãp*dhå*nåÍmGÍCLÊ”>Í _8*bhå>!hhÍ5f>Í _9à*dhå*žåÍmGÍCLÊ»>Í _9ÍË>Í _@É>Í _BÃ}>Í _CÃÙ*^hå*×åÍmGÍCLÊô>Í _CÍí>Í _DÃ*þå>!RhÍ5f>Í _EÃZ*å>!PhÍ5f>Í _FÃ0*.åÍçG>!VhÍ5f>Í _GÃK*Iå>!XhÍ5f>Í _HÃc*aå>!\hÍ5f>Í _IÃ{ *yå>!ThÍ5f>Í _Pͦ>Í _QÍ>Í _Rç*¥å>!NhÍ$`Í5fÍ1`å*^håÃÃ!Á>Íf>Í _SÃ×*Nhå*ÕåÍmGÍCLÊ>Í _SÃô*òå>!fhÍ5fÃ">Í _SÃ*fhå* åÍ�G>!fhÍ5f>Í _TÅÍ=`*fhåÍ�:ÍeX*Nhå!"i͇WÍ–X>Í _U!ËÍ’8>Í _VÃ_*]å>!NhÍ$`Í5fÍ1`å*^håÃ{!y>Íf>Í _W*Phå*Rhå*Nhå!i͇WÍ$9ÍÑ9*Thå*\hå*Nhå!i͇W*Vhå*XhåÍ¢>Í _XÃË *Rhå*ÉåÍ�G>!RhÍ5f>Í _Y!ƒÍ’8>Í _`Í¿>Í _aÅÍ=`à  !åÍ–X!šhåÍ–XÃ5 (Maximum value: !åÍ–X*`håÍÏXÃH)!FåÍ–XÍL`Ím`>Í _bÍ¿>Í _cÅÍ=`ÍL`Í}`2nh>Í _dÉ>Í _fÃ$">Í _gͦ>Í _hÍ]>Í _iÅÍ=`Ãâ6(A)dd more values or (S)tart again from the beginning !«åÍ–X>Í _p͘>Í _qÅÍ=`ÍL`Í}`2thÍL`yÍm`>Í _rÃSÃ!s*thå!åÍÿ8ÍòGÍL*thå!åÍÿ8ÍòGÍLÍ4GÍCLÊd>Í _rÃX*Vå>!^hÍ5f>Í _sÃp*^hå*nåÍmGÍCLÊ‹>Í _sÍ]>Í _tÅÍ=`ðEnter maximum value !›åÍ–X>Í _u͘>Í _vÅÍ=`ÍL`yÍe[!`hÍ—YÍL`yÍm`>Í _wÃîÃò*^hå*ìåÍmG*`hå!ñåÍ9ÍÑ9ÍmGÍ?GÍCLÊ/>Í _wÃ#d*!å>!`hÍ5f>Í _x*`hå>!bhÍ5f>Í _y*`hå>!hhÍ5f>Í _€>Í _€>Í _�ͦ>Í _‚Ãy*^hå*wåÍ�G>!^hÍ5f>Í _ƒÍ]>Í _„ÅÍ=`ÃÆPrevious bar was bar number....!¦åÍ–XÃÒ*^hå*ÐåÍ‘GÍÏXÍL`Ím`>Í _…ÅÍ=`ÃPrevius bar value was..........!öåÍ–XÃ"*^hå* åÍ‘G!i͇WÍnHÍL`Ím`>Í _†ÅÍ=`ÃlPrevious bar name was..........!LåÍ–XÃx*^hå*våÍ‘G!"i͇WÍ–XÍL`Ím`>Í _‡ÅÍ=`ÍL`Ím`>Í _ˆÅÍ=`ÍL`Ím`>Í _‰ÅÍ=`ÃàEnter next bar's value !ÈåÍ–X>Í _�͘>Í _‘ÅÍ=`*^hå!iͤWÍ$`ÍL`yÍe[Í1`Í•LÍL`yÍm`>Í _’*^hå!i͇W*`håÍ€9ÍR9ÍHÍ#LÊœ>Í _’ÅÍ=`ÍL`Íò\Value too large! Enter new value = *^hå!iͤWÍ$`ÍL`yÍe[Í1`Í•LÍL`yÍm`>Í _“*^hå!iͤWÍ$`÷ *^hå!i͇W*`håÍ€9ÍR9ÍBOÍ$f³Í÷MÍ1`>Í5f>Í _”Í]>Í _•ÅÍ=`à Is the bar (O)pen or (F)ull !øåÍ–X>Í _–͘>Í _—ÅÍ=`ÍL`Í}`2rhÍL`yÍm`>Í _˜ÃO FÃT f*rhå!M åÍÿ8ÍòGÍL*rhå!R åÍÿ8ÍòGÍLÍ4GÍCLÊš >Í _˜Ë *‰ å>!ZhÍ5fò >Í _˜æ *¤ å>!ZhÍ5f>Í _™*^hå!iͤWÍ$`*ZhåÍ1`>Í5f>Í _Í]>Í _ÅÍ=`Ã!-Enter this bar's name, maximum 5 characters: !ì åÍ–X>Í _͘>Í _ÅÍ=`*^hå!"iͤWÍ$`ÍL`yÍe[Í1`ÍÂaÍL`yÍm`>Í _ÅÍ=`ÍL`Ím`>Í _Í]>Í _ÅÍ=`ÍL`Íò\Add more bars (Y/N) ÍL`Í}`2nhÍL`yÍm`>Í _͘>Í _ÃÅ! *^hå*Ã!åÍJGÍCLÊà!>Í _Ͳ>Í _ Ãì!NÃñ!n*nhå!ê!åÍÿ8ÍòGÍL*nhå!ï!åÍÿ8ÍòGÍLÍ4GÍCLÊ\>Í _É>Í _Ã8(>Í _Ã:"*^hå*8"åÍmGÍCLÊU">Í _Íí>Í _Ã`"!_"å!iÍFa>Í _ͦ>Í _Í]>Í _ÅÍ=`ÃÒ"CDo you wish to change open bars into full bars or vice versa (Y/N) !Ž"åÍ–X>Í _͘>Í _ ÅÍ=`ÍL`Í}`2zhÍL`yÍm`>Í _!à #YÃ#y*zhå! #åÍÿ8ÍòGÍL*zhå!#åÍÿ8ÍòGÍLÍ4GÍCLÊF#>Í _!ͱ>Í _"ͦ>Í _#Ã\#*Z#å>!NhÍ$`Í5fÍ1`å*^håÃx#!v#>Íf>Í _$Í]>Í _%ÅÍ=`ñ#Original bar value is !š#åÍ–X*Nhå!i͇WÍnHÍL`Ím`>Í _&ÅÍ=`Ãë#and the bar is !Û#åÍ–X>Í _'Ãþ#*Nhå!i͇W*ü#åÍmGÍCLÊ:$>Í _'ÅÍ=`Ã*$open!%$åÍ–XÍL`Ím`Ã\$>Í _'ÅÍ=`ÃO$full!J$åÍ–XÍL`Ím`>Í _(ÅÍ=`Ã$The bar's name is !l$åÍ–X*Nhå!"i͇WÍ–XÍL`Ím`>Í _)ÅÍ=`ÍL`Ím`>Í _0ÅÍ=`ÍL`Íò\CHANGE THIS (Y/N) ÍL`Í}`2xhÍL`yÍm`>Í _1Ãï$YÃô$y*xhå!í$åÍÿ8ÍòGÍL*xhå!ò$åÍÿ8ÍòGÍLÍ4GÍCLÊ(>Í _1>Í _2Í]>Í _3ÅÍ=`Ãh%'Enter new value, = no change: !@%åÍ–X>Í _4͘>Í _5ÅÍ=`*Nhå! iͤWÍ$`ÍL`yÍe[Í1`Í•LÍL`yÍm`>Í _6ò%*Nhå! i͇W!±%åÍ9ÍR9Í&HÍ#LÊõ%>Í _6*Nhå! iͤWÍ$`*Nhå!i͇WÍ1`>Í5f>Í _7*Nhå!iͤWÍ$`*Nhå! i͇WÍ1`>Í5f>Í _8*Nhå!iͤWÍ$`Ã6& *Nhå!i͇W*`håÍ€9ÍR9ÍBOÍ$f2&Í÷MÍ1`>Í5f>Í _9Í]>Í _@ÅÍ=`Õ&Is this bar (O)pen or (F)ull !w&åÍ–X>Í _A͘>Í _BÅÍ=`ÍL`Í}`2vhÍL`yÍm`>Í _CÃÏ&FÃÔ&f*vhå!Í&åÍÿ8ÍòGÍL*vhå!Ò&åÍÿ8ÍòGÍLÍ4GÍCLÊ''>Í _C*Nhå!iͤWÍ$`Ã'*'åÍ1`>Í5fÃL'>Í _C*Nhå!iͤWÍ$`Ã@'*>'åÍ1`>Í5f>Í _DÍ]>Í _EÅÍ=`Ó',Enter new bar's name, = no change: !f'åÍ–X>Í _F͘>Í _GÅÍ=`ÍL`yÍe[!iÍÂaÍL`yÍm`>Í _HÃÐ'!iå!Ï'åÍYHÍLLÊÿ'>Í _H*Nhå!"iͤWÍ$`!iåÍ1`ÍFa>Í _I͘>Í _P>Í _QÅÍ=`ÍL`Ím`>Í _R!€#Í’8>Í _SÉ>Í _UÃ*,>Í _Vͦ>Í _WÅÍ=`ÍL`Ím`>Í _XÅÍ=`ô(DAlways use a new name, otherwise you will destroy the previous file!!o(åÍ–XÍL`Ím`>Í _YÅÍ=`Ã)3Always use C A P I T A L letters in filenames!!!Ñ(åÍ–XÍL`Ím`>Í _`ÅÍ=`ÍL`Ím`>Í _aÍ]>Í _bÅÍ=`ÃO)ETNER FILENAME !?)åÍ–X>Í _c͘>Í _dÅÍ=`ÍL`yÍe[!~hÍÂaÍL`yÍm`>Í _eÃ�)*‹)å>!NhÍ$`Í5fÍ1`å!~håÍB;ì)!ª)>Íf>Í _fÃÀ)ÃÅ)^!~hå*Nhå*¾)åÍç:ÍŸ:*Ã)åÍYGÍCLÊç)Ã*>Í _g!´)Í’8>Í _hÃ*>Í _i>Í _iÍV>Í _p>Í _pÃ%*.BAK!~hå! *åÍ:!ŒhÍFa>Í _qÃE*.BGF!~hå!@*åÍ:!~hÍFa>Í _r!~hå!ŒhåͶ;>Í _s!~håÍ<>Í _tÂ**€*åáÍ$`!~håÍ1`Íj<>Í _uà**ž*åÍ=`!^h>Í–C!`h>Í–C>Í _vÃÃ**Á*å>!NhÍ$`Í5fÍ1`å*^håÃß*!Ý*>Íf>Í _wÃò**Nhå!"i͇W!ñ*åÍJHÍLLÊ3+>Í _w*Nhå!)iͤWÍ$`Ã&+*****! +åÍ1`ÍFaÃW+>Í _w*Nhå!)iͤWÍ$`*Nhå!"i͇WÍ1`ÍFa>Í _xÃc+*a+åÍ=`*Nhå!iͤW>Í–C*Nhå!iͤW>Í–C*Nhå!"iͤW>Í–C>Í _y!ç*Í’8>Í _€ï+!šhå!®+åÍJHÍLLÊô+>Í _€Ãê+*******************************!Ê+å!šhÍFa>Í _�Ã,*þ+åÍ=`!šh>Í–C>Í _‚Ã,*,åÍ =>Í _ƒÉ>Í _…Ã`/>Í _†ͦ>Í _‡Í]>Í _ˆÅÍ=`Ãh,ETNER FILENAME !X,åÍ–X>Í _‰͘>Í _�ÅÍ=`ÍL`yÍe[!~hÍÂaÍL`yÍm`>Í _‘æ,*¤,å>!NhÍ$`Í5fÍ1`å!~håÍB;ÃÅ,!Ã,>Íf>Í _’ÃÙ,ÃÞ,^!~hå*Nhå*×,åÍç:ÍŸ:*Ü,åÍYGÍCLÊ->Í _’Ã%->Í _“!Í,Í’8>Í _”Ã6->Í _•>Í _•ÍV>Í _–>Í _–ÃE-.BGF!~hå!@-åÍ:!~hÍFa>Í _—Ãb-*`-åáÍ$`!~håÍ1`Íj<>Í _˜À-*~-åÍ=`!^h>ÍôD!`h>ÍôD>Í _™ã-*¡-å>!NhÍ$`Í5fÍ1`å*^håÿ-!½->Íf>Í _ÃÓ-*Ñ-åÍ=`*Nhå!iͤW>ÍôD*Nhå!iͤW>ÍôD*Nhå!)iͤW>ÍôD>Í _Ã.******Nhå!)i͇W!.åÍJHÍLLÊS.>Í _*Nhå!"iͤWÍ$`ÃF.!E.åÍ1`ÍFaÃw.>Í _*Nhå!"iͤWÍ$`*Nhå!)i͇WÍ1`ÍFa>Í _*Nhå!iͤWÍ$`Ã’. *Nhå!i͇W*`håÍ€9ÍR9ÍBOÍ$fŽ.Í÷MÍ1`>Í5f>Í _!Ç-Í’8>Í _ÃÒ.*Ð.åÍ=`!Íh>ÍôD>Í _à /*******************************!Íhå!ë.åÍJHÍLLÊ4/>Í _Ã'/!&/å!šhÍFaÃE/>Í _!Íhå!šhÍFa>Í _ÃQ/*O/åÍ =>Í _É>Í _ ͦ>Í _Íò\ ***************************** BARGRAF.COM v. 1.8 ***************************** This is a bar graph program programmed in SBASIC for the '84 Kaypros. Copyright Veikko Rekunen/SUOKUG/1985 This program may freely be copied for non-commercial purposes but it may not be sold without a written permission from the author, nor may it be included in any package for sale without a similar permission. Veikko Rekunen, 61400 YLISTARO, FINLAND >Í _%ÍI>Í _&ÅÍ=`ø1/ R E A D BARKRAF.DOC !!!!!!!ˆ1åÍ–XÍL`Ím`>Í _'Í„>Í _(ÅÍ=`ÍL`Ím`>Í _)ÅÍ=`ÍL`Íò\Start the program by pressing any key........................ÍL`Í}`2nh>Í _1>Í _1ͦ>Í _2ÍÓ>Í _3ÅÍ=`ø2O M A I N M E N U !h2åÍ–XÍL`Ím`>Í _4Í>Í _5Í]>Í _6Íò\ (G)ive values (H)eadings (V)alue change (D)raw graph (C)hange scale (S)ave graph on disk (L)oads file from disk (Q)UIT! >Í _QÅÍ=`ÍL`Í}`2lhÍL`yÍm`>Í _R͘>Í _S*lhå>͵`ÃÐ3G!Î3åÍÿ8ÍœKÂê3>Í _T͇þ5>͵`Ãô3g!ò3åÍÿ8ÍœKÂ4>Í _U͇þ5>͵`Ã4V!4åÍÿ8ÍœKÂ24>Í _VÍ."þ5>͵`Ã<4v!:4åÍÿ8ÍœKÂV4>Í _WÍ."þ5>͵`Ã`4D!^4åÍÿ8ÍœKÂz4>Í _XÍÍþ5>͵`Ä4d!‚4åÍÿ8ÍœKž4>Í _YÍÍþ5>͵`è4C!¦4åÍÿ8ÍœKÂÂ4>Í _`ÍËþ5>͵`ÃÌ4c!Ê4åÍÿ8ÍœKÂæ4>Í _aÍËþ5>͵`Ãð4S!î4åÍÿ8ÍœK 5>Í _bÍB(þ5>͵`Ã5s!5åÍÿ8ÍœKÂ.5>Í _cÍB(þ5>͵`Ã85L!65åÍÿ8ÍœKÂR5>Í _dÍ4,þ5>͵`Ã\5l!Z5åÍÿ8ÍœKÂv5>Í _eÍ4,þ5>͵`À5H!~5åÍÿ8ÍœKš5>Í _fÍýþ5>͵`ä5h!¢5åÍÿ8ÍœK¾5>Í _gÍýþ5>Íò`>Í _iÃÏ5QÃÔ5q*lhå!Í5åÍÿ8ÍòGÍL*lhå!Ò5åÍÿ8ÍòGÍLÍ4GÍCLÊ@6>Í _iÅÍ=`ÍL`Íò\QUIT? ARE YOU SURE (Y/N) ÍL`Í}`2nhÍL`yÍm`ÃC6ÃD2>Í _pÃO6YÃT6y*nhå!M6åÍÿ8ÍòGÍL*nhå!R6åÍÿ8ÍòGÍLÍ4GÍCLÊŒ6>Í _pÃÃ�6ÃD2>Í _q>Í _qͦ>Í _rÍÓ>Í _sÅÍ=`ÍL`Ím`>Í _tÅÍ=`Ã79SOMETHING HAS GONE W R O N G NOW ! ! ! ! ! ! ! ! !Í6åÍ–XÍL`Ím`>Í _uÅÍ=`ÍL`Ím`>Í _vÍ>Í _wÅÍ=`ÍL`Íò\Return to menu by pressing any key...ÍL`Í}`2nhÍL`yÍm`>Í _xÃD2>Í _yÃ!^i"Si!_i"9h!`i"@h!ai"Gh!bi"i!ci" i!di"i!ei"i!fi""i!gi")iÉSi9h@hGhi iii"i)iCopyright (C) 1979, By Topaz programming. All rights reserved. From here on protected by End User License.  "Ù8á"ì8á"ý8á"û8á"³8"·8"Ý8"é8*ý8ë*"å*û8ãå:þ8·úï8ÍœKÚÜ8*³8å*û8å*ý8å!é*å*ý8åÍ‘Gá"!éÍœKÚÌ8ÊÌ8ÃÜ8á"9!êa6ÿÍFa&:ëaoå!éá"!9Ík;Í$9!éá"H9!K9>Í5f:N9Wæþ2N9zæ2Q9!K9>Íf!éá"v9!y9>Í5f:9æW:|9æþ²2|9!y9>Íf!éá"Æ9á|2Ð9·ò’9åÍçGá)}lg"Î9!É9>6#=ž9>/!É9wÍ¢T:Ð9·ò½9:Ï9ö2Ï9!É9>Íf!éá":!:>Í5f*:}lg::·òñ9!åÃ:ÖÒ:·Ê:G|g}ox<Ãö9::åÜçG!é!ÿÃ:á"~:ÍÙa2òb!òbÍFaÍÙa2êa!êaÍFa!òbÍÉ^!êaÍÉ^!ëa~·ÊW:#ÃM:óbw·Êf:#ÃZ:x·Êm:ÿy2êaÍ(aêa¯2ëb2óc!éá"œ:ÍL`!Xd NÑ{‘Ò–:¯OÅÍ&;!éá"³:!êa6ÿÍFa:ëa_Õ!éáÑÕ>õÅéá"â:á"å:á"êaE:å:!ëaw#ÂÖ:Í(aêa!éá";á"$;á"";ÍÙa2êa!êaÍFa!êaÍÉ^!ëa:";O :$;Íf:$;õ!å!éá"?;á"êa}!ëa6 #=Â2;Í(aêa!éá"h;ÍÙa2êa!êaÍFa!êaÍÉ^!ëaÿ~#·Â];Õ!éá"¨;ÍÙa2êa!êaÍFa!êaÍÉ^!¯;"ûcÍ/Q!«;Ú¢;:µ;æg:²;æþ´2²;!¯;>Íf!éÍ@6#=ÂX<ëa!å!éM>Íšd·Ê€<~ëþRÊ=þSÊ�6#=Âx=6ÿ#6ÿ!éR-TYPE FILE NOT FOUNÄáã}2îbM>Íšd·Ê¼=~ëþRÊP>þSÊÍ=!Â=Ãä^)FILE CLOSÅ";>%~·È~·Âê=*;>%6ÉÍ>*;>%6*;>~·Ê>=_ÍkbÍ*;>ëÍ!>>þÿÊä^É*;>&~#¶õ*;>ë!=>>Í–CñÈÃ>S-TYPE FILE CLOSÅ"ÂB$C ~#Â\>:C·È:CþÊt>ͺ?kbÍ*ÂBëÍ*ÂB(6ÉGæþþ€xœ>2#CÉõ:îbO>Íšd·Ê¼B~þR¼BñÕõ w! Í|µ2•Cñá"ÂBëá"/?á"k?á"C!$C 2Cõ~#Âä>:l?þ ÊQ?ñþ:CÊ>?·Â2?Í™?*Cë*C6 #{²Â ?+6 +6 *ÂB$C w#Â&?!éÍm?Ê.?ͺ?Ã?·ÊH?ͺ?ÍŸ?Ím?Ä€?Ã?Í™?>2CñþÿÊe?Í€?Ã?ͺ?Ã?:#Cþ€À*Cë*C|ºÀ}»É*CÍÚ?Í®A!$CÂä^:•C·ÈBÍÌ?*C"C*C"C*C"C:Cþ>ʶ?/2CÉ*CÍÚ?ÍÆ@!0CÂä^ìB*ÂB$w#ÂÑ?ÉDM*CëÍzB}æ2"C¯zW{_|g}oÂë?z³ÂÀ@" C¯" C"éB2C2ëB:•C·ÂX@* CÍlB|·ÂÀ@}æàÂÀ@}æO*ÂB ~¹ÊX@Åå*ÂBëÍáÁq*ÂBëÍþÿ!PCÊä^*ÂBå!ÈBãìB!~ãw#ã#Âe@á:C!^C·Êä^:øB2C!PCþÿÊä^:•C·Âž@* C} 2 C2èB:ìB·Ê¬@=_Í*Cë!€"ÆB!"ÄB*CÉ!?CÃä^}æÊþ@:"C·Êâ@õÍB BÍbAñ=ÂÓ@ÍbAÍB+|µÂâ@:ÄB·ÈÍBÍbAÃð@ÍlBåÕÍ:•C·Â.A: CþÂ.AÑÕ!ëa€w#ÂAëaÍìB:•C·ÊÀÕå*ÆB}þ€Â\BëaÍÈB:•C·Ê!åë)ëÒ�B Ò�Bã#ã=“BÑÉ)ãõ)ñÒœB#ãÀB!$CÃä^!0CþÊä^!?CþÊä^!sCÃä^!…CÃä^€R-TYPE REAÄEXTENDING FILÅEND OF DISK DATÁ RANDOM RECORÄ R-TYPE FILE NOT OPEÎ NO MORE DIR SPACÅ*WRONG TYPE FILÅ"ÁDõ:îbO>Íšd·Ê‰D~þS‰D ~þRʉD>Wwë"”D–D+~#ÂÃCñþÂßC*ÁD~åÍ!Dá~#ÃëC=_!�D~*ÁDõå~Í!Dá#ñ=ÂëC*”D–D+w#ÂDÉÍ8D!ÃDÂä^*·D"¼D*¹D"¾DÃ"Dõ*¼D|µÊ D+"¼D*¾Dñw#"¾DÉ:»D!ÐD·Êä^:ÀD·ÂND/2ÀDÉ*·D€Í9ZÅ*¹DëÕÍ:–D·ÊpD=_Í–DÍ·áÁÀ x±È€ÅëÃ\D!èDÃä^ S-FILE WRITÅWRITE ON UN-OPENED FILÅ,S TYPE FILÅ"NFõ:îbO>Íšd·ÊF~þSÂF ~þWÊF>Rwë""F$F*~#Â!EñþÂREÍ’E2êa!ëaõåÍ’Eáw#ñ=Â8E!êaå*NFÍFaÃkE=_!F~*NFõåÍ’Eáw#ñ=Â^E*"F$F*w#ÂsEÉͧE·!PFÂä^*EF"JF*GF"LF*JF|µÊ|E+"JF*LF~#"LFÉ:IF!^F·Êä^*EF€Í9ZÅ*GFëÕÍ:$F·ÊÓE=_Í$FÍ·áÁÊèEþÊõE·É x±È€ÅëÿEåÅ*EF€Í9Zá}¹>MáÈ€6# F ÂF¯É!uFÃä^READ PAST EOÆREAD ON UN-OPENED FILÅ,S TYPE FILÅ!)G> 6 #=†F!ëa6!ëa(G:ìaþ:>²F~##þ`Ú°FÖ Ö@~·ÊÕF#þ.ÊÕF¶F~·ÊÕF#þ.ÊÕFÃÇF1G~·ÊæF#ÂÚF!)GÍG!1GÍG!ëa(G w#ÂþFÉ~þ*ÂG> ÿ_y·{Ê!Gþ Â!G>?w# GÉáÁÑz°W{±_ÕéáÁÑz W{¡_Õéá"ŽGÍœK>ÿÒŠGÈGá"ŽGÍœK>ÊŠGÚŠG>ÿÊGá"ŽGÍœK>ÿÊŠGÈGá"ŽGÍœK>ÿŠG>ÍöK!éÁÑá}“o|šgåÅÉÁÑá}ƒo|ŠgåÅÉá"ÐGÍÓGáÁÍZñåüçG*ÐGéá"ÐGÍÓGÑáÍ9ZñÅüçG!éÑÁá|¨õ|å·üçGxÅ·üçGëéáã|/g}/o#ãéáÑÁy»>ÿÊ Hà HáÑÁy»>ÿ H>åÍLáãéá"GHÍK>ÊCHÚCH>ÿÃCHá"GHÍK>ÿÊCHÃAHá"GHÍK>ÿÂCH>Í×K!éá"kHÍ¿J>ÿÊgHÃeHá"kHÍ¿J>ÿÂgH>͸K!é>2¾Já"žJ¯2ëa2œJ2¡J!¤J>Í5f:¥J·ÊJ:§J2�Jæþ2§J!¤J>Íf>͵`!²J>ÍfÍKÚÊH!®J>ÍfÍBO!œJ4Ã¥H>͵`!¶J>ÍfÍKÒïH!®J>ÍfÍ÷M!œJ5ÃÊH:¡J·ÂI/2¡J!ºJ>ÍfÍÇLÃ¥H!¤J>Í5f!œJ~·òI/<þÒ"I^~“w>“2£J{2¢J!¨JÍHJw#Â4Iÿ+~þ0Ê?I:�J·> òRI>-2ëa:¢J·òqI€òŸI:¢J=2œJ>2¢J>2£J!¨Jìa:¢J·Ê‰I=2¢J~#ÃwI>.:£J·ÊÆI=2£J~#Ã�I!ìa¨J:¢J/<6.#60=¬I:¢JG:£J€G#w¼Iëë+~þ0ÊÆIþ.ÊÔI#6:œJ·ÊJ6E#+òéI/<-p#Ö ÚöIÃíIÆ:Ox·ÊJÆ0w#q#6!ëa~·ÂJ60#6>2êaÃ(J#~·ÂJx2êa:¾JþÿÊDJ:Ã]þÿÊDJ:îbO>!êaÍ]*žJéåÅ!¤J>Íf!®J>ÍfÍ÷M!¤J>Í5f¯2 J!¤J~·ÊŽJúŽJ=w!§J·~w+ Â|J: J2 JÃiJ!¤JͦP: JÆ0ÁáÉ €ýÌÌÌì†7¼á"òJ!òb6ÿÍFa!êa6ÿÍFa!óbëaÿ~·Ê KO·ÊõJ¹ÂñJ#ÂÛJ¯!é ~·ÊðJOz¹ÂñJ#Â÷JÃðJ ·ÊðJ¹ÂñJ KÃðJá"}K!ëa>Í5f!ïa>Í5f!òa:îa®ÒCK~öþÃ|K:îaïa!ëaÍ€KÊVK*}Ké!îaòa~æýwæý!ìaðaÒoKë¾Â|K#ÂqK!éÒ…Kë®ò™KO·ò‘Kë·yÀ?ɾÉáÁÑz¨ò°Kz·>ÿú­K·é·7éz¸Â·K{¹éá"ÈK!ÌK·ÂÆK!ÑKå!éTrueFalseá"ëK!îK·ÂåK!òK>Íf!é€!ÿÿ·ÂL!ãé&.T·Â L.Fãéá" LÍqL!ÿÿÂL!å!é>Ã*L>á"@L!ëaÍ5f:ìa·>ÿú>L/·!éáã|µÈ>ÿ·Éá"oLÑ{²Ê\LåÃtLÕ!êa6ÿÍFa*oLå:ëaÃtLáã}þTÊ‘LþtÊ‘LþYÊ‘LþyÊ‘LþÿÊ‘L>·É>ÿ·É"¾L!ÀLÍQ:ÆLæW:ÃLæþ²2ÃL*¾LÀLw#µLÉ>ÃÎL>€2ûLá"øL!M>Í5f!þL>Í5f¯2M2MÍM!þL>Íf!éÍ‘M!þLÍÌM!MÍÌM*üL|­ò5M:üL·ò/M!MÍÙMÃ5M!MÍÙM!MM¯Ž+Â>M*üL}¬}ò^M·ò^M!MÍÙM>ÿ2üL!M¯7ŽwÒrM+ÂfM:üLæG!M~æþ°w!þLͦP:ÿL·ø¯2MÉ!M~_æþw!M~Wæþw:ûLªWë"üL!þLMN¹ÈG©òÀM©x¹ÒÆMëÍÌMîM4·#~wÂÐMÉå~/w+ÂÜMá·~Æw+~ˆwÐ ÂíMÉá"´N!ÐN>Í5f!ÌN>Í5f:ÑN·ò·N:ÍN·ò·N!ÓN~_æþw!ÏN~Wæþwë"ÔN:ÌN2ÖN!ÃN ¯w#Â9NÃKNÊfNÍßNÍîNÒDN·!ÉNÏNŽw+ ÂZNÃDN:ÖNG:ÐNO€2ÃNx©ú›N:ÃN©ò›Nx·ú·N*ÔNë!ÞN>ÿÍ1O!ÛN>Íf*´NéÍýN*ÔNë!ÆN:ÄNÍ1O!ÃN>Íf!é!×N>Íf*´Néÿÿÿ!ÏN·~w+ ÂåNÉ!ÑN·~w# ÂôNÉ!ÉN¯7ŽwÒO+ÂO0!ÄN~·ø+~=w!ÉN·~w+ O ÂO¯2ÃNÉõz«æW~æþ²wñ·ø¯wÉá"4P! P>Í5f!œP>Í5f:¡P·òCP:�P·ò7P!£P~_æþw!ŸP~Wæþwë"¤P:œP2˜PÍgP×O!›PÍ|P ÊÂO¯!ŸPÍ|P!£PŸP·ž+ O?Ú†O!£PŸPŽ+µO·Ã†O: Po:˜Pg•GÆ2˜P|­òøOx­úøOx·ò7P*¤Pë!fP>ÿ͇P!cP>Íf*4Pé!›P¯7ŽwÒP+ÂýO!™PÍpP!˜P4#>€¶w!˜PͦP*¤Pë!›P:™P͇P!˜P>Íf!é!_P>Íf*4Pé!IPÃä^ DIVISION BY ZERÏÿÿÿ!¡PÍpP!�P·~w# ÂsPÉ~w+Â~PÉõz«æW~æþ²wñ·ø¯wÉ~2æP#~·úÓP+~=w~õæþwñ~w+ÂÄP ¬P6É:æP·ð+~·ø6# ÂÞPÉɯ>Žw+>ÂñPÐ~+2S#"S>+2S~#·Ê˜Qþ ʘQþ ʘQþEÂZQ~þ+Ê}Qþ-Ê}Q+>+2S#~·Ê˜Q{‡‡ƒ‡_~ÍÿRƒ_#ÃQ+6E:Sþ+{ʦQ/<2*SÍ5Rx//2S!SÍ¢T:Sþ+ÊÒQ:Sö2S:*S·ÊR!;SòçQ/<2*S!-S"+S>Íf:*S=ÊR2*S*+S>ÍfÍBSÃïQ!4S>Íf!S>ÍfÍBS*ûc>Í5f*ûcÍãT*ûc~æýw¯É¯2SG!S>6#=ÂAR*S~þEÊßR#"Sþ.ÂbR>ÿ2SÃHRõÅ!SS~#ÂlRÁ!SSÍðR!SSÍðR!S"SÍðR!SSÍðRñÍÿR2"S!!S>6+=Â¥R!S"SÍðR:S·Ê½R ÂHR:S·ÂßR*Së!*SþEÊßRþ.ÊßR4ÃÏR:S·ú S!SSÍðRɯÅŽw+ÂôRÁÉÖ0ÚSþ ØÑÑ>ÿ7Éѯ7ÉýÌÌÌÌÌÌ€ á"ÿS!'T>Í5f! T>Í5f:(T·òT:!T·òT!-T~_æþw!&T~Wæþwë".T: T20T!T¯w#„S0ÖSʱSÍ?TÍNTÒ�S·!T&T Žw+ Â¥SÃ�S:0TG:'TO€2Tx©úæS:T©òæSx·úT*.Të!>T>ÿÍ‘T!8T>Íf*ÿSéÍ]T*.Të!T:TÍ‘T!T>Íf!é!1T>Íf*ÿSéÿÿÿÿÿÿ!&T ·~w+ ÂETÉ!(T·~w# ÂTTÉ!T ¯7ŽwÒnT+ÂbT`!T~·ø+~=w!T ·~w+€T ÂpT¯2TÉõz«æW~æþ²wñ·ø¯wÉ0~2âT#~·úÏT+~=w~õæþwñ~w+ÂÀT ¨T6É:âT·ð+~·ø6# ÂÚTɯ>Žw+>ÂìTÐ~ÂkV}»>ÒpV/ë21W}“o|šg"-WµÈDM:1W·Â¶V* å " |!9<¼!×VÒä^* ë*+W+DMá~+|¸Â§V}¹Â§VÉ*+W ë* #DM*+Ww#z¸ÂÄV{¹ÂÄV+" É! *** Out of Memory **ª*%W^#V#"%Wz³Èë^#V+ÍWÃîVå*-W:1W·ÂWëÃW{•_zœWás#rÉå*UWãÉ^#V#~#NÅÕ##N#F#åõëÍZëñá=ÂhWáÁy=w z³Â|WÉã"¢WáͤWþxÊžWÍfå*¢WãÉåØWã"BXá"@X##~2EX#~2DX#~2FX#N#F#ãx”Ú"XÂÏWy•Ú"Xã:EXëá=ÊúWëN#F#ëÍZãõx”Ú"XÂòWy•Ú"XñãÁ =ÂÙW:DXO:FXþ XÍZë*@XN#Fë :DXG:FXå*BXãÉ!(XÃä^SUBSCRIPT OUT OF BOUNDÓáã}2ëa¯2ìa!êa6:Ã]·À:îbO>Í]Éã"”XáÍÙa2êa!êaÍFa:êa_!ëa6!êa:îbO>Í]å*”XãÉã"ÍXáÍÙa2êa!êaÍFa:êa_!ëa6:Ã]þÿÊÇX!êa:îbO>Í]å*ÍXãÉã")YáÍ+Y‘Yþ0ÂæXÃÜX!ëa6 :�Yþ+ÊôXw#·ÊYwÃôXxþ Y60#<62êa:Ã]þÿÊ#Y!êa:îbO>Í]å*)YãÉã"„Yá!‘Yã|·>+2�YòJY}/o|/g#>-2�Y†YÅëN#Fë |·úbYã,ãÃVYy/Ox/G ÁãyÆ0w#Ê}YãÅÃQYáå*„YãÉðØüœÿöÿÿÿåëaÍæZëaÍtZÚ­Yëás#rÉͳYØY!¹YÃØYERROR IN INPUT, RE-ENTER PLEASÅå:÷cÍm`á:÷cOÍ `yÍm`!øYÍ `:çaÍe[É?? !ZÃØYNUMBER TO LARGE/SMALÌÅõyÕë!Í*ZxÍ*ZÑñÁÉÒ1Zë)ë Â,ZÉë"rZ>2qZ7?{_zW!qZ5ÊnZyOxG#y–O#xžGÒFZ*rZ DMÃFZBKɯ2úc þ+ʈZþ-‰Z>ÿ2úc`i"äZ! ·Ê¬ZT])))Ö0þ ?ÚºZ_ÑZ:úc·È|/g}/o#¯É*äZDM! þHÈ·7ÈÖ07øþ ÚÖZÖþ?Ø_))))ÃÄZë"C[ë:êaO·Ê4[*èa~þ Â[ #Ê4[ÃøZ~þ,ÊN[þ ÊN[þ ÊN[þE~Ê)[þ+ÊN[þ-ÊN[ #Ê[[Ã[~þ,Â<[# >0Ã[[~þ,Ê4[Ã)[¯°ÊE[~þ,Â[[# "èay2êa¯ÉõO>ÍšdþÊh\ñO2ça!ëa"èa¯2êaÿÅåÍ`fáÁÚÆ[þ ÊÆ[þÊï[þÊÜ[þÊ \þÊ'\þÊÏ[wÊ5\:õcþÊ¿[åÅ~ÍþcÁá~#þ‚[>ÿ�2êa6É:ôcþÿÊ>ê[xþÿÊ‚[+~ÅåÍþcáÁÂ[xþÿÊ‚[+åÅ>Íþc> Íþc>ÍþcÁáÂ[åÅÍÆ[>#ÍþcÍm`!êa>Í]ÁáÂ[>#ÍþcÍm`:çaÃe[!H\Í|_:÷cOÍF]:çaÃe[TOO MANY CHARECTERS. MAX IS 25µå2ça!ëa"èa¯2êaá^#Vë"å\>!�\å*å\å*èaÉ*èa~þ ʳ\þÊÎ\#"èa:êaÆ2êaÒ‚\!ç\Ãä^>!Á\å*å\å*èaÉ*èa6!ëa"èañÉ#"èa:êaÆ2êaÒÁ\>ÿ2êaÃÁ\-ASCII FILÅá~·Ê]#åÍþcÃò\#~#åþÈþõyÌm`ñÈÍQ`É2E]~·Ê5]2D]#~·Ê5]åÍþcÑ!D]5Ê5]ëÃ]:E]þÊQ`þyÊm`É!L]à `? 2 _" _É2Ã]á"}]þÊ€]ÍÙa2Æ]!Æ]ÍFa!Ç]"Ä]!Æ]ÍÉ^:îb!é*Ä]y]Õ~·Èþ#Èþ.Èþ,Èþ-Èþ$Èþ*Èþ^Èþ+Èþ/Èþ&Èþ!Èþ\´]#~·ÈÑå:îbO~Íþcá#Ã]N#å 6á~·ÊÜ^#ÃÒ^È6#ÃÜ^^ë"ë#: _þÿÊ_Í¢_:÷cÍm`Ã*ù* _é2y_á~2øc#~2ùc#å:y_!z_®þÊP_:÷cO>[ÍþcÍÓ_>]Íþc> Íþc:{_=2{_ÂP_>2{_yÍm`Í`f·ÈæþÊþÂk_:z_/2z_ÉþÀÍ`fþÂn_É^ë"ë#Í¢_!•_Í `:÷cÍm`É WARNING ONLÙ:÷cOåÍm`áÍ `!Ä_Í `:ùcþÿÈ!Ê_Í `ÍÓ_É ERROÒ IN LINE *øc|æðÆ0åÍþcá|æÆ0åÍþcá}æðÆ0åÍþcá}æÆ0Íþc!öc>†wÉ~·ú`åÍþc!öc4á#à `æÍþcÉë* s#r#" ëÉ* +V+^" ëÉáÁy2îbåþ ØÿÃff:îbOÉ!Xd ~ÖÒX`Æõ> Íþcñ<þÂ_`ÉO> Íþc> Íþc¯2öcÉÅ>ÍšdÁþ¡`Å^#V>!œ`åÕ!´`É:´`ÁÉÍ`fõ:õcþʲ`ñõÍþcñÉá"ï`Íò`:êa!ëaÍf:èaþÂÕ`:êaõ!å:êa!ëaÍf:èaþÂî`:êaõ!å!éá"a2èaþÊa!#aO  ~2êa!ëaÍ5f!éÍÙa2êa!êaÍFaÃaá^#V#"Baë~2Ea#Íf:Eaõ!å!éã"ÀaáÑz³ÊzaOFx·Ê‘ay·Âda#6Ña#w·Ê‘aÊ‘a Âda#6ÑañO~¹Ú—aÊŒaå #6á#yÍ5få*ÀaãÉ"¾aêa|ºÂ«a}»Â«aqÃ|a!ëay2êaÍ5f*¾aÍÂaÑaFêaO #È6 Èw·ÈÃÊaáÑz³ÊãaÕéñõÕéÿÿÿÿþ Êdþ Êd!Xd 4þ Â%d6Ã%d!yd 4þ Ê%d6õy2Vd>ÍšdþÊ8dñÃffñ2Wd^#V!Ndå!Wd>ÕÉ:VdO:Wdɷʸd!A ¦dÑdå#~#^#VáÉáN#å!A ÂÄdÑdëá~#ÂÑdé·Èëá"]fë^#=ÊfV#=Õ f*]féÕ*]féá^#V#ëN#F#ÅN#FÅëé·Èëá"]fë__{ÑÒPfs+=Ê\fÑr+=Ê\fs+=ÂOf!é•fÃif³fÅõå> ¹Ú|f!D ãÉ!‚fÃä^%BAD CHANNEL NUMBEÒÃÝfÕgÕgÃgÃ(gÃgÕgÕgÕgÚgÃÔfÃgÃŒgÕgÕgÕgÕgÕgÕgÕgÕgñ_ÍÁÉñÍmg|µÂöf*òfÕéÁæÉ:lg·ÂgÿÍ·Êýfõ¯2lgñÃòfñÍÁÉñÁ!#gåÅÃ)gÈÅÃÞfñ:lg·ÂDgÍmg|µÂKg*DgÕéÁ·7È>ÿÉ|þÊ^gÿÍ2lgÃDg¯2lgþÍÃDg*�g|¥þÿÀ! Í"�gÉÿÿñ_ÍÁÉñ_ÍÁÉñÁ¯7Éñ:åg·Â·g\Íþÿ!ægÊä^>ÿ2åg:ägþ€ÂÖg€Í\Í!æg·Âä^_<2äg!€~ÁÉ€&INPUT FILE REAÄ 22PPÿýýtåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå This is the release date of the disk. TIME COM €Ž€TIME ASM €�€&åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå *************************** B A R G R A F v. 1.8 ************************** Copyrighô  1985/Veikkï Rekunen/SUOKUG®  Thå authoò takeó nï  responsibilitù � foò  anù damagå oò losó duå tï thå uså oæ thå program¬  becauså thå prograí � has not been tested for all possible uses. � GENERAL: BARGRAPH.COÍ  anä BARGRAPH.DOà forí á graphicó packagå foò thå '8´ Kaypros® � Subsequentlù  iô  shoulä  worë  onlù iî thoså  Kayproó  witè  thå  graphicó � capability®  Alì versionó oæ BARGRAPH.COM¬  whoså versioî numbeò ió smalleò � thaô 2.° maù freelù bå copieä tï friendó anä acquaintances¬  buô theù  musô � noô  bå  solä noò includeä iî anù packagå foò salå withouô á prioò  writteî � permission from the author. All enquiries should be addressed to Veikko Rekunen SF-61400 YLISTARO F I N L A N D� BARGRAPÈ  versioî  1.8  ió  stilì anythinç buô perfect¬  buô  iô  offeró  á � limiteä possibilitù tï displaù informatioî aó baò graphs®  Duå tï thå largå � filesizå  thaô SBASIà forms¬  thå prograí haó somå  limitations®  Thå  mosô � notable are: - only 12 bars at one time - no printer support as yet THE USE OF THE PROGRAM: You start the program as any other CP//M program by writing: BARGRAPH or bargraæ Thå  prograí acceptó botè smalì anä capitaì letteró IÎ ANÙ OTHEÒ OPTIOÎ buô � wheî  savinç oæ loadinç graphs®  Thuó iô ió possiblå tï uså  smalì  letteró � almost exclusively.� Thå prograí ió supposeä tï bå verù easù tï use®  Wheî yoõ starô thå prograí � (bù writinç foò instancå BARGRAPÈ anä pressing)¬ yoõ wilì firsô seå � the copyright notice. Pressing any key will move onwards to the main menu. This is what the main menu looks like: M A I N M E N U (G)ive values (H)eadings (V)alue change (D)raw graph (C)hange scale (S)ave graph on disk (L)oad file from disk (Q)UIT!  Yoõ  no÷ makå youò choicå merelù bù pressinç thå appropriatå key®  Yoõ  maù � uså  eitheò smalì oò capitaì letters®  DÏ NOÔ PRESÓ ®  Iî thió caså  yoõ � wilì seå thå bars§ outlines®  Iæ yoõ presó "F¢ oò "f"¬  theù wilì bå filleä � bars® Iô ió easù tï accentuatå thå baró bù defininç everù seconç onå (O)peî � anä thå otheró (F)ull®  Usuallù (O)peî baró arå gooä enough¬  aó thå (F)ulì � bars are rather brighty. Eacè  baò maù bå giveî á namå (maximuí µ characters)®  Theså nameó wilì  bå � printeä belo÷ thå bars®  Iæ yoõ enteò morå characteró thaî 5¬ thå resô wilì � be truncated. After you have entered the name press . Afteò  yoõ havå giveî thå datá foò onå bar¬  yoõ maù gï oî enterinç datá bù � pressinç  ®  Afteò thå headinç printó thå presenô maximuí valuå oæ  thå � bars.� (V)alue change Firsô  yoõ wilì bå askeä whetheò yoõ merelù wisè tï chnagå alì thå  presenô � baró intï (O)peî oò (F)ulì bars® Pressinç " + TIME + X @ 17,0 * EOF:DBASTIME.CMD åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå; Program ....: DBASTIME.ASM ; Author .....: Gary Conway ; Created ....: 7 Feb. 1986 ; Update .....: ; Notice .....: Copyright 1986 Infinity Design Concepts ; ; ESC EQU 1BH CLS EQU 1Ah LF EQU 0Ah CR EQU 0Dh ORG 43000 ;put it in a safe spot ; --------------------------------------------- ; ;jump table ; JMP MENU ;draw menu lines JMP CLOCK ;clock routine ; ;spares ; JMP 0 JMP 0 JMP 0 JMP 0 JMP 0 JMP 0 ; --------------------------------------------- ; ;the following variables can be read with PEEK() in dBASE ;they are valid after a call to CLOCK ; MEMCON: THOURS: DS 2 ; +0,+1 = HOURS TMINUTES: DS 2 ; +2,+3 = MINUTES TMONTH: DS 2 ; +4,+5 = MONTH TDAY: DS 2 ; +6,+7 = DAY TYEAR: DS 2 ; +8,+9 = YEAR AMPM: DS 1 ; 1 = PM, 0 = AM DS 20 ;spare ; ;draw menu lines ; MENU: LXI H,MENUTBL CALL PRTABLE RET PRTABLE: ; ; This routine will print lines from a table in the following format ; V1,H1,V2,H2 ; HL points to the table at entry  ; the last byte of the table must be FF DCX H PTBL1: LXI D,PLINE +1 MVI C,4 PTLP: INX H INX D MOV A,M CPI 0FFH RZ STAX D DCR C JNZ PTLP PUSH H CALL ILPRT PLINE: DB ESC,'L',0,0,0,0,00 POP H JMP PTBL1 ; ;in-line print routine ; ILPRT: XTHL MOV A,M INX H XTHL ORA A RZ PUSH H MOV E,A CALL CO POP H JMP ILPRT CO: PUSH B! PUSH D! PUSH H MOV E,A MVI C,2 CALL 5 POP H! POP D! POP B RET MENUTBL: DB 36,32,36,190 ;top line DB 46,32,46,190 ;second line DB 36,32,88,32 ;left line DB 36,190,88,190 ;right line DB 88,32,88,190 ;lower line DB 0FFH ; ;clock routine ; CLOCK: ; Ports for NS-MM58167A National Clock Chip ; ----------------------------------------- ; PORT ; 34D 22H RTCS - Status Port R/W ; 36D 24H RTCD - Data Port R/W ; 32D 20H RTCA - Attribute Port R/O ; ----------------------------------------- ; ; ; ; initialize clock mvi a,15 out 34 ; send to clock init port ; THE RETURNED VALUES ARE IN BCD AND MUST BE CONVERTED ; TO DECIMAL OR SOMETHING IN ORDER TO BE USED ; *************************************************** ; ---------- GET HOURS CODE ------------ **** ; *************************************************** HOURS: mvi a,0 ; 0 is code for AM sta ampm mvi a,04 ; put 4 in A out 32 ; send to port 32 in 36 ; get hours from port 36 mov e,a ; store code temp in E in 22h ; check status port cpi 01h ; if status bit D0 is 1 => bad read jz HOURS mov a,e ; recall stored code cpi 20h ; test for 8 oclock pm jz OCLOCK8 cpi 21h ; test for 9 oclock pm jz OCLOCK8 cpi 22h ; test for 10 oclock pm jz OCLOCK10 cpi 23h ; test for 11 oclock pm jz OCLOCK10 cpi 00h ; test for 00h jnz pass mvi a,12h ; if zero => make 12h jmp store ; go store PASS: cpi 12h ; jm store ; if < 12h => go store cpi 12h jz codepm ; if = 12h => go store sui 12h ; subtract 12h if > 12h CODEPM: mov e,a ; save A into E mvi a,1 ; 1 is code for pm sta ampm mov a,e jmp store OCLOCK8: sui 18h ; subtract 18h from 20->21h ; converts 8->9 oclock to regular time jmp codepm ; go set the pm code to 1 OCLOCK10: sui 12h ; subtract 12h from 22->23 ; converts 10->11 oclock to regular time jmp CODEPM ; go set the pm code to 1 STORE: sta memry ; store ; --------------------------------------------------- MIN: ; *************************************************** ; ---------- GET MINUTES CODE ------------ **** ; *************************************************** mvi a,03 ; put 3 in A **** out 32 ; send to port 32 **** in 36 ; get minutes from port 36 **** sta memry+1 ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz MIN ; if bad => go read again **** ; **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** MONTH: ; *************************************************** ; ---------- GET MONTHS CODE ------------ **** ; *************************************************** mvi a,07 ; put 7 in A **** out 32 ; send to port 32 **** in 36 ; get months from port 36 **** sta memry+2 ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz MONTH ; if bad => go read again **** ; **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** DAYS: ; *************************************************** ; ---------- GET DAYS CODE ------------ **** ; *************************************************** mvi a,06 ; put 6 in A **** out 32 ; send to port 32 **** in 36 ; get days from port 36 **** sta memry+3 ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz DAYS ; if bad => go read again **** ; **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** YEARS: ; *************************************************** ; --------------- GET YEARS CODE --------- **** ; *************************************************** **** mvi a,09 ; put 9 in A **** out 32 ; send to port 32 **** in 36 ; get years from port 36 **** sta memry+4 ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz YEARS ; i f1 => go read again **** ; **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** WKDAYS: ; *************************************************** ; ---------- GET WEEKDAYS CODE ------------ **** ; *************************************************** mvi a,05 ; put 5 in A **** out 32 ; send to port 32 **** in 36 ; get weekdays from port 36 **** sta memry+5 ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz WKDAYS ; if 1 => go read again **** ; **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** ; This next little piece of code is due to the fact that ; Kaypro does not utilize the power up/down functions of ; the clock chip correctly, and sometimes during this ; transition period, the clock can become disrupted. If ; we leave the chip pointing to hundredth's of seconds ; then if there is a time change during transition, it won't ; make much difference. ; ; ---------- Leave PIO Pointing to hundredth's of seconds ; mvi a,01 out 20h ; --------------------------------------------------------- ; **************************************** ; CONVERT FROM BCD TO DECIMAL ; **************************************** CONVERT: lxi d,memry lxi h,memcon mvi c,6 LOOP: ldax d rar! rar! rar! rar! ani 0Fh ; zero high order nibble adi 30h ; convert to ASCII mov m,a ; and store to memcon ldax d ; reload char for low order nibble conversion ani 0Fh ; zero high order nibble inx h adi 30h ; convert to ASCII mov m,a ; and store to memcon inx d ; increment source pointer inx h ; increment dest. pointer dcr c ; decrement loop ctr. jnz loop RET ; ; ============= VARIABLE AREA ================= memry: DS 6 ; =============================================== ; END åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå:10A7F800C32FA8C387A8C30000C30000C30000C3B9 :08A808000000C30000C30000C2 :10A82F002172A8CD36A8C92B114CA80E0423137E74 :10A83F00FEFFC8120DC23CA8E5CD56A81B4C000068 :10A84F00000000E1C337A8E37E23E3B7C8E55FCD7F :10A85F0065A8E1C356A8C5D5E55F0E02CD0500E199 :10A86F00D1C1C9242024BE2E202EBE24205820243E :10A87F00BE58BE582058BEFF3E0FD3223E00321A9C :10A88F00A83E04D320DB245FDB22FE01CA8BA87B0A :10A89F00FE20CAD3A8FE21CAD3A8FE22CAD8A8FE7A :10A8AF0023CAD8A8FE00C2BDA83E12C3DDA8FE125F :10A8BF00FADDA8FE12CAC9A8D6125F3E01321AA845 :10A8CF007BC3DDA8D618C3C9A8D612C3C9A83254F2 :10A8DF00A93E03D320DB243255A9DB22FE01CAE0B7 :10A8EF00A83E07D320DB243256A9DB22FE01CAF093 :10A8FF00A83E06D320DB243257A9DB22FE01CA0073 :10A90F00A93E09D320DB243258A9DB22FE01CA104D :10A91F00A93E05D320DB243259A9DB22FE01CA2030 :10A92F00A93E01D3201154A92110A80E061A1F1FEA :10A93F001F1FE60FC630771AE60F23C63077132393 :05A94F000DC23CA9C986 :0000000000 ÃÉÍ«Copyright (C) 1984 BORLAND Inc‚AKaypro with hiliteedP= ERC1B1~·7È#õå~Íáñ=ÈóÍ% ÉÅÕåÝåýåõo&åͦñýáÝááÑÁÉoåͦÉþ€Ü�Ô©æîÅÕåÝåýåÍ£}Ùå!å!"8áãõÅÕ~#·(åÍáôÑÁñãÉ}´È:$‡‡‡ããããÅÒÁ= ô+èÍÐØ*ÎßõÅÕå!¨ÍZ!¢ÍÐ*ºÔBáÑÁñÉõÅÕå!´éõÅÕå!®àõ:¼·(ÅÕå=2¼!ÈÍZáÑÁñÉõ:¼· ÷ÅÕå<2¼!ÂåõÅÕå!¼ÛõÅÕååð!‹í°Ñ:žO:œ‚ÕÍÑ:ŸO:�ƒÍ!ðÍÐ* ÍBáÑÁñÉ!ð ë!›45(É!.+/ –0ü†õyþ0(ñíÉ d!kÃZ!{ÃZ͈æ͈o&Éô  áÁå:á·(yþ ÕÅÍ |µ(Íþ ÍþÊÅÁÑ*é"ÛÕx2áy·( >Ã28!?"9!É í°!á¸í°áí°>2گà Ã:ÃDÃ]ÃSÃXÃNÃ]ÃDÿ í[Ûþ (ú!eÍ}Í„þA8þQ0Gþ: xÖ@¯!\w# ( þ  ÍyÍVþ. ÍV!h6#ûÉ (þ*(þ.(þ!8þ}(þ*(Í„w#ßÉ>?> w#üÉþaØþ{ÐÖ É|Í’}õÍ›ñæÆ�'Î@'Ãè¯7Ë|À|·}È>ÿÉ"ÍíCß"í6#ûëÑùü "Ïë"ÕÍ�Í©éå*Ï·íB"Ïí[Í·íRëáÚ5í°É*Ïí°"ÏÙÉ^#V#Õ^#V#N#FáÉÝáëO/o&ÿ9ùëí°ÝéÑO/o&ÿ9ùëí°éÝáë!àÿ9ùëÅ(¯üí°Á> �‘(G¯üÝéÝá!àÿ9ù ¯w#üÝéÝáEÍŠ¶wÝéÝáÑ}“8÷�Ãu·íR·íB0 É>‘î·íRëê@ðøÉÕë·íRëáë·íR!È+Éͨ õÍz ð·íR!À+Éͨ õÍz ðÍ<!Ð+Éͨ õÍz ðÍ<!ÈØ+Éͨ ôÍz ïÍ<!ÈØ#Éͨ ôÍz ïÍ<!Ø+Éͨ õÍz ðT]KBë!z·> S>)ë)ë0 = öÉ|ªõÍJëÍJëDM¯go>íjíB0 7?ËË= ðëñðHåÍ\Ë<ËÑëÍÞëËzÈ5Í+È)ýÉÍ+ÈË<ËúÉëz· {þ0G·É¯goÉë|ª|úHºÀ}»ÉÉË|È|/g}/o#É}æo&ÉíKÓí[ÑÅÕxAJSËËËËáëáíJDM!éb"Ñë!6íJ"ÓDMÉ'ͬèͬdͬ ͬ} ¯<íR0û= ÈÆ0ÝwÝ#ÉÝ~Ö$O! Ý#Ý~Í„Ö08)þ 8 !Öþ 8þ0T])Ø)Ø T]Ø)Ø_ØËy·È|‡ÉÝááå}&#9N�8wë!DíB9ùëåí°ëá+Oí¸ë#ùÝé>ÃwÝáͦWáͧ _áå}“8(º8J`9{‚T]=o`9yí¸ë ¯ÃwÍÖ Ð>ÃuÍJ õÍuÍ` íÙ}·Ù>(è; àÙËxÙÂQ Ù}·ÙÈÙÅÕåÙ}· Ù˸TÅËø¯ÙËø}Ù•(0íD=ÙÍC ,= ù(Ùñæ€ Í[ 0%ÍD ·, 7 Í� ?õ(8ÙÍu Ëx ÍO - öÍ; ñ8˸·ÙáÑÁÙÉÙËxÙÂÝ ÍX ÍÝ Ø,-Èxî€GÉÙ}·ÙÊ; }·ÈÙ…ÙÍ ÅÕåÝ9Í; Ù.Ù>Ý#ÝnË0Í[ ÍD = ñÙ-Ù åÝnûËx ÍP ,-(-ñññ·ñÙÁáÙÝá˸°G,-Ì; É}·ÈÙ•Ù?Í åååÝ9Ù.Ù>Í� 8Íu ?Ë= ÝuÝ+Ù-Ù(>ÍO 0ßÍu ·áÍO 8Í� ?áÑÁËx ÍP š, —7•8Æ€8Æ€8oÝãÙåÅxËøÙ¨æ€õËøÝåÝ!ÉáØ¯oGOW_gÉ·ËËËËËÉ·ËËËËËÉ|Ù„Ùg{Ù‹Ù_zÙŠÙWyÙ‰ÙOxÙˆÙGÉ|Ù”Ùg{Ù›Ù_zÙšÙWyÙ™ÙOxÙ˜ÙGÉxÙ¸ÙÀyÙ¹ÙÀzÙºÙÀ{Ù»ÙÀ|Ù¼ÙÉÙxÙ¨ò² xÉËx(ͼ È?É}Ù½ÙÀ·ÈÃ� }Ö�Ú; <þ(ÐÙÅÕåÍ; 7ÍD = ùÙ|Ù¤Ùg{Ù£Ù_zÙ¢ÙWyÙ¡ÙOxÙ ÙGÃD ÙÅÕåÙÍuÙÍÆ ÙÍJ ë}·ÈËx>ÂuÍu}Æ€Ë/Æ€oÖõÙÅÕå; ÍÖ -ÅÕåÍJ }áÑÁÙáÑÁã¼ã0ãñÙÉÙÍW-ÍJ ÙÍW,Ù}þlØÅ˸ͨ Á8 ; Íý Í` Ëx(ÍÖ Ù-Ùͨ õ8ÍJ Ù-Ùͨ 8Ù,ÍJ }þl8;Ùª*ªª!ªÍ` ÝåÝ!Ð >ÍýÝáÍuÍ` Í` ÅÕåÙÍu--Ù-ÍÖ ÙáÑÁÙÍJ ,,ñ,-ÈØxî€GÉgª?+2×n¶*ï8t Ð Ðzˆˆˆˆ~«ªªªª,->ÊuËxÂuÙÍaÙ}.�•õ; ÙÍOÙÍJ ÅÕåÙ,ÍÖ ÙáÑÁ; ÝåÝ!U >ÍýÝá,ÙÍk-ÙÍÖ ñÅÕåo&0%ÍÑÙ,Í` ÙáÑÁÍÖ }þgÚ; É}Š�؉}颋.:}Žã8Žc~I’$I~ÍÌÌÌL«ªªª*ÙÍkÙ·Ëxõ˸; }þˆ0GÅÕå,Í™åË<Ë}áõÍÑ,-(-ÙñáÑÁõÍJ ÝåÝ!Ù >ÍÝáñ0 õÙÍaÙÍ` ñ…o8 ñÈÙÍOþ á>Ãum.`1pF,þåt6|‰„!wS<ÿÃ.zÒ}[•|%¸FXc~üïýu€Ò÷r1}·ÈÝåÙÍOÙ¯Ëx(<˸õͨ 8Ù; ñËÿõÙÏŽé!~JÙͨ 0Í÷OÝ!—>ÙÝÍ<Ùͨ 8 = ìÙ ÝÙÙÍ7ËøÍÖ ÅÕåÍ<Í` ÙÍOÍÖ ÙáÑÁ; ÝåÍ÷ÝáÙÍ7ÍÖ ñ0 õÙÍW-ÍJ ñÝáËOÈËøÉçÏÌTöô¢0 jÁ‘ €µžŠoD€‚,:Í€jÁ‘ �€!¢ÚI}袋.º}Žã8Žc~I’$I’~ÍÌÌÌL«ªªªªÝ!Ó>ÅÕåõÍuÍ` ñÍÙáÑÁÃ` õÙÍ7õÙÅÕåÍ7ÍÖ ÙáÑÁÙÍ` ñ= éÙÍOÃÖ ÝÝnÝfÝ^ÝVÝNÝFÉ!�DLT\ÉI¢Ú!‚!É53ó!�úÉr1÷!€ÒÉÅÕåÙáÑÁÉÍ\!€> Ëx Ë#ËËË-= ðo˸ÉËxÙÍO(Ëø-ÍÖ ·Ë}(ËxËø>�½8(ÍC ,óÍC `iÈÃM!É>’Ãu|µÊ; Ë|ÍJ>�Ë| )=Ë|(úDMboÀ˸Éͦë8þ8ͦÙËxÙ(’0¯þ 8> ÕÍMÑËx(>-ͲË{(aËy(Ͱͦ ò\z·(>.Ͳ (Ͱ ÷ú~ͦ÷Ë{È>EͲ>+Ë|(|íDg>-Ͳ|/Ö 0ûÆ:ÝpÝ# ý~ý#· ý+>0ÝwÝ#Éýå,-  ý60ý#ø¯ÃJÅ˸}ÙÖ€oŸgMÍÄ|þÙ <ýwíDÍ }þ�0Í€ý5Ëø>„•.(ÍC Ë= øý~õ> xæÆ0ýwý#xæGÅÕåË%ÍP Ë%ÍP ëãÑãíZëáãíJDMáË%ÍP = ÈñÁýáÉýåá_~6þ5Øúi+~¨¥Ôh¶¿ÉìÅëx-ÐÍÎÂSÞùx9?ë+¨­ÅøÉ{Η@}·ÈËøÅÕ|ÍC ÍC „gãíZëáãíJDMá0ÍD ,7È}Æo˸ÉÍ ¾ #øyîO!@9ùi&ÝéÍ  ë¶¾ â#÷ÚÍ ¶w#ùëùÝéÍ /¦w#øïÍ ¦w#ùãýáÝá!9ë! E9ýéÝá!!9~·(¯+FÍŠ¦!"9ù!(#Ýé>¯2æýá*ÛͲ¯á"âýå|·>"Ê :æ·( ͆ *â6#wÉÍ÷*â6#6 ë!\$í°É!¶Ååí[Ûþ (úÍ„–( áÁã·É#ëÁÁþ:À~ÉCONTRMKBDLSTAUXUSR>¯2æÍîÍ$*â#~þ ͶÍ$*â:æ·> >w###6ÀÃÖþ þ #6++pÉ>¯2æíSäÍ-Í$Ͷ:Ù·À*â6###ww#w$w#wÖÿ:æ· åÍôá##N#F*ä·íBÈ>�à å¯w#w#í[äs#ráÃó>¯2æÍSÍ$ͶÍ$*â6å ë#Íá-¯Nw#FwÖÿq#p#6€#w#w#wÉÍß*â ë:æ·( ÕÍÑñÅÍÁ<Àxà *â6#ûÉ"â#~+þ 2ËN(>Í’:Ù· *âË^ îËFÈ*âå ëÍá< >ÿ2Ù6É"â~æÈÍŸ*â-¯w#wÕÿw#ÍóÍŸÀ"â~æÈ·ÍÀ ëÍ<À@ýá*ÛͲ¯áýåÍÀåÍ÷áåë!\ í°á åëÍÑ<Ê®!\$í°É>à >¯2æÍÀ*ß|µ>! ë*â \$í°\Í<(Ï!ý€í°:æ· í[1Ã�ÿÕÍ\ÍÑ!€ë·(éf"âÍÂÈ> 2ÙÉ:Ù·ÈñÉÝáÝåå!ÊÍ<áÉÝáÝå"âËF( #~þÀ#6Ãe>Îå!ÊÍ[áÉ"âËNÀ>ë!Ú~þ€8>O6*Û"ÝÍwþ (=þ(&þ("þ(þ :á·(ßÃNþ 8Øyº(Ô~#ÍèÌúx+Í% (½ï6Éå*â#~þáÉÍÂÈÍ[þÈÅÕå*â#~· *Ý~þ(h#"Ýb= Íõþ 8Íèþ ÌáñJ= ÍB== ͯ}8= ͵}/Í­ !*â###å~Æ-_~áþ(4òQ6*âËÖ>™2Ù>*â##wáÑÁÉ:Ù·>Àå*â##~áÉå*â#~þÿ(EÍÌÍ[þ ( þ (þ (þ ÍÖè!]Í[þ (þ (þ (þ(w#(ÍÖãÍÂÌÖ6áÉÝ!]Ý~·Èþ-ÀÝ#É8Ý~·È>7à ëÍ Í[ÃÖÍÖÉ>¯OÅÍkÁͼÈÅåÍÁÑÁÍÎØÌMës #rëÉÍkͼÈÅåÍpÙáÁÍÎØÙÌX ÙáåÍÌÍ[þ ÍÖôÍ[þ (þ( #w(ÍÖêÍÂÌÖáqÉ*â#~þÊáÍ[þ (þÈÍÖñÍ ÍÖþ ÀÃÖ*â##~þÈ6ÉÅÕåÍœáÑÁÉOÍ$*â#~þ(08áÅå·Ê¦=ʦ==Ê©=ʬò+ËÞ###å~Æ-_qá4ð6Í¡È>ðà *æ:è¾È4^qÉ}Ã’ÁÑÅÝ*ÛË|(ÍMëëË|( ÍMÝ6-Ý#ÕÍ�áͦí[ÛÝåá·íRë“8 (G> Í’ùCÈ~Í’#÷ÁÑÙáÑÁÙÅÝ*ÛÕÍôÇÁÑÅͦËC!h Ç!lÀTRUEFALSEͦ!9^#Í(ÑùÕÉá~#·(G~Í’#ùé> Í’> Ã’ "âËF!ÈÍ[¸(þÀ#ÉåÍRë·íRá0Íô*â4À#4É>™Ã åÍR·íR *â4 #4(áÍóÒ>òÜ>¯2çÍ$ë*âËV(/Ë–:ç·(#~+· x· y·ú2ÅÕ!͵ÑÁ( =(þ X:ç·(R*â:ç·(ËÞ###~Æ-Õ_ÑÖ-ÍŒí âX<òN=<ÍŒ*â###æw ÅÕåÍŸáÑÁ Õ*Ñ4 #4x±ÂüëÉ>™>ðà õ:ç·(ëñÉ"âÍŸÈè"*âËÖË^ÈËž*âËVÈË–åÅ0ëÍÁá ëÍ·ÉÁÑíSâÅåÍRÑ·íR8A*â N#F#s#rÍ$ 0}æ)ëíjëS\*â###w* N#Fë·íB ÈÕåÍŸÑár+sÉ>‘à ÕÙáÙ!T]>)ëíjëÙ)Ù0 0= ïÉÍU·íR!À#ÉÍUëÉ*â^#V#ÕN#F#^#VáÉ>">!2çDMÝáÑáÝå"â~æÊóx±(LÅÕÍ*â ë:çOÍÑÁ·(o:çþ" C}=(þ ?ÅÕ*â-N#Fp+qÛÿq#pÑÁ!€ë °*â F+N+++V+^ë·íBÐëq#pÉ>™>ð>à ÁÑíSâÅåÍRÑ·íRÚ*â s#r$ s#rÉ"äíSæëá"â! N#Fë·íB(^x± *â 6#ûí[âÍ<(H*â! íKäq#p##ëíKæÅÕÍí[â!Í· *â! 4 #4Ñ!€ëÁ x± Õ*â$ éÝ*â>ðÃw"òëáã"ô{æü_!í"ëÝ*íÝnÝf}´(HíR0ÝnÝfåÝ"ëÝáã Ý^ÝVÝåMDÝnÝfÝåÝÝuÝtÝqÝpÝåÑ*ës#rÑ*ôs#rÉÝåá"Í*ò ÝåÁ Ú5íKÏíB!Úð>ÿÃuëáã~#fo{æü_ë"ò*íåÝá·íR0RÝnÝfå·íR0ÝáðáÕýáíKòýqýpýuýtÝsÝrÝåáÝNÝFÍÄ( Ý^ÝVÕÝáÝåáÝNÝFÝ^ÝV*ííSíÕÝáÝuÝtíKòÝqÝpë ·íRÀÕýá*Í·íR(ý~Ýwý~Ýwýnýf ÝuÝt¯ÉÝåá"Í6#ûÉÍ *öÉÍ *øÉ!"ö"øÝ*íÝNÝFy°(*ö "ö*ø·íB0íCøÝnÝfåÝáØ*Ïûÿ í[Í·íRØë*ö"ö*ø·íRÐíSøÉí[Ís#rÉ^#VíSÍÉ>¯O"æ¯w2Ùx2è!ê"âá"äá ÍöÍ@*äé>¯2ê"æ!ê"âá"äá"è!\Ͳ¯*è:ê· ÍîÍ!Ù~6·go(Ýåá\íRë*æs#r¯ÿí_2ÔÉëÝáÁáx±( s x±(T]í°ÝéDMÝáÑá·íR0ð ë ëí¸ÝéÑÁÕ-a%ÃÆ}Í„oÉ*é!Ù~6o&ÉÍ |µÈÍ£}þÀÝáÍ%^C User break1:Ù·ÈÝáõÍ% I/OÝáÍ% Run-timeÍ% error Í’Í%, PC=Ýåáí[Õ·íR"×Í�Í% Program aborted*ßé1!€¿¸ÿÍ�!s.*½ͲÃ3+ÍRÍ�B0ÍbÉÍRÍ�C0ÍbÉÍRÍ�B1ÍbÉÍRÍ�C1ÍbÉÍRÍ�B2ÍbÉÍRÍ�C2ÍbÉÍRÍ�B3ÍbÉÍRÍ�C3ÍbÉÃÜ ýáá"y¾ýå*[ &}îoËEÊ!!€Í !\ Ͳ!}2[ !"\¾!å*y¾ÑÍ5z³ÊÓ!Õ"^¾Í!`¾Í²*\¾å!€Í ÍmÑ͇å!€å*\¾Ñn&å! ÑÍNÑ}£oËEÊk!*\¾å!Ñ"\¾Ã-!*\¾å!€Í ÍmÑ͇å!€å*\¾Ñn&å! ÑÍaÑ}£oËEÊÊ!!`¾Í !€å*\¾Ñn&e.åÍ!`¾Í²*\¾å!Ñ"\¾Ãk!*^¾#ÑÃ!!`¾Í !{¾Í²ýá!{¾Í ýåÉÃõ!Íc*ó!å!P½ëÁÍo&"T¾!\å!Ñå!ëás!å! ÑÍ5z³ÊG"Õ"R¾!\å*R¾Ñå!?ëás*R¾#ÑÃ%"*ï!å!\ëÁÍo&"T¾*T¾å!ÿÑÍaËEÊ#*T¾å! ÑÍÄ"P¾*P¾å!Ñå*P¾å!ÑÑÍ5z³Êµ"Õ"R¾ÍR!P½å*R¾Ñn&ÍòÍb*R¾#ÑÃŽ"ÍR! ÍòÍb*P¾å! Ñå*P¾å! ÑÑÍ5z³Êÿ"Õ"R¾ÍR!P½å*R¾Ñn&ÍòÍb*R¾#ÑÃØ"ÍRÍ� Íb!"V¾*ñ!åÁÍo&"T¾*T¾å! ÑÍÄ"P¾*T¾å!ÿÑÍaËEÊã#*P¾å!Ñå*P¾å!ÑÑÍ5z³Ê~#Õ"R¾ÍR!P½å*R¾Ñn&ÍòÍb*R¾#ÑÃW#ÍR! ÍòÍb*P¾å! Ñå*P¾å! ÑÑÍ5z³ÊÈ#Õ"R¾ÍR!P½å*R¾Ñn&ÍòÍb*R¾#Ñá#ÍRÍ� Íb*V¾å!Ñ"V¾*V¾å!ÑÍNËEÊ$!"V¾ÍRÍ�Íb*T¾å!ÿÑÍNËEÊ#ÉÍcÍRÍ�GKPBROWSE.COM version 5.0 for the Kaypro/84 series, Veikko Rekunen, 1986Í�ÍbÍRÍ�ÍbÍRÍ�GThe program present text files, including those written with WordStar'sÍ�ÍbÍRÍ�JD-option on the Kaypro screen and shows boldface, doublestrike, underlinesÍ�ÍbÍRÍ�,and the alternate and normal character sets.Í�ÍbÍRÍ�ÍbÍ ÍèÍRÍ�M Copyright 1986, Veikko Rekunen, 61400 YLISTARO, F I N L A N D Í�ÍbÍ ÍöÍRÍ�ÍbÍRÍ�L This program may be copied for non-commercial purposes, but it MAY NOT beÍ�ÍbÍRÍ�M sold or included in any package to be sold without a prior written consentÍ�ÍbÍRÍ�E from the author. Programmed in Borland Int'l's Turbo Pascal, v 2.0Í�Íb! å!ÍÍRÍ� This is ^BÍbÍèÍRÍ�boldface text!ÍbÍöÍRÍ�^BÍb! å!ÍÍRÍ� This is ^DÍbÍèÍ ÍRÍ�double strike text!ÍbÍ ÍöÍRÍ�^DÍ�Íb! å!ÍÍRÍ� This is ^SÍbÍ< ÍRÍ�underlined text!ÍbÍJ ÍRÍ�^SÍ�Íb! å!ÍÍRÍ� This is ^AÍbÍ ÍRÍ� alternate ÍbÍ ÍRÍ�!^N and this normal character set.Íb!å!ÍÍ ÍèÍRÍ�Press any key...... ÍbÍ ÍöÍ ËEÊV(ÉÍcÍì!!å!ÍÍ ÍèÍRÍ�"File to read, to finish: ÍbÍ ÍöÍ< !³¾Í+Í.Í_ÍbÍJ ÉÍ5"B½*B½å!ÑÍa}2ç!³¾Í ÍÍ\ËEÊí(!}2ç*ç&ËEÊ3)ÍRÍ�ÍbÍc!å! ÍÍèÍRÍ� NO SUCH FILE!Íb!èÍBÍ_(É!̾Í8!²¾ÍÛÍb*²¾&"Ⱦ*Ⱦå!ÑÍ›ËEÊm)*Ⱦå!€Ñë·íR"ȾÃs)*Ⱦ"Ⱦ*Ⱦå! ÑÍNËEÊ�)*ʾå!Ñ"ʾ*Ⱦå!ÑÍNËEÊ¥)!-"Ⱦ*Ⱦå!ÑÍNËEÊ»)!-"Ⱦ*Ⱦ}2²¾É*²¾&ÍRÍòÍbÉ*ž&å!ÑÍNËEÊñ)!}2žÍèÃû)!}2žÍöÉ*ƾ&å!ÑÍNËEÊ*!}2ƾÍ< Ã%*!}2ƾÍJ É*ľ&å!ÑÍNËEÊH*!}2ľÍ ÍèÃU*!}2ľÍ ÍöÉ!å!ÍÍ ÍèÍRÍ�#Press any other key for next screenÍbÍ Í ÍRÍ� ÍbÍ Í. ÍRÍ� to stop...Íb!¾Í8!°¾ÍÛÍb!"ʾÍ Íö*°¾&å!ÑÍNËEÊø*!}2þÍc*ƾ&ËEÊ+Í< *ž&ËEÊ+Íè*ľ&ËEÊ%+Í Íè*¾&ËEÊ2+Í É!åÍX ÍÍoËEÊ_+!åÍX !³¾Í²!}2ǾÃi+!}2ǾÍ$*Ǿ&å!ÑÍNËEÊ~+Í_(!̾å!³¾Í Í<!̾ÍÏÍ¿(*ç&}îoËEÊ~+!³¾Í ÍÍ\ËEÊ·+Õ-!}2Ǿ!}2ƾ!}2ž!}2ľ!}2þ!}2¾!"ʾÍc!̾Í�}îoËEÊ„,Í4)*ʾå!ÑÍtËEÊ,ÍV**þ&ËEÊ,Ä,*²¾&·íRÂ0,ÍÒ)Ã�,·íRÂ@,Íü)Ã�,·íRÂP,Í&*Ã�,·íRÂg,!}2¾Í Ã�,·íRÂ~,!}2¾Í Ã�,ÍÃ)Ãê+!̾ÍîÍbÍRÍ�ÍbÍRÍ�ÍbÍ ÍöÍJ Í. ÍRÍ� ÍbÍ ÍèÍRÍ� That was the end of the text!Í�ÍbÍ ÍöÍRÍ�ÍbÍRÍ� ÍbÍ ÍèÍRÍ�'Do you wish to read another file (Y/N) Íb!¾Í8!±¾ÍÛÍbÍ ÍöÍRÍ�ÍbÍRÍ�Íb*±¾&Í(å!NÑÍNËEÊi+Íc!å! ÍÍRÍ�ÍbÍRÍ� ÍbÍ ÍèÍRÍ� KPBROWSE.COM Í�ÍbÍöÍ ÍRÍ�ÍbÍRÍ� ÍbÍ ÍèÍRÍ� Copyright 1986, Veikko Rekunen Í�ÍbÍöÍ !å!Í!ÐÍBÍcÃÅbÍöÍ ÍRÍ�ÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÿÿÿÿÿÿÿÿÿÿÿÿÛÜÿÿÿÿÿÿÿÿáÿÿÿÿÿÿÿÿæçÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ÷øùúûüýÿÿÿ åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå� *******************************************************************************� * KPBROWSE.COM *� * v 5.0 *� * Copyright 1986, Veikko Rekunen / SUOKUG *� * *� * (SUOKUG = Suomen Kaypro Users' Group, the Kaypro Users' Group of Finland) *� * *� * This program may freely be copied for non-commercial purposes, but it may *� * not be sold or included in any package for sale without a prior written *� * consent from the author, Veikko Rekunen, SF-61400 YLISTARO, F I N L A N D *� ******************************************************************************* Thå  prograí presentó texô fileó iî thå '8´ CP/Í Kayproó onå screenfuì aô  thå � time®  Botè WordStaò anä straighô ASCIÉ fileó maù bå presented® Iæ thå filå ió � á WordStaò file¬  boldfaced¬ doublestruck¬ underlined“ anä alternatå anä normaì � characteró  arå  displayed®  Thió makeó iô possiblå tï easilù checë iæ anù  oæ � theså markeró havå beeî mislaiä oò omitted. NOTE¡  Aó iô ió impossiblå tï determinå whetheò thå prograí ió useä correctly¬ � thå authoò TAKEÓ NÏ RESPONSIBILITY‚ foò possiblù corrupteä files® Nï fileó havå � beeî corrupteä iî testó performeä bù thå author¬ buô yoõ neveò know! KPBROWSE.COÍ  sï  faò  workó iî thå '8´ CP/Í Kayproó only¬  buô iô  shoulä  bå � ratheò easù tï modifù thå includå filå KPVIDEO.PAÓ foò anù individuaì computeò � thaô haó theså capabilitieó oò aô leasô somå oæ them® É havå alsï attempteä tï � writå á speciaì prograí foò thå Osborne-± calleä OSBROWSE.COM¬ iî caså yoõ arå � interested. Thå  prograí  waó writteî aó aî  exerciså  iî �                Borlanä International'ó Turbï Pascaì v® 2.00. How to use KPBROWSE.COM: To the prompt A> (or B>) where the A or B is the disk drive letter, write either A>KPBROWSE and the program will prompt you for your choice, or A>KPBROWSE FILENAME.TYP where the L: is the optional disk drive, if you files are not on the logged disk. Iæ  yoõ  wisè  tï aborô thå prograí wheî prompteä  foò  filename¬  presó  onlù � ®  Iæ thå filå ió noô oî thå disk¬  yoõ wilì geô aî erroò message®  Iæ � yoõ dï noô wisè tï seå thå entirå file¬  thå presentatioî maù bå stoppeä afteò � anù  screenfuì  oæ texô merelù bù pressinç thå ' ') Do Begin Comm_L_Arg:=Comm_L_Arg+Command_Line[J]; J:=J+1; End; End; Command_Line_Argument:=Comm_L_Arg; End; Procedure GetDIR; {Modified from Turbo Tutor} const Search_First : Integer = $11; Search_Next : Integer = $12; Set_DMA : Integer = $1A; var Counter,Error, Loop, Start : Integer; FCB : array[0..25] of Byte absolute $005C; DMA : array[0..255] of Byte; begin ClrScr; Error := BDos(Set_DMA,Addr(DMA)); FCB[0] := 0; for Loop := 1 to 11 do FCB[Loop] := ord('?'); Error := BDos(Search_First,Addr(FCB)); if Error <> 255 then begin Start := Error * 32; for Loop:= Start+1 to Start+8 do Write(Char(Mem[Addr(DMA)+Loop])); Write(' '); for Loop:= Start+9 to Start+11 do Write(Char(Mem[Addr(DMA)+Loop])); Write(' '); Counter:=2; end; repeat Error := BDos(Search_Next); Start := Error * 32; if Error <> 255 then begin for Loop:= Start+1 to Start+8 do Write(Char(Mem[Addr(DMA)+Loop])); Write(' '); for Loop:= Start+9 to Start+11 do Write(Char(Mem[Addr(DMA)+Loop])); Write(' '); Counter:=Counter+1; end; If Counter=4 then begin Counter:=1;WriteLn; end; until Error=255 end; Procedure Copyright_Notice; Begin; ClrScr; WriteLn('KPBROWSE.COM version 5.0 for the Kaypro/84 series, Veikko Rekunen, 1986'); WriteLn; WriteLn('The program present text files, including those written with WordStar''s'); WriteLn('D-option on the Kaypro screen and shows boldface, doublestrike, underlines'); WriteLn('and the alternate and normal character sets.');WriteLn;Dim;Inverse; WriteLn(' Copyright 1986, Veikko Rekunen, 61400 YLISTARO, F I N L A N D ') ;DimAway;InverseAway;WriteLn; WriteLn(' This program may be copied for non-commercial purposes, but it MAY NOT be'); WriteLn(' sold or included in any package to be sold without a prior written consent'); WriteLn(' from the author. Programmed in Borland Int''l''s Turbo Pascal, v 2.0'); GotoXy(10,14); Write('This is ^B');Inverse;Write('boldface text!'); InverseAway;Write('^B');GotoXy(10,16); Write('This is ^D');Inverse;Dim;Write('double strike text!'); DimAway;InverseAway;WriteLn('^D');GotoXy(10,18); Write('This is ^S');Underline;Write('underlined text!'); UnderlineAway;WriteLn('^S');GotoXy(10,20); Write('This is ^A');Dim;Write('alternate ');DimAway; Write('^N and this normal character set.'); GotoXy(16,24);Dim;Inverse; Write('Press any key...... ');DimAway;InverseAway; Repeat until Keypressed; End; Procedure Filename_question; Begin; ClrScr;GetDIR; GotoXy(16,24);Dim;Inverse; Write('File to read, to finish: ');DimAway;InverseAway;Underline; ReadLn(Filename);UnderlineAway; End; Procedure IOchecking; Var IOcode : Integer; Begin; IOcode:=IOresult; IOerror:=(IOcode<>0); If Filename='' then IOerror:=False; If IOerror then begin; Write(^G^G); ClrScr; GotoXy(28,12); Inverse; Write('NO SUCH FILE!'); Delay(1000); Filename_question; End; End; Procedure Read_Character; Begin; Read(Filevariable,One_Character); { These lines filter} Code:=Ord(One_Character); { the WS bit eight } If Code>127 Then Code:=Code-128 else Code:=Code; If Code=13 then Line_number:=Line_number+1; If Code=31 then Code:=45; If Code=30 then Code:=45; One_Character:=Chr(Code); End; Procedure Write_Character; begin Write(One_Character); End; Procedure Boldfacing; begin If Boldface_sign=False then begin Boldface_sign:=True; Inverse; end else begin Boldface_sign:=False; InverseAway;  end; end; Procedure Underlining; begin If Underline_sign=False then begin Underline_sign:=True; Underline; end else begin Underline_sign:=False; UnderlineAway; end; end; Procedure Doublestriking; begin If Doublestrike_sign=False then begin Doublestrike_sign:=True; Dim;Inverse; end else begin Doublestrike_sign:=False; DimAway;InverseAway; end; end; Procedure Screen_Full; begin GotoXy(1,24); Dim;Inverse; Write('Press any other key for next screen');DimAway;Blink; Write(' ');Dim;BlinkAway;Write('to stop...'); Read(Kbd,Go_On2); Line_number:=1; DimAway;InverseAway; If Ord(Go_On2) = 27 then Interrupt_sign:=True; ClrScr; If Underline_sign then begin; Underline; end; If Boldface_sign then begin Inverse; end; If Doublestrike_sign then begin Dim;Inverse; end; If Alternate_sign then begin; Dim; end; End; Begin If Command_Line_Argument(1)<>'' then begin Filename:=Command_Line_Argument(1); CPM_line:=True; end else begin CPM_line:=False; Copyright_Notice; End; Repeat begin; If CPM_line=False then Filename_question; {$I-} Repeat begin; Assign(Filevariable,Filename); Reset(Filevariable);IOchecking; end until Not IOerror; {$I+} If Filename='' then Goto Finish; CPM_line:=False;Underline_sign:=False;Boldface_sign:=False; Doublestrike_sign:=False;Interrupt_sign:=False;Alternate_sign:=False; Line_number:=1; ClrScr; While not Eof(Filevariable) do begin Read_Character; If Line_number>=22 then Screen_Full; If Interrupt_sign then goto Interrupt; begin Case One_Character of ^B : Boldfacing; ^S : Underlining; ^D : Doublestriking; ^A : begin Alternate_sign:=True; Dim; end; ^N : begin Alternate_sign:=False; DimAway; end; else Write_Character; end; end; end; Interrupt: Close(Filevariable); WriteLn;WriteLn;DimAway;InverseAway;UnderlineAway;BlinkAway; Write(' ');Dim;Inverse; WriteLn(' That was the end of the text!'); DimAway;InverseAway;WriteLn; Write(' ');Dim;Inverse; Write('Do you wish to read another file (Y/N) ');Read(Kbd,Go_On); DimAway;InverseAway;WriteLn;WriteLn; End until UpCase(Go_On)='N'; Finish: ClrScr;GotoXy(1,10); WriteLn;Write(' ');Dim;Inverse; WriteLn(' KPBROWSE.COM '); InverseAway;DimAway; WriteLn;Write(' ');Dim;Inverse; WriteLn(' Copyright 1986, Veikko Rekunen '); InverseAway;DimAway; GotoXy(1,24); Delay(2000);ClrScr; End. ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååProcedure Inverse; Begin; Write(^['B0') End; Procedure InverseAway; Begin; Write(^['C0') End; Procedure Dim; Begin; Write(^['B1') End; Procedure DimAway; Begin; Write(^['C1') End; Procedure Blink; Begin; Write(^['B2') End; Procedure BlinkAway; Begin; Write(^['C2') End; Procedure Underline; Begin; Write(^['B3') End; Procedure UnderlineAway; Begin; Write(^['C3') End; ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååÃVersion 2.0!9"1Bé Í> Ó>LÓ>Ó">2!>Ó Û$_Û"þÊ,{þ Êtþ!Êtþ"Êyþ#ÊyþÂ^>Ã~þú~þÊ~Ö_>2!{Ã~ÖÃjÖÃj2>Ó Û$2Û"þÊ�>Ó Û$2 Û"þÊ‘>Ó Û$2 Û"þÊ¡> Ó Û$2 Û"þʱ>Ó Û$2 Û"þÊÁ>Ó ! æÆ0wæ#Æ0w# ÂÝ’ Í: Íg:Íg>:Íg:Íg:Íg:!þ̃Ät˜ Í:Íg:Íg>/Íg:Íg:Íg>/Íg:Íg:Íg¦ Í*ùÉåÅÕ_ÍÑÁáÉåÅÕž ÍÑÁáÉåÅÕ¢ ÍÑÁáÉ= ] $=!] $ am$ pm$B1B3= <-.. Welcome from Infinity Design Concepts ..->C1C3 $ Time: Date:$DISK3 Ðe‰&SAMPLER �z*¹AMO-ARC …h*°FOGSCANDEXE (¥h À�ORDRFORMDOC ªC$Ò ýFOGSCAN DOC ´gÉ]FOGSCANCCOM õf„€SETFGSCCCOM d„~3FGSCNBBSCOM dl„\lFOG-CPM DTA Úm*¤FOG-CPM IXP ·n*ú FOG-CPM NDX ¸n*DX6; Program...: TIME.ASM ; Author....: Gary Conway ; Notice....: Copyright 1985, Infinity Design Concepts ; Date......: 06.09.85 ; Update....: 07.10.85 ; Version...: 2.0 ; ; This program will read the Real Time Clock of the Kaypro and ; display the time and date on the screen. It can be assembled with ; ASM.COM or MAC.COM. org 100h wboot equ 0001h bdos equ 0005h cons equ 1 printf equ 9 conout equ 2 ; esc equ 1BH cls equ 1Ah lf equ 0Ah cr equ 0Dh jmp STRT NOTE: DB 'Version 2.0' STRT: ; ; ****************************** ; SET UP LOCAL STACK ; ****************************** lxi h,0 dad sp shld oldsp lxi sp,stktop ; ****************************** ; ; ****************************** ; PRINT date/time ; ****************************** lxi d,signon mvi c,printf call bdos ; ; ****************************** ; ; ****************************** ; SET UP THE CUSTOM CURSOR ; ****************************** mvi a,0Ah out 28d ;access the 6845 video cont roller mvi a,76 out 29d ; ****************************** ; ; ; ; Ports for NS-MM58167A National Clock Chip ; ----------------------------------------- ; PORT ; 34D 22H RTCS - Status Port R/W ; 36D 24H RTCD - Data Port R/W ; 32D 20H RTCA - Attribute Port R/O ; ----------------------------------------- ; ; ; ; initialize clock mvi a,15 out 34 ; send to clock init port ; THE RETURNED VALUES ARE IN BCD AND MUST BE CONVERTED ; TO DECIMAL OR SOMETHING IN ORDER TO BE USED ; *************************************************** ; ---------- GET HOURS CODE ------------ **** ; *************************************************** HOURS: mvi a,0 ; 0 is code for AM sta ampm mvi a,04 ; put 4 in A out 32 ; send to port 32 in 36 ; get hours from port 36 mov e,a ; store code temp in E in 22h ; check status port cpi 01h ; if status bit D0 is 1 => bad read jz HOURS mov a,e ; recall stored code cpi 20h ; test for 8 oclock pm jz OCLOCK8 cpi 21h ; test for 9 oclock pm jz OCLOCK8 cpi 22h ; test for 10 oclock pm jz OCLOCK10 cpi 23h ; test for 11 oclock pm jz OCLOCK10 cpi 00h ; test for 00h jnz pass mvi a,12h ; if zero => make 12h jmp store ; go store PASS: cpi 12h ; jm store ; if < 12h => go store cpi 12h jz store ; if = 12h => go store sui 12h ; subtract 12h if > 12h CODEPM: mov e,a ; save A into E mvi a,1 ; 1 is code for pm sta ampm mov a,e jmp store OCLOCK8: sui 18h ; subtract 18h from 20->21h ; converts 8->9 oclock to regular time jmp codepm ; go set the pm code to 1 OCLOCK10: sui 12h ; subtract 12h from 22->23 ; converts 10->11 oclock to regular time jmp CODEPM ; go set the pm code to 1 STORE: sta memry ; store ; --------------------------------------------------- MIN: ; *************************************************** ; ---------- GET MINUTES CODE ------------ **** ; *************************************************** mvi a,03 ; put 3 in A  **** out 32 ; send to port 32 **** in 36 ; get minutes from port 36 **** sta memry+1 ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz MIN ; if bad => go read again **** ; **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** MONTH: ; *************************************************** ; ---------- GET MONTHS CODE ------------ **** ; *************************************************** mvi a,07 ; put 7 in A **** out 32 ; send to port 32 **** in 36 ; get months from port 36 **** sta memry+2 ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz MONTH ; if bad => go read again **** ;  **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** DAYS: ; *************************************************** ; ---------- GET DAYS CODE ------------ **** ; *************************************************** mvi a,06 ; put 6 in A **** out 32 ; send to port 32 **** in 36 ; get days from port 36 **** sta memry+3 ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz DAYS ; if bad => go read again **** ; **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** YEARS: ; *************************************************** ; --------------- GET YEARS CODE --------- **** ; *************************************************** **** mvi a,09 ; put 9 in A **** out 32 ; send to port 32 **** in 36 ; get years from port 36 **** sta memry+4 ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz YEARS ; i f1 => go read again **** ; **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** WKDAYS: ; *************************************************** ; ---------- GET WEEKDAYS CODE ------------ **** ; *************************************************** mvi a,05 ; put 5 in A **** out 32 ; send to port 32 **** in 36 ; get weekdays from port 36 **** sta memry+5! ; store **** in 22h ; get status code **** cpi 01h ; if 1 => bad read **** jz WKDAYS ; if 1 => go read again **** ; **** ; *************************************************** ; --------------------------------------------------- ; *************************************************** ; This next little piece of code is due to the fact that ; Kaypro does not utilize the power up/down functions of ; the clock chip correctly, and sometimes during this ; transition period, the clock can become disrupted. If ; we leave the chip pointing to hundredth's of seconds ; then if there is a time change during transition, it won't ; make much difference. ; ; ---------- Leave PIO Pointing to hundredth's of seconds ; mvi a,01 out 20h ; --------------------------------------------------------- ; **************************************** ; CONVERT FROM BCD TO DECIMAL ; **************************************** CONVERT: lxi d,memry lxi h,memcon mvi c,6 LOOP: ldax d rar! rar! rar! rar! ani 0Fh ; zero high order nibble adi 30h ; convert to ASCII mov m,a ; and store to memcon ldax d ; reload char for low order nibble conversion ani 0Fh ; zero high order nibble inx h adi 30h ; convert to ASCII mov m,a ; and store to memcon inx d ; increment source pointer inx h ; increment dest. pointer dcr c ; decrement loop ctr. jnz loop ; ; ; **************************************** ; PRINT CODES ON SCREEN ; **************************************** lxi d,pos1 ; print time mvi c,printf call bdos lda memcon call putchr lda memcon+1 call putchr mvi a,3Ah call putchr lda memcon+2 call putchr lda memcon+3 call putchr lda ampm ; get am/pm code 0 = am ; 1 = pm cpi 1 cz pmprint cnz amprint ; lxi d,pos2 ; print date mvi c,printf call bdos lda memcon+4 call putchr lda memcon+5 call putchr mvi a,'/' ; load '/' for date call putchr lda memcon+6 call putchr lda memcon+7 call putchr mvi a,'/' ; load '/' for date call putchr lda memcon+8 call putchr lda memcon+9 call putchr ; ; ; ********************************************* ; EXIT: ; ********** EXIT ROUTINE ******************* lxi d,endmsg mvi c,printf call bdos lhld oldsp sphl ret ; ********************************************* ; ; ; ****************************** ; SEND CHAR TO CONSOLE ; ****************************** ; PUTCHR: push h! push b! push d! mov e,a mvi c,conout call bdos pop d! pop b! pop h! ret ; ****************************** ; AMPRINT: ; PRINT "AM" push h! push b! push d lxi d,ammsg mvi c,printf call bdos pop d! pop b! pop h ret ; PMPRINT: ; PRINT "PM" push h! push b! push d lxi d,pmmsg mvi c,printf call bdos pop d! pop b! pop h ret ; ; ; +++++++++++++ MESSAGES +++++++++++++++ ; pos1: DB ESC,'=',20h,5Dh,' $' pos2: DB ESC,'=',21h,5Dh,' $' ammsg: DB ' am$' pmmsg: DB ' pm$' endmsg: DB ESC,'B','1',ESC,'B','3' DB ESC,'=',20h,20h,'<-.. Welcome from Infinity Design ' DB 'Concepts ..->',ESC,'C','1',ESC,'C','3',cr,lf,lf,'$' signon: DB cls,09h,09h,09h,09h,09h,09h,09h,'Time:' DB cr,lf,09h,09h,09h,09h,09h,09h,09h,'Date:$' ; ; ; ============= VARIABLE AREA ================= oldsp: DS 2 memry: DS 6 memcon: DS 20 ampm: DS 1 ; =============================================== ; ; ; =============== STACK AREA ================== DS 32 stktop: ; ; =============================================== ; END ARROWS PAS ')AUTOBOOTCOM 2€&AUTOBOOTPAS <€ BARGRAPHCOM E€h-06-00 86 `€BARGRAPHDOC a€DBASTIMECMD iDBASTIMEASM k!DBASTIMEHEX tKPBROWSECOM u€-KPBROWSEDOC �€KPBROWSEPAS …€ Ã×,&PRINTLST9!ÿ"€6Í–* È ÁùÅ ·À="ë"Á6#}“|šÚBÅÍD!ÿ"€6 Í"}æ0Ö0-ÿÔ!€~·ÈG#~þ Â}ÈÃq+påh#å#Íh"ÁÑp#w Â�É*„7"ˆ7ÉÃ"Ž7É"Š7É*Œ7É*’7l&É*�7}´Èå!ÍhÁå6€#6#q#páÉ*Š7"Œ7*Ž7|µÊçë`i"�7*ùëéÅ 3ÍÑÕÍÁXÍ< ÍÁ ÅxÍá}ÍHÍÇõÍ%ñæÆ�'Î@'_à ERROR $ AT PC $"DM6#6#ë!"*ë{‘w#z˜w!"É>2ÚÚDM}Öý|ÞÒÚüÿ*Ú‹"^#V{²ÊÒÕë^#V{‘_z˜WáÚ‹{ÖzÞÒÅåë*w#wáw#w#Éå##s#ráq#p#É!5#Ê‹OMÃÍ+F+Në*}“|šÚò!"~#fo´Ê"{•zœÒòÕë }“|šáëÂ"~#~#~#�O~ˆGÃ(}|*åÕ##^#VÑ}“|šáÒFs#rë##q#pÉw#w#~�w#~ˆwÉî7õ!N#F#~#foñõÚoÃv}“|šÚwë`i}´Â^ñëÉ:þ0Édë"•7á"‚6á"„6ëÍI*„6å*‚6åìdë"•7!9DMÍ$ÁÑùÕÅ!¯8"ª7:—7·Ê_¯2˜7:§7·ÂßÁ2—7Í� NNÃÍ:´7þ#Êiþ$ÂÿÍå þ$Êa>$Í9 :´7Ãâþ*ÂÍå þ*Êa>*Ãöþ.Â)Íå þ#>.Âö¯2©7Ñþ-ÂRÍå þ#ÊJþ.>-Âö>2ž7¯2©7OÑ>2ž7Ãiþ\Ìå ·Ä9 Íå Ãâ2 7Ãq> 2 7 Íå þ#Êpþ,†>ÿ2¨7Ãp!©7qþ.¢>ÿ2˜7Íå þ#¢ Ö!š7qþ^µÍå ÿè!œ7qþ-ÂÆ>ÿ2Ÿ7Íå >2Ä8µ7Í$:¡8O·Â2›72�7!¢8r#Âå:©7·Êó=2¡7:ž7·> Ä9 Ã"à:ž7·ÊÍi Í9 :œ7·!�76ÂuyÖ@GÊ)Ò8/%Í9 ¯2¨72ž72Ÿ7µ7Í$Ãp:©72›7GyÖ@�w:ž7ë!Ÿ7¶ë>Â�Íi >Ê�4!›75<2¡7:›7!š7†G:œ7·Â¶:�7Ox‘GxþÒà°8W?< =ÂÃzÜé#zÔð#!°8~·ÊàÍë!ÃÆ:¡7·Â:Ÿ7!ž7¶ÂBÍi ÊB:›7·Â]:©7þÚ]>-Í9 ÃBG: 7OWþ*Ê"þ$Â"$ :Ÿ7!ž7¶Â3Íi Ê3OÊ>zÍ9 Ã3yÍ9 :©7·ÊçþÂÕ:ž7·ÂÕ: 8·ÂçÃÕ:¡8·Âp> Í9 >0Ã9 > 2Ä8©8Íð#Íë!!—7~2™76Íi Í9 :¡8Ö@2�7!œ7þ Úª<Ê©w>ð6!�7p2›7/Æ€O!©8¯ ¶#ʼ æÊÊ y2š7=Ÿ/2˜7:›7·>0Ì9 ÃçÍ Í9 :Ä8=!›75¶òá:›7Í. ¯2¨7!˜7~>.Ü9 :—7!˜7/¶ÊN:œ7·Â1:�7G:š7¸Ò)G¯Ã*�2š7xÍ. :Ä8·ÊH!š75úNÍ Í9 Ã1:š7Í. :œ7·Ê‹>EÍ9 !�7:—7·Âe5~· òp/<-GyÍ9 x/ Ö òxÆ GyÍ9 xö0Í9 :Ÿ7·ÊœÍi Í9 ¯2Ÿ72ž7:—7·À:™72—7Édë"•7ë|µÂÈ:—7·È:¦7·Êùåà å~æW#^#:—7·Âñz³Êç~#åÍ[ áÃ×á|µÈ~ÐÃà:¦7·ÂÁ2—7Í� NSÃÍ"¤7ë"¢7:´7þ/Ê-þ!Ê<þ&ÊEþ\Ìå ·Ä9 Íå ÃÍ Íå ·Êøþ/Â-Í Íå ÃçÍ Ê?Í Í9 ÃE͇Ã]Í¥:—7·À> !€64O:”7·Âx* éYÃ͇ÇÍ¥Í( >2€6> Íh> Ãh͇âÍ¥:—7·À:€6ÖÈÒªõ> Ídñ<°ÉÍ«ÇÍ«:—7·Ê§É*€6&É|·TLÂ͵ÊÍ:€6•Ú°ÈåÍŠá>•ÈðÍÓçÍÓÇ!”7¾Èõ:€6=ćñ2”7É!Ä8~5*ª7~Ò% +"ª7Ã) æö0ÉGø>0Í9 Ã/ Í[ þ0Ø:¨7·È:œ7·À:›7ÖÊY ÖÊY ÖÀ>,õÅÕÍe ÑÁñÉ*•7é: 8·> È>-Éë*°7|µPUÂÍë|µÊÍ >ÿ2—7~æG#N#"°7"²7ë`i"¬7"®7±ÊÍ !þ#² &ÿÃÛ þ/ÊÙ þ&ÊÙ þ!ÊÙ þ\ÂÛ  x±ÂÛ 2—7Í� UNÃÍ.ÿ x±Â§ "¦7*®7|µÂù *¬7"®7*°7à +"®7*²7~#"²72´7É*¤7~#"¤7É*¢7|µÈ+"¢7ÉÍ > Ä Ã9 dë"•7!—745È4!� å:´7þ#Èþ/Èþ!Èþ&Èþ$Â\ Íå þ$È>$Í9 Ã: þ*Âl Íå þ*È>*ÃV þ- Íå þ#Èþ.È>-ÃV þ\Ìå ·ÈÍ9 Íå Ã= *°7++ë!"°7ëÃèë:æ0Ö0!Ø{懇‡‡õœÍ~æGñ°w¡ÍogÉ:æ0Ö0ØŸÃ! !*éå|µÊ F#N#Ãþ ÅåNÍÛ áÁ# x±Âô  ÍÛ áä"ä72Þ7Í�Ò(  Í·*‚7#"‚7Ê  �6Í ÍÛ  ÍÛ >2€6:Þ7·Ê¸ ¯2ã72½7GWÿ2ã7Íê Í ~þ"Ê– Í" Íê Ç Íê ~þ"Ê� ¯2ã7Í1 ~þ,ʲ Íê æ ÃU *ä7Í•:‚6·Êã o&##Íhå6#‚6Gw#ÂÚ Ñ*ä7s#rÉ:‚6#Êô ¸ÐÍ1 :ã7·+~áÊ þ" :Þ7»È=  Íà åÕ!¾7qÑáÉ~åÅ!‚6 wÁá ÉåÕ!Î7ÑráÉimproper input - reenter $å͕ͭ|µåÊ{ Õ##ÍhÑÁåp#q#w x±Âq Ñás#rÉå͕ͻ x±Ê– ÅÕ! Ãh áw#wÉåÍ­DMáÃ; Í» Ã; åÍ­DMáÃ5Í» Ã5ë*†7DM*ˆ7}‘|˜ÚÓ ODááÃÍF#N#å "ˆ7áëÉÍÞ ÆÿŸgoÉÍØ þ Úö õOÍÛ ño&ÉÍØ o&É}2 Ûo&ÉEáÑ{2 xÓén&É}áÑéëÁ!øÿ9ùÅÕæÊ2 >ÿOÍ; áä"ê7>ª2è7y2ç7¯w# ÂJ +ë¯2æ72é7Íþ Ê[ þ+Êr þ-Âu >€2é7Íþ0Êr þ.¤ :æ7Ú*/2æ7yþÂç Íþ0Âz :é7=2é7Ã’ þEÊí þeÊí ͋һ yþÈÃ*G¯±ÊÙ :è72è7ÒÕ x‡‡‡‡ÃÙ °:æ7Úç :é7<2é7ÍÃz yþÈÍþ Êí GÖ-_ÊÆx ÍÍ‹Ú*GÍÍ‹Ú#Ox‡‡€‡�G{·Â*�G:é7Æ@€*ê7wɯ2ì7y2ç7åëÍþ+Êcþ-Âf>ÿ2ì7Ãcë)DM)) O ëÍÍ‹ÒW:ì7·Êzz/W{/_ás#rÉ:ç7·È=2ç7~#Éþ0Øþ:?ØæÉ^#V* }“|šëÚàÉ|µÈ~ÚàÉ!½7N q!¾7 ^!‚6ë!Î7 n&É*A8ëÍ"’7É*A8!4À#ÃÛ!DEåÍÉÁ<ÀÍ�ÚÍ|·ÊÍEXÃÍ!CEÃæÃÉ!ÍÉÃÔ"ÍÉÃÔÃÍ�Ø*A82ëÃÍ�Ú:|µÂjÍõ ÍWÍ�ÚSIEÊÍÑZÍ"’7WEXÍ�ØÊÍÉë%ÍIE<ÊÍÉ*A8Ãà¯^w#Vw* }“|šëÚàÉ!"[8>2_8·zW{_!_85ÊÈ*[8Ò° |g}o"[8*]8|g}o"]8Û*]8ë*[8DMÉ*A8;ÉÍÒ"C8ëÀ*C8"C8ëÃBN|µÊÍ>€•>œÚÍå>)=Â; åÍh"A8;p#z³ÂÍ=Á *A8 "H8"J8á}2N8ÍRÃÚE8*A8$ ~#ÂIÉ$*A8 E8 w#Â^ÉÅÕÍ=áÍŸí7~#¶DFÂÍë*A8ër+sá"E8:N8=ÂR|µÊR!G8~ö@wÃR"Q8)|µÊ¯>(•>œÐNFáÃÍ|µÊÜ~æÂÜå#~#·ÊÛGë*A8:þÊÜÍ�Ò=å6#> 6 #=ÂâáxþÚþ:ÂæþÒÜw#¯2‚8͇Ê6Ú  Ê6þ.¯2‚8͇Ê6 Â+á~ÚàÉ"b8!d8"`8xþÒÛw#ÂLp˜`8Í|µÂÛ*A8ë!DM!:å+ wÂsáÖ Êƒ>€wÃ6:‚8Ú®þ.›# ”7Éþ*´:Y8>*Ò´>ÿ2‚86?#·Éþ`ÚÀþ{ÒÀæ_þ:ÊÛþ*ÊÛþ?ÊÔw#·É:Y8Úêáá:Z8·ÄïIFÃÍ>?ÃÏÍx*Q8)í7—w#wÉ*C8ë*J8}“O|šGër# x±ÂÉ*J8ë*H8#{•zœØ"H8É2ƒ8ÍòáÑÁãåÍg>ÿ2Z8áͶ—2Z8Í�Úu:ƒ8Ò^*A8ë!~ö€w:ƒ8Òr*A8ë!~ö€wÍ ÍÉ<ʘ*A8!¯^w#Vw*A8. s#rÃÿåÍïÁÍ�Ú«x·EXÂÍ*Q8)8^#f|³OEÊÍkÑé2ƒ8ÍòáÑÁãåÍgá>ÿ2Z8Ͷ—2Z8Í ÍÉÍ�Ú|·Â*A8ë!:~·Ê!~ö€wÍ Í<ÂÿåÍïáMEÍ�ÚÍ|·ÊÍEXÃÍëáãÍŸ8 s#rÉÍŸí7 ^#Vz³FUÊÍë"A8*Q8)8 ^#Vë"S8Í=*E8"W8!9"U8ÃÚG8 æûö€Ú‹:N8RB=ÂiRUÃi|µIRÊi+DM*E8ëÍ�*C8{æ…o>Œg+å{z_yWÕÍÑ!*A8 s#r!G8~æýwá"H8*J8"L8ÃRÁÑÅÍ�Òã!ÉåëÍ5!9"U8áåÍmÍU*ÍÉ·ÑÀÕëÍmÍU*ÍÉ·ÑÈåëÍmÍU+ÍÉáÉÁÑÅÍ�Ò,!ÉåëÍ5!9"U8áåÍmÍU+ÍÉ·ÑÀëÍmÍU+ÃÉ*O8ë*C8s#rÉÍÚ*A8ë!0ë! ~#~!G8>¶w:N82„8Í ·Â—!„85Ê©ÍäÃ:G8ö2G8*C8+"L8Ãÿ*J8"L8!G8~æïwÉÍÒÉÍÍÒ"H8Í`:G8Ô`*H8~þÀÃiÍ·þ À*E8|µÊÛREÃiÍ5!9"U8*L8ë*H8#{•zœÚ"H8:G8Ô`ÍR*H8n&É:G8æÂiÍÍÒ"H8Í`Ãå!‚6ÅåÍÛþ Ê<áÁþ,Êgþ Ê]Gyþ2Ê: p#Ã:*E8|µÅÌ·Á‚6áÉ!"…8þ Ê’ÍÛþ"Ê’!Œ86,!‰86!‚6"Š8õ2Œ8!‚6"Š8¯2‰8:Œ8þ ²Í·þ ÂÁÃñÍÛ!Œ8¾ÊÜþ Êé*Š8w#"Š8!‰8~ Ílëás#rÃR~#fo´Ê¢F#Ny“Oxš±ÁÊÅÅáÕåÍ~*E8Íhëás#rëÑr#sÃÅÕåÍ·áÑ#wz³Â»Í·Í·ÃRÍ4Ã5Í4Ã; åÍ~>"Ílëás#rÉ*E8|µÊRÍ·þ ÂöÃR!G8~Їwæ‚þWRÊiõÍÚ*H8ë*C8{•_zœW{z<õÍ·ÂIÍäñ=Â)ÍÚñÒÿ!G8>ý¦wÉÍR*U8ù*S8|µDWÊiéG:—7xÚhþ Èõ*E8|µÊ€*W8|µERÊi+"W8ÍÒ�Í*C8"H8:G8æ‚þ€Â­Í`*A8! N#F p+q*H8ñw!G8>¶wÉÑëãÕÍ5!9"U8á}ÍhÃR:—7ÚÛ>"åÍháhÍ®:—7>"ÔhÃü\ͨÃü\ÍŠ:—7>,ÒhÉ:—7Ú>"åÍháhÍ®:—7>"ÔhÃ5\ͨÃ5\ÍŠ:—7hÜ+ *W8|µÊY++ÃTå> Íhá+|µÂL> Íh> ÍhÍ+ ÃR*A8ë!0ë! w#w*H8+"H8!G8~æýwÍR*U8ù*S8|µEFÊÍéÍŸåí7 ¯^w#Vwz³CUÊpë"A8ÍÚÍ=ÍÍÚÍþá8 ¯w#wÃx!Ãëí7å)~#fo´áÄ�*�8#"�8{•zœÒØÉÍŸí7å# ¯^w#Vwz³DUÊpë"A8ÍÚÍþÍ ÍáÃÆë!9"U8áãÕå!ÍòáͶÍÉ<FRÂi*A8"�8!ÍòáͶÍÉ<Ê–*A8 ë*�8~# ÂhÍ ÍÉÍ�Ú†|·EXÂÍÍx*�8"A8Íx!ÿÿÉÍx*�8"A8Íx!Éå!Íò>ÿ2Y8áͶ*A8 6?##6?!"‘8Í_Õ*A8~·Êé=_Í"’7<EXÊÍÍã]Í"’7<EXÊÍá##FNÅÍÉþÿÊWæ`Æ*C8O ÁyÅ·Ê>~#¶#Ê7Â/ÃK~#·ÊGÂ@*‘8"‘8à Íx¯2Y8*‘8ÁÈ)ÃbÉ*U8ùÃÍáÃÍÕåÍ[åÅëPYÍ[åÅë |æÀ¯å##Íh"“8ÑÍiÁÑÍqÁÑÍqáÍ¿áÍ¿*“8É! 9ùSLÃÍåÕz³Ê |µÊÍ[åëPYÍ[y“_xšW³ÂÑx±Êîë¾Âî# x±ÂáÑáõÕÍ¿áÍ¿ñÊÚö€É¯É>�‡ÉÍ[Êî7ÃîëÍ[Êî7?ÃîázÃîëN#Fy»Â1xºÈ+åÕͰá|µÊF~ÔÏ~æwëás#rÉåÍ[Ê\n&ãÍ¿áÉACáÃÍå!ÍhÍiÁq++É*ÉÁëáÅzSSÚÍåÍ[y“xšÒ’PYåÕë##Íh"•8ÑÍiBKÑÍqáÍ¿*•8É|µÈÍ[Å++Í¿áÉëáãzSSÚÍåÍ[y“OxšGÚó åÕë##Íh"—8ÑÍiBKÑÍqáÍ¿*—8Éá|µÈ~ØÃÏDMáÑãx²úWz³ÊW|µÈ~æ#¶+ÂÍ¿!ÉåÅÍ[y“OxšGÚ]Ñy“xšÒ:PYåÕëÍh"™8ÑÍiBKÑÍqáÍ¿*™8ÉSSÃÍ!"™8áÃOÉ!—7~2›8¯w2‚6œͨ*‚6&å##ÍhÁåxö€w#q#ƒ6Íqá:›82—7Éþ È!‚64^wÉ|µÈ~ÔÏåÍ[ÊÍa~“ºÒÆ~æ_w# x±Â¼áÉÍ[åÅ! ÍhÑÍiBKÑåÍqá++ÉÁã"ž8|·òûÅSSÃ͵ë!"œ8áÅåÊSÍ[ÊSåÅ`iÍž$å##Íh"œ8ÑÍiÁÑ x±Â=Gë*ž8ëp#z³Â2ÃSÕÅÍqë*ž8+|µ"ž8ëÁÑÂ>áÍ¿*œ8É|µDMÈ~æG#N#±Ézö€w#s#Éx·Ê‚Å@Í›ÂwÁy±ÈæÊ”ÅOw# ‹ÁyæüÈOw#w#w#w# ›É^#V* }“|šëÚàÉ|µÈ~ÚàÉë!9ÁõÅ þÊòþÊíÕå~#foÍ%áÑ##ÃüÃô~#ÂôÁñ=ÂÎÑùÕ`iéëÁ!øÿ9ùÅëBKÃ'$DM!9Í'$Ñùëé!9ë! 9N#F#ëÍ'$ëÑùëéÍ@Ã#BKåÍ$ÁÉå!9DMÍ$ÁÍ#áÑÑÑÑéDMÍ$!9DMÃS! 9DMÍ$!9DMÍ#áÑÑÑÑÃWÍ@Í7 Á!øÿ9ùÅDMÃ$Í Í7 ÁÃ$DMÍ$!9DMãéͳÙ!9DMÍ$ÑÁ!9ùÅDMÅëéÍ@Í=!ÊÍ Í=!ÜͳÃÕÍ@Í4 ÊÍóÍ4 Üå!9DMÅÍ$áÁãéÍ ÃíÍÍ4 áÑùÕÑ! 9DMåÍ$!9DMáãéÍ@Í "ÊÍóÍ "ÜÍ Ã4ÍÍ "ÃDMÍã"Ê!9DMÍ$ÍJ%ëÁ!9ùëÅÉ!9ÍxëÁ!9ùëÅÉDMÅ �Ò†˜Í$ÁÍ7 ÃJ%@PÀPëá"Â8ëÍ *Â8å!9~·Èî€wÉáÑ{æ_ÕéÑÁáááÕ!y·È+ø##É!©8åÅ•2*Å8Íž$ |æg"Å8ë!HÍÞ$>™Æ'-òõÁáw# ÂÖ>@2¡8¯2 8Í�#±8ÅÍ$áà *%*‚7Â0 ±8›Í*´8"Å8É>€þ¯2Ä8:¡8W·ÂO Í$! 8:Ä8®wÉ ·ÈæºÅÒi ±8Í$ÁÍ$! 8Ãs ±8áÍ'$!±8:Ä8®w:±8æW!¡8–Ê» þ±8Ò$r2Â8Ò  õ¯Ím#ñæÊ» ¨8o&ëG>�Ow# ­ q#µ :±8! 8®úß ²8ÍH$ÒÖ >Ím#Íþ!¨8Íð#Ãë!!¸8ÍÅ#©8!²8™Ú!7>ˆ–ë†ë' #Âò Ã�#ë+>ˆ–Æ'w#>ˆ–ë†'ëw #Â!:±8æ€2 8Í�#!¨8~þPÂÖ :Â8þÚÖ 6É!¡8~·È ·ÊÞ"æ€+®w# æÖ@†ò_! ‡ú"6ÉwÅ{2Ä8²8!©8~#Âo!!²8~#Âz!ÍN#!¢8q#Š!!¢8"Â8á~#å·ÊÖ!õæʸ!G²8*Â8ÍK$Ò´!#4?Â¥!ñæÊÖ!G¹8*Â8Ž'w#ÍK$ÂÃ!!Ä85*Â8#“!ÁÍ�#¨8Íð#!°8~·È¯w+6+wÂø!:¡8<2¡8ðOFÃÍ! 8 怮w æÊÓ"_#~·È“ÆAúÙ"w>2Ä8`i"Â8¯2¹8ÿ©8*Â8>š–ë†ë'™#>‰–ë†ë'#>‰–ë†ë'#>‰–ë†ë'#>‰–ë†ë'#>‰–ë†ë'#>‰–ë†ë'>‰ë†'wÚ7"*Â8ëÍH$#~Î'w!¹8~€w:Ä8=ÊÁ"2Ä8ÍQ#!©8ÍN#Ã5"¨8Í'$Í�#¨8Íð#Ãë!DZÃÍÖAò"¯2¡8Éxæ€2 8Êò"—‘O˜‘G>F2¡8!©8r#Âý"i`)ë!­8~�'w#Â#ë Â#Ã�#!¡8 ¶È æ€+¾ÂD# æ#¾?Â>#! ÍÅ#È! 8®ÚJ#¯=É>�‡É pT]®æð®w+ ÂV#~‡‡‡‡wÉ!©8¨8G®æð®# Âv#æð°É:¯8þзʪ#!¨8ÍQ#!¡85ðqÉ!¯8®8w+²#p!¡855ò�#pɯ8 ¾À+ ¾À+ ¾À+ ¾À+ ¾À+ ¾À+ ¾É Æ'Ãö# ÆP'>Ð Î'Ãö# æ€o æg" 8`i©8Ã+$* 8|·Â$ɵ!©8Ã+$~#~#~#~#~#~#~#~#É!©8Ž'w#Ž'w#Ž'w#Ž'w#Ž'w#Ž'w#Ž'wÉ!9~æþAÒƒ$6É/ÆOÐGæÊ•$#6=ÂŽ$xÐ>ð#¦wÉ|ºÚ¤$ëDM!x·Ä¯$y)Òµ$)Ò»$)ÒÁ$)ÒÇ$)ÒÍ$)ÒÓ$)ÒÙ$)ÐÉ|µÊÓ"|ªõªü%ë|·ü%Ê$%z·Âþ$³ò0%xõ)yOxGy“xšÚ%Gy“O#ñ=Â%ñð—•oœ•gÉeo²Âþ$³úþ$—)»Ú9%“#Â1%OÃ%ÁÑÅÍÞ$`iÉ!:¡8·ÈÖAørinter, RT, or iskfile? (P, C, or D): PPrinterDDiskfileCCRT&Unable to open MAST.LST on current du:Ffilename.typ - dsk | filename.typ - dsk | filename.typ - dskF----------------------------------------------------------------------DONE:  [ any key or uit ] Q All done.&Unable to open MAST.LST on current du:, Enter today's date (MM/DD/YY): 9 ++ Outputting MAST.LST to the printer ++%MAST.LST - Master CP/M Catalog as of  pageFfilename.typ - dsk | filename.typ - dsk | filename.typ - dskF----------------------------------------------------------------------DONE: All done.&Unable to open MAST.LST on current du:, Enter today's date (MM/DD/YY): @Enter drive to create MASTER.LST on (A,B,C,or c/r for default): Default MASTER.LSTAA A:MASTER.LSTBB B:MASTER.LSTCC C:MASTER.LST; Program ABORTED! MASTER.LST file already exists! ++ Creating file ++&'MASTER.LST - Master CP/M Catalog as of & &Ffilename.typ - dsk | filename.typ - dsk | filename.typ - dsk&F----------------------------------------------------------------------DONE:& & & & & & &  DWME3 Operating system reports an error!!3 Check disk for FREE space available Error Code --> €6Í!&"„7"ˆ7!&"†7Ç8!&Í%É8!B&Í%!$"Ë8*Ë8}/o|/g"Í8!ÍcÏ8Í%! ÍcÑ8Í%!ÍcÓ8Í%!ÍcÕ8Í%!Íc×8Í%! ÍcÙ8Í%*Õ8ë!o&ÍtÛ8Í%*Õ8ë!s&ÍtÝ8Í%*Õ8ë!w&Ítß8Í%*Õ8ë!{&Ítá8Í%*Õ8ë!&Ítã8Í%*Õ8ë!ƒ&Ítå8Í%Ãø->!é8ÍÈ*Õ8ë!‡&Ítå*ë8 ÍcÑÍtå*é8 ÍcÑÍtÍ«*ç8É*ç8ÉÃ.!å!åÍ»-Í«*×8Í«*í8É*í8ÉÃ6.!å!åÍ»-Í«*×8Í«*ï8É*ï8Éñ8!Š&Í%ó8!”&Í%õ8!›&Í%!s5Í *Ó8ë*Û8Ítë! &Ítë*Ý8Ítͼ͇͇͇!ê&Í«*Ï8Í«Íú "÷8*÷8ÍcÍ©ë!)'ͺ©.!,'ͼÃq0*÷8ÍcÍ©ë!5'ͺÂÅ.!8'ͼÃ42*÷8ÍcÍ©ë!B'ͺÊÛ.Ã�.!E'ͼ*ñ8ͦ|µÂ/͇͇*Ï8J'ÍtͼÍÒÍ�Ã/*ñ8å!å!å!>Í*!å!\0Í'!"ù8!"û8Í."ý8!r'ͼ!º'ͼ͇ÃT0*ù8{•zœò_/!"ù8͇!Í5!ÿ8Ín*ÿ8å!å!Íýë!(ͺÂŒ/*ÿ8ͼÃI/*ÿ8å! Íyë! (ͺ©/*ÿ8ͼÃ\0*ÿ8å!ÍyÍ«*ù8+|µÖŸõ*ù8++|µÖŸÁ°ÒÖ/*ó8Í«*û8#"û8*ù8#"ù8*û8-{•zœúô/ÃI/!"û8͇*ã8ë!(Ítë*å8ÍtÍ«Íú "ý8*ý8ÍcÍ©ë!-(ͺÂK0*Ñ8Í«!0(Í«*Ñ8Í«!Í�ÍÒÍ�ÃT0Íû-"ý8ÃI/*Í8|µÂI/͇*Ï8K(ÍtͼÍÒÍ�*ñ8ͦ|µÂ—0͇͇*Ï8V(ÍtͼÍÒÍ�ë0*ñ8å!å!å!>Í*Íû-"ý8*Ï8ͼ!~(Íç !9>Í *9ͯ++++++++|µÊÛ0ë0Íû-"ý8͇͇!¬(Í«!å!2Í'!"ù8!"û8!"9>ÿÍÿ*9ç(Ítë!)ÍtÍ«*9Í~͇!&)ͼ!n)ͼ*9+|µÂB1͇Ã2*ù8{•zœò[1!"ù8͇!Í5!ÿ8Ín*ÿ8å!å!Íýë!¶)ͺˆ1*ÿ8ͼÃE1*ÿ8å! Íyë!½)ͺÂ¥1*ÿ8ͼÃ2*ÿ8å!ÍyÍ«*ù8+|µÖŸõ*ù8++|µÖŸÁ°ÒÒ1*ó8Í«*û8#"û8*ù8#"ù8*û8«{•zœúð1ÃE1!"û8*Ù8ͼ*9#"9Ã1*Í8|µÂE1>Íÿ!Í�Íû-"ý8͇*Ï8È)ÍtͼÍÒÍ�*ñ8ͦ|µÂZ2͇͇*Ï8Ó)ÍtͼÍÒÍ�Ãn2*ñ8å!å!å!>Í*Íû-"ý8*Ï8ͼ!û)Íç !9>Í *9ͯ++++++++|µÊž2Ãn2Íû-"ý8͇͇!)*Í«*Ï8Í«Íú "÷8*÷8 {•ozœµÂÝ2!k*ͼ9!t*Í%ÃO3*÷8ÍcÍ©ë!€*ͺÂ3!ƒ*ͼ9!†*Í%ÃO3*÷8ÍcÍ©ë!”*ͺÂ'3!—*ͼ9!š*Í%ÃO3*÷8ÍcÍ©ë!¨*ͺÂL3!«*ͼ9!®*Í%ÃO3ð2*9ͦ|µÊ3Íû-"ý8͇͇͇*Ï8ë!¼*ÍtͼÍÒÍ�Ó3*9å!å!å!>ÍÁ͇͇͇*ã8ë!ù*Ítë*å8Ítë*9Ítë!+ÍtÍ«!å!35Í'!"ù8!#+Ís !Í5*9&+ÍtÍ!O+Ís !Í5!R+Í!U+Ís !Í5!X+Í! +Ís !Í5!£+ÍÃ5*ù8++++|µÂ44!"ù8Í5!Í5!ÿ8Ín*ÿ8å!å!Íýë!ë+ͺÂv4*ÿ89Í%!ò+Ís !Í5*ÿ8ÍÃ4*ÿ8å! Íyë!õ+ͺ¨4*ÿ8 9Í%!,Ís !Í5*ÿ8ÍÃ35*ù8+|µÂÁ4*ÿ8å!Íy 9Í%*ù8++|µÂÛ4*ÿ8å!Íy 9Í%*ù8+++|µÂö4*ÿ8å!Íy9Í%*ù8#"ù8Ã4*Í8|µÂ4!,Ís !Í5* 9ÍÍ*õ8ÍÍ* 9ÍÍ*õ8ÍÍ*9ÍÉ!Í�!Í�Íû-"ý8͇͇͇*9,Ítͼ* 9),Ítë*Ï8ÍtͼÍÒÍ�ͳë!D,ͺÖŸõͳë!H,ͺÖŸÁ°Òµ5Íû-"ý8͇!L,ͼ͇*Ï8�,ÍtͼÃÑ5Íû-"ý8͇*Ï8ë!¶,ÍtÍ«ͳͼÍÒÍ�ÍÒÍ�õÅÕå ÍáÑÁñÉÝáÁÑÝåÅÍÁÝáÑ>yþ (þ(þ( þ(þ(Ýé}|Ýé:Y8>*Ò´>ÿ2‚86?#·Éþ`ÚÀþ{ÒÀæ_þ:ÊÛþ*ÊÛþ?ÊÔw#·É:Y8Úêáá:Z8·ÄïIFÃÍ>?ÃÏÍx*Q8)í7—w#wÉ*DBASTIMEHEX tKPBROWSECOM u€-KPBROWSEDOC �€KPBROWSEPAS …€ åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå PRINTLST and KPPRTLST v1.2 Program written and (C) 11/24/1984 by Steven L. Sanders A utility program to list the CP/M Master Catalog file. PRINTLST.COM is generic, usable by any CP/M computer KPPRTLST.COM is for video-able Kaypros only This program will output the contents of the MAST.LST file generated by XCATxx.COM into a 3-across format either to the CRT, printer, or diskfile. I found all the other listing programs to be big space-wasters when it came to the number of sheets needed to print-out a big catalog. PRINTLST ignores all other disk numbers except for the first one generated by XCAT, if you need a cross-ref listing then use XCAT's list output function. To use, run XCATxx on your MAST.CAT file first and choose the diskfile output option and generate the needed MAST.LST file. PRINTLST.COM will look for MAST.LST on the logged du:, if it is not there the program aborts with an error message. If it does find the MAST.LST file it will then prompt for CRT display , output to printer, or diskfile options. Before outputting to the printer or diskfile the program will prompt for entry of the date to be included in the listing. If the diskfile option is chosen, you then enter the destination drive letter (A, B, C, or c/r for default drive). If the file MASTER.LST already exists on the specified destination drive - the program aborts with a message saying "File already exists!" PRINTLST will format the MAST.LST file into a 3-across listing like so: filename.typ - dsk | filename.typ - dsk | filename.typ - dsk ---------------------------------------------------------------------- K10VIDEO.IQF - 117 | K10Z2ND1.LBR - 118 | K10Z348K.LBR - 216 K10ZCPR2.LBR - 166 | K10ZCPR3.LBR - 194 | K2-XMD88.LBR - 167 and so on ... If listing to the CRT, it displays 15 lines (45 filenames) and then prompts you to "hit any key or uit" before displaying more. If outputting to the printer, it lists %57 lines (171 filenames) per page, numbers the pages, and continues to the end of the file. If outputting to diskfile, the title and header lines are printed once at the beginning and the listing is continuous to the end of the file. The main reason for this program was to conservatively list the contents of a large MAST.CAT file (mine has 4000+ files) for easy and quick referrence. My catalog used to take 60+ pages if using XCAT's printer option, now it only takes 21 pages. Bug reports, problems, improvements: Steve Sanders (Sysop) DATACOM NETWORK RCPM SYSTEM #1 (813) 937-3608 DATACOM NETWORK RCPM SYSTEM #2 (813) 937-6829 DATACOM NETWORK RCPM SYSTEM #3 (404) 632-2109 -06-00 86 `€BARGRAPHDOC a€DBASTIMECMD iDBASTIMEASM k!DBASTIMEHEX tKPBROWSECOM u€-KPBROWSEDOC �€KPBROWSEPAS …€  Fog Library Disk FOG-CPM.036 Copyright (1986) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Kaypro programs. Filename Description -06-00 .86 This is the release date of the disk. -CPM036 .DOC This is the description of the disk contents. ARROWK1 .COM C6AE 12K [ArrowKey Programs 1 of 4] Arrow key programs for Kaypro 1, 4, and II. Turbo Pascal code is included. ARROWK4 .COM 98E9 12K [ArrowKey Programs 2 of 4] ARROWKII.COM BD47 12K [ArrowKey Programs 3 of 4] ARROWS .PAS C75B 11K [ArrowKey Programs 4 of 4] AUTOBOOT.COM 0F8E 10K [Autoboot 1 of 2] Allows all Kaypro users to specify the command to be executed after a "cold boot". Turbo Pascal source code is included. AUTOBOOT.PAS 37B8 9K [Autoboot 2 of 2] BARGRAPH.COM AC21 27K [Bargraph 1 of 2] Graphics program for '84 series Kaypros. Allows you to make bar graphs on screen from input values. BARGRAPH.DOC E9A9 8K [Bargraph 2 of 2] DBASTIME.CMD 0AF4 2K [dBASE Time 1 of 3] Works with dBASE II to read internal clock on Kaypros.  Displays clock information and stores time in dBASE. DBASTIME.ASM A3C0 9K [dBASE Time 2 of 3] DBASTIME.HEX CFE9 1K [dBASE Time 3 of 3] KPBROWSE.COM 10F3 12K [Kaypro Browse 1 of 4] Gives screen-at-a-time viewing of files on '84 series Kaypros Shows underline, bold, etc. on screen. Turbo Pascal source code is included. KPBROWSE.DOC 8798 4K [Kaypro Browse 2 of 4] KPBROWSE.PAS D3F9 9K [Kaypro Browse 3 of 4] KPVIDEO .PAS 7F85 1K [Kaypro Browse 4 of 4] TIME .COM D81A 1K [TIME 1 of 2] Read and display the Kaypro clock. TIME .ASM F070 10K [TIME 2 of 2] KPPRTLST.COM FCC5 14K [Kaypro PrintList 1 of 2] For '84 series Kaypros. Prints MAST.LST file three across. KPPRTLST.DOC 374D 3K [Kaypro PrintList 2 of 2] oboot 1 of 2] Allows all Kaypro users to specify the commå&ååååå'ååååå