home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / HOME / COMIC15.ZIP / COMICS.INC < prev    next >
Encoding:
Text File  |  1988-02-02  |  1.9 KB  |  69 lines

  1. '******************************************************************************
  2. '                COMICS Database Include file for TURBO-BASIC ACCESS
  3. '        
  4. ' Dataset reference No:  COMICS.File
  5. ' Data file name:        COMICS.DBD
  6. ' Data File length:       276
  7. ' Key File name:         COMICS.DBI
  8. ' Key length:             44
  9.  
  10. '******************************************************************************
  11.  
  12. IF COMICS.File > 0 THEN GOTO EndCOMICSInc 'skip if already open
  13.   INCR LastFileNum
  14.   COMICS.File = LastFileNum
  15.   COMICS.RLen =  276
  16.   COMICS.KLen =  44
  17.  
  18.   CALL dbCreate(COMICS.File, FileNo, _
  19.     "COMICS.DBI", COMICS.KLen, "COMICS.DBD", COMICS.RLen)
  20.  
  21.   IF dbStatus = %FileAlreadyCreated THEN _
  22.     CALL dbOpen(COMICS.File, FileNo,      _
  23.       "COMICS.DBI", COMICS.KLen, COMICS.RLen)
  24.  
  25.   IF COMICS.RLen <>  276 THEN
  26.     PRINT "COMICS.DBD length is inconsistent with this program."
  27.     END
  28.   ELSEIF COMICS.KLen <>  44 THEN
  29.     PRINT "COMICS.DBI key length is inconsistent with this program."
  30.     END
  31.   END IF
  32.  
  33.   field FileNo,_
  34.     4 as COMICS.Skip$,_
  35.     40 as COMICS.Title$,_
  36.     1 as COMICS.Volume$,_
  37.     3 as COMICS.Issue$,_
  38.     20 as COMICS.Company$,_
  39.     20 as COMICS.Editor$,_
  40.     20 as COMICS.Writer$,_
  41.     20 as COMICS.Penciler$,_
  42.     20 as COMICS.Inker$,_
  43.     6 as COMICS.Price$,_
  44.     3 as COMICS.Mint$,_
  45.     3 as COMICS.Fine$,_
  46.     3 as COMICS.Good$,_
  47.     3 as COMICS.Total$,_
  48.     7 as COMICS.WorthMint$,_
  49.     7 as COMICS.WorthFine$,_
  50.     7 as COMICS.WorthGood$,_
  51.     7 as COMICS.WorthTotal$,_
  52.     5 as COMICS.PercentMint$,_
  53.     5 as COMICS.PercentFine$,_
  54.     5 as COMICS.PercentGood$,_
  55.     5 as COMICS.PercentTotal$,_
  56.     2 as COMICS.Box$,_
  57.     60 as COMICS.Notes$
  58.  
  59.  
  60.   FIELD FileNo,  276 AS COMICS.Buffer$
  61.  
  62.   GOSUB COMICSClear
  63. GOTO EndCOMICSInc:
  64.  
  65. COMICSClear:
  66.   LSET COMICS.Buffer$ = STRING$(  276, " ")
  67. RETURN 'COMICSClear
  68.  
  69. EndCOMICSInc: 'End of this include file