þþ.dX;---------------------nX;xX;Subroutines for CHECK‚X;ŒX;---------------------–X; ˆTOKENIZE%>ª…TOK_1Q„WORD8´ F†INV_IT¾ †CONL2UÈ P†T_WORD8Ò3Ü H…TOK_1æ†INV_IT)>ð F…INV_LúQ†T_WORD8L>€P†T_WORD8 …INV_L:"X;,X;Print a tokenized word6X;@ŠPRINT_WORD$>ÿJ „PW_12T Q†T_WORD9^5hM>r …EPUTX|7† I„PW_1:šX;¤X;Get amount of free memory®X;¸‰FIND_FREEQ>Â;Ì S‡ENDWORDÖ P…FREEMà Q†RAMTOPêS‡ENDWORDô P…FREEMþ:X;X;Search the DictionaryX;&†SEARCH ŠMAKE_INDEX0?: Q…AWORD8D P„INDRNQ…AWORD8X P„INDRbQ…AWORD8l P„TEMPvQ…AWORD8€ P„TEMPŠX;” „SRCH%>ÿž …D_LEN3¨ Q@„INDR7² I…D_LEN¼3Æ '„ASAVÐX;Ú%>ä$>î Q†T_WORDø G†SRCH_12 †SRCH_1Q†T_WORD9 R@„INDR7  HˆSRCH_NXT*243> )„ASAVH H†SRCH_1R,\:;;found it!fX;pˆSRCH_NXTQ„INDRz,„ O„ASAVŽ P„INDR˜ Q„INDR¢O>¬ P„INDR¶ Q„INDRÀ R„TEMPÊ H„SRCHÔ Q„INDRÞ R„TEMPè H„SRCHò;ü:;;not found!X;X;Proof a fileX;$…PROOF†PRINT ˆPROOF_NM. …GETFN8 E‡PROOF_MBX;LX;Make DOC.TMP same drive asVX;Source file.`X;j%> 1tQ†FILNAM~R> :;;a ':'?ˆ F†PRF_GC’$†FILNAMœ(> :¦ H†PRF_GC°?º†PRF_GC'‡TMPNAMEÄ †OPENINÎ G‡PROOF_EØ ‡OPENOUTâ G‡PROOF_EìQ>ö P†WCOUNTP†WCOUNT P‰LAST_WORD ‡SHO_BOXX;(†PROOF1 ˆGET_WORD2 Q‡NO_JUNK< H†P_LASTF Q…EOF2?P H…PR_CLZ Q…OEOF?d H†PR_OERn†P_LAST ‡CONTEXTx ˆTOKENIZE‚ †SEARCHŒ D†PROOF2– ‰NOT_FOUND †PROOF2 ‰SEND_WORDª Q…OEOF?´ F…P_BMP¾†PR_OER%…ERRORÈ H‡PROOF_EÒ…P_BMP…BUMP †WCOUNTÜ …SHB_3;;show countsæ !†PROOF1ðX;ú…PR_CL%†ERRORR I…PR_OK)>ˆ H‡PROOF_E"…PR_OK †DCLOSE, ˆSEND_END6 †CLOSE2@ †RENAMEJ‡PROOF_V †CLOSE2T‡PROOF_M!ˆMAINLOOP^‡PROOF_E ‡IOERRORh †DCLOSEr !‡PROOF_V|X;†X;Move memory UP (delete)X;š‡MOVE_UPQ…FROML¤P†UMOVLP® Q…FROMH¸P†UMOVLP Q…DESTLÌP†UMOVLPÖ Q…DESTHàP†UMOVLPê $„HLENô F‡SKIPMOVþ „MOV1Q>„MOV2P†ENDPOS%>†UMOVLPQÿÿ8&Pÿÿ803: )†ENDPOSD H†UMOVLPN#†UMOVLPX#†UMOVLPb(>l F†UMVOUTv0€ H„MOV1Š‡SKIPMOVQ„LLEN” H„MOV2ž †UMVOUT:¨X;²X;Move memory down (Insert)¼X;ƇMOVE_DNQ„HLENÐ>Ú L„LLENä H‡NOTNULLî:ø ‡NOTNULL,A  O…FROMHP†DMOVLP  Q…FROML*P†DMOVLP4,>AH O…DESTHRP†DMOVLP\ Q…DESTLfP†DMOVLPp2z %„LLEN„ H†DMOVLPŽ F‡SKIPDMV˜ …DMOV1%>ÿ¢†DMOVLPQÿÿ8¬Pÿÿ8¶1À)>ÿÊ H†DMOVLPÔ‡SKIPDMV"†DMOVLPÞ"†DMOVLPè0ò H…DMOV1ü: X; !X;Add a word to the Dictionary X;$ ˆADD_WORD%>ÿ. …ADD_038 Q†T_WORD8B I…ADD_0L 3V )>` F…ADD_1j 1t …ADD_1'…LEN_1~  ‰FIND_FREEˆ Q…FREEM’ H‡CAN_ADDœ Q…FREEM¦ R…LEN_1° E‡CAN_ADDº :Ä ‡CAN_ADD ŠMAKE_INDEXÎ >Ø #ˆWORDS_IN9â H†ADD_NHì #ˆWORDS_IN9ö †ADD_NH ˆCHK_EDIT †WHERE? X; , Q„TEMP( P…FROML2 O…LEN_1< P…DESTLF Q„TEMPP P…FROMHZ O>d P…DESTHn Q‡ENDWORDx ;‚ S…FROMLŒ P„LLEN– Q‡ENDWORD  S…FROMHª P„HLEN´ ‡MOVE_DN¾ X;È Q†T_WORDÒ M>Ü ;æ S> Að >ú T? ? †UPDATEQ…AWORD8 ," O…LEN_1, P…AWORD86 Q…AWORD8@ O>J P…AWORD8T 3^ 3h 2r (>| H†UPDATE† …BUMP ‰NUM_WORDS %>š $>¤ Q†T_WORD® GƒUPD¸ 2 ƒUPDQ†T_WORD9Ì P@„TEMP7Ö G†ADD_LVà 2ê 3ô HƒUPDþ †ADD_LV!…SHB_3 X; X;Delete a Word X;& †DELETE †CLRSCR0 †PRINT ‚M1: Q>D P„XPOSN P„YPOSX X;b †PRINT ‡DEL_TXTl %>v …INPUT€ X;Š †DEL_MV ‡MY2WORD” Q…MYBUFž R>ƒEOL¨ HƒD_S² !ˆMAINLOOP¼ ƒD_S †SEARCHÆ D†GO_DELÐ †PRINT ƒWNFÚ ‡WAITKEYä !†DELETEî X;ø †GO_DEL†PRINT †DEL_IT  ŠPRINT_WORD Q> ' „EPUT …GETYN* H†DELETE4 %>ÿ> …DEL_L3H Q†T_WORD8R I…DEL_L\ 3f )>p F…DEL_Mz 1„ …DEL_M'…LEN_1Ž †SEARCH˜ Q„INDR¢ P…DESTL¬ ,¶ O…LEN_1À P…FROMLÊ Q„INDRÔ P…DESTHÞ O>è P…FROMHò Q‡ENDWORDü ; S…FROML P„LLENQ‡ENDWORD$ S…FROMH. P„HLEN8 ŠMAKE_INDEXB>LQˆWORDS_IN9VLˆWORDS_IN9`R>j DˆDELETE_GtQˆWORDS_IN9~;ˆS>’PˆWORDS_IN9œQˆWORDS_IN9¦S>°PˆWORDS_IN9º ‡MOVE_UPÄQ‰NUM_WORDSÎ;ØS>âP‰NUM_WORDSìQ‰NUM_WORDSöS>P‰NUM_WORDS  ˆCHK_EDIT Q†T_WORDM>(;2 S> A<>FT?P?Z†DNDATEQ…AWORD8d;n S…LEN_1x P…AWORD8‚Q…AWORD8ŒS>–P…AWORD8 3ª3´2¾(>È H†DNDATEÒ ‡SHO_BOX܈DELETE_G!†DELETEæX;ðX;Check Edit FlagúX;ˆCHK_EDITQ> P†EDITED:"X;,X;Quit from Program6X;@„QUITQ†EDITEDJ HˆTRY_SAVET "„YPOS^†GO_JMP!†GO_DOShX;rˆTRY_SAVE†PRINT ‡SAV_TXT| †ZAP_FN† ‡SHO_BOX …GETYNš H†GO_JMP¤†PRINT †DC_PRM®†PRINT †DC_TXT¸†PRINT ‡DC_PRM2 ‡GET_RETÌ †DCLOSEÖ$>0àQ>ê P…ICCOM9ôQ>4ˆDIC_NAMEþ P…ICBAL9Q>5ˆDIC_NAME P…ICBAH9Q>& P„AUX190Q>: P„AUX29D „CIOVN I†Q_OPENX…Q_ERR …PUTCRb ‡IOERRORl †DCLOSEv !ˆMAINLOOP€X;Š†Q_OPEN$>0”Q> ž P…ICCOM9¨Q>4‡DICTION² P…ICBAL9¼Q>5‡DICTIONÆ P…ICBAH9Ð Q‡ENDWORDÚ;äS>4‡DICTIONî P…ICBLL9øQ‡ENDWORDS>5‡DICTION  P…ICBLH9 „CIOV  G…Q_ERR*X;4 †DCLOSE>†GO_DOS†PRINT ˆREST_TXTH …GETYNR HˆDOS_MAIN\ !…BEGINfˆDOS_MAIN$>p &†GRACTLzQ> „ P…ICCOM9Ž „CIOV˜ †DCLOSE¢ †CLOSE2¬Q>¶ %>4†SYSVBVÀ $>5†SYSVBVÊ †SETVBVÔQ>Þ %>4†XITVBVè $>5†XITVBVò †SETVBVüX;$> &†HPOSP2Q>$ P…ICCOM9. Q>4„EADR8 P…ICBAL9B Q>5„EADRL P…ICBAH9VQ> ` P„AUX19j &„AUX2t „CIOV~Q>@ˆ P†SHFLOK’ !@†DOSVEC:œX;¦X;Load a Dictionary°X;ºˆLOAD_DICPˆDIC_NAME Ä †DCLOSEÎ$>0ØQ>â P…ICCOM9ìQ>4ˆDIC_NAMEö P…ICBAL9Q>5ˆDIC_NAME  P…ICBAH9Q> P„AUX19(Q>2 P„AUX29< „CIOVF I†L_OPENP…L_ERR ‡IOERRORZ7d7n †DCLOSEx !…BEGIN‚X;Œ†L_OPENQ>–$>0  P…ICCOM9ªQ>4‡DICTION´ P…ICBAL9¾Q>5‡DICTIONÈ P…ICBAH9ÒQ>ÿÜ P…ICBLL9æ P…ICBLH9ð „CIOVú)>ˆ H…L_ERR !†DCLOSEX;"X;Erase filename,X;6†ZAP_FN%>@Q> J†ZAP_F1P†FILNAM8T1^ I†ZAP_F1h:rX;|X;Find Where a word goes†X;!X;ENTER: LEN_1 = length T_WORDšX;¤†WHERE? ŠMAKE_INDEX®>¸ Q…AWORD9 P„TEMPÌQ…AWORD9Ö P„TEMPàQ…AWORD9ê P„INDRôQ…AWORD9þ P„INDRX; „WH_1$>Q> &„WH_2P†WORD_C902: H„WH_2DX;N%>ÿX „WH_33b Q@„TEMP7l P†WORD_C8v I„WH_3€M>Š P†WORD_C8”3ž '…LEN_2¨X;² )…LEN_1¼ E‡SET_LENÆ %…LEN_1ЇSET_LEN'…S_LENÚ%>ÿä$>ÿî Q†T_WORDø G„WH_42  „WH_432  Q†T_WORD9*P†WORD_C€84 I„WH_4>M>HP†WORD_C€8RX;\%>f„WH_5Q†WORD_C€8p R†WORD_C8z D†WHDONE„ F…WHINCŽ E†CHKEND˜X;¢ …WHINC3¬ )…S_LEN¶ H„WH_5ÀX;ʆCHKENDQ„TEMPÔ,Þ O…LEN_2è P„TEMPò Q„TEMPüO> P„TEMP R„INDR H„WH_1$ Q„TEMP. R„INDR8 H„WH_1B †WHDONE:LX;VX;Move MYBUF to WORD`X;j‡MY2WORD …STRIPt%>~…MY2_1Q…MYBUF8ˆ P„WORD8’ R>ƒEOLœ F…MY2_0¦2°3º H…MY2_1Ä …MY2_0Q>Î P„WORD8Ø Q„WORDâ H…MY2_Lì Q>ƒEOLö P…MYBUF…MY2_L!ˆTOKENIZE X;X;View Dictionary by LetterX;(„VIEW†PRINT …V_TXT2 #„IPUT<†VIEW_1 †GETKEYF †CONL2UP R>ƒEOLZHƒV_Ad !†VIEW_LnX;x ƒV_AR> A‚ D†VIEW_1Œ R> Z– E†VIEW_1 5ª „EPUT´ "„IPUT¾7È P†PREFIXÒPƒN_WÜ ‡MAKE_INæ$>ð?úQˆWORDS_IN8 P†WCOUNTQˆWORDS_IN8P†WCOUNT"†VIEW_2Q…AWORD8, P‡V_START963@2J(>T H†VIEW_2^X;h†VIEWERQ>rP…COUNT;;words in col|P„ASAV;;column†P„EOF?;;words left? ‡ZAP_TOPšQ>4‡TOPHALF ¤PƒSCR®Q>5‡TOPHALF ¸ PƒSCR‡VIEW_LP%>ÿÌ †VIEW_33ÖQ@‡V_START7à I†VIEW_3ê Q„ASAVô F‡VIEW_PWþ)> E†V_WAIT%> Q@ƒSCR7& H†V_WAIT0‡VIEW_PW ‰PULL_WORD:%>D‡VIEW_SCQ‰LAST_WORD8N F„A_40X †ASC2ICb P@ƒSCR7l3v H‡VIEW_SC€X;Š„A_40 ˆSCRADD40” Q„EOF?ž H†V_WAIT¨ #…COUNT² Q…COUNT¼R>Æ H‡VIEW_LPÐ Q„ASAVÚ H†V_WAITäQ>4‡TOPHALF îPƒSCRøQ>5‡TOPHALF  PƒSCR Q> P…COUNT  #„ASAV* H‡VIEW_LP4X;>†V_WAIT †CLRSCRH†PRINT ‚M2RQ>\ P„XPOSf P„YPOSpQ†WCOUNTz %†WCOUNT„ ‡CON_NUMŽ,˜ O>4†NUMBUF¢5¬ Q>5†NUMBUF¶O>À?Ê7Ô †EPRINTÞ†PRINT ‡N_WORDSè …PUTCRò #„YPOSü Q„EOF? H†VIEW_E ˆSEE_MORE H†VIEW_L$ !†VIEWER.†VIEW_L †ZAP_FN8 ‡SHO_BOXB !ˆMAINLOOPL†VIEW_E!„VIEWVX;`X;Make Letter in A an IndexjX;tŠMAKE_INDEXQ†T_WORD~‡MAKE_INM>ˆ;’S> AœT?¦:°X;º X;Pull a word from DictionaryÄX;ΉPULL_WORDQ>ØP‰LAST_WORDâ Q„EOF?ì HˆPULL_OUTöX;%>ÿ  †PULL_13Q@‡V_START7P‰LAST_WORD8( I†PULL_12M><P‰LAST_WORD8FQ>PP‰LAST_WORD8Z3d '…S_LENn Q†PREFIXxP‰LAST_WORD‚)>Œ H‡PULL_N1–R‰LAST_WORD  H‡PULL_N1ªQ>´P‰LAST_WORD¾‡PULL_N1Q‡V_STARTÈ,Ò O…S_LENÜ P‡V_STARTæQ‡V_STARTðO>úP‡V_START R…V_END HˆPULL_OUT Q‡V_START" R…V_END, HˆPULL_OUT6 #„EOF?@ ˆPULL_OUT:JX;TX;Strip Junk from MYBUF^X;h …STRIP$>r%>|…STR_1Q…MYBUF9† R>ƒEOL F…STR_2š †CONL2U¤R> A® D…STR_N¸ R> Z D…STR_2Ì …STR_N2Ö H…STR_1à…STR_2Q…MYBUF9ê P…MYBUF8ô F†STR_ENþ2 3 H…STR_2 †STR_EN:& X;0 X;Rename XIO: X;D …X_RENQ> N H†DO_XIOX X;b X;Delete XIOl X;v …X_DELQ>!€ H†DO_XIOŠ X;” X;Unlock XIOž X;¨ …X_UNLQ>$² X;¼ X;Perform an XIO on CH #4Æ X;Ð †DO_XIO5;;XIO CommandÚ $>@ä Q> î P…ICCOM9ø „CIOV!$>@ !7! P…ICCOM9 ! Q>4†FILNAM*! P…ICBAL94! Q>5†FILNAM>! P…ICBAH9H!Q>R! P„AUX19\! P„AUX29f! !„CIOVp!X;z!X;Rename the files„!X;Ž! †RENAME …X_UNL;;unlock source˜!%>¢!…REN_1Q†FILNAM8¬! P…MYBUF8¶!R> .À!FƒS_YÊ! R>ƒEOLÔ! H„UP_YÞ! ƒS_Y'„ASAVè! „UP_Y3ò!)>ü! H…REN_1" %„ASAV" ‡ADD_BKP" …X_UNL;;unlock backup$" …X_DEL;;delete backup."X;8"X;Restore FILNAMB"X;L"%>V"…REN_2Q…MYBUF8`" P†FILNAM8j"1t" I…REN_2~"X;ˆ"$>ÿ’" „F_EL2œ" Q†FILNAM9¦" R>ƒEOL°" H„F_ELº"Q> ,Ä" P†FILNAM9Î"2Ø"Aâ"?ì"$>ÿö" …F_COL2# Q†FILNAM9 #R> :# H…F_COL#2(# &„ASAV2#X;<#…ADD_8Q…MYBUF9F# P†FILNAM8P# R>ƒEOLZ# F…REN_4d#R> .n# F…REN_4x#2‚#3Œ# H…ADD_8–#…REN_4 ‡ADD_BKP # …X_REN;;rename sourceª#X;´#%> ¾#…C_TMPQ‡TMPNAME8È# P†FILNAM8Ò#1Ü# I…C_TMPæ#Q> ,ð#P†FILNAM ú#%> $ $„ASAV$„C_FNQ…MYBUF9$ P†FILNAM8"$2,$36$ R>ƒEOL@$ H„C_FNJ$ …X_REN;;rename DOC.TMPT$ !†ZAP_FN^$X;h$X;Add the .BKP Extensionr$X;|$‡ADD_BKP$>†$…REN_5Q‡BKP_TXT9$ P†FILNAM8š$3¤$0®$ I…REN_5¸$:Â$X;Ì$X;Get a Directory EntryÖ$X;à$‰GET_ENTRY$>0ê$Q>ô$ P…ICCOM9þ$ Q>4…MYBUF% P…ICBAL9% Q>5…MYBUF% P…ICBAH9&%Q> 0% P…ICBLL9:%Q>D% P…ICBLH9N% !„CIOVX%X;b%X;Open for Directoryl%X;v% ˆOPEN_DIR5€%CŠ%5”% †DCLOSEž%$>0¨%7²% P…ICBAH9¼%7Æ% P…ICBAL9Ð%Q>Ú% P…ICCOM9ä%Q>î% P„AUX19ø%Q>& P„AUX29 & !„CIOV&X; &X;Get Dictionary Directory*&X;4&†GETDIRQ> ?>&PˆDIC_NAME H&$>R&Q>4ˆDIC_NAME\&%>5ˆDIC_NAMEf& HˆNORM_DIRp&X;z&X;Normal Directory„&X;Ž&†DIRECT†PRINT ‡DRIVE_N˜& #„IPUT¢&…DIR_1 †GETKEY¬&M>¶&R>À& F‡GD_MAINÊ&%>Ô&…DIR_2R‡LEGAL_D8Þ& F…G_DIRè&1ò& I…DIR_2ü& G…DIR_1'X;'…G_DIRP‡DIR_TXT'5$' „EPUT.' …PUTCR8'7B'N> L' P…DIR_QV'$>`'Q>4‡DIR_TXTj'%>5‡DIR_TXTt' ˆNORM_DIR~'‡GD_MAIN"„IPUTˆ' !ˆMAINLOOP’'X;œ'ˆNORM_DIR&…RJUST¦' ˆOPEN_DIR°' '„ILENº' ‡DIR_TOPÄ' %„ILENÎ' I„GDIRØ' ‡IOERRORâ'†NO_DIR †DCLOSEì'%>ö'„NO_DQ†D_NONE8(P‡TOPHALFa8 (1( I„NO_D(;((:2(X;<(„GDIR ‰GET_ENTRYF( G…GDDIRP(%>Z(‡AT_END?Q‡FREETXT8d(R…MYBUF8n( H‡NOTFREEx(1‚( I‡AT_END?Œ( Q…RJUST–( L…COUNT ( F†NO_DIRª(X;´(‡NOTFREE#…COUNT¾( „NF_2%>È(†DIRLP1Q…MYBUF8Ò( R>ƒEOLÜ( F‡ENTRYDNæ( †ASC2ICð( P@ƒSCR7ú(3) H†DIRLP1)‡ENTRYDNQƒSCR),")O>,)PƒSCR6) D…G_TST@) #ƒSCRJ)…G_TSTQ…COUNTT)R>^) D„GDIRh) E„D_WTr)X;|)…GDDIRQ…COUNT†) L…RJUST) F†NO_DIRš) †DCLOSE¤),®):¸)X;Â)„D_WT ˆSEE_MOREÌ) H…GDDIRÖ) ‡DIR_TOPà) !„GDIRê)X;ô)X;Do Top of Directory Screenþ)X;*‡DIR_TOP ‡ZAP_TOP*Q>4‡TOPHALF( *PƒSCR&*Q>5‡TOPHALF( 0* PƒSCR:*Q>D* P…COUNTN* $…RJUSTX* H…J_DIRb*%>l*„DT_1Q†D_HEAD8v*P‡TOPHALF 8€*1Š* I„DT_1”*:ž*X;¨* …J_DIR%> ²*„JD_1Q…DIR_N8¼*P‡TOPHALF 8Æ*1Ð* I„JD_1Ú*:ä*X;î*X;See More?ø*X;+ˆSEE_MORE†PRINT †V_MORE + !…GETYN