home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pgnode / node2 / datnod.200 next >
Text File  |  2006-10-19  |  3KB  |  71 lines
  1.           DATNOD.200 (c) 1990
  2.           Copyright by Paul Globman
  3.  
  4.  
  5. DATNOD.BA is BASIC version of DATFIL that only allows the display function,
  6. and accesses data files stored in the Node RAMPAC/Datapac.
  7.  
  8. The program provided below requires XOS to be installed and N-READ.CO to be stored in bank #3.
  9.  
  10. The program runs like DATFIL with data files in RAMPAC.  Enter data file name
  11. at the "Enter Filename" prompt, or type "END" to exit to the Tandy 200 menu.
  12.  
  13. Like DATFIL, the search string is case sensitive.  After each record is 
  14. displayed the program stops and waits for input.  Any key to continue search
  15. or "N" to discontinue, as in DATFIL.
  16.  
  17. To link one file to another, use DATFIL to add one final record.  The first
  18. data field (in the last record) must be "//filnam".
  19.  
  20. If the last record contains "//vendor" in the first field, then when DATNOD
  21. finishes searching current file it will continue the search in VENDOR.DO (also
  22. stored in RAMPAC), using the same search string.  The two data files need not
  23. have the same format or number of fields.
  24.  
  25. NON XOS USAGE
  26. -------------
  27. If you are not using XOS, and have DATFIL data files stored in Node and 
  28. N-READ.CO in the current RAM bank, then delete line 70 and change line 80 to:
  29.  
  30.  80 LOADM"N-READ":X$=""
  31.  
  32. Note:
  33. -----
  34. This program does not require RAMDSK.CO and will work with Datapac's using the
  35. option ROM.  It does require N-READ.CO.  The program can be further modified to
  36. bring N-READ into RAM from the Datapac and can be made to create a new DATFIL
  37. data file, of selected data records that match the search string.  There is a
  38. lot of potential for a variety of applications, including mailing lists
  39. and information management, based on large databases (by linking several
  40. smaller files).  I leave the development of such applications to the individual
  41. users.
  42. ------------------------------------------------------------------------------
  43.  
  44. 0 REM DATNOD.XOS (C) 1990 BY P.GLOBMAN
  45. 10 NR=63600
  46. 20 CLS:PRINT@45,"Enter Filename: "F$
  47. 30 PRINT@61,"";:LINEINPUT F1$
  48. 40 S$="":IFF1$=""THEN60ELSEF$=F1$
  49. 50 IFINSTR(1,"ENDend",F1$)>0THENMENU
  50. 60 PRINT@85,"";:INPUT"Search string";S$
  51. 70 IPL"":CALL41179:X$="3:N-READ.CO"
  52. 80 CALLNR,8,VARPTR(X$)
  53. 90 CALLNR,1,VARPTR(F$)
  54. 100 GOSUB250:NF=VAL(X$)
  55. 110 FORI=1TONF:GOSUB250:FN$(I)=X$
  56. 120 GOSUB250:PA(I)=VAL(X$):NEXT
  57. 130 FORI=1TONF:GOSUB250
  58. 140 IFPEEK(NR+3)<>1THENBEEP:GOTO20
  59. 150 FD$(I)=X$:NEXT:IFS$=""THEN220
  60. 160 IFLEFT$(FD$(1),2)<>"//"THEN190
  61. 170 F$=RIGHT$(FD$(1),LEN(FD$(1))-2)
  62. 180 GOTO70
  63. 190 FORI=1TONF
  64. 200 IFINSTR(1,FD$(I),S$)<>0THEN220
  65. 210 NEXT:GOTO130
  66. 220 CLS:FORI=1TONF:PRINT@PA(I),FD$(I)
  67. 230 NEXT:PRINT@0,"";:AN$=INPUT$(1)
  68. 240 IFINSTR(1,"Nn",AN$)THEN20ELSE130
  69. 250 CALLNR,2,VARPTR(X$):RETURN
  70.  
  71.