home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol029 / dbmenu.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.4 KB  |  37 lines
  1. 10 CLS:KEY OFF
  2. 20 REM   DBMS CREATED BY T.G.Lewis (USING THE IBM PERSONAL COMPUTER)
  3. 21 REM        DBMS contains the following files:
  4. 22 REM             create.bas, insert.bas, lookup.bas
  5. 23 REM             backup.bas, screen.bas, dump.bas
  6. 24 REM       DBMS allows up to 127 fields
  7. 30 REM-------------------------------------
  8. 40 REM
  9. 50 REM               DBMENU.BAS
  10. 60 REM   Root program of the DBMS demo program
  11. 70 REM
  12. 80 REM-----------------------------------------
  13. 90 REM
  14. 100 NMAX%=7
  15. 110 FOR I%=1 TO 25:PRINT:NEXT I%
  16. 120 PRINT TAB(25) "DATABASE MANAGEMENT SYSTEM":PRINT:PRINT
  17. 121 PRINT" To create a totally new database system you must first use [1], then [5], then
  18. 122 PRINT" [2].":PRINT:PRINT
  19. 130 PRINT"     [ 1 ]. Create a database system."
  20. 140 PRINT"     [ 2 ]. Add new records."
  21. 150 PRINT"     [ 3 ]. Lookup or Modify existing records."
  22. 160 PRINT"     [ 4 ]. Backup file and index."
  23. 170 PRINT"     [ 5 ]. Build screen form ( for input )."
  24. 180 PRINT"     [ 6 ]. Quick dump index file."
  25. 190 PRINT"     [ 7 ]. Stop. Exit DBMS system."
  26. 200 PRINT:PRINT:PRINT:PRINT:PRINT"       Select one of the above: "; :INPUT N%
  27. 210 PRINT:PRINT:PRINT
  28. 220 IF N%>NMAX% OR N%<1 THEN 110
  29. 230 ON N% GOTO 240,250,260,270,280,290,300
  30. 240       RUN "CREATE"
  31. 250       RUN "INSERT"
  32. 260       RUN "LOOKUP"
  33. 270       RUN "BACKUP"
  34. 280       RUN "SCREEN"
  35. 290       RUN "DUMP"
  36. 300 END
  37. 250       RU