* DATE 04/04/85 21:09 * main command program of database STOR CHR(PEEK(063)) TO dr REST from bdata additive USE &dr.:&base SET INDEX TO &dr.:&tindex STOR t TO first * set up the loop DO WHIL t * if first time this trip IF first ERAS STOR 'dd, ackward, elete/Recall, dit, orward, elp,' TO prompt1 STOR 'aintainence,

rint, eports, earch or uit ' TO prompt2 STOR 'Main Database Menu' TO mode * show the current record @ 0,26 SAY mode @ 1, 0 SAY " -------------------------------------------------" @ 1,50 SAY "----------------------------" @ 2, 4 SAY "Title:" @ 4, 1 SAY "Subtitle:" @ 6, 0 SAY "Authors 1:" @ 6,44 SAY "2:" @ 7, 8 SAY "3:" @ 7,41 SAY "Year:" @ 7,62 SAY "Price:" @ 9, 0 SAY "Publisher:" @ 10, 3 SAY "Street:" @ 11, 5 SAY "City:" @ 11,40 SAY "State:" @ 11,64 SAY "Zip:" @ 13, 0 SAY "Subject 1:" @ 13,44 SAY "2:" @ 14, 8 SAY "3:" @ 14,44 SAY "4:" @ 15, 8 SAY "5:" @ 16, 1 SAY "Comments:" @ 19,60 SAY "Updated:" @ 20, 0 SAY " -------------------------------------------------" @ 20,50 SAY "-----------------------------" @ 21, 2 SAY prompt1 @ 22, 2 SAY prompt2 ENDI first STOR f TO first STOR '?' TO command * find out if the current record is marked for deletion IF * STOR 'Deleted' TO deleted ELSE STOR ' ' TO deleted ENDI * * show the current record, and find out what to do next @ 0, 0 SAY deleted @ 2,11 SAY $(title,1,60) @ 3,11 SAY $(title,61,19) @ 4,11 SAY $(subtit,1,60) @ 5,11 SAY $(subtit,61,18) @ 6,11 SAY auth1 @ 6,47 SAY auth2 @ 7,11 SAY auth3 @ 7,47 SAY year @ 7,69 SAY price @ 9,11 SAY publish @ 10,11 SAY street @ 11,11 SAY city @ 11,47 SAY state @ 11,69 SAY zip @ 13,11 SAY subj1 @ 13,47 SAY subj2 @ 14,11 SAY subj3 @ 14,47 SAY subj4 @ 15,11 SAY subj5 @ 16,11 SAY $(comment,1,60) @ 17,11 SAY $(comment,61,60) @ 18,11 SAY $(comment,121,60) @ 19,11 SAY $(comment,181,47) @ 19,69 SAY dayu @ 22,64 SAY "WHAT NEXT" @ 22,76 GET command PICTURE '!' READ * perform selected function DO CASE CASE command = 'A' DO add.bk CASE (command = 'B' .OR. command = ',' ) * move backwards one record SKIP -1 CASE command = 'D' * switch the current record from deleted to recalled IF * RECA ELSE DELE ENDI * CASE command = 'E' SET console OFF RECA STOR # TO rec:number SET INDEX TO IF rec:number=0 GO 1 ELSE GO rec:number ENDI rec:number=0 SET console ON RELE rec:number DO EDIT.bk CASE (command = 'F' .OR. command = '.' ) * move forward one record SKIP CASE (command = 'H' .OR. command = '?' ) * display a screen full of instructions STOR t TO first ERAS TEXT M A I N M E N U H E L P F I L E Welcome to the SIG/M Library Manager program. I am here to help you and you can call me anytime by just entering a ? mark at any place where this program asks for a command. When you go back to the screen you will see two lines - on top of the first line it says 'Main Database Menu' - thus, the program always tells you where you are! Between the two lines we have the information you or someone else entered into the computer. This information tells you all about a particular book. If you press any key I will tell you more. ENDT SET CONSOLE OFF WAIT SET CONSOLE ON ERAS TEXT The information on screen is clear, so let's look below the line. This shows what you can do. To look at the next record - hit 'F' (or a period). To go back one record - hit 'B' (or a comma). To delete a record hit 'D' and a sign will appear at the upper right corner. To remove the delete - hit 'D' again. Don't worry - you cannot accidentally delete a record just by hitting 'D'. You must run another program on the Maintenance Menu (purge) to delete. You will also find on the Maintenance Menu modules to back up the file, to browse through it (although because of the nature of this data base large editing jobs had best be done in the dBASE program rather than in this program.) To find a file - hit 'S' for search. To edit an entry hit 'E' (although you usually would search for a file - and Edit from the search menu.) To add more books, just hit 'A' for add. To print the information on the screen - hit 'P' for Print. To prepare a report hit 'R' for Reports. You can also display the records on screen on the report menu. Please hit any key to continue ENDT SET CONSOLE OFF WAIT SET CONSOLE ON ERAS TEXT ------------------------------------------------------------------------- WHATEVER YOU DO - NEVER SHUT OFF THE MACHINE OR REMOVE A DISK UNTIL YOU FIRST RETURN TO THE MAIN MENU AND THEN QUIT TO THE OPERATING SYSTEM. If you ever get a SYNTAX error that just hitting ENTER does not correct, hit the ESCAPE key and type Quit. Then try all over again. EVERY SO OFTEN YOU WILL FIND YOU WANT TO USE THE ESCAPE KEY AND WHEN YOU TRY TO TYPE 'QUIT' NOTHING HAPPENS. AT A FEW POINTS IN THIS PROGRAM SCREEN ACCESS HAS BEEN ELIMINATED. THEREFORE, TYPE 'QUIT' EVEN THOUGH IT DOES NOT APPEAR ON THE SCREEN - AND UNLESS THE MACHINE IS LOCKED UP - YOU WILL EXIT TO THE OPERATING SYSTEM. ------------------------------------------------------------------------- Please hit any key to get back to the data base ENDT SET CONSOLE OFF WAIT SET CONSOLE ON ERAS CASE command = 'P' DO PRINT.bk CASE command = 'M' DO MAINTAIN.bk CASE command = 'R' DO report.bk CASE command = 'Q' SET CONSOLE OFF QUIT CASE command = 'S' DO search.bk ENDC * loop back again ENDD WHILE t