home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 001 / psionu_arc / DB.OPL < prev    next >
Text File  |  1991-04-22  |  1KB  |  44 lines
  1. DB:
  2. LOCAL A$(32),B$(32),C$(32),D$(32),E$(32),F$(32),G$(32),H$(32),I$(32),J$(32)
  3. LOCAL Q$(32)
  4. LOCAL M$(12),I%
  5. PRINT"File Open"
  6. OPEN"A:MAIN",A,A$,B$,C$,D$,E$,F$,G$,H$,I$,J$
  7. IF EXIST("A:DBX")
  8.   PRINT"File Delete"
  9.   DELETE"A:DBX"
  10. ENDIF
  11. PRINT"File Create"
  12. CREATE"A:DBX",B,Q$
  13. PRINT"Select:";
  14. INPUT M$
  15. USE A
  16. FIRST
  17. I%=FIND(M$)
  18. WHILE NOT EOF
  19.   IF I%=0
  20.     BREAK
  21.   ENDIF
  22.   PRINT A.A$
  23.   USE B
  24.   IF LEN(A.A$) > 0 : B.Q$=A.A$ : APPEND : ENDIF
  25.   IF LEN(A.B$) > 0 : B.Q$=A.B$ : B.Q$="  "+B.Q$ : APPEND : ENDIF
  26.   IF LEN(A.C$) > 0 : B.Q$=A.C$ : B.Q$="  "+B.Q$ : APPEND : ENDIF
  27.   IF LEN(A.D$) > 0 : B.Q$=A.D$ : B.Q$="  "+B.Q$ : APPEND : ENDIF
  28.   IF LEN(A.E$) > 0 : B.Q$=A.E$ : B.Q$="  "+B.Q$ : APPEND : ENDIF
  29.   IF LEN(A.F$) > 0 : B.Q$=A.F$ : B.Q$="  "+B.Q$ : APPEND : ENDIF
  30.   IF LEN(A.G$) > 0 : B.Q$=A.G$ : B.Q$="  "+B.Q$ : APPEND : ENDIF
  31.   IF LEN(A.H$) > 0 : B.Q$=A.H$ : B.Q$="  "+B.Q$ : APPEND : ENDIF
  32.   IF LEN(A.I$) > 0 : B.Q$=A.I$ : B.Q$="  "+B.Q$ : APPEND : ENDIF
  33.   IF LEN(A.J$) > 0 : B.Q$=A.J$ : B.Q$="  "+B.Q$ : APPEND : ENDIF
  34.  MORE::
  35.   USE A
  36.   NEXT
  37.   I%=FIND(M$)
  38. ENDWH
  39. USE A
  40. CLOSE
  41. USE B
  42. CLOSE
  43. BEEPER:
  44.