home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / DBTALK.ZIP / DBTALK / SOURCE / LASERIN.PRG < prev   
Encoding:
Text File  |  1993-06-02  |  1.2 KB  |  49 lines
  1. DATABASE laser
  2.  
  3. FUNCTION main
  4. LOCAL fp:=FOPEN('laser.sdf'), dbf, buff, featbuff, featbit, ikt
  5. settrace(.t.)
  6.  
  7. dbf = ADLClass('DBF', laser)
  8. dbf:Send('Open')
  9. buff = space(160)
  10.  
  11. DO WHILE FREAD (fp, @buff, 160) = 160
  12.  
  13.    dbf:Send('Append', 'LASER')
  14.  
  15.    laser->catno    = substr(buff,1,10)
  16.    laser->title    = substr(buff,11,80)
  17.    laser->price    = val(substr(buff,91,6))
  18.    laser->rating   = substr(buff,97,5)
  19.    laser->xquality = val(substr(buff,102,2))
  20.    laser->critics  = val(substr(buff,104,1))
  21.    laser->aquired  = ctod(substr(buff,111,2)+'/'+substr(buff,109,2)+'/'+substr(buff,107,2))
  22.  
  23.    featbuff = substr(buff,113,14)
  24.    featbit = replicate(chr(0), 2)
  25.  
  26.    ikt = 1
  27.    DO WHILE !ikt > 15
  28.  
  29.       IF substr(featbuff, ikt, 1) = 'T'
  30.          featbit = bit_set (featbit, ikt)
  31.       ENDIF
  32.       ikt = ikt + 1
  33.    ENDDO
  34.  
  35.    laser->features  = featbit
  36.    laser->duration  = val(substr(buff,127,3))
  37.    laser->sides  = val(substr(buff,130,2))
  38.    laser->year  = val(substr(buff,132,4))
  39.    laser->studio  = substr(buff,136,20)
  40.    laser->kids  = iif(substr(buff,156,1)='T',.T.,.F.)
  41.    laser->ncat  = val(substr(buff,157,2))
  42.    qout(laser->aquired)
  43. ENDDO
  44.  
  45. FCLOSE (fp)
  46. INKEY(0)
  47. QUIT()
  48.  
  49.