home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol025 / dbdemo.cpm < prev    next >
Encoding:
Text File  |  1984-04-29  |  645 b   |  26 lines
  1. (*$S+*)
  2. PROGRAM DBTEST;
  3. USES DBUNIT,SCUNIT,STARTER;
  4.  
  5. BEGIN (*DBDEMO PROGRAM*)
  6.   STINITIALIZE;
  7.   REPEAT
  8.     GOTOXY(0,0);
  9.     BLANKTOPLINE;
  10.     CASE GETCOMMAND('DBDEMO: C(hangerec F(indrec G(etrec N(ewrec Q(uit T(race',
  11.                                 ['C', 'F', 'G', 'N', 'Q', 'T']) OF
  12.       'C': IF CHANGEREC(WA1) THEN SAVEREC;
  13.       'F': FINDREC;
  14.       'G': GETREC;
  15.       'N': NEWREC;
  16.       'T': BEGIN
  17.              DEBUGGING:=TRUE;
  18.              DBSHOWERR('Halt request from keyboard - allows trace change',100);
  19.              DEBUGGING:=FALSE;
  20.            END;
  21.       'Q': DONE:=TRUE
  22.     END (*CASE*);
  23.   UNTIL DONE;
  24. END.
  25.  
  26.