Sig/M.028	A Small Library for Pascal/Z
		Life/Wumpus Update
		NAD Accounts Receivable System
		Simple Doctor Billing Programs
		Home Remote Control Programs

			compiled by Charlie Foster

		-CATALOG.028	contents of Sig/M.028
		-CATA028.ACK	acknowledgement file
		CRCKLIST.028	checksum file

index	size	names		notes

28.01	 4K	LIBRARY.DOC	A Small Library
28.02	 2K	ASL.REL		     /
28.03	 1K	CHAIN.REL	    /
28.04	 1K	CHAIN.SUB	   /
28.05	 1K	COMPILE.SUB	  /	
28.06	 1K	HALT.REL	 /
28.07	 1K	HALT.SRC	/
28.08	10K	LIFE.COM	variations of LIFE 
28.09	 9K	LIFE.PAS	  /
28.10	10K	LIFE-C.COM	 /
28.11	 7K	LIFE-C.C	/
28.12	 1K	CAVE0		CAVE update
28.13	 1K	CAVE1		    /
28.14	 1K	CAVE2		   /
28.15	 1K	CAVE3		  /
28.16	 1K	CAVE4		 /
28.17	 1K	CAVE5		/
28.18	 6K	WADUZIT.COM	waduzit do?
28.19	 4K	WADUZIT.DOC	 /
28.20	 7K	WADUZIT.PAS	/
28.21	18K	NAD.COM		NAD Accounts Receivable System
28.22	12K	NAD.PAS		    /
28.23	 6K	NAME&ADD.DOC	   /
28.24	25K	RECEIVAB.COM	  /
28.25	17K	RECEIVAB.PAS	 /
28.26	12K	ACTTREC.DOC	/
28.27	20K	DISKBILL.PAS	simple doctor billing programs
28.28	 9K	RECMAKE.PAS	/
28.29	 1K	ANDMSK.SRC	home remote control programs
28.30	 2K	EXORG.SRC	    /
28.31	 3K	COMPARE.PAS	   /
28.32	 1K	ORMSK.SRC	  /
28.33	 2K	REMOTE.SRC	 /
28.34	 2K	PROG.DOC	/

Thió  disë ió aî importanô one®  Raù Penleù haó beeî aô iô again® 
Reaä hió Library.Doã anä you'lì seå whaô hå haó iî mind®  É agreå 
witè hií anä verù sooî wå wilì havå á LIBRARÙ DISK®  Ho÷ tï  pasó 
up-dateó  ió  ouò onlù problem®  Sï iæ yoõ havå anù  suggestions¬ 
speaë up® 

Theså  arå  thå  starô  oæ ouò ASÌ (Á Smalì  Library©  mostlù  bù      
Raù Penley.
     
     LIBRARY.DOC         ASL.REL             HALT.REL
     CHAIN.REL           CHAIN.SUB           HALT.SRC
     COMPILE.SUB

Raù  haó  giveî  uó ouò firsô gamå updatå  also®  Thå  caveó  arå      
froí  Wumpuó  whicè ió oî Sig/M.021®  Cave³ haä ° recordó iî  it®      
Sï  no÷  Wumpuó wilì bå complete®  Thå Lifå  programó  arå  gameó      
alsï  buô  witè  á educationaì slant®   You'lì  noticå  thaô  onå      
ió  iî  Pascal/Ú  buô thå otheò ió iî "C"®  Thå à versioî  seemó      
tï  bå  faster®  Thå thoughô wå havå ió thaô iô ió thå waù  à ió      
writteî  ratheò  thaî  aî  inherenô  superiority®   Doeó   anyonå      
havå anù commenô aó tï thå pro'ó oò con'ó oæ whù thaô is?

     LIFE.COM            LIFE-C.COM          CAVE0,1,2,3,4,5
     LIFE.PAS            LIFE-C.C

Foò  thoså  whï likå tï mesó around¬  thå followinç  prograí  waó 
publisheä anä theî converteä tï "C"¬ Pascaì anä É don'ô kno÷ whaô 
otheò languages®  Itó á real¬ short¬ simplå language® Raù seú itó 
aî  examplå oæ whaô á higè languagå likå Pascaì caî do®  Reaä thå 
Doc.
 
     WADUZIT.COM/PAS/DOC

Craiç   Rudliî  takeó  crediô  foò  theså   wonderfuì   programs®      
Craiç  isn'ô  tï  faò  ofæ froí beinç ablå tï  puô  hió  programó      
uð  oî  á commerciaì footing®  Thå firsô ió á  NAÄ  prograí  witè      
somå  interestinç  technques®  You'lì havå tï bå  alerô  however¬      
theù  arå  slightlù  hardwarå dependent®  Thå Cursoò  controì  ió      
foò á Soroã oò á Televideo®  Naturally¬  witè thå blocë structurå 
oæ Pascaì thå changeó arå easù tï make®  Thå seconä prograí ió  á 
smalì  accountó  receivablå modulå thaô workó witè  thå  NAD®  Iî 
additioî tï thå programó themselves¬  bå surå anä looë aô Craig'ó 
functionó  anä procedureó (iî facô paù attentioî tï anyone'ó  foò 
ne÷  sampleó tï use)¬  hå haä á probleí witè EOÆ anä founä á  waù 
arounä it.

     NAD.PAS/COM              RECEIVAB.PAS/COM
     NAME&ADD.DOC             ACTTREC.DOC
     
Sincå  Craiç donateä thió kerneì foò á starô iî Pascal/Ú businesó 
softwarå É havå beeî lookinç arounä foò thingó tï add®  É founä á 
UCSÄ prograí calleä Diskbill®  Iô ió á simplå billinç prograí foò 
á  Doctoò  sï É addeä iô tï thió bunch® Thå firsô  onå  whï 
convertó iô tï "Z¢ wilì oæ courså wiî á freå disk.
     
Š     DISKBILL.PAS

Boâ Miller¬  oæ Saî Jose,Ca¬  donateä theså foò ouò use® Reaä thå 
Prog.Doã  first®   Iô  provideó  somå  morå  tooló  foò  us®   Aî 
interestinç piecå ió thå Remote.SRC¬ iô foò thå home
remote control units.

     ANDMSK.SRC          EXORG.SRC           COMPARE.PAS
     ORMSK.SRC           REMOTE.SRC          PROG.DOC


          LIBRARY MAINTENANCE

by Ray Penley


     Wå  havå founä thaô somå oæ thå memberó arå havinç  problemó 
creatinç  theiò owî librarieó oæ commonlù useä routines®   Aó yoõ 
kno÷  iô ió oæ primarù importancå tï havå á librarù  oæ  routineó 
thaô  yoõ don'ô havå tï keeð writinç oveò anä oveò  again®   Wheî 
yoõ  writå youò prograí yoõ onlù havå tï referencå thå routinå aó 
an external and then use the routine freely in your program.

     Wå  arå  goinç  tï  creatå á librarù  oæ  commonlù  routineó 
presentlù  founä  iî thå "Ú Useró Group¢ librarù  anä  calì  thió 
new library ASL.REL (A Small Library).

     Tï makå á librarù yoõ musô firsô havå á subroutinå assembleä 
intï á .REÌ file®  Iæ yoõ neeä helð witè thió procedure¬ thå texô 
filå  MAKEREL.DOÃ founä oî volumå #± shoulä be most helpful.

     Ruî  thå  linkeò  buô enteò thå  librariaî  modå  bù  typinç 
/L:filename®  Sincå wå wanô tï calì ouò librarù ASÌ letó starô bù 
typing:

     A>LINK /L:ASL


     No÷  yoõ  specifù thå fileó tï bå includeä iî  thå  library®  
                                    *** REMARKS ***
*KEYIN                        found on volumes #3 and #4
*CHAIN                        found on Pascal/Z library disk
*INPORT                       found on volume #3
*OUTPORT                      found on volume #3
*DELAY                        found on volume #3
*RANDOM                       found on volume #3
*HALT                         found on this volume
*/E                           Typing /E closes the output file

NOTES:
     Iæ  yoõ makå á mistakå yoõ caî alwayó restarô thå linkeò  bù 
typing /R.
     Iæ  á filå witè thå samå namå alreadù existó oî thå disë  iô 
wilì bå deleteä anä theî á ne÷ filå wilì bå created¬  sï bå  verù 
carefuì aô thió step.
     Thå  ordeò  oæ  entrù  intï  thå  librarù  maù  bå  oæ  somå 
importance®   Sincå  thå librarù ió loadeä iî onå pass¬  á modulå 
shoulä appeaò afteò iô haó beeî referenceä bù aî externaì  symboì 
iî otheò modules.
.pa
Š     No÷ iô ió á simplå matteò tï uså ouò ne÷ library®   Letó uså 
the routine KEYIN in a sample program.

Program DRead;
{ A program to directly read a char from the keyboard.}

LABEL 1;
VAR  CH: CHAR;

Procedure KEYIN(VAR C:CHAR); EXTERNAL;

BEGIN
  WHILE TRUE DO
    BEGIN
      WRITE('ENTER A CHARACTER ');
      KEYIN(CH);
      IF ( ORD(CH)=3 ) THEN GOTO 1;
      WRITELN('YOU ENTERED A ',CH);
    END;
1: {EXIT HERE ON CONTROL-C}
END.{ of DREAD }


     Now compile the program:

A>PASCAL DREAD.BBB
A>ASMBL MAIN,DREAD.BB/REL
A>LINK /N:B:DREAD B:DREAD ASL/S /E


     That'ó alì therå ió tï it¡   Noticå thaô thå ne÷ librarù  ió 
oî thå samå disë aó PASCAL.COM¬ ASMBL.COM¬ LIB.REÌ ANÄ LINK.COM® 


     É  havå writteî á submiô filå thaô wilì allo÷ yoõ tï compilå 
á  prograí  anä uð tï ³ additionaì librarù  files®   Executå  thå 
submiô filå likå so:

     A>SUBMIT COMPILE PROGRAM DRIVE LIBRARY/S
     A>SUBMIT COMPILE my PROGRAM on DRIVE using LIBRARY/S


     We can compile and link our sample program in one step:

     A>SUBMIT COMPILE DREAD B ASL/S

     Isn'ô  thaô easy¡  Thå .COÍ filå wilì bå placeä oî thå  samå 
drivå aó thå Pascaì sourcå program®   Notå thaô yoõ musô calì foò 
thå  librarù  filå witè thå /Ó optioî elså yoõ loaä iî thå  wholå 
library.
.pa
ŠCall this file COMPILE.SUB

Pascal $1.$2$2$2
asmbl main,$1.$2$2/rel
ERA $2:$1.SRC
link /n:$2:$1 $2:$1 $3 $4 $5 lib/s/E
ERA $2:$1.REL
:
FILES $2:$1.*


That'ó alì foò now®   Iæ yoõ havå anù questionó feeì freå tï calì 
må oò droð á note®

RAYMOND E. PENLEY
1263 ALLEN COURT
WALDORF, MD 20601
(301) 645-9632  (evenings or weekends only)
.pa
Š


                        WADUZITDO


How to write a language in 256 words or less.

From BYTE magazine, September 1978. It is highly recommended
that you obtain the above magazine. This program is only
provided as a learning experience. If you make any changes to
the program please provide a copy to your Pascal Users Group.

--------------------------------------------------------------
  Statement     Format          What it does
--------------------------------------------------------------
  type          T:text  Display text on the terminal.
--------------------------------------------------------------
  accept        A:      Input one character from the
                        terminal keyboard.
--------------------------------------------------------------
  match         M:x     Compare x to last input character
                        and set match flag to Y if equal,
                        set to N if not equal.
--------------------------------------------------------------
  jump          J:n     If n = 0 jump to last accept.
                        If n = 1 thru 9 jump to nth program
                        marker forward from the J.
--------------------------------------------------------------
  stop          S:      Terminate program and return to
                        text editor.
--------------------------------------------------------------
  subroutine    S:x     Call user machine language program.
                        (Requires program modification).
--------------------------------------------------------------
  conditionals          May precede any operation code.
                Y       Execute only if match flag is 'Y'.
                N       Execute only if match flag is 'N'.
--------------------------------------------------------------
 program        *       May precede any statement, serves
 marker                 as a jump destination.
--------------------------------------------------------------
        Table 1: Program instructions for the WADUZITDO


--------------------------------------------------------------
 Edit character HEX             Meaning
--------------------------------------------------------------
        $       24      Start program execution
--------------------------------------------------------------
        \       5C      Move edit pointer to program start.
--------------------------------------------------------------
        /       2F      Display next line of program.
--------------------------------------------------------------
        %       25      Erase line. Pads with nulls.
--------------------------------------------------------------
   bs or <-  08 or 5F   Backspace to correct typing error.
--------------------------------------------------------------
        cr      0D      End of current statement.
--------------------------------------------------------------
  any others            Character stored in program and
                        edit pointer advances.
--------------------------------------------------------------
        Table 2: Editing characters used by the built-in
                 text editor.








                                ACCOUNTS RECEIVABLE 



              RECEIVABLE   ió á simplå accountó receivablå prograí foò  uså 
        bù  aî individuaì oò smalì business®  Thå prograí permitó  eitheò 
        postinç tï aî account¬ oò generatinç á monthlù statement.  

              RECEIVABLE   requireó  á  namå anä  addresó  filå  previouslù 
        createä bù thå useò witè thå prograí  NAD ® 

             Thå  prograí  ió  initiateä bù  typinç   RECEIVABLES ¬  anä  á 
        carriage return.  The screen is cleared and the message

                        ACCOUNTS RECEIVABLE PROGRAM PACKAGE

                               CHOSE FROM EITHER:

                             (1) POST TO AN ACCOUNT
                            (2) GENERATE AN STATEMENT

                         ENTER THE NUMBER OF YOUR CHOICE 


        ió displayed®  Regardlesó oæ youò choice¬ thå prograí wilì prompô 
        with the message:

                   ENTER NAME & ADDRESS FILE AS  DRIVE:NAME.EXT

        Enteò  thå  namå  oæ thå filå aó iô waó createä bù thå  namå  anä 
        addresó prograí (e.g®  B:OFFICE.NAD)®    RECEIVABLES  wilì nexô asë 
        for the name of the account:

             ENTER THE NAME OF ACCOUNT _____________________________ 

        Yoõ  shoulä enteò thå namå preciselù aó iô ió listeä iî thå  filå 
        oæ namå anä addresses®   Notå thaô uð tï 3° letteró oò spaceó maù 
        bå useä (numberó arå treateä aó letters)®   Thå prograí wilì theî 
        ask

                             IS THIS A NEW ACCOUNT? Y/N 

        Iæ yoõ enteò á 'Y'¬  Versioî 1.° oæ  RECEIVABLES ¬  wilì prompô yoõ 
        tï exiô tï thå CP/Í operatinç systeí (bù typinç á controì C)¬ anä 
        enteò  thå  namå anä addresó (account© intï thå appropriatå  filå 
        prioò  tï runninç  RECEIVABLES.   Enterinç aî 'N§ wilì  permiô  thå 
        program to search the file for the account.  

                Iæ  yoõ havå selecteä thå firsô menõ option-- posô tï  aî 
        account--  RECEIVABLES  wilì prompt

             IÓ THIÓ THÅ FIRSÔ INVOICÅ EVEÒ POSTEÄ TÏ THIÓ ACCOUNT¿ Y/N 

Š

                                         1 





          


        Bå careful¡  Notå thaô thå questioî isº ió thió thå firsô invoicå 
         EVER posteä  tï thió account®   Excepô foò thå verù firsô timå thå 
        prograí  ió  ruî foò á particulaò account¬  thå  answeò  tï  thió 
        questioî shoulä bå  'N' .

                Iæ  yoõ havå selecteä thå seconä menõ option-- generatå á 
        statement-- thå latteò questioî ió noô asked. 

                Aô  thió  poinô iî ouò discussion¬  iô  ió  necessarù  tï 
        elaboratå  á  littlå  oî ho÷  RECEIVABLES  anä  NAD   actuallù  work®  
        Eacè timå á namå anä addresó ió entereä tï thå file¬   NAD  assignó 
        aî accounô numbeò tï thå record®  (Thå accounô numbeò ió actuallù 
        thå  recorä number.©  Afteò yoõ enteò thå namå oæ thå  file¬  anä 
        thå  account¬   RECEIVABLES   locateó thå accounô iî thå  namå  anä 
        addresó  file¬   anä  readó  thå  accounô  number®   Iæ  yoõ  arå 
        generatinç á statement¬ iô searcheó thå assigneä disã (iô assumeó 
        thaô  botè thå namå anä addresó file¬  anä thå filå oæ  invoices¬ 
        arå botè oî thå samå drive!© foò á filå whoså namå ió thå accounô 
        number¬  anä whoså extensioî ió 'INV'®  Foò example¬ iæ thå thirä 
        recorä oæ thå namå anä addresó filå B:OFFICE.NAD¬ ió 'ACMÅ LUMBEÒ 
        YARDÓ    234µ  BROADROCË  ROAÄ  RICHMONÄ  VIRGINIÁ  2322¹   SALEÓ 
        MANAGER'¬    RECEIVABLES    wilì   posô  invoiceó   tï   thå   filå 
        'B:0003.INV'¬  anä  reaä froí thió filå wheî generatinç á monthlù 
        statement.

                Iæ yoõ wisè tï seå thå currenô invoices¬ anä balance¬ foò 
        á particulaò account¬ buô dï noô wisè tï generatå á statement¬ do 
         NOT  selecô menõ optioî twï (generatå á statement)¡  Rather¬ choså 
        thå  firsô optioî (posô tï aî account)¬  anä exiô directlù tï thå 
        filå listinç aó detaileä below.

                Thió  ió becauså  RECEIVABLES  automaticallù (l© writeó thå 
        entirå .INÖ filå foò thå accounô tï á ne÷ filå identifieä bù  thå 
        montè oæ thå statement¬ anä (2© re-createó thå .INÖ filå witè thå 
        balancå duå froí thå statement®   Foò example¬  iæ á statemenô ió 
        generateä foò Acmå Lumbeò Yards¬ foò thå montè oæ September¬ and
        thå totaì duå foò thaô montè (statement© ió 126.89¬  theî alì thå 
        invoiceó  previouslù fileä iî B:0003.INÖ wilì bå writteî intï thå 
        filå  B:0003.SEP¬  anä thå filå B:0003.INÖ wilì contaiî onlù  thå 
        balancå 126.89®   Iî October¬  thå olä balancå wilì bå identifieä 
        oî  thå statemenô aó 'PREVIOUÓ BALACE§ anä addeä tï anù  invoiceó 
        posted during October, to equal the balance due for October.  

                Iô  ió suggested¬  thaô wheî yoõ posô thå paymenô foò thå 
        previouó month'ó statement¬  thaô yoõ uså thå wordó 'PRIOR§ 'BAL-
        ANCE§ foò thå invoicå numbeò anä purchaså ordeò  number¬  respec-
        tively®   Thió  wilì neatlù identifù á paymenô oî thå  subsequenô 
        statement (and distinguish a payment from any other credit).

                Wheî  thå  seconä menõ optioî ió  selected¬  thå  prograí 
        prompts across the top of the screen with

         MO/DA/YR   INVOICE #   PURCH ORDER #     AMOUNT           CORRECT 

        Enteò  eacè  piecå oæ informatioî followeä bù á carriagå  return®  Š

                                         2 





          


        Excepô  foò thå amount¬  letteró anä numberó arå  considereä  thå 
        same®   Hencå  aî invoicå numbeò oæ R6574-Á ió permissible®  Onlù 
        twï  characteró arå permitteä foò thå month¬  daù oò  year®   Thå 
        invoicå  numbeò maù havå uð tï siø characters¬  anä thå  purchaså 
        ordeò  number¬  uð  tï l0®   Thå amounô ió  considereä  á  'real§ 
        number¬ anä maù havå thå rangå -99,999.9¹ tï +99,999.99®  Enteò á 
        '-§ sigî iî fronô oæ thå amounô iæ iô ió á crediô tï thå account® 
        Á  positivå sigî ('+'© doeó noô neeä tï bå entereä iæ thå  amounô 
        ió á debiô tï thå account® Thå prograí wilì automaticalù positioî 
        thå  cursoò afteò eacè entrù (carriagå return)®   Thå lasô entry¬ 
        undeò thå 'CORRECT§ column¬  ió eitheò á 'Y§ oò aî  'N'¬  distin-
        guishinç  whetheò  thå  informatioî ió correcô  oò  incorrecô  aó 
        entered¬  respectively®   Iæ  yoõ enteò á 'N'¬  thå prograí  wilì 
        prompô witè á menõ representinç eacè entry®  Selecô thå numbeò 
        correspondinç  tï thå firsô piecå oæ incorrecô  information¬  anä 
        enteò thå numbeò followeä bù á carriagå return®  Thå prograí wilì 
        eraså  thå incorrecô entry¬  repositioî thå cursoò anä awaiô  thå 
        re-entrù  oæ  thå information®   Yoõ maù continuå tï correcô  thå 
        informatioî untiì iô ió entirelù correct®   Aô thaô point¬ selecô 
        thå  numbeò correspondinç tï 'Alì informatioî ió correcô  aó  en-
        tered'®   Thå prograí wilì eraså thå correctioî promptó anä posi-
        tioî  thå cursoò foò thå nexô linå oæ information®   Versioî  1.° 
        doeó  noô permiô correctioî oæ thå informatioî afteò iô haó  beeî 
        writteî tï thå disã filå (i.e® afteò yoõ havå answereä 'Y§ tï thå 
        'CORRECT§ prompt)®  

                Versioî 1.° oæ  RECEIVABLES  haó onå peculiarity®  Thå verù 
        firsô timå ever¬  yoõ posô invoiceó tï á particulaò account¬  yoõ 
        maù  enteò onlù threå beforå thå prograí asë yoõ whetheò yoõ wanô 
        á  listinç oæ thå file®   Iæ thió ió alì yoõ havå tï  post¬  theî 
        decidå whetheò yoõ wanô thå listing¬ and/oò exiô froí thå prograí 
        aó describeä below®   However¬ iæ yoõ havå morå invoiceó tï post¬ 
        answeò  'N§  tï thå listinç prompt¬  anä 'Y§ tï thå  nexô  prompô 
        askinç whetheò yoõ wisè tï posô tï anotheò account®  Re-enteò thå 
        account name when prompted, and continue posting.

                Oncå  yoõ  havå  posteä  tï  á  giveî  account¬  yoõ  maù 
        subsequentlù  enteò  aó manù invoiceó aó yoõ desirå  aô  anù  onå 
        time®   RECEIVABLES  wilì noô permiô scrollinç oæ thå screeî durinç 
        entrù oæ thå information®  Wheî thå screeî ió full¬ iô wilì cleaò 
        thå screen¬  rewritå thå prompts¬  anä repositioî thå cursor¬ foò 
        you to continue.

                Wheî yoõ havå finisheä enterinç alì thå invoiceó yoõ havå 
        foò á particulaò account¬  enteò á  '00'  foò thå month¬ á carriagå 
        return¬  anä á carriagå returî foò thå day¬ year¬ invoicå number¬ 
        anä purchaså ordeò number®   Enteò á  '0'  foò thå amounô anä á  'Y'  
        foò 'CORRECT'®  Thå prograí wilì theî prompt

                      DO YOU WANT A LISTING OF THE FILE? Y/N 

        Iæ yoõ saù 'Y'¬ iô wilì asë whetheò yoõ wanô á 'HARDCOPY'®  Á 'Y§ 
        wilì  causå  thå prograí tï lisô thå filå (includinç thå  currenô 
        balance© oî youò printer®  Aî 'N§ wilì causå thå prograí tï  lisô 
        thå  filå anä balancå oî youò CRT®   Aó usual¬  scrollinç wilì bå Š

                                         3 





          


        inhibited¬  anä  wheî thå screeî ió full¬  yoõ wilì bå  askeä  tï 
        enteò  á carriagå returî tï continue®   Iæ therå ió morå thaî onå 
        pagå oæ listing¬  thå pageó arå numbered®   Iî addition¬  thå ac-
        counô namå anä addresó ió printeä oò displayeä aô thå toð oæ  thå 
        firsô  page®   Thå  balancå ió writteî aô thå bottoí oæ thå  lasô 
        pagå oæ thå statement®  Creditó arå clearlù identified.

                Afteò thå listinç ió complete¬ oò iæ yoõ havå decideä noô 
        tï  lisô thå file¬  thå prograí wilì asë yoõ whetheò yoõ wisè  tï 
        posô invoiceó tï anotheò account®   Iæ yoõ do¬  enteò á 'Y'¬  anä 
        thå  accounô  namå wheî askeä tï dï so®   Iæ yoõ dï noô  wisè  tï 
        enteò anù furtheò invoices¬  enteò aî 'N'¬  anä thå prograí  wilì 
        exiô tï thå CP/Í operatinç system®  

                Iæ   yoõ  havå  selecteä  menõ  optioî  twï  (generatå  á 
        statement)¬ thå prograí will¬ afteò promptinç yoõ foò thå accounô 
        name¬ anä whetheò iô ió á ne÷ account¬ asë yoõ foò thå month¬ daù 
        anä  yeaò oæ thå statement®   Enteò thió informatioî NUMERICALLY¡  
        Foò example¬  iæ thå datå oæ thå statemenô ió Septembeò 5¬  l981¬ 
        enteò  '09§ carriagå return¬  '05§ carriagå return¬ '81§ carriagå 
        return®    RECEIVABLES  useó thió datå tï generatå thå extensioî oæ 
        thå monthlù filå (aó describeä above»  e.g®  B:0003. SEP )¬  anä aó 
        the date for the 'PRIOR BALANCE' written to the .INV file.

                Aó  witè thå firsô optioî (postinç tï  aî  account)¬  yoõ 
        maù eitheò lisô thå statemenô oî thå CRT¬  oò prinô thå statemenô 
        on your printer. 

                Afteò thå prograí generateó thå statement¬ yoõ wilì agaiî 
        havå thå opportunitù tï eitheò generatå additionaì statementó foò 
        otheò accounts¬ oò exiô tï thå CP/Í operatinç system® 


                DÏ NOÔ FORGEÔ THAÔ THÅ .INÖ FILÅ IÓ RE-WRITTEÎ EACÈ  TIMÅ 
        Á  STATEMENÔ IÓ GENERATED®   Thå informatioî ió noô lost®   Iô ió 
        writteî intï thå accounô filå witè aî extensioî representinç  thå 
        firsô  threå  letteró  foò  thå montè  oæ  thå  statement®   Alsï 
        remembeò thaô thå .NAD¬  .INÖ anä monthlù filå arå alì maintaineä 
        oî thå  'B'  drive.


















                                         4 








THIS DISKETTE CONTAINS THE FOLLOWING FIVE DIFFERENT FILES:

1) ANDMSK.SRC- AN EXTERNAL FUNCTION WHICH WILL DO A BIT-BY-BIT
	LOGICAL 'AND' FUNCTION OF ITS TWO INTEGER ARGUMENTS.

2) COMPARE.*- A PROGRAM WHICH WILL DO A  COMPARE OF TWO  DIFFERENT 
	FILES AND LOG THE DIFFERENCES IN A THIRD FILE. ( NOTE THAT
	CHARACTER COUNT IS IN DECIMAL WHILE THE CHARACTERS ARE 
	IN HEXADECIMAL. )

	I CREATED THIS PROGRAM AFTER I USED THE CK.COM FILE FROM A
	PREVIOUS USER'S GROUP DISK BECAUSE THE CK PROGRAM SAID THE TWO
	FILES WERE THE SAME. MY PROGRAM SAID AN ENTIRE SECTOR WAS BAD.
	( I'D LIKE TO SEE THE SOURCE OF THAT PROGRAM AND FIND OUT WHY
	THE ALGORITHM DIDN'T FIND SUCH AN OBVIOUS PROBLEM).

3) EXORG.SRC- AN EXTERNAL FUNCTION THAT WILL RETURN THE ADDRESS OF
	THE ARGUMENT VARIABLE. VERY USEFUL FOR DMA TO GET AN ARRAY'S
	ADDRESS.

4) ORMSK.SRC- AN EXTERNAL FUNCTION THAT WILL RETURN A LOGICAL
	BIT-BY-BIT 'OR' OF THE TWO INTEGER ARGUMENTS.

5) REMOTE.SRC- AN EXTERNAL PROCEDURE DESIGNED TO BE USED WITH THE
	SCITRONICS/BSR HOME REMOTE CONTROL UNITS. ONE INPUTS THE
	HOUSE CODE, UNIT CODE AND THE FUNCTION TYPE AND THIS PROCEDURE
	WILL PERFORM THE FUNCTION THRU THE SCITRONICS CONTROLLER.