' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩 緈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`   LDcpq` [` ~  L LYLz@.ԁ;}@^Mz(!1 `ʕhiLsLjm W%($ &a $N $0N "*!# X"'& *!#BUFƮ # a&: a *!  &w NOT FOUND $*!'-FIN,'?TERMINA ,'ABOR ,'BLOC ,'C( ,'EMI4 , 'EXPEC= ,"'INTERPREH ,$'KEU ,&'LOAe ,('NUMBEo ,*'PAGz ,,'R/ׇ ,.'SAVE-FORTȒ ,0'STREA͜ a :+lN *!'VOCABULAR٭ ,2'WOR ,4 $lg $)- "N $)R&Z*! + *!* > * *!*/MO' t %H(%*!6 P uuLT+J i uuLj+b ( a a&*!+BU $N  l$Ra  ! ' *!+LOOА $A" *! "q$2*! 8uuLT-FIN !*!-TRAILIN   \aN q a >$ j*! ')*!.P $"Ra lg @$"*a -  &N $"R&Z*a  2`+*!.LIN\ & +*!.һ t')H(*!  * *!/LOO $" *!/MO t')H(%*! 0 * *LT0# < ȔLT05  ^*!0BRANCJ c iLTLW 1| N *!1 *!13/16RWTӑ *$ Ra   a #*!13RWTӞ C s 췌LT16RWT  C eeL s LT뷊i 췵귴Ȍ ` LT` 2  *!2 N *!2 *!79-STANDARĩ *! D*Tqa q*4.HHieLT *!*-*! 8PIȔLl<  '"q*!<+LOOP(CHH}h}hLLw<-FIND7 q- B*!<."s Z(` H(N t+*!$ q  " " qM  *! 255 8"*!IZ,6>fvHHLTo T *!?COMЁ *&w COMPILE ONLY*!?CONFIGURō qq&T DRIVES WITH DENSITIES: & \" f*T jqq DENSITY CODEq 0 - DOS 3.3q 1 - 8-SSSDq 2 - 8-DSSDq 3 - 8-SSDDq 4 - 8-DSDDq 5 - 8-SSEXTq 6 - 8-DSEXTq*!?CSЯ D*T wDEFINITION NOT FINISHED*!?DU~  a  *!?LOADINǫ &wUSE ONLY WHEN LOADING*!?PAIRӾ wCONDITIONALS NOT PAIRED*!?STAC D*6)*>,w EMPTY STACKD*6)$ >,w FULL STACK*!?STREA wINPUT STREAM EXHAUSTED*!?TERMINAP  !*!wHLOABORԍ % !*!ABORT w $"Ra  lg  "$"-  *&N $"R&Z2*!ABӳ  *!AGAI " *!ALLO g *!AN*B5H5LOBAS:,8BEGIP " *!BZ BLANl q[!*!BLu,:BLK/DRօBhBLOCˎ 1 !*!BOOT-SLOԨB`BPDRֺ $'& N *!BRANCeHȱehLVBUFFE , t O a  a  ,Ra  ',qZ(( a Z( Z($@ 1(Z(qZ('qH( *!BY ""$  $+* q+ PAGESq"*!CkLjC " 2*!C/̮@CLTCF *!CHANG l$$ $!q!,q!'qg *!CLEA &N $q[!v,*!CMOV  a X &*!COL0Y79685  ةlL) +*g %' M q!,q!'qj# !q#$r"q^*!COMPILP H( t *!CONFIGUR qNUMBER OF DRIVES ? $$1  $>,&wTOO MANY DRIVES $1N M $&q& \qDRIVE "T ? $$0  $>,&w OUT OF RANGE $0N M " N qjqq DR0 SELECTED q*!CONSTAN  HȱLMCONTEX,CURRENN,@DWkLjDduuuuLjD+ ( a 6*!D  U**!D. $w EMPTY STACKt*& -()H(& f*+*!D (aRa ((6(  ** * *!DAB  *!DDROAjDDUPcHʕhHLMDECIMAZ $ Wq*!DEFINITIONw aq*!DE΍BDENSIT٧BDEPTȹ D*6)* *!DIGI800 08 0  HLOHLODLITERA *a *$$*!DNEGAT88Ld&D, \"$*!DOESF $ u*!ie8hhL DY,DP̑,BDR-DEΙ N *!DR  &q*!DR  )*!DR  )*!DR  )*!DR $)*!DRO LlDU  HLMELS " * + *!EMI% E !*!EMPTY-BUFFERF !l$&  ! \$$" !N qj*!ENCLOSW  <8 LTHh͔LTEPRINԓ BEXECUT !LEXI !,!hhLTEXPEC#! R !*!FENC5!,FILH! &O a !X *!FINT!  a   *!FIRSq!xFLČ!,DFORGEԘ! q-aB: wNOT IN CURRENT VOCABULARY w& P!>,wIN PROTECTED DICTIONARYtZ( >,a n"Z(a>,a n",Z(&>,a  ,q $ 5'Z$ Z(>,a & q: a H(q*!FORTȡ!FREEZf" $$N #$08$p" #q*!Gv""LiHERţ" *!HEح" $Wq*!HLļ",FHOL" $"g "*!"\(I""HLMI/O-ERRO" q$M $Ra WRITE PROTECTED qH(H(H(+*p*!IBSLO #Ia# a " *!IMMEDIATn# ,$$@F+*!IN#  a $N $  $$8q*!INIT-FORTț#INIT-USE# INTERPRE# b !*!#$HLMKE# l !*!LATES$ a*!LEAV#$@$LTLF6$ $ *!LIMIT$LISd$ q )qSCR #+$ \q"$ U*") a >$jq*!LIp$$HLMLITERA̷$ *a $ *!LOA$ w !*!LOO$ $j" *!M% a-t*+H(*!M*% a-*t*t&-((H*Z(+(H(+( Z(+((H(+* *(*!M6% ')*!M% &tt Z(+H(Z(- *H( **!M/MOď% t Z(+H(*t+H(*!MAظ% aa * *!MAX-BLK%  & \"qN j*!MAX-DR%MI& a^a * *!MO!&   *!MOV7&  % &*!NEGATE&c&8LTNFX& $ $\+*!NOq&< NPAGEӇ&ෆNUMBEҏ& !*!OFFSEԜ&,HOү&&HLOOUԻ&,JOVE&&HLMP& 'M  '*!P& #$ #*!PA& "$DN *!PAG ' !*!PF' \+$N *!PIC/'  wPICK ARGUMENT < 1 D*N *!PC'  $@w OFF SCREEN *' *)8v,*!PRp'  a $N $  $$6q*!PRE֢'BQUER' :+$P>! lq*!QUI'  q-q)'#*&a OK*!R',LR/#( !*!R+(,R;(J(hhLTRC(\(HLMREPEAU( ttH(H( +*!RPk((LG*ROL̆(  wROLL ARGUMENT < 1  J'* D*N  &q D*&>,&a X*!ROԗ((HHhhLTRP()LTS-> )  ( a&*!S ) ;**!SAVE-BUFFER1)   \$ j*!SAVE-FORT>) !*!SCe),NSEC/BL|)BSEC/T҅)B&&RRddSET-DR؟) q&g *!SIGθ) ( a $-"*!SIZ) '$  $+*a  &*!SMUDG) ,$$ F+*!SP*-*LTSP%*,SP5*F*HLMSPAC>* qM *!SPACEM*  %a  \U*j*!SPDR]* * *!SPBL~* $'& )N *!SPԐ* $'& )N *!STATŮ*,PSWA**HLOTEX* " }-q& N ' 8*!THE*  "& *q*!TI+, TOGGL4+H+ULjTRAVERS=+ *&N $&a * *!TYPQ+  O a &N *\"M X*!Ux++666uuuuLTU+  *!U/MO++ *66&8Hh66LlU+  * *!UNTI9, a " *!UJ,UPDATd, '$&'q*!USm,BxUSEҌ, eHeLMVARIABLŖ,  2*!VOC-LIN˲,,VOCABULAR, !*!WARNIN,,WHIL, s# *!WHER, a [ )qqqSCR#  T l$'&  LINE# T  (N qq& +l$^N lq" t "Z(N $ Ra  f*H( \$^M j*!WIDT -, WORĮ- !*!- a *ZH( *!XO--UHULO-  *q*![COMPILE-  &w NOT FOUND  *!. $*q*!'TITL0.B2.INDE@.    $ * j#q '* * ** * j#qq& $ f*'& +*!.SM..S̶.  $.q*!.S. $$.q*!.. qa 0.a D*6) D*6)*\"  . A EMPTY STACK q*!BMOV. ((a>,a ((8*!COP6/ &N * qv,M)*!DSWAZ/ $($(*!Dx/ 6*!D0/ &: *!D/ //*!D/ /*!D/  **!DCONSTAN/   u **!DOVE/ $J'$J'*!DMA/ 00a /X*!DMI0 00/&a /X*!DU.0 tt$N H(H($N *!DVARIABLJ0 $2*!IDj0 `$@+*!PAUSł0 a $ \ja $ \j*!THRՖ0 *\"+"$a >$j*!INDE0 q& (N ((N &% ^w BLK NO. ERROR\"V.0a >$ *!DUM0  Wt"\q "N   $ f* $ \ "N $ j U* $N $ \ "N $ j $f*$ \ "N  $ &$~^&a  $.M j $0a >$\ qH(Wq*!TITL91 q$ f*-MOUNTAIN VIEW PRESS FORTH VERSION 1.0103.03 q*!TRIA2 %' $+* $ $&N *\q"w$a >$ I.!*!VLISF2 &q & &$@$N a q &q 0U*U*5'$  &0&a  *!'ӌ2 D**!-TEX2 aN *\  "  a   >$ * *!22 i*!243 /*!2CONSTAN?3 /*!2DROJ3 X*!2DU\3 a*!2OVEj3 0*!2SWAx3 /*!2VARIABLņ3 v0*!>BINARٔ3 *!>TYPŦ3 &USED IN MULTIPROGRAMMED SYSTEMS ONLY. *!EMPTٶ3 #$p" q#i,$N $08*!ERAS3  [!*!FLUS4 M)*!%4 *!OCTA34 $Wq*!U.=4  **!['Q4 *!ASSEMBLEa4:t"XSAVp"׃4UAЏ4IЗ4Ρ4POЪ4lPOPTWϲ4jPUԼ4OPUS4MNEX4TSETUP4<INDE4B   ,MOD4B."5  )5q*!-5 )5q*!ME<5 )5q*!,J5 $)5q*!,[5 $)5q*!Xl5 $)5q*!)}5 $)5q*!5 $)5q*!BOԟ5 `5 *!SEï5 `5 *!RP5 `5$*!UPMOD5 a )5$@: a $)5g )5$@a  \ N j& @: *!CP5  uP5*!BRK,6:6CLCE6:6CLDO6:6ބCLIY6:6XCLVc6:6DEXm6:6ʄDEYw6:6INX6:6INY6:6ȄNOP6:6PHA6:6HPHP6:6PLA6:6hPLP6:6(RTI6:6@RTS6:6`SEC6:68SED6:6SEI6:6xTAX6:6TAY7:6TSX 7:6TXA7:6TXS!7:6TYA+7:6M/CP57   u $@a $)5g &$@55a !P5q,$0wINCORRECT ADDRESSING)55N N )5$@a )5$@$a  P5*!ADC?7Q7`nAND7Q7 nCMP7Q7nEOR7Q7@nLDA7Q7nORA 8Q7nSBC8Q7nSTA!8Q7lASL-8Q7 DEC98Q7 INCE8Q7 LSRQ8Q7A ROL]8Q7! RORi8Q7a STXu8Q7CPX8Q7CPY8Q7LDX8Q7LDY8Q7 STY8Q7JSR8Q7JMP8Q7@BIT8Q7 BEGIN8 " *!UNTIL8 t H(" *!IF8 "  *!THEN9 "&a *q & **!ELSE19 " 8*"& * *!NO]9 $ N *!CӅ90909>9VӰ9PAGAIN9 8*!WHILE9 t H(#9 *!REPEAT9 tt 8H(H( 99*!END-COD9 a qD* Ra *#CODE ERROR, STACK DEPTH CHANGE*!ENTERCODo4 {4D**!CODZ: *" qP5f:*!;CODn: -f:*!LINʼn:  $@wNOT ON CURRENT EDITING SCREEN) *!$ j : *!MATC: ttaH(H(/&N *\a"*:a tXH( "*  *  >$jX*: **!WIP; )*!EDITOj;?4#LOCATp" (( *!#LEAČ; ;:**!#LAǢ; ; tN H( *!-MOVŴ; :8v,*!BUF-MOV; "a '* 8 *!>LINE; ;* *!FIND-BU< '$PN *!INSERT-BU< &<$PN *! ><*! &<=*!:> @><*!J> >N>*!TILV> ;N $^*&<;=: a d=;N * =<*!COUNTEb>BBUMБ> >g >$8^a  >qqq$ M *!ӟ> $ M $^* >q&<;) t\")qM==a <)>$((a " &a 0a $ >$jH()q*!> $^*@<;@<`;(&'&tZ(((g Z( t "Z(8";N H(8H(8v,<*!B? ((g <=*!҈? @>F?*!͚? )t((t@ (Y/N)? $%$$&&@$ M  $YRa    $NRa     a *!INITDIS:@ qqBLANK DISK IN DRV1 C@a $뷥 $ *$ Rqq FORMATTINGqqa   a )$?$M  FORMAT ERROR$?'ERASINGq $뷥*'$q[! \'" 1(j*!COPYDIS˟@ qq READS DRV1qqWRITES ON DRV2qqDO YOU MEAN IT C@a $ l$'  $+*  a&&N $J'$J'$J'N a * && *' $J'* $J'$J' $J'$J'$J' $J'$J'$J'N Ra    *!DRVjA *!DRVYB *!DRVfB *!DRVsB *!DRVB *!SAVE-FORTȍB qqOPERATING SYSTEM DISK IN DRV1 C@a r)*!RECORĚBB )FIELBB LAST-RECORBB MEM-PTBB XCOOCB YCOOCB L-LICB R-LI*CB COUN6CB STARBCB ENNCBE MATCZCB WHERdCB FLApCB TSAV|CB WAR͈CBBNU͔CB LOWESԟCB SORT-PTҪCB DATA-STARԷCB DATA-ENCB LENGTCB REL-FLACB NBCBE FILEDB PRINDB EXIT-FLADB DIR-POINTE&DB 16NULL6DB STRINHDB) ALLOT UPPEgDB ALLOT 6 LOWEҒDB ALLOT FIELD-NAMEӲDB ALLOT SEARCDB`CaCC`CanC`rD CnC`aaCݥ`C֥`zCa{CC`Ca` DATABU4EB ALLOT REL-TA¡EB ALLOT REL-LEQFB ALLOT FILENAMgFB ALLOT DAT}FINIԞF Cq $ $FCq 2Dq Bq Bq Cq "DqD$P$ [!g *!DELA٩F $@ \" j*!BLANKF pD$ Ra   *!CLG  $$ $%$B?*!Y/;G $$_@ $YRa  $NRa   a *!SPO[G $% Cq$$$"?*!RVӛG * $ $( $N *$@$ N (N  (N *\" $^a  $a $?@$@"j*!NOBLAN˾G $ $ GDO-NOT-LEAVE-BLANK$ $ $GG$ $ G *!RANGE,H  $.'&$.R*$9%$9R@*!RANGEH  $A'&$AR*$Z%$ZR@*!RANGEH  $a'&$aR*$z%$zR@*!RANGH  H* H(&* H(&* $ R(&*$*R&*!RIGH I C>Ca . M C2C pDN C CqJC JCq *!LEFHI C2C^a 8C Cq$M U*$M $ C2C pDN JC JCq*!=BLANːI  *$  DN  $ N *\"$ Ra  j$ Ra   *!INPUI  JCq$ Ia  PI $Ra I$ Ra *!SAVE-NAM,J $ \"Ia  ">$  j$  DN pD*$ 8pD$ $ [!*!NAME-LOOdJ $ \pD$ $ [! "  $N G Field name " T : $"  $N G$ M 4JpJj*!GET-NAMEӸJ D$P$ [!AG$  GCREATE NEW FILE$  $G $GInput field names ( 1 to 8 )$2Cq$>CqpD$ $ [! $GField name 1 : $$G$ M 4JpJ Ia 6H  a J*!LAST-NAM%K $$ \"Ia  ">$j *!NEW-FILK K$Ra A1K$$GAre field names OK (Y/N)$$$GaGa 9AG$$ GFields already in memory$$ $GG*!TEMP-SAV"L $ EN pD*$8*!RECORD-SIZŴL K $ *!NO-ROOL AG$ $ G OUT OF MEMORY$ $ $GG*!BLANK2L lCq$ \pD"N $ R: a  lCq>$jlC*!DATA-AD.M K $ B FN B$ N *!ROOMnM l$L C * /l$L CR&*!CGOԝMB )湭: 808`CHARGOM M $$>/*!FPRESULMBCCALLOT CCCCCCCCCCCCCTXTPTNFPEVA+NBHHH g 4텸Nhhh`F8N AN ?*!FIND-NUhN $ \"JCqyM"N  $ R&a 4 $.R&a  $0a >$$9^a >$  jJC*!FAwNBE ALLOT CCCCCCCCCCCCCCCCCCCCCFACN N$$ [!N : a  $0N yM*N*>/*!FO O$N$N NN$N $>/$:N$$N MN4NqmN*!FTEMNOBÅFLOAԏO N$$ [!C$d  C*$d Oq$0N NO$  O*$  Oq$0N N O$0N N N  N$N *!FO N$0R: a rN$$ [!$ \N"N  : a  >$ N"N j$N$N ONN$N $8$:N$$N MN4NqmN*!?F#P $ \N"N  : a  >$M j*!SAVE-DATP K  \E"$ N C$8C$N Cqj*!DATA-LOOP $ 2Cq$>CqK \pD$$ [! "  $N GD"$  N $ + "  $N $ G$ "  $N G$ M 4J"L "  $N GD"$  N $ +j|*!GET-FIRST-DATQ $ 2Cq$>Cq $GD$ + $$ GpD$$ [!$ $G$ M 4J L!Ga 6H  a $GD$ +*!GET-DATQ AG$  G ADD A RECORD$  $ G$ GRecord number C T QKa (QPC Cq*!NEW-DATQR K$Ra 3AG$ $ GNo field names$ $ $GGMM&a L 9\R$$GAny more records (Y/N)$$$GaG&a *!PRINT-RECORļR *!AMENDSS $GInput data for search $GD$ + $$ GpD$$ [!$ 2Cq$>Cq$ $G$ M 4J!Ga 6H  a $GD$ +*!AMENDgS AG$  GAMEND A RECORD$  $GpS$$ GIs this correct (Y/N)$$ $GaGa *!SHOW-RECORT  BqK  \ $%GD"$  N $ +$$$ $%$ G "BqyM$+qqj"Da bS*!-TEXoT q3N *\  "  a   >$ * *!FINDT  lCqK $ C FN VC\B Bq"JCpDT: a  lCq"VCq>$K $ A*!FIND$U ,UlCa eVCK $ N VCq $G}Tq$$%$N GIs this the record (Y/N)$$%$GaG a *!CASņU TD*Tq$*!OV $&Ra "  $*!ENDO V $" * +$*!ENDCASIV $ D*TR: a +Tq*!INPUToV $ $[Ra  pDC2C N PI  Ia  PI $Ra I$ Ra pDC2C N >CC $ [!*!AMEND-DATA-LOOСV $ 2Cq$>CqK \"BqyMpD$8 "  $N GD"$  N $ + "  $N $ G$ "  $N G$ M V"L "  $N GD"$  N $ +jx*!AMEND-FIRST-DATW $ 2Cq$>Cq $GD$ + $$ G BqyMpD$8$ $G$ M V L!Ga 6H  a $GD$ +*!AMEND-DATW AG$  GAMEND A RECORD$  $G$ GRecord number B T WKa &WK  \E"$ N "BqyM$8j*!NO-RECORDZX AG$ $ GNo data in memory$ $ $GG*!AMEND-RECORX C: a XzFVCq$Bq TAG$  GAMEND A RECORD$  $GUlCa gX3AG$ $ GRecord not in file$ $ $GG*!DELETE$Y FVCq$BqAG$  GDELETE A RECORD$  $GpS$$ GIs this correct (Y/N)$$ $GaGa *!DELETEY  BqyMK $ N yMK $ C F yM 8AG$ $ GRecord deleted$ $ $GGC CqCK $ Cq*!DELETE;Z AG$  GDELETE A RECORD$  $G*!DELETE-RECORZ C: a XMFVCqYZUlCa EZ3AG$ $ GRecord not in file$ $ $GG*!LZ $ \C"N C"N R: a 8C"N C"N ^a CCqD &Dq>$>$j*!SORTi[ CL FN F\"CqCL FN "\"Cqn[LA"EL8C"L8ECL8LA*!SOR[ C: a X+AG$$ G Sorting...$$ $ G[*!VIEW2\ AG$  GVIEW ALL RECORDS$  $G$ GRecord number B T $G*!VIEW-ALv\ C \"Bq~\}T$$%$N GPress space bar to continue$$%$G$$ Ra j*!DIRECT\ AG$  GSEARCH FOR RECORD$  $GpS$$ GIs this correct (Y/N)$$ $GaGa *!DIRECTF] AG$  GSEARCH FOR RECORD$  $G$ GRECORD NUMBER B T $G}T$$%$N GPress space bar to continue$$%$G$$ Ra *!DIRECԷ] FVCq$BqP],UlCa VCLN VCq]  a AG$$ G That's all$$ $ GG*!TOTALg^ N$$ [!$0NC  \"BqSOj*!TOTAL^ AG$  GTOTAL NUMERIC FIELDS$  $G $GInput field number (1-8) $  $1'&$1R*K$1N %K$1N R@a  M $1 Bq*!TOTAL_ _^$$GTotal for field = $$$GP$$ GAverage for field = $$ $G(PP*!TOTA̢_ C: a XP_$$%$N GPress space bar to continue$$%$G$$ Ra *!GLOBAL` $GInput search string: pD$$ [!$2Cq$'>Cq$$G$ M 4J8Ma 6H  a *!GLOBAL` AG$  G GLOBAL SEARCH$  $ G`JCCq$$ GIs this correct (Y/N)$$ $GaGa *!GLOBAL` yMCq$C yMN Cq=E?*!GLOBALda AG$  GGLOBAL SEARCH $  $G$ GRecord number B T $G}T$$%$N GPress space bar to continue$$%$G$$ Ra *!GLOBA̎a `C \"BqK  \AG$$ G Searching$$ $ G"BqnalCa ajjAG$$ G That's all$$ $ GG*!REL:b AG$  GRELATIONAL SEARCH$  $G$ GRecord number B T $G}T$$%$N GPress space bar to continue$$%$G$$ Ra *!Eb TD&Dq*!NEuc T: D&Dq*!GREAԌc Cq Cqn[D Dq*!LESӤc Cq Cqn[*!STARc pD$*R*!RELc $G Search to be:$$ G1 Less than......pD$+$$ G2 Greater than...pD$+$$ G3 Equal to.......pD$+$$ G4 Not equal to...pD$+$ $GChoose your option:$ $$G*!RELc ca $08c$  $1'&$1R*$4%$4R@a    a $0 *[FN $$\ "G$(f*j*!RELd E$P$ [!$ 2Cq$>CqK  \ $G$f* $GD"$  N $ + $$ GpD$$ [!$ $G$ M 4J"L!Ga 6H  a "dJCqF"N j*!GET-REL-DATVe AG$  GRELATIONAL SEARCH$  $G GInput search value or '*' FOR:]e*!RELf  &Ra     P &Ra  c> &Ra  c,$&Ra  zc$&Ra  c *!RELlf fAGC \"Bq DqK  \"BqE"$ N qF"N yM[F"N sfjAG$$ G Searching$$ $ GD: a bjAG$$ G That's all$$ $ GG*!LIMf AG$ GSEARCH FIELD BETWEEN LIMITS$ $G $GInput field number (1-8)$  $1'&$1R*K$1N %K$1N R@a $1 Bq*!LIMg gAG$ GSEARCH FIELD BETWEEN LIMITS$ $G $GInput lower limit for search $GB$  DN $ + $$ GpD$$ [!$ 2Cq$>Cq$ $G$ M 4JpDD$8*!LIM)h 0h $ GInput upper limit for search $ GB$  DN $ + $$ GpD$$ [!$ 2Cq$>Cq$ $G$ M 4JpDD$8*!LIMh AG$ GSEARCH FIELD BETWEEN LIMITS$ $G$ GRecord number B T $GB}TBq$$%$N GPress space bar to continue$$%$G$$ Ra *!LIMi hC \"Bq DqD$yMcD$yMcD: a ijAG$$ G That's all$$ $ GG*!PDj AG$ $ GPrinting record # C \"Bq '$$ G" T 'qRECORD #B T K  \q$f*"BqD"$  N $ +$f*yM$+jqqjq '*!Pj AG$ G PRINT FILE$  $ G$$G1 Print all records$$G2 Print selected records$ $ GSelect option :$ $ $G*!SAVE-FIELD_k FF$N CF CFqCF qDF$N $P8*!READ-FIELDk F$N D$P8FCqF CqF$N FC$N F 8*!READ-DIBl !$$[!!'q!,q   ! *$>/!$N  $ $>/*!WRITE-DIҐl !$N  $N $>/! $>/$!q$!$N q !$N q !$N q*!NEXT-FREl DD$N DDqDD!$$ N Ra  RD$DD$N T: a DD!$$ N R*!FIND-NAMGm l lCq!DDq$ \F$DD"$ N T: a lCq>$jlC*!HOW-BIǯm CF $ *!SETSCn *$&*$ FN  (*q$N  *q*!EXPAND-DATn  n\$" FN  "$ N $>/ F"$ N q$A*!COMPRESS-DATTn n \$" FN  "$ * *$>/j*!WRITE-DATn llbn!$ DDq n \Sma >$@DD$N DDqDD ! $ "(nF*$>/" DD$N jl-4nPl*!READ-DATn g l$ \F$!"$ N T: a "  jnPl*!LOSE-DATeo qqqAll data in memory will be lost.qqDo you want to continue (Y/N)aG*!DISK-ERROҫo AG$$ G Disk error !$ $ $G$ $ GPlease check disk$ $ $GG CqW*!SAVE p AG$ G SAVE FILE$ $ G $G Filename ? $ 2Cq$>CqpD$$ [!*!SAVE}p pD$$ [!$ $G$ M 4J!Ga 6H  a *!SCRATCHp  lCql$ \F$!"$ N T: a !"$ N $ [! lCqjlCa l!,q   l*!SCRATCq AG$ G ERASE FILE $ $ G $G Filename ? $ 2Cq$>CqpD$$ [!$ $G$ M 4JpDF$8lma &q+$$GFile not found $$GG*!SAVEq $$ GSaving F$+ $ $G*!SAVE-FILHr C: a XlpppDF$8ma qPrn*!EXI|r AG$ G EXIT FILE$ $ G$ $ GIs file on disk (Y/N)$$ $GaGa  2Dq Cq 2Dq*!READr AG$ G READ FILE$ $ G $G Filename ? $ 2Cq$>CqpD$$ [!*!READ2s $$ GReading F$+ $ $G*!READs $G Searching... $$ G*!READs $ $ GFile not found$ $ $GG*!READs AG$ $ GFile already in memory$$ $GG$$ G$f**!READ-FIL/t C: a 4:sppDF$8!$$ [!slma sqot7tAG*!MEMt AG$  G MEMORY CHECK$  $G$$GMemory free............l$C +$$GRecords used...........CT $$ GRecords available......l$C K  a $   $ +*!MEM-CHECt t$$GPress space bar to continue$$$G$$ Ra *!SEARCHu AG$  GSEARCH OPTIONS:$  $G$$GView all records..........1$$GDirect search.............2$$GSearch within limits......3$$ GGlobal search.............4$$ GRelational search.........5$$GReturn to main menu.......6*!SEARCHu $&Ra  \ x$&Ra  p^ b$&Ra  Kj L$&Ra  Cb 6$&Ra  f  $&Ra  Cq   *!SEARCHw  Cqv$ $GChoose your option:$ $$G$$_@(w: a Ca *!SEARCȸw C: a Xw*!Px C: a XJdk$  $1R*$2R&a    a $1 a  "Dqx "Dqj*!DIR3x lqqq$JCq$ \!"$ N $N  Ra 2 JCg !"$ N $+JC @a q j*!DIҔx AG$  GDISK DIRECTORY$  $Gqqqx$$GPress space bar to continue$$$G$$ Ra *!FORMAT-DISy AG$ G FORMAT DISK$  $ G $GAre you sure (Y/N) aGa r $G Formatting... $$ G $  a p!$$ [!l-4qq $G Format OK $$ GG*!COPYy $ \g qqINSERT SOURCE DISK AND PRESS RETURN"Cq$$ Ra l$! $  \C"N $Ra >$C"N  v,jqqC$Ra >$(INSERT DESTINATION DISK AND PRESS RETURN$$ Ra -4l$! $ A.qqDONEGF*!COPY-DISLz AG$ G COPY DISK $ $ Goa Tz*!DOSD{ AG$  GDISK UTILITIES $  $G$$GDisk directory............1$$GFormat new disk...........2$$GCopy disk.................3$$ GErase file................4$$ GReturn to main menu.......5*!DOS{ $&Ra  y b$&Ra  y L$&Ra  P{ 6$&Ra  q  $&Ra  Cq   *!DOz|  Cq{$ $GChoose your option:$ $$G$$_@|: a Ca *!MAIN1| AG$ GOptions:$ $G$ $GItems on file CT $GCreate new file..C Read old file....1q $GAdd a record.....2 Amend a record...3q $ GDelete record....4 Save file........5q*!MAIN1S} $ GSort file........6 Print file.......7q $GSearch file......8 Total fields.....9q $GExit file........X Memory check.....Mq$ $GDisk utilities...D$ $GChoose your option$ $$G*!MAIND~ \}M~*!MAIN@ $C&Ra  -L $&Ra  t $&Ra  R $&Ra  3Y $&Ra  [ $&Ra  r $&Ra  9\ $&Ra  8x t$&Ra  x ^$&Ra  ` H$X&Ra  r 2$M&Ra  u $D&Ra  }   *!MAIP H$$_@X: a 2Da  CqW*!TITL~ AG$ \COSMI j$ $ G$f*$ $ G DATAPRO database $ $ G$f*$ $ G (C) 1985 Cosmi $ $ G$f*$ $G Press RETURN $ $G$f*$$G$$$$ Ra  $*!DATAPRϫ C Ra pC Ra  CqC: a F*! SAVE-FORTHCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC