home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / database / dhandl30 / geconvtr.gfa (.txt) < prev    next >
Encoding:
GFA-BASIC Atari  |  1985-11-20  |  1.5 KB  |  65 lines
  1. CLS
  2. flag#=0
  3. PRINT AT(10,1);"Genie library data conversion program for DATA HANDLER."
  4. PRINT AT(10,3);"SELECT .TXT FILE CONTAINING GENIE LIBRARY DIRECTORY DATA"
  5. FILESELECT "\*.TXT","",txtfile$
  6. IF EXIST(txtfile$)=-1 THEN
  7.   OPEN "I",#1,txtfile$
  8.   DIM rec$(5000)
  9.   recnum#=0
  10.   ON ERROR GOSUB dasave
  11.   @daload
  12.   ON ERROR
  13.   ON ERROR GOSUB pgend
  14.   @dasave
  15. ENDIF
  16. '  end of program
  17. PROCEDURE daload
  18.   DO
  19.     EXIT IF EOF(#1)
  20.     PRINT AT(20,5);"Current record loading is ";recnum#
  21.     INPUT #1,temp1$
  22.     EXIT IF EOF(#1)
  23.     EXIT IF flag#=1
  24.     IF LEN(temp1$)=71 THEN
  25.       INPUT #1,temp2$
  26.       IF MID$(temp2$,7,5)="Desc:" THEN
  27.         INC recnum#
  28.         rec$(recnum#)=temp1$+MID$(temp2$,12,LEN(temp2$))
  29.       ENDIF
  30.     ENDIF
  31.     EXIT IF flag#=1
  32.   LOOP
  33. RETURN
  34. PROCEDURE dasave
  35.   CLOSE #1
  36.   ON ERROR
  37.   ON ERROR GOSUB pgend
  38.   CLS
  39.   mstring$="Select type of file to save.|.TXT will save new file.|.DB append to a file."
  40.   ALERT 1,mstring$,1,".TXT|.DB",button#
  41.   IF button#=1 THEN
  42.     extender$=".TXT"
  43.     libopen$="O"
  44.     libmessage$="Select .TXT file to save data to."
  45.   ELSE
  46.     extender$=".DB"
  47.     libopen$="A"
  48.     libmessage$="Select .DB file to append data to."
  49.   ENDIF
  50.   PRINT AT(20,1);libmessage$
  51.   FILESELECT "\*"+extender$,"",txtdbfile$
  52.   IF RIGHT$(txtdbfile$,LEN(extender$))=extender$ THEN
  53.     OPEN libopen$,#1,txtdbfile$
  54.     FOR i#=1 TO recnum#
  55.       PRINT AT(20,3);"CURRENT RECORD BEING SAVED IS ";i#
  56.       PRINT #1;rec$(i#)
  57.     NEXT i#
  58.     CLOSE #1
  59.   ENDIF
  60. RETURN
  61. PROCEDURE pgend
  62.   CLOSE #1
  63.   END
  64. RETURN
  65.