' +JJJJ ?\>m0M='+l> /+l  뷊i 췵귩,ȩȍ, ee `ۦ` ` 鷎귭෍ᷩ 췩緈JJJJx Lؿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`     LD` ~  L)**`@>)**`"@(> Hh`">O> Hhi`I>ց>i H H hh`{>> H H ^hh`RWTS SUBROUTINES ONTO DISK ), SEC A, TRK 0 < 6/ 2/83>107)3107+ >CP]?  ?_>F?BRKT?_?CLCT?i?CLDT?s?CLIT?X}?CLVT??DEXT?ʑ?DEYT??INXT??INYT?ȯ?NOPT??PHAT?H?PHPT??PLAT?h?PLPT?(?RTIT?@?RTST?`GB - BOOT SIDE OF THE DISK ________________________________________ HOLT RINEHART WINSTON BIOLOGY GENETICS version 1.24 compiled 9-15-87 _______________________________________ Designed and developed by: Prentice Associates, Inc. 670 Centre Street Boston, MA 02130 ةlL- `DLI.HʕhiL&EXIhhhLF_ґ HHLF SP HL? RP ʕLF AN 5H5LA XO UHULA O HLA OVE HL? DRO,  DU* HL?" ?DU; LFLF2 SWAX HLAO DDRO* h DDU{ ʵLF e`r ROL̜ 0L, HLA PIC HLA RO ʔʩL HLA C LF L*  C$ L*  +2 uuL* + +CP uL* H ` uuLFZ x 8LFr 0 *LF 8PIȔL, 8L 0 L LF NEGAT 8LF NO ȔLF 0  $ 8ȔL,  UB Vv uujfvvLF; U/MOw 8|L *668 (8L (66L, m DIGI 800 08 0  HLAHLALFL CMOV L BMOV0 8L ee LFLU&1rLFk2Lr{1LF2L26LF2 LF8vvLFFIL LFLFLQTER,ȘL ?TERM', ,,0ȘL <:AHHieLF9Iv BASv DPvHLv OUv DRIVEvOFFSEvDISK-vDuuuuL* DNEGA"8L U78ȔL, 0S->A( zJ+A  z[ABA( `zlD+A  zzDABA( zMAAy V zMIAy V zDSWAA, , zDOVEA, , zBSv$BS HHL* L*hh` X`CAL;/0H .h L, 2ROMCA]L;RMOA,i[zcRM-WA , 9zsR1-WA , 9zR2-WA , 9zCOPY-A{,( ,zQUERA ,P zSABORAΧGzoBRK-RAΧGzRESEԚخ~|LZERO-ANNDIVIDE OVERFLOWzAA, ,,  ",, ,^ ;  zLOGAfzSTARTAΧzCOLDSaCOLA{, ," ( , ,   * c *  *,^ ,T ,v ( , , #, m x  ,( , , , , ," ,L," wz$DA y "    V V V zDMAAp zDMIA p z7DUA ,^ } } ,^ zRDA zrD0A  zDAwzDAzDA( V  V zDAV   zAPP-LINKaAPP-LINKaEXTRvWIDTaЅ#VOCaЃCSv(ЅSTATv2ЅFENCv>Ї>IN-Ev JЅPRIOvTWЇWARNIvcЈFWARNvpІEPRINv}ЉAPP-SaЊІOLD-DvЊOLD-LvІAPP-Dv,ЊAPP-LvЈTRAVEAV  ^ , V zІLATESA; zЃPFA,^ zуNFA,v ,zуLFAѢz/чPFA-LAz=шAPPENA  < ; ( ;   ,, zLфMAIA   @ ; (  ;    , zх?COMA:   COMPILE ONLYzф?CSA . v DEFINITION NOT FINISHEDz҈?LOADA   LOADING ONLYz@҆?PAIRAv CONDITIONALS NOT PAIREDzb҆?STACA hV 5STACK UNDERFLOW 5 FULL STACKz҇?STREAINPUT STREAM EXHAUSTEDz҆TOGGLҡUL* ҆SMUDGA, z҉IMMEDA,@zӅALLOA0 z)ӁAY 1z9ӂCAY" 1zIӃHEA, zZA: zlӁA,: zzӇCOMPIA} (  =zӇ'STREA 9   ^ zӇ<;CODA} y zӇENCLOӵʔLԔȔLFLF L$ԔLFӇ< 255z=ՆNUMBEA ( p ,-" ( ^ , (  @( ,."  NOT RECOGNIZED (  NOT RECOGNIZED }  zzՆA,, ,  ,v ,u V   ^  zrCRauiILFVNLINa+EDa+EDaBLKMAvBLK->A(  ^ NEGATIVE SCRN NO.( ^  5 8 _ ^ ( * p z y U]( ( ,N"  ,Y" ,Y" p } zLISA9(  SCR # ,("  ,, 95 ,&5  F% * 9zPYEAvWDAvMONTv .M/D/A &/ &/ &z.HR:MA PAI zWHOA,,^ ( ,,"Dտ, V zSETDAA,d zAPAUSA% , * %, * zb  "LD  ^  zSCRHDA,?zEAzEA zCOPYSCRNA,l(zERASESCRNA,)z(DUMA,N*zCINDEA,+zV4LSA,.zjCASA,-.z}IA,/zTA :  A= zREVECTOA yszINTAz:AYz.A 0 ,$D p1z;A z?MAIA MAIN MEMORY ONLYz?APPA   APPENDIX ONLYz>APPENDIXA,5 z`[MAINAzx[APPNAUz'XCREATaC)FfFfFfee4C`)C@BIuC >C!ȘHLAlC!BIԍC >C(I!LCL, C?EXIA} zC?LEAVA} zCMTASAzCGBASaCGPATaCGFIaC&QUaD&REa DGMODvDLYADv((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP$DHYADv $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?????????????????????????????????????????????????????????????????.E$YADBFH.D8Eh`8FYADDYF BFLFOFLMASv~|xp`@nFRMASv?FHH*hh`FCOLOvUUUUUUUUUUUUUUUUDDDDwwww""""DDDDwwww""""3333ffff3333ffff________FPATBa@GTEMPvALLOT 21GLEFTvGLEFTvGRIGHv'GRIGHvGHHH)G('GG⭧G㭺G=4CG'HJhjL&HHJ@hjL2Hhhh`GCOLOvIHSETPAG, zUHHCOLA( QH , F^ ]HziHSETMA D zH1`H1LHGLHHQ`H QGLHH`H GLHHI1`II1GLHI I1I%`/I I IL6IGLIKI 1Q`VI 1QL^IGLKIsI Q%Q`I sILIGLsIH$C-H̦IH"DhLHLHLIL/ILVILII$HLII`HGG('H8Gh-GLJh ILJhh`I$HLIJ` G BFLIJHLIN3J JL, )JHLINJJH BF IhL, @J$ENDdJ8` L|J'LJ F`ZJNMKJi0 NLHN=K0 MLUNKJ0 NLdN`|MNLFoNCDRAAwNzQOGTASAz_OASCTa}kOGvwOGvO>COFAsO^ zO>CDAAO sO^ ,^ zOCWIDAO zO!CURAO |O zO@CURA|O O zOGHOMAiLyLOzOCLANLHiLLJyLLKHzOGPAGAOPzPGLA[KO0 z/PGCA5PiL|O z?PDISA `U 5 ^ , &,, v }  v  W} p} W zA 2U^  5 .} ^ fWDISKA V `U 5 ^ , &,, v }  v  X} p} X z0XCAPv|XUPA( ,a,zB, v zX?CHAAX XzXTOUAXzXUCAXV X" zX-TEXA V y v ( ,(   5 ^ X 5 ^ Xv (  * V V }   V ( V `zX=TEXAX zJY$A } XzZY$A_Y zmY$A_Y zzY$A_Y zY$AY zYSTRINA zY<"A} ( ^ zYLOADEA ,"   q zY.PATCA991OPDB SYSTEM PATCHES zZPATCA,A,A,P( A( A( A( AA!Z INSTALLED.H99z1ZUNPATA,A,N( A( A( A( A( AA!ZREMOVED.H99zZEXEXZ[EXECAZ}zDTYPEgZZTYPEAZz[VARIA䄁[[SCR-ND[![KEYWOAY' z2[[KEYWAY' }1zC[OPEAY7 zX[[OPERAY7 }1zg[OPERAAYH z|[[OPERAYH }1z[MSG-PԣV1[MSG-TţV6%[OPD£V\/[PICӣV &vvvvvvvvv[NEXT- \[[[[Ȯ[[8`[[[ BF`<\`I\ <\ <\ <\Lf\ <\[[[[ \`[ȃ\[`[`[[ BF I\`\[[[ \[Ȯ[ \[[[ \[Ȯ[ \LF[UNPACA ( , ( p , }  [" ^ [" }  [" ^ [" \z\MAXPIad$]VADDA6j,h^ zzj@VADDAj zj@VTYPAj zj@VAA( jV jJgzj!VAA( jV jJgzAh gv ^ d^ _No room in temp areafj$>TVA( jv h " v h p" h v h } h0 zAc( ccV kzA,cczAcjzAh gv ^ d^ _no room for varfA,h^ y " h V f9 ( vkh  h0 $( vk( h " h p ph0 fAcc g" c kjzkVALUAzl1stVaa,l1stUsa9lUserVahA$ N  jfgALIAA$ j zDP/G&jlP/allCURG&lCURallCURG&lCURallLASTG&lLASTallLASTG&lLASTallDG&lDallDG&lDallDXG&lDXalmDYG& mDYal mTFGG& !mTFGal *mTBGG& 4mTBGal >mM-ITEMG& HmM-ITEal RmM-CHAG& _mM-CHAal kmM-COLOG&wmM-COLalmM-OG&mM-OalmM-OFG&mM-OFalmM-OFFG&mM-OFFalmM-BLING&mM-BLIalA_conv err (CHAR)fA( g"  f( g"   ,5 mf( g" V g" ( ,5 mfmfA_conv err (INT)fA( g"  f( g"  (  V ,"  _nf( g"  ( _nfg"  _nfA_conv err (CAR)fA( g"  f( g"  nf( g"  ( nfg"  _nfA( g"  f( g"  g"  f( g"  Qf_conv err (DBL)fA( g"  f( g"  g" gkf( g"  g"  g" oV  ( *x ckf( g"  `!g!kf _conv err (STR)fAc nzActnzAcnzAcozAcbozAV  p  p ^ g" ( p gpv ( p V gp} ^ gkzAV u V zAV u zAV pV prYzAV pV prYzA"  zA zAV pV prY zAV pV pYzA  zAV 5 zA zAV pV pYzA zAV 5zAzAV pV pYzA  zA5 zA zAV pV pYzAc( jg" ?j p (  _No room in dest stringV pV p} pjjzvvvmPXvqPAGINA99Include pagination marks9when loading/runningq zqDOPAAq *UqTq *xp ,-q xcSTzAd,u q q jzFlCHECKA9  _Branch not setzAdGrb czAih_^ _Too many GOSUB'sdGrb b i5_c i5_czAih_ _Too many RETURNSiM_b c iM_b zvAr d( ,"   V (   V r V p r 9  _ON index in errfAih_^ _Too many GOSUB'srGrb b i5_c i5_czArGrb czAdb0 jzA d db0 jzA  d db0 jzvALLOT ITEMS vALLOT KEYS e-a,vALLOT KEYS e-a>r^MITEAV ,s^ ^ zt^MKEYA, t^ zvAvA;t#MITEv`t#MKEYvAs^, t^,it vt hm jc Tt zAit p( ^ _Too many items in menu( it l  't l V 't jzAdb it ,'t b0 jzAdb it ,'t b0 jzAvt p( ^ _Too many menu keys( vt Dt" db vt Dtp b0 jzmtEXIT-a~u{run-uuLu cʔʕLFuRUN-CA9 b Auu( e zuWAIA9  , N* * zuQWAIA9  ,  * * zv.MCHAAhm 't m ^ l hm 't l m Pz0vMCURANLl l m (m H9vm vm H9vm vm H9vm H9vl l HzAvt ( "V p  5 Dt "  5 * fA9 } Tt c Tt b fATt c "  _ Can't MCONTTt fzAZt c "  _ Can't MEXITZt b zAb Zt c Zt hm ,'t vmv]v9 V Dtp vT( ^ ,hm0 v _hm0 hm it ^ it phm } , " hm ,'t vzevLAST-awMSG-BvALLOT F-LEN 3) 183 183 wPROCEAzRxxPROCEAzcx<@MSGA( xB _Invalid message number,^ [V[( Wp( ^ _Message too big to readxV 8XlxzrxLAST-ax?GRP-AxB _Invalid group numberzx@MSA( x[V^ {xzy.MSAyxz4yG.MSAyxSzGyMGRv[yMGROUA( xby zfy@GMSAby yz{y.GMSAby ;yzyG.GMSAby OyzyPMODvAcy zyDO-PMAl AKy " y UTl V v l y ," y UTl V v l y zAyxySjzAV yxySjzApySjzA( l  l l l jzA( l l jzA( l l jzAYAm l 'm m qjzAl l LjzA l ( ` ^ Jl ( K ^ Kl 5 ^ ( ` v Jl ( K ^ Kl ` ^ pl 5 ^ ` v Jl ( ` ^ Kl K ^ ( ` v K} } p } jzA] _Invalid picture numberO]l ,l \^]jzA] _Invalid picture numberjzAO]l ,l \^]zA^]cjjzA^( ]"  jzyRUN-IA,H,qHl l b y hBl,^ =^Blv ,Olh i_[VAx[VAxoyjYAzq         30 | 3[[6_ 66c 3333 66 33333   6csf< 333?333   33  Go;_ CGO[scC_ 6ccc6 333 6ccsv\_ 3333 303 ?  333333 CCff<<_ ;oG_ 33 33 CCf<_ ?0 ? nscsn ;gcg; 33 ``nscsn >c?~ < ?  nscsn`> ;gccc   33  O3333_ 3333 333 ;gcg; nscsn``  >0 ?  3333> cc66 3333N_ 3 3 33  ? ?      s_ p~c~mTING&}TINalTCHAG&$TCHAal.FLAG&9FLAalDTG&NTalXTG&`TalhPG&pPalxPG&PalCG&CalCG&CalSUBAMG&SUBAMalPRIG&ĄPRIalЄSEG&ڄSEal턆ISMODAN  Hz0MOD1MOD2MOD'3MOD24MOD=5MODHKEYA:  NO NESTINGL[z{GY/A9QX( ,Y"  ,N"   ,Y" zAl l jzsDONAl l l l ^ ( l l zAl ,^ l l , ^ ( l l zSGA*xcSzMAX-GaMIN-GaAAA,zAc( j( g" V g"  *g,R} j .( jg"  _Wrong type in INPUTj( pV RA,,Ajza@vRLUDWZ0123456789vvvvvA؆ ( ^ p" ؆ N fAxԆ ^ p Ԇ0 fAxԆ ^ pfAԆ x  fA( ,  X V   (  V p  f!FILTEAg g؆ Ԇ  " ( "  2 ؆ ( pxV zvRLASA ,zRETRA,  5 ^ ,p , ,," z(  z[RWTSAxz.DERA A9,,2A,,UA DISK ERROR HAS OCCURRED,,U  ,-* , , UCHECK DISK AND DRIVE,, UTHEN PRESS SPACE TO RETRY,,UOR ESC TO RETURN TO MAIN MENU( "  ,"   ," AGzv DISK-A,6 Š  ( ," A,6 zA y l l l l zAe u y l l l l zA y l l l l zSEEvRANDOA @ V ,}k@ ,  z#MARKa2ጇESCMAvMARKvALLOT ^ " P-v ^ V 185p z2NEWLINA+#0 * z3PARA. #0 . 5# ,z23^MARAp ^ zjTMARKAr c " zAc i  ꌠzAc r  p( ꌠ  _No more MARK's" z.MARKA,HiTF,P,|O0 8TForwardH, ,,DL,HT,P,|O0 8TBackH, ,,L2Td,P,|O0 8TForwardH, ,,bLzꍉCLR-MAH,, L,HzLARaA (    "  ( AƎ^]( ,"   " i iM_b c iM_b f( $_ _Ď   $_AuzA " ,N ,N r b czBOFFvzBAR-LvALLOT ITEMS A zAit ^ " , it ^ p" zAit ^ p" zAKEYvᏃMCAhm ( ^ ( p ,n V yz폆UPKEYA ^_zDNKEYA _$_zAc b Zt c Zt hm ,'t v]v9 V Dtp vT(  ,hm0 v ;hm0 hm it ^ it phm } , " hm ,'t vzR1-PAA,zAi_jz퐅DISKa TITLAYA A,[ ,<,[ ,^,,i^A,$u,i^,_T8T GENTICS Disk "  8TI8TII,8u,,T8T Copyright (c) 1989 Holt 8TRinehart Winston ,$uqH,, ,L,,i^,_T8TProduced by: ,0u} ,[ zA,,T8TInsert side 2, close the disk,,T8Tdrive door, then press RETURN.], " fAqH,, ,`L,,G,mL,,vT8T#Remove side 1 of the Modern Biology,,T8Tdisk from the disk drive. fAqH,,G,mL,,vT8T"That is not the right disk. Remove,,T8Tthe disk from the disk drive. fFLIAf zxDIDaGBDIDaPSTURNKAAR,AHA[,y , ARAHA[,d|y, b|z2MAaMAaPAaPAaLETaA$LETaBa(a aa/4X4aJPUNvUPUNv`AREaA,Q  ^ fA,Q  ^ fA,Q  ,^ favALLOT length )w"^ $88},3+zC:CLEARWORKSPACAP-]213v |-- v z:BYTESUSEA( , v BYTES,  CAvBfA3V 3 fA V 3 fA3V  fAvBV vB fAy K W} fv?KWc{Ar^ fA,Q  pv fAy WV ( F^ >^  ::^ B^ } fA\ g TfkBOA   ( 5 ^ pJ( 1J( K ^ 1J ( pJ( p( K ^ KV } ^ ( pJp( } ^ KzA\ g W,Q  pv fAa|O ,v O ,v fA,v a,v |O v O LfAP,qHv^ B^ ,^ F^ y :,v >,v L,qHV ,v :,^ Q ,v >,v L,v :,v >,^ LfA( ," v ," v , " } , " fAX( +"  6" V ,-" fvA( fA D H 9   ] \ g v ," V V v ," V pV v , " v , " py  \   V  y g \ p , ,Av , " v ,DX v   } 4} ( ,DX} Hf^DATAg ,^ \ ,^ zA, fAV sCfA,ӘfA,ӘfA,ӘfA,ӘfAV V } CfA,fA,fA,fA,fANfAy,?  v 5 ` 5  `   5 \ ` g =* * fA$Pݘ   ,,qHfA$:ǘSPfA,CfAV V ( ," V " }  , ^ fAV V ( ," V " }   , ^ fA\  g   pQ fA\ g fAfvA( e _^ " fAe pifA( v p y V v p" } " fAǘ  *( ( +X ( V v }  fA  6X ( v p v " } p"  fA,1^ iQ^SW \ +יySK g +יySW  \ 6ySK  g 6y.SW \ +ySK g +ySc_fA,y,a ,CfaavA,ݛN ݛ^ ( OK^ |O0 D  ," ^ HV OOYOHfA( ,A,ZB , ^ ( ݛ^ " ݛN PfA,ۛ ,ߛ ݛ"  9   9Q( , "  v v ," v ," ݛ Hv   ݛ ٛ v v #  v ,-" (   , ,A} j( W fvvANfA fA fA pg \ , r^ ( \ p g fA9 .#P,qH1U PfA,3y,% wfA,+y,% wfavALLOvALLOA( , ۝ , " 41p ( 5 ^ ۝5 ^ "    *    fAݘ \,ݝy,a  6,ٝ ,Sc ❩)  ,ٝ fA,ٝ ,?CfA" fA,ǞCfvvAٞp" ٞ" ٞ^ jzAٞ,^ " ٞ" jzAߞ,O], ٞ5 ^ (   ߞ5 ^ ( ] v ]8X} ]^ * ^]zA( ,Z V p ,Z fAߞ^ 9 O] |O ,O \^]fAzA( pgQV ,^ g^ V fAQ , ,p\ pg ,ݝy,a ۝jzA(   AS,8 ,- zA( ,"  ,pfA1A1AzA1A"1AzA,@ ,< zA͖jzAAtϞjzAAtÛjzAAt͙jzAAtjzAAtםU" jzAAtŝjzAg \ ,y,a jzAjzApV  5 y* jzLOFa.POLEANL U ,HO0 V   , ^ ( O  |O ( ,v ^ ^ |O P} } T} HzAQ , ,p\ pg ,ݝy,a O]|O ,O \^]۝pg+,#Q۝,^ g6,#jzCRATIvALLOT A,, 5 Q , ,p\ pg ,ݝy,a ۝^ N * fA v V v  v V }  fA, 5 Z  p p 5 , fA, 5 ^ * fA,,^ ^ , V  " * fA~ v V v V v V } V fAꢨꢠfA,^ ^ ,gR( + V " jzA,^ , ( 5 ^ 5 , ,:P* zA  } }  U" jzA,, 5 ^ ^ * + zA+ jzMLISA,hy,nx }zԣMPRINA,hy,nx }zRUA,y,nx b|z롅WORLaaAAu )^ ^ fA1fA( C  _No pathC^ fAfAfA,^ fA,^ fA,^ fAfApfAfvA f!MAX-Pa A,^ fvALLOT E 55  , A̤^ fA̤fA(  ̤   ̤( ^  ̤0 fA̤( ^ V  ( 5 "  5 p p fA̤ ̤^ ̤ ( 5 " 5 ( V ( V v .,̤0 p fAH,v V ,v V ,, fA,̤ p fA,u V fA V ,^ fA fA fvA fA( 1( 1w 1m V .1w V 1w0 fAV 1w fA( `1 (   fA̤  ̤(  ( 5 ^ n* fA̤  ̤5 ^ (  (  ̤ ,"  * \fA̤ fA ,P * fAV ( pJ1JfA( (  H ( ( ƥfA,(y fAT 4KKK,K,K,K, + ,HfAb+ jz A, ," Gz SAVE-FORTH   z173,"   Not an X word szXCREATAzXVARIABLA'=z/XCONSTANA߱,1,a==zEXVAA;ziXCONSAQzvXCODA#Ӂ &Y(  zXCA#ҐӁ; H zXA#, . ; H Ӂ,1,A=~zXA#,v NOT STARTED WITH X:fӁpzFMvIN-VIAY, ,?BzVIR-DA D  Virtual system not active   ,?, y zMAIN-A  , y zPUT-LA ," = ," b In vir areab & LOADER is corrupted q v ,,A q zGWRITEAYP q BOzMYDEAH , ,?BzAUXWIA,AzFULLWA,Az([TYPEAZ}1z=[VARA[}1zP[SCRA*[}1zb[LOADAY}zt[FORTAR}zASA z^RESO_.INTERc.MAKE-.SCR-B.RESOL.SET-IP/CHECK/ONADrDO-Or!ONGOK0!ONGOR0)"GOTY06"GOSU`0B!BRAN0O!0BRA0\!1BRA0iRESOL0vRESOL1BST1MITEMsMKEY t>CONTTtNEXT-ZtEND-M1INMEN1MENU-vGO-COvINMIF2LAST-:3IF?-!J4DON4)DO-BA.54!GMS46A!MS;6M^FORGz|XCOMPIo9ePAUSEs9rLARE_ILOFeU!LEi`!NLEykORwSRTAN署SRTPA嚎PIFILPFILÛPMٛPݛLCNXDELADD#PINPUUPPO ( VIRTUAL SYSTEMS <12/21/85> 50) APPENDIX FORTH DEFINITIONS 8192 CONSTANT VIR-BASE 8196 CONSTANT SAVE-VDP 0 CONSTANT VDRIVE 0 CONSTANT SYS-LINK1 ' SYS-LINK1 DUP LFA SWAP ! 0 CONSTANT SYS-LINK2 ' SYS-LINK2 DUP LFA SWAP ! VARIABLE SYS-FLG : NOOP ( put-virtual ) 0 SYS-FLG ! SYS-LINK1 SYS-LINK2 ! CURRENT @ CONTEXT ! ; ' CFA ' FORGET-SYS ! ' CFA ' SAVE-FORTH 2+ ! MAIN ( bobp ) ( VIRTUAL vocabulary <12/21/85> 51) APPENDIX FORTH DEFINITIONS VOCABULARY VIRTUAL IMMEDIATE \ remove VIRTUAL from voc-link chain. VOC-LINK @ @ VOC-LINK ! \ Set search order for following scrns. \ FORTH and VIRTUAL will remain in \ search sequence until next invocation \ of ONLY. ONLY FORTH VIRTUAL ALSO FORTH ALSO VIRTUAL DEFINITIONS VARIABLE NEXT-SECTOR VARIABLE NEXT-AUX MAIN ( bobp ) ( VPARMS <12/21/85> 52) APPENDIX VIRTUAL DEFINITIONS VARIABLE VP \ points to vir parameters : VPARM: CREATE , DOES> @ VP @ + ; 00 VPARM: VIR-FLG 02 VPARM: VIR-TST 04 VPARM: LASTLFA 06 VPARM: FIRSTLFA 08 VPARM: AUX-ADDR 10 VPARM: VIR-SIZE 12 VPARM: VIR-SECTS 14 VPARM: VIR-TRK 16 VPARM: VIR-SEC FORTH DEFINITIONS MAIN ( bobp ) ( SYSTEM: <12/21/85> 53) APPENDIX VIRTUAL DEFINITIONS : SYSTEM: CREATE ( vir# size -- ) HERE VP ! HERE 18 0 FILL 18 ALLOT VIR-SIZE ! VIR-FLG ! DOES> ( -- ) VP ! ; HEX ( vir# size ) 1 2000 SYSTEM: A&E 3 1600 SYSTEM: UTIL 4 2000 SYSTEM: FPA 5 2000 SYSTEM: LDR 6 1200 SYSTEM: MLDR DECIMAL FORTH DEFINITIONS MAIN ( bobp ) ( SETPARMS <12/21/85> 54) APPENDIX FORTH DEFINITIONS \ Set everything except LFA links. \ Will be forgotten in next screen. : SETPARMS ( -- ) NEXT-AUX @ AUX-ADDR ! VIR-SIZE @ DUP NEXT-AUX +! 255 + 0 256 U/MOD SWAP DROP DUP VIR-SECTS ! NEGATE NEXT-SECTOR +! NEXT-SECTOR @ 1+ SECS/TRK /MOD VIR-TRK ! VIR-SEC ! MONTH @ 1000 * DAY @ 10 * + YEAR @ 10 MOD + VIR-TST ! ; MAIN ( bobp ) ( allocate virtuals <12/21/85> 55) FORTH DEFINITIONS SECS/TRK TRKS/HD * 1- NEXT-SECTOR ! HEX 800 NEXT-AUX ! A&E SETPARMS UTIL SETPARMS FPA SETPARMS LDR SETPARMS MLDR SETPARMS APPENDIX FORGET SETPARMS DECIMAL MAIN ( bobp ) ( @RWTS-PARAM ?RESIDENT <12/21/85> 56) APPENDIX VIRTUAL DEFINITIONS \ These words assume that VP is set. : @RWTS-PARAM ( -- addr hd dr sec trk ) VIR-BASE 6 VDRIVE VIR-SEC @ VIR-TRK @ ; : ?RESIDENT ( addr -- 0/1 ) D@ VIR-FLG @ VIR-TST @ D= ; : VIR-RES? ( -- ) VIR-BASE ?RESIDENT NOT IF CR ." WRONG DISK -- NO VIRTUAL IMAGE" QUIT THEN ; FORTH DEFINITIONS MAIN ( bobp ) ( V@AUX V!AUX <12/21/85> 57) APPENDIX \ These words assume that VP is set. VIRTUAL DEFINITIONS : V@AUX ( read vir from aux mem ) 1 AUX-ADDR @ 0 VIR-BASE VIR-SIZE @ CMOVEL ; : V!AUX ( write vir to aux mem ) 0 VIR-BASE 1 AUX-ADDR @ VIR-SIZE @ CMOVEL ; : ( read vir from disk ) @RWTS-PARAM 1 VIR-SECTS @ RWTS ; : ( write vir to disk ) @RWTS-PARAM 0 VIR-SECTS @ RWTS ; FORTH DEFINITIONS MAIN ( bobp ) ( GET-VIR <12/21/85> 58) APPENDIX VIRTUAL DEFINITIONS \ These words assume that VP is set. : GET-VIR NOOP SYS-FLG @ VIR-FLG @ = NOT IF ?AUX IF V@AUX VIR-BASE ?RESIDENT NOT IF V!AUX THEN ELSE THEN THEN VIR-RES? SYS-LINK1 FIRSTLFA @ ! LASTLFA @ SYS-LINK2 ! VIR-FLG @ SYS-FLG ! ; FORTH DEFINITIONS MAIN ( bobp ) ( GET-A&E etc. <12/21/85> 59) APPENDIX FORTH DEFINITIONS \ These words set VP. : GET-A&E NOOP A&E GET-VIR ; : GET-UTIL NOOP UTIL GET-VIR ; : GET-FPA NOOP FPA VIR-FLG @ IF GET-VIR THEN ; : GET-LOADER NOOP LDR GET-VIR ; : GET-MLOADER NOOP MLDR GET-VIR ; MAIN EXIT ( bobp ) ^$< St  pH@ ŅĀсĄՀєԕєԁсՁĔąŀЕ $    G  ĄЅՔŔՔőՁѕԄńąԑő #     'O  ՇՀՁ   Հ ׏՟ߟ ןՃ Հ ׁ           ՇՀՀ׃Հן ՀߟՀտ߃ՁՀՀ߇տՀՃ   'O @`@Հȸy9sgOՀg?Og̸3@ c{cMaA >f>fO cvf3 X> [ 0p0 { `{a y       @`8݀πwvwin_ ٳ̀3OYO _ v6? `go ?  717f  02=0 qs{ sq      @`yIyCs'oGawƀ3?3@coaf6AX63YX00p`c `0wtwtloP9݀݀۶̙3Y X61`l` 9078'O            | >FG< 0001cq0yF`f GD@` pL| FasFc|b`p0#>#?L x       Օ Ԕ ՕՑ    ca`p1cL^ ~|d`C012481`3FD@Dc1`cAA>8A 8|p   ~ |F~F<0`1yp01`cfFG |@p ~L FCacF|x~`>#?#x| ЕՅ Յ qc``1a1~L~ | ||C`dp136<`1cD@F`1>AcO ~ ||@x>AcO ~ ||@x ( <@APPENDIX> <12/21/85> 70) ONLY FORTH VIRTUAL ALSO FORTH ALSO DEFINITIONS HEX MAIN 9000 CONSTANT APP-AUX DVARIABLE APP-TEST E000 @ F000 @ APP-TEST D! DECIMAL ( bobp ) ( <@APPENDIX> <12/21/85> 71) MAIN ONLY FORTH ALSO DEFINITIONS HEX \ should only be used after : <@APPENDIX> R2-W2 E000 @ F000 @ APP-TEST D@ D= NOT IF ?AUX IF 1 APP-AUX 0 E000 2000 CMOVEL THEN THEN E000 @ F000 @ APP-TEST D@ D= NOT ?AUX NOT OR IF D000 6 0 8 2 1 20 RWTS APP-SECTS @ IF F000 6 0 SYS-SECTS @ 10 + SECS/TRK /MOD 1 APP-SECTS @ RWTS THEN THEN E000 @ F000 @ APP-TEST D! ; DECIMAL ( bobp ) ( <12/21/85> 72) \ I suspect it will be too dangerous \ to copy the appendix out to disk; \ if you are using a ][ or a ][+ , you \ will lose any changes you have made \ to the appendix. HEX APPENDIX : R2-W2 E000 @ F000 @ APP-TEST D! ?AUX IF 0 E000 1 APP-AUX 2000 CMOVEL THEN ; DECIMAL MAIN ( bobp ) ( READ-VIRS <12/21/85> 75) APPENDIX ONLY FORTH VIRTUAL ALSO FORTH ALSO DEFINITIONS : ?VR 46 EMIT VIR-BASE ?RESIDENT NOT ; : NF ." not found " ; : READ-VIRS ?2E NOT IF EXIT THEN CR ." Reading virtual images " A&E V!AUX ?VR IF CR ." A&E " NF THEN UTIL V!AUX ?VR IF CR ." UTIL " NF THEN FPA V!AUX ?VR IF CR ." FPA " NF THEN LDR V!AUX ?VR IF CR ." LOADER " NF THEN MLDR V!AUX ?VR IF CR ." MLOADER " NF THEN GET-A&E CR CR ; ONLY FORTH ALSO MAIN ( bobp ) ( < 1/20/87> 76) APPENDIX : PAGE ." PAI Forth version 3.10 " [ MONTH @ DAY @ YEAR @ ] LITERAL LITERAL LITERAL 0 .R 45 EMIT 0 .R 45 EMIT 0 .R ." (fah) " CR ; ' CFA ' LOGO ! ' READ-VIRS CFA ' START-SYS ! MAIN EXIT ." OpDB version 3.01A " [ MONTH @ DAY @ YEAR @ ] LITERAL LITERAL LITERAL 0 .R 45 EMIT 0 .R 45 EMIT 0 .R ." (fah) " CR ; ( PAI ) ( A&E hooks <12/21/85> 77) APPENDIX GET-A&E : CODE GET-A&E [ ASSEMBLER ' CODE CFA ] LITERAL FORTH EXECUTE ; IMMEDIATE : ;CODE GET-A&E [ ASSEMBLER ' ;CODE CFA ] LITERAL FORTH EXECUTE ; IMMEDIATE : EDIT ( scr -- ) MAIN ?NUM GET-A&E [ EDITOR ' EDIT CFA ] LITERAL EXECUTE ; : SCRHDS GET-A&E [ EDITOR ' SCRHDS CFA ] LITERAL EXECUTE ; : ED EDIT ; : EL SCR @ EDIT ; MAIN ( bobp ) ( UTIL hooks <12/21/85> 78) APPENDIX GET-UTIL : COPYSCRNS MAIN GET-UTIL [ ' COPYSCRNS CFA ] LITERAL EXECUTE ; : ERASESCRNS MAIN GET-UTIL [ ' ERASESCRNS CFA ] LITERAL EXECUTE ; : DUMP GET-UTIL [ ' DUMP CFA ] LITERAL EXECUTE ; : INDEX GET-UTIL [ ' INDEX CFA ] LITERAL EXECUTE ; : 4LST GET-UTIL [ ' 4LST CFA ] LITERAL EXECUTE ; : CASE GET-UTIL [ ' CASE CFA ] LITERAL EXECUTE ; IMMEDIATE : IT GET-UTIL [ ' CFA ] LITERAL EXECUTE ; IMMEDIATE MAIN ( bobp ) ( TEXT HG 1HG HGR CLS <12/21/85> 80) HEX MAIN CODE TEXT \ switch to text screen C051 LDA, NEXT JMP, C; CODE HG \ switch to graphics screen C052 LDA, C050 LDA, C054 LDA, C057 LDA, NEXT JMP, C; CODE 1HG \ mixed graphics and text C053 LDA, C050 LDA, ' HG 6 + JMP, C; : CLS FORGET-SYS 2000 2000 0 FILL ; : HGR CLS HG ; DECIMAL ( bobp ) ( TONE <12/21/85> 81) MAIN CODE 2 # LDA, SETUP JSR, N 3 + INC, N 1+ INC, BEGIN, N 3 + LDA, N 4 + STA, N 2+ LDY, 49200 LDA, BEGIN, DEY, 0= IF, N 4 + DEC, THEN, 0= UNTIL, N DEC, 0= IF, N 1+ DEC, THEN, 0= UNTIL, NEXT JMP, C; : TONE ( freq,hz duration,1/100sec -- ) 68500. 4 ROLL U/MOD SWAP DROP SWAP 1278 3 PICK 3 + */ ; EXIT ( bobp ) ( TO REVECTOR <12/21/85> 82) MAIN : R> DUP 2+ >R @ ! ; APPENDIX : TO ?FIND DROP STATE @ IF COMPILE , ELSE ! THEN ; IMMEDIATE : REVECTOR ?FIND DROP CFA [COMPILE] LITERAL ; IMMEDIATE : INTO [COMPILE] TO ; IMMEDIATE MAIN EXIT ( bobp ) ( 1K -ROT WITHIN UWITHIN <12/21/85> 83) MAIN 1024 CONSTANT 1K : ON 1 SWAP ! ; : OFF 0 SWAP ! ; : -ROT ROT ROT ; : WITHIN ( n lo hi -- flag ) 3 PICK MIN MAX = ; : UWITHIN ( n ulo uhi -- flag ) 3 PICK U< >R U< R> OR NOT ; EXIT 8192 CONSTANT 8K ( bobp ) ( BUFFERS <12/21/85> 84) MAIN ( n --, {installs n or max avail.} ) : BUFFERS FLUSH [COMPILE] MAIN LIMIT PAD 200 + - 0 1028 U/MOD SWAP DROP DUP 2 < IF 2BEEP ." OUT OF MEMORY" QUIT THEN MIN 2 MAX ' #BUFF ! \ CR #BUFF . ." BUFFERS INSTALLED" CR #BUFF 1028 * LIMIT SWAP - DUP ' FIRST ! DUP ' MEM-LIMIT ! DUP USE ! PREV ! EMPTY-BUFFERS ; EXIT ( bobp ) ( :$ .$ ;$ N$ N$. <12/21/85> 85) APPENDIX : :$ VARIABLE HERE 2- ; : .$ 1 OVER +! 36 WORD C@ 1+ ALLOT ; : ;$ DROP ; MAIN ( : FIRSTSUB$ 2+ ; ) ( : NEXTSUB$ DUP C@ + 1+ ; ) : N$ OVER OVER @ > 3 PICK 1 < OR IF DROP DROP 0 ELSE ( FIRSTSUB$ ) 2+ SWAP 1 - ?DUP IF 0 DO ( NEXTSUB$ ) DUP C@ + 1+ LOOP THEN 1 THEN ; : N$. N$ IF COUNT TYPE THEN ; EXIT ( bobp ) ( XWORD NOTES <12/21/85> 86) EXIT any word that is preceeded by an "X" is a split head word you should use X' to find the address of the word in the main dictionary, using ' will return the address of the head Do not use DOES with X: as it will get confused and do the wrong thing ( bobp ) ( ?MAIN ?FIND ?APPN <12/21/85> 87) APPENDIX : ?MAIN OLD-DP @ ABORT" MAIN MEMORY ONLY" ; : ?APPN OLD-DP @ NOT ABORT" APPENDIX ONLY" ; \ : ?FIND ( -- PFA FLAG) \ -FIND NOT ABORT" NOT FOUND" ; HEX : APPENDIX? ( ADDR -- T/F) D000 U< NOT ; DECIMAL MAIN EXIT ( bobp ) ( [MAIN] [APPN] <12/21/85> 88) APPENDIX : [MAIN] [COMPILE] MAIN ; : [APPN] [COMPILE] APPENDIX ; MAIN EXIT ( bobp ) ( X' <12/21/85> 89) APPENDIX 0 CONSTANT 'XCREATE : ?MAIN [APPN] CREATE IMMEDIATE [MAIN] DP C@ 255 = ALLOT HERE ' , [APPN] ( MAIN-HERE ) , DOES> [ HERE 3 - ' 'XCREATE ! ] @ STATE @ IF , ELSE EXECUTE THEN ; : X' ?FIND DROP DUP CFA @ 'XCREATE = NOT ABORT" Not an X word" @ 2+ [COMPILE] LITERAL ; IMMEDIATE MAIN ( bobp ) ( XCREATE XVAR XCONST <12/21/85> 90) APPENDIX : XCREATE [MAIN] ; : XVARIABLE XCREATE 0 , ; : XCONSTANT ?NUM [MAIN] -2 ALLOT ' , , ; : XVAR XVARIABLE ; : XCONST XCONSTANT ; MAIN EXIT ( bobp ) ( XCODE <12/21/85> 91) GET-A&E APPENDIX : XCODE ?MAIN GET-A&E SMUDGE [MAIN] [COMPILE] ASSEMBLER ASSEMBLER MEM !CSP HERE DUP 2- ! ; : XC; ?MAIN ?CSP [APPN] SMUDGE [MAIN] CURRENT @ CONTEXT ! ; IMMEDIATE MAIN EXIT ( bobp ) ( X: X; <12/21/85> 92) APPENDIX : X: ?MAIN 20 ( flag for X; ) SP@ CSP ! CURRENT @ CONTEXT ! SMUDGE [MAIN] -2 ALLOT ' <:> , [COMPILE] ] ; : X; ?MAIN ?CSP 20 - ABORT" NOT STARTED WITH X:" COMPILE EXIT [APPN] SMUDGE [MAIN] [COMPILE] [ ; IMMEDIATE MAIN EXIT ( bobp ) ( <12/21/85> 93) APPENDIX : OLD-DP @ NOT \ remember where we were (T= main) >IN @ ?FIND DROP APPENDIX? IF [APPN] ELSE [MAIN] THEN >IN ! \ now restore to original IF [MAIN] ELSE [APPN] THEN ; ' CFA ' FORGET ! MAIN ( bobp ) ( .SS .S ASCII <12/21/85> 94) APPENDIX : .SS DEPTH IF SP@ 2- S0 2- DO I @ 0 D. -2 +LOOP ELSE ." EMPTY STACK " THEN ; : .S CR .SS CR ; \ compile ascii value of next char : ASCII BL WORD 1+ C@ [COMPILE] LITERAL ; IMMEDIATE MAIN EXIT ( bobp ) ( E-B S-B ? X. <12/21/85> 95) APPENDIX : E-B EMPTY-BUFFERS ; : S-B SAVE-BUFFERS ; : ? @ . ; : X. BASE @ >R HEX U. R> BASE ! ; MAIN ( bobp ) ( BITTBL &BIT <12/21/85> 96) MAIN CREATE BITTBL 1 C, 2 C, 4 C, 8 C, 16 C, 32 C, 64 C, 128 C, \ takes { adr offset } on stack \ leaves new adr on stack; drops offset \ sets .A to bit mask \ leaves .Y set to 0 XCODE &BIT BOT LDA, N STA, BOT 1+ LDA, N 1+ STA, INX, INX, N LDA, # 7 AND, TAY, N 1+ LSR, N ROR, N 1+ LSR, N ROR, N 1+ LSR, N ROR, CLC, BOT LDA, N ADC, BOT STA, BOT 1+ LDA, N 1+ ADC, BOT 1+ STA, BITTBL ,Y LDA, # 0 LDY, RTS, XC; EXIT ( bobp ) ( @BIT !BIT <12/21/85> 97) MAIN \ "Offset" can be any unsigned number. \ Note backwards syntax for !BIT . CODE @BIT ( addr offset -- 0/1 ) X' &BIT JSR, 0 X) AND, 0= NOT IF, INY, THEN, TYA, PHA, 0 # LDA, PUT JMP, C; CODE !BIT ( addr offset 0/1 -- ) BOT LDA, BOT 1+ ORA, PHP, ( save flag) INX, INX, X' &BIT JSR, PLP, 0= IF, # 255 EOR, 0 X) AND, ELSE, 0 X) ORA, THEN, 0 X) STA, POP JMP, C; FORGET &BIT EXIT ( bobp ) ( ?EXIT ?LEAVE <12/21/85> 98) : ?EXIT IF R> DROP THEN ; : ?LEAVE IF R> LEAVE >R THEN ; ( bobp ) ( DECOMPILE <12/21/85> 99) APPENDIX GET-FPA : DECOMPILE GET-FPA [ ' DECOMPILE CFA ] LITERAL EXECUTE ; MAIN ( bobp ) ( <@APPENDIX> <12/21/85>100) ONLY FORTH VIRTUAL ALSO FORTH ALSO DEFINITIONS MAIN HEX NEXT-AUX @ CONSTANT APP-AUX 2000 NEXT-AUX +! DVARIABLE APP-TEST E000 @ F000 @ APP-TEST D! DECIMAL ( bobp ) ( <@APPENDIX> <12/21/85>101) ONLY FORTH VIRTUAL ALSO FORTH ALSO DEFINITIONS MAIN HEX \ should only be used after : <@APPENDIX> R2-W2 E000 @ F000 @ APP-TEST D@ D= NOT IF ?AUX IF 1 APP-AUX 0 E000 2000 BMOVE THEN E000 @ F000 @ APP-TEST D@ D= NOT ?AUX NOT OR IF D000 6 0 8 2 1 20 RWTS APP-SECTS @ IF F000 6 0 SYS-SECTS @ 10 + SECS/TRK /MOD 1 APP-SECTS @ RWTS THEN THEN THEN E000 @ F000 @ APP-TEST D! ; DECIMAL ( bobp ) ( <12/21/85>102) \ I suspect it will be too dangerous \ to copy the appendix out to disk; \ if you are using a ][ or a ][+ , you \ will lose any changes you have made \ to the appendix. HEX : R2-W2 E000 @ F000 @ APP-TEST D! ?AUX IF 0 E000 1 APP-AUX 2000 BMOVE THEN ; ( bobp ) +v LBUF-a LBUvALLOT EN 85>266)EEEEEEEEEEEEEEEEEEEEEEEEEE266EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE ^LBUv DBUF-a DBUvALLOT EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE ^DBUv$?LBUFA ^  Message too bigz$NEXT-v$LAST-v%BLOCKA,A % % (   % (  ,%0 $ z%GET-LA $ ,("  ,,  (  %(   $ ^ ,@" j $ $ ^ p ^   0 $0 ^ "  , 0 $ 0  ^ " $ $ ^ ^   0 $0 zZ%STRIPA " ,"" !V  gf ( , " p( ,M""  ,^ ( ,"" ^ ^ , " , 0  ^ ,""  , 0  v v z?&^CAg g^ z'!CAgN '" z'!BAg *' ( ,  ' , '" 'z&'PACKMAfg  ( "  ,''* gzf'!MSA[VVVv , Too many messages in group ( "  ^ p ( ,*" V ,\"  TH&9 Jo'( [V pV^ >W( Wv pV W} [Vp,^ >WVp>W z'!MESSA ,#" L[VpVp( >W( , Too many groups9( ,  --- >W'zm(MINIA ,  ^  ,^ ,[W[>WW9 1 --- z(MTHRAx USE: start end MTHRU% % (% c% v(z0)INDVAa w)LINESa7)#LINEv)PAGEv)QUOTAN,"z)MTITLA)0 , 9),Message listing,Page ) 999z)278)EEEEEEEEEEEEEEEEEEEEEEEEEE278EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEo>v LDR-VO8XDKEYWO^>0[ OPERJ)- / OPERA++= ? VS-MAa(P #LITa ] LBUF-ai BS-MAav ,OPDAb [>Wb0 z C,OPDAb [Wb0 zA+f p( W^  no more excodes available( +f f EXCODAZY, ," 1Y( /f ( /f" `d^ . Z,A=~zA} ( p f !EXCOA7!/f NzvTRUEvFALSEG!MYWORAD(  zvo!GET-WA ! x!z!UNGETA!  z!GET-IA! z!GET-VA!,[` Var not defined zvALLOT DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD178DDDDDDDDDDDDDDA!h_fA!M_fA!5_fA7!( p( b V [W} b0 fA7! fA7! fA7! fvALLOT EN buffer )DDDDDDDDDDDDDDDD185DDDDDDDDDDDDDDDDDDDDDDDDDD186DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDvvALLOT al table )DDDDDDDDDDDDDAh# "v ^ r  LP-ROOM? errfA( e B CHECK-LIT# err1( ,l#^   CHECK-LIT# err2fA#,l#^  fA#,l#^ fA( #( g"  g"  $ "f( g"  g"  $ "f( g"  $"fg"   Error in !LIT $`"fA9 (  r$7! fAH"Y    Expr too big( jV X"X"f!VARv$BDEPTAh_z$INSCRA$ Within BEGIN .. END onlyz$-INSCA$Not within BEGIN ... ENDz%CHECKA( ,[`Variable exists( ,) `V ,J `  Reserved namezDVARIABLA$%$ =^  no more variables!,Z` Invalid variable type7!y( $ ( g"  !( V $ k!N%!l Xרl $ NӨ$0  $zAX$ N  $fE%PREVAA!,Z` type?y( g" !V $ k!N%!9&!Sl$0 zP&CONV-'d Ay " p f( g" Can't convert to LOGIC g" Can't convert from STR& f&dest-v',$OPRAP"P"P"P"$g&$g&X"g( X"z',OPERAH", Missing arguments ' g" 'fP"P" P"P"$} y y &} $y V y &V X"( X"zAYJ^1J^ ( E'^ 9  (9"is not valid for type9GV fAP" X"fAYJ^1J^ ( E'^ 9  (9"is not valid for type9GV g(fD' c('o('{('(MO'(UC((((<((( !(<(""#$%((&&'()(>(**+,-Ag"  LOGIC expressions onlyf(NOAP"(P"$7!.X"gX"z)OAE'(7!/z:)ANAE'(7!0zv<'INDENA, [)0 z_)UNDENA,[)0 [) Unmatched parenthesiszDAh)z)A})zA[) ^ ,     ft)PRECEAx USE: val PRECEDENCE name!,9 ` Not found in OPERS vocab!H [l רl H V =y= )zA[) ,PyfA)p [) Expression errorf)NOT*#)*T*(*T*(*MOT*(*T*g(*T*s(*UCT*(*T*(*T*(+ANT*P)+OT*?)AH"Y    Too complexX"X"fvAV+ p( e  Too many lits( V+ fA Z+,l#^ h#   V " } h#0 V+ 6+fA#V h# " +fA#V h# +fA,#h# g,+fA( p( #v q^ String literal too largeh# v g} +fAյ ,"  no decimal points in numbers(   ," ,,"  g+(  g+g++fA( `!rY g+f( g!rY g+f( p ,"" * !,"x!( " p g+f+f1,fAH""   Missing valueP"P"$V &f)GET-EA( ' h h "h# V+ !_]*!( ,) `( ! ,,"  *,[` Y,J `}  yY, o*,Py"   GET-EXPR err} -zv:=%LEA$!( 5l Can't change this variable!-rY  := expected( j5-7!1} z-DISKA!q z,-!PAGIAq 7!2q , ^ zvA(  p b  p V p fA!N%!Y,,[`Screen already definedjYNӠ=fvA9 "( [VV , V >W(  p  f#.SCREEA$%_. One name per screen!,,[`!( Already resolved_.  !._. zA_. .. _. p ._. " . _. p _. fA99,,[ ( ,D" j%  7(  "  9,( " not resolved 99f5.WfAb 0fvALLOT 66DDDDDDDDDDDDDDDDDDDDDDDDDDD167DDDDDDDDDDDDDDDDDDDDDD/@BSTA1M_zQ1!BSTA15_za1BPICA1_zh0START-MENAit ,"  Can't nest menus$7!;it vt i1,i1zA$Y1,"  Missing START-MENUY1 ,it fA$it ," After START-MENU onlyf1MENU-ITEA1it p( ^ Too many items in menuit 7!b  i1,i1z2IF-KEA1g5-7!?b  i1,i1zA1Y1,"  Missing menu IF- wordf2MCONA27!@Y11z2MEXIA27!AY11z3DO-MENA17!Bzv'3BEGIA$ F:3 b "  "b :3 v :3 [>Wb :3  b . ,it >.b i1i1z>3IA$g5-i1i1z3THEA$Y1"   Missing IFY1 0i1,i1z3ELSA$Y1,"   Missing THEN0Y11i1,i1z3ENDIA$Y1,,B  Missing THENY11zAy1" Y1Y1p 00fq1SCR-Dv4SCREEN-REPEAA$J4. 0zu4SCREEN-DONA$J4q4 9  [>Wq4 zv4REPEAA$J4$p 5 y1"  5 py1 p (   REPEAT err0z4DONA$J44 9  [>W4 zA9  f( [VV 1(   f 5ENA$Y1"   Missing ENDIFY1 4 .54 $ 0q4 .5q4 P/b . v . [>Wb :3  zP5NEXAIҠ 0  z5MGROUA$g5-7!Cz5CENTEREA$7!D z5FLEFA$7!D z6FRIGHA$7!D, zA7!EfA7!Ff6MSA$g5-Y ,,"  g5-;646zB6PRINA$g5-7!Gzl6AA$g5-g5-7!Hz6ATA$g5-7!Iz6ATA$g5-7!Jz6CLA$7!Kz6PALETTA$g5-7!Lz6BACKGROUNA$g5-7!Lz6TEXT-FA$g5-7!Lz6TEXT-BA$g5-7!Lz7COLOA$g5-7!Mz+7MODA$g5-7!Nz@7BOA$g5-g5-7!OzT7FRAMA$g5-g5-g5-7!Pzk7GRAPHIA$g5-7!Qz7GET-GRAPHIA$g5-7!Rz7DRAW-GRAPHIA$7!Sz7GETKEA$!( j( g" V g"  Only CHAR or INT7!T z7WAITKEA$g5-7!Uz8Azh4INIT-AY,it b hBl,^ =^Blv ,Olh Bl$ 1_:3  _. |z08FINISA$ Missing END/z8ERR-RATIA$7!z >SUM-RATIA$7!z5>RANA$g5-7!zJ>FLIEA$7!z[FORTH] DDDDDDDDDDDDDDDDDDD257DDDDDDDDDDDDDDDDD261DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD" HASTERMINATORaN COPYRIGHAzc VERAzs LOADTRANSLATOA$ z o LOADING TRANSLATOR99,2 _ , 2  , 2 ,2 z~ ADDCALLFINDEA$ z o LOADING CALLFINDER99,2 z ADDDECOMPILEA$ z o LOADING DECOMPILER99,.2 J ,F2  ,E2 ,G2 9z!NULa`v!DUNCA z!DUMMA z!DOEڢ!!MISv!COLOaA!DOEa!ENDCOLOaz!BRa!0BRa!0 +z+NEXTA+#0 * # 5# ^ 5# z ,ENDLA ^ " ,z:,PRIA( , B,"zX,IMMDA ,@ , B, IMMEDIATEzu,DISKWRITEA/* mp%99WRITES ON DISK9FIRST SCR NO. <* 99DO YOU MEAN IT (Y/N)? % ],Y"  #+8<*  $ * ) /* +z,+LADa;-SPACEAgzG-ENDA,v g% zV-SPACEA]-zs-ENDAz-FIA/* 7*EXIT#+$ SAVED ON SCRNS <* THRU  p%99FINISHED9/* z-INNUMA% Y( ,  ? REPEAT9=Y ( ,/ V ,: Yp ? REPEAT9z-SAVESOURCA99START SCREEN NO. = 9-<* /* zh.AENv.INDENv.HILITv.SPACEAMAXA]- 5#+9SPACEA TOO SMALLp%8z.BEAz.BEa//WHAz/WHIa//REAz%/RPa+///UNAz9/UNTa?/C/AGAzN/AGaT/X/IFAzb/IFah/l/ELAzv/ELa|//THAz/THa//DOa /NULLCFa//MOVEPAR%  v ( P-^ .!  . P-V z/FINDCFA# F$"  V , " V   V V " " . , 5 z/SPACEBMOVA|- ^ -5 #+99SPACEB TOO SMALLp%8|-V z=0INSRTBEAV V (  y v y V J0 / |-V , z0BEGUNTLA!P-/(   0J/ p z0INSRTRPT/AGA!, ( ^ !, /@( (  ^ , " "5/, !/ /V p p ^/ z0BEGRPT/AGNA!P-/(  01p zz1INSRTIFTHAr/ V V (   ,^ ( ,  ^ /V z1INSRTIFELAr/ V V (  ( ,  ^ ^ , ,^ ( , , ^ /V  ^ ,v / /V  z1IFELSTHNA!P-/$(   ^  !" 21p zl2MAKEREAz2MAKEDOESABA" @,," ;"P-/&( w"^ ( ( ^ " P-v ^ V p z2NEWLINA+#0 * z3PARA. #0 . 5# ,z23STANDOUA. 5# ,zQ3ENDPARA. 5# ,. #0 zl3QUOTA ( ,^ (  ( ,^ B,(  V"  v ,v  ,.,"( , V ,"( , ^ v ( ,^ B,p z3ABQUOTA ( ,^ (  ( , ^ B,ABORT,","z4SLOGICA( /" 93DO ;( /" 93BEGIN ( r/" 93IF zX4MLOGICAA( !/" \3WHILE  ( /" \3ELSE z4ELOGICA( 5/" v3REPEAT ( J/" v3UNTIL ( ^/" v3AGAIN v( /" v3THEN Z( !" v3LOOP >( "" v3+LOOP !( "" v3/LOOP z 5DECOv5LFUv5OTHERAU( ;"" %%# ,"  ,%DOES> (( " y"  ,B,MYSELF _,z6PRINTSOURCA( ( Q"" 3L( ""  4<( +"" * (  ,B,,. r  b4456zk6CONVERTTOSOURCA" " #F$ , . 5 a( /"  G ,@ , B, [COMPILE] ( _,"  ( _,y6 " " ( !"  B,;;"" ,B,;CODEp z6ENDTESA6 R% 5A6 " 51( THIS WORD HAS  NO ENDING ; )36 R% ]%z7NF&PA5 &( ( , ( NFA&PFA: )3z8PFBYTESA5 '6 ( v BYTE IN PF R%  z98OTHCODA3 8( ( " OTHER D8)zw8DUZCODA3 8( DOES ARGUMENT? ) ( y V#  y_,( y_,35 ( D8) z8CONCODA3 8( ,& CONSTANT ( R% "z9VARCODA3 8(  ( ,& ) VARIABLE ( R% "z99ASSCODA3 8( ( " CODE D8)zv9COLCODA( %* ) 3* ) 85 7: ( "َ/2201x2P-6"  ," 5 >%# " 23( PLUS 6 ( R% v BYTES OF CODE )R% z9DECODEWORAG# #  ( ( y y "  9J( !"  98( _""  C9&( m""  9w"^ $88},3+zC:CLEARWORKSPACAP-]- v |-- v z:BYTESUSEA( , v BYTES,  C-v   5 (  ,p V v pUSED.9z:WORKSPACEA99SPACEA: P-]-;SPACEB: |--;zO;DECOMPILAJ(&(#" " 5 ,/* +" ( V#6 P:" " 5 ) H6 (  " R% v (   ", ALLOT ( AT R%  )3-z! BOX K NS al: FPA <12/21/85> 65)CCCCCCCCCCCCCCCCCCCCCCCCCCC65CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC1v 63)BBBBBBBBBBBBBBBBBBBBBBBBBBB63BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB?v ASSEMBLE&XDIAz COLa+ a6 XSAVa> IaJ aS POPTWa* [ POa, h PUSa?r PUaA} NEXaF SETUa INDEv   , MODv .A z A z MEA z ,A, z!,A, z!XA, z"!)A, z3!A, zD!BOA!zT!SEA!zb!TOAZ!zp!RPA,!z|!UPMODA ,   , 0  , 9  ( ^ *  p  z!CPAN  N z!BRK!!CLC!"CLD! "CLI!X"CLV!"DEX!("DEY!2"INX!<"INY!F"NOP!P"PHA!HZ"PHP!d"PLA!hn"PLP!(x"RTI!@"RTS!`"SEC!8"SED!"SEI!x"TAX!"TAY!"TSX!"TXA!"TXS!"TYA!"M/CPAN= ( p ,  , 0  , !!INCORRECT ADDRESSING MODE ^ ^ N ,  , , N= z"ADC#`n#AND# n#CMP#n#EOR#@n#LDA#n#ORA#n#SBC#n#STA#l#ASL# #DEC# #INC# #LSR#A $ROL#! $ROR#a $STX#+$CPX#7$CPY#C$LDX#O$LDY# [$STY#g$JSR#s$JMP#@$BIT# $?RANGA( r, BRANCH TOO LARGEz$BEGINAYz$UNTILA k} NYpv $Nz$IFANYNӰz$THENAkY  V  pv $V " z%ELSEAkYp$V Y pv $V " z5%NOA, ^ z_%Cao%OaPx%0a%0a%>a%CA; H z%END-CODA%z%AGAINAk҆$z%WHILEA ( k} $z%REPEATA k҆$} } v %z%!CSA . z CODA &Y(  z#&;CODAғ pz@&EDIT? D<#SPr&uL* L&L* h&A, , ^ , , ^ , z)XA,$ z *YA,% z*HVTAAV ^ V ^ Uz**HA*v zD*VA *v zS*HVAI*X*zb*BFILA,(, , , _zp*BUFFER W=UP C=CHRS<--BUFFER BUFFS STATUS Z=DOWN I=INSERT CHRS ------------- O=HOME P=PULLUP WORDS NO. CHRS. R=RTAB NO. LINES V=VTAB LINE Y=TAB -------- OTHER F=FWORD K=KILL LINE ----- B=BWORD G=GOBBLE-->BUFF Q=QUIT INSRT @=COPY-->BUFFER MODES L=LINE<--BUFFER X=PROMPTS N=NEW LINES ON/OFF ESC + ONE OF THE FOLLOWING KEYS ------------------------------------- ESC=NO UPDATE R=RESTORE SCREEN F=UPDAT&FIN EDIT P=UPDATE & PRINT B=UPDAT& BACK SCR L=UPDATE & LOAD N=UPDATE & NXT SCR W=WORD FOR SEARCH U=UPDATE NOW S=SEARCH SCREENS ,MAKETBA)^ V yV zM0EXECKEA)^ zk0UAh*( 2*z0DOWAh*( p p2*z0RIGHAh*V ( p' pV 2*z0LEFAh*V ( V 2*z0MSG-LOAz00MODEA ( ( r, 8 *z 1ILINEA(   ( ( r,8 *z51INSRTOA ( ( ) r,8 *zh1DELA) I*' +&z1CPYDA^ ( 8, p8 )z1ERASLA,(V ^ 8 _z1LA,(,!" 8z1CPYUA^ ( 8, 8 )z2REMOV-LAX*p( 2p( " 1z82PSHNXTLNAX* ( 1( X*p"  X*p1z_2WRD->NXTA^( *&^( *8, , '*p& ^( ^ p*, v 'k2^(*_ *8 , x*I*   ( I*v v (  X*p2* z2INSRTA_+, " + 'p $X*p 2 + 'p z13ECAX*p2*z3HOM-CUA2*1z3ONE1v4z4KILLA) X*p  w+C21z4GETLAm) ) 5"m) *''m)0 4 (0 ) rz4LBACA ( "v4' m)0 m) *_, (0 ) z%5JERKAa) ) 5b*p&'I*v N/+, " 1/+1( , "  a) " a)0 p a) " a)0 ) rzY5CPYLAm) ) 5m) *''m)0 3 (0 rz5RTAA'*p&v p'X*2*z 6VTAAX*v 9   X*p2*'*p&"  * z*6CBACAa) y) v J,a)0 a) ( 'I*v  3:3, G+ ,a)0 :3a) G+* ) za6RWORA/+, " "/+, " I*' 3./+, "  I*' 3I*p' 3z6LWORAI*X*2*/+, " I* 3/+, "  I* 3/+, " 3z'7YTAAI*' p'  X*2*z7RETAX*(  "pV 2*( v4 ( 1 1z7NEWCHA ( :3z7CRT->BUA ^  ( 5 8 ' ^ * z7SAVESCRA) 8 ( V  ^ k) z-8EDTNA z`8NXTSCA88 0 h83+zp8COUNT-CHA) (( p)0  z8BKSCA88,0 h83z8SERCA)  ( h* ^ ^ R'V v 2*)  2*z8GETWORA3LAST WORD WAS : ,[() ,]33LEAVE AS IS (Y)?],Y"  33WORD? 33('8 33) pDIRECTION WILL BE:  --><--33REVERSE IT (Y)?],Y" ) )  z19CLREDIA^  ,(5 8 _* z:SEARCA8)  l88:2*() 2*)  ^ ( 2*   +   8)   % h*h82*z8:ESCAPESCA'" '1p2* ( NO UPDATE TO: 92z:LOADSCA( ,L" 3 88 1p2*LOADING ,9} } }  z:NEXTSCA( ,N" y8( ,B" 8zC;COMLISA) zq;PRINTSCA( ,P"  88 {;2z;WRDWRAAX*  2X*2* rI*X*2*z;FILESCA( ,F" & 881p2* FLUSHED,92z;SEARCHSCA( ,S" 8h*V pV 2*A:zSUBKEA]( '"  ,*( ,"  ,[( ,"  ,za>EDIA>j>( , u0jh*'"  VI*' ) 7>r1( , " 373$*p&37, 73;7z>SCRHA) 2*( ,v 2*<> ,&) , v 2*( )2*1z9?SCRHDAV (  (  A?5 y8 * A?88z! BOX K NS al: A&E <12/21/85> 61)AAAAAAAAAAAAAAAA