home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG123.ARC / BOOK1.LBR / MAIN.BQ / MAIN.BK
Text File  |  1979-12-31  |  6KB  |  214 lines
  1. * DATE 04/04/85  21:09
  2. * main command program of database
  3. STOR CHR(PEEK(063)) TO dr
  4. REST from bdata additive
  5. USE &dr.:&base
  6. SET INDEX TO &dr.:&tindex
  7. STOR t TO first
  8. * set up the loop
  9. DO WHIL t
  10. * if first time this trip
  11.  IF first
  12.   ERAS
  13.   STOR '<A>dd, <B>ackward, <D>elete/Recall, <E>dit, <F>orward, <H>elp,' TO prompt1
  14.   STOR '<M>aintainence, <P>rint, <R>eports, <S>earch  or <Q>uit ' TO prompt2
  15.   STOR 'Main Database Menu' TO mode
  16. * show the current record
  17.   @ 0,26 SAY mode
  18.   @ 1, 0 SAY " -------------------------------------------------"
  19.   @ 1,50 SAY "----------------------------"
  20.   @ 2, 4 SAY "Title:"
  21.   @ 4, 1 SAY "Subtitle:"
  22.   @ 6, 0 SAY "Authors 1:"
  23.   @ 6,44 SAY "2:"
  24.   @ 7, 8 SAY "3:"
  25.   @ 7,41 SAY "Year:"
  26.   @ 7,62 SAY "Price:"
  27.   @ 9, 0 SAY "Publisher:"
  28.   @ 10, 3 SAY "Street:"
  29.   @ 11, 5 SAY "City:"
  30.   @ 11,40 SAY "State:"
  31.   @ 11,64 SAY "Zip:"
  32.   @ 13, 0 SAY "Subject 1:"
  33.   @ 13,44 SAY "2:"
  34.   @ 14, 8 SAY "3:"
  35.   @ 14,44 SAY "4:"
  36.   @ 15, 8 SAY "5:"
  37.   @ 16, 1 SAY "Comments:"
  38.   @ 19,60 SAY "Updated:"
  39.   @ 20, 0 SAY " -------------------------------------------------"
  40.   @ 20,50 SAY "-----------------------------"
  41.   @ 21, 2 SAY prompt1
  42.   @ 22, 2 SAY prompt2
  43.  ENDI first
  44.  STOR f TO first
  45.  STOR '?' TO command
  46. * find out if the current record is marked for deletion
  47.  IF *
  48.   STOR 'Deleted' TO deleted
  49.  ELSE
  50.   STOR '       ' TO deleted
  51.  ENDI *
  52. * show the current record, and find out what to do next
  53.  @ 0, 0 SAY deleted
  54.  @ 2,11 SAY $(title,1,60)
  55.  @ 3,11 SAY $(title,61,19)
  56.  @ 4,11 SAY $(subtit,1,60)
  57.  @ 5,11 SAY $(subtit,61,18)
  58.  @ 6,11 SAY auth1
  59.  @ 6,47 SAY auth2
  60.  @ 7,11 SAY auth3
  61.  @ 7,47 SAY year
  62.  @ 7,69 SAY price
  63.  @ 9,11 SAY publish
  64.  @ 10,11 SAY street
  65.  @ 11,11 SAY city
  66.  @ 11,47 SAY state
  67.  @ 11,69 SAY zip
  68.  @ 13,11 SAY subj1
  69.  @ 13,47 SAY subj2
  70.  @ 14,11 SAY subj3
  71.  @ 14,47 SAY subj4
  72.  @ 15,11 SAY subj5
  73.  @ 16,11 SAY $(comment,1,60)
  74.  @ 17,11 SAY $(comment,61,60)
  75.  @ 18,11 SAY $(comment,121,60)
  76.  @ 19,11 SAY $(comment,181,47)
  77.  @ 19,69 SAY dayu
  78.  @ 22,64 SAY "WHAT NEXT"
  79.  @ 22,76 GET command PICTURE '!'
  80.  READ
  81. * perform selected function
  82.  DO CASE
  83.  CASE command = 'A'
  84.   DO add.bk
  85.  CASE (command = 'B' .OR. command = ',' )
  86. * move backwards one record
  87.   SKIP -1
  88.  CASE command = 'D'
  89. * switch the current record from deleted to recalled
  90.   IF *
  91.    RECA
  92.   ELSE
  93.    DELE
  94.   ENDI *
  95.  CASE command = 'E'
  96.   SET console OFF
  97.   RECA
  98.   STOR # TO rec:number
  99.   SET INDEX TO
  100.   IF rec:number=0
  101.    GO 1
  102.   ELSE
  103.    GO rec:number
  104.   ENDI rec:number=0
  105.   SET console ON
  106.   RELE rec:number
  107.   DO EDIT.bk
  108.  CASE (command = 'F' .OR. command = '.' )
  109. * move forward one record
  110.   SKIP
  111.  CASE (command = 'H' .OR. command = '?' )
  112. * display a screen full of instructions
  113.   STOR t TO first
  114.   ERAS
  115. TEXT
  116.  
  117.  
  118.                   M A I N   M E N U   H E L P   F I L E
  119.  
  120.     Welcome to the SIG/M Library Manager program.                        
  121.  
  122.     I am here to help you and you can call me anytime by just entering
  123.     a ? mark at any place where this program asks for a command.
  124.  
  125.     When you go back to the screen you will see two lines -  on top of     
  126.     the first line it says   'Main Database Menu' -  thus, the program
  127.     always tells you where you are!
  128.  
  129.     Between the two lines  we have the information you or someone else
  130.     entered into the computer.  This information tells you all about a  
  131.     particular book.
  132.  
  133.  
  134.  
  135.                If you press any key I will tell you more.
  136.  
  137.  
  138. ENDT
  139.   SET CONSOLE OFF
  140.   WAIT
  141.   SET CONSOLE ON
  142.   ERAS
  143. TEXT
  144.  
  145.  
  146. The information on screen is clear, so let's look below the line.  This shows
  147. what you can do.  To look at the next record -  hit 'F' (or a period).  To go
  148. back one record - hit 'B' (or a comma). To delete a record hit 'D' and a sign
  149. will appear at the upper right corner.  To remove the delete - hit 'D' again.
  150. Don't worry  -   you cannot accidentally delete a record just by hitting 'D'.  
  151. You must run another program on the Maintenance Menu (purge) to delete.   You
  152. will also find on the Maintenance Menu modules to back up the file, to browse
  153. through it    (although because of the nature of this data base large editing
  154. jobs had best be done in the dBASE program rather than in this program.)
  155.  
  156. To find a file - hit 'S' for search.  To edit an entry hit 'E'  (although you
  157. usually would search for a file - and Edit from the search menu.) To add more
  158. books, just hit 'A' for add. To print the information on the screen - hit 'P'
  159. for Print.  To prepare a report hit 'R' for Reports. You can also display the
  160. records on screen on the report menu.                                      
  161.  
  162.  
  163.  
  164.                       Please hit any key to continue         
  165.  
  166. ENDT
  167.   SET CONSOLE OFF
  168.   WAIT
  169.   SET CONSOLE ON
  170.   ERAS
  171. TEXT
  172.  
  173.                                                                         
  174.                                                                             
  175.                                                                             
  176.                                                                            
  177.                                                    
  178.                                                                          
  179.    -------------------------------------------------------------------------
  180.    WHATEVER YOU DO  -  NEVER SHUT OFF THE MACHINE OR REMOVE A DISK UNTIL YOU 
  181.    FIRST RETURN TO THE MAIN MENU AND THEN QUIT TO THE OPERATING SYSTEM.     
  182.  
  183.    If you ever get a SYNTAX error that just hitting ENTER does not correct, 
  184.    hit the ESCAPE key and type Quit. Then try all over again.
  185.  
  186.    EVERY SO OFTEN YOU WILL FIND YOU WANT TO USE THE ESCAPE KEY AND WHEN YOU
  187.    TRY TO TYPE 'QUIT' NOTHING HAPPENS. AT A FEW POINTS IN THIS PROGRAM SCREEN
  188.    ACCESS HAS BEEN ELIMINATED. THEREFORE, TYPE 'QUIT' EVEN THOUGH IT DOES NOT
  189.    APPEAR ON THE SCREEN - AND UNLESS THE MACHINE IS LOCKED UP - YOU WILL EXIT
  190.    TO THE OPERATING SYSTEM.
  191.    -------------------------------------------------------------------------
  192.  
  193.              Please hit any key to get back to the data base
  194.  
  195. ENDT
  196.   SET CONSOLE OFF
  197.   WAIT
  198.   SET CONSOLE ON
  199.   ERAS
  200.  CASE command = 'P'
  201.   DO PRINT.bk
  202.  CASE command = 'M'
  203.   DO MAINTAIN.bk
  204.  CASE command = 'R'
  205.   DO report.bk
  206.  CASE command = 'Q'
  207.   SET CONSOLE OFF
  208.   QUIT
  209.  CASE command = 'S'
  210.   DO search.bk
  211.  ENDC
  212. * loop back again
  213. ENDD WHILE t
  214.