home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / database / ezfile.lbr / EZFILE.BQS / EZFILE.BAS
BASIC Source File  |  1986-10-07  |  22KB  |  697 lines
  1. 10 REM    EZFILE.BAS
  2. 20 PRINT CHR$(26)
  3. 30 PRINT "                    EZFILE"
  4. 40 PRINT:PRINT "         A DATA MANAGEMENT PROGRAMME"
  5. 50 PRINT:PRINT:PRINT:PRINT "            1.  CHANGE a record."
  6. 60 PRINT:PRINT "            2.  ADD new records."
  7. 70 PRINT:PRINT "            3.  CREATE a new data file."
  8. 80 PRINT:PRINT:PRINT "Chose 1 - 3"
  9. 90 PRINT:INPUT AN$
  10. 100    IF AN$= "1" THEN 150  
  11. 110    IF AN$= "2" THEN 370   
  12. 120    IF AN$= "3" THEN 900
  13. 130    IF AN$= "" THEN PRINT CHR$(7):GOTO 10
  14. 140    IF AN$ <> "3" THEN PRINT CHR$(7):GOTO 10
  15. 150 PRINT CHR$(26)
  16. 160 PRINT:PRINT "Please enter the name of the DATA file"
  17. 170 INPUT "you wish to edit:  ";FILE$
  18. 180 IF FILE$= "" GOTO 150
  19. 190 :
  20. 200 OPEN "O",1,"B:COPY.DAT"
  21. 210 OPEN "I",2,FILE$:GOTO 250
  22. 220 :
  23. 230 PRINT CHR$(26):PRINT CHR$(7)
  24. 240 PRINT "ERROR"
  25. 250 PRINT:PRINT "Now enter the number of fields"
  26. 260 INPUT "in this DATA file (3-10):  ";YYY$
  27. 270    IF YYY$= "3" THEN 3360
  28. 280    IF YYY$= "4" THEN 3590
  29. 290     IF YYY$= "5" THEN 3870
  30. 300    IF YYY$= "6" THEN 4200
  31. 310    IF YYY$= "7" THEN 4440
  32. 320    IF YYY$= "8" THEN 4730
  33. 330    IF YYY$= "9" THEN 5070
  34. 340    IF YYY$= "10" THEN 5460
  35. 350    IF YYY$ <> "10" THEN 230
  36. 360 :
  37. 370 PRINT CHR$(26)
  38. 380 PRINT "Please enter the name of the Data file you"
  39. 390 INPUT "are adding to:  "; FILE$
  40. 400    IF FILE$= "" THEN 370
  41. 410 :
  42. 420 OPEN "O",1,"B:COPY.DAT"
  43. 430 OPEN "I",2,FILE$
  44. 440 :
  45. 450 PRINT:PRINT:PRINT "Now enter the number of fields" 
  46. 460 INPUT "in this DATA File:  "; YYY$
  47. 470    IF YYY$= "3" THEN 640
  48. 480    IF YYY$= "4" THEN 2400
  49. 490    IF YYY$= "5" THEN 2520
  50. 500    IF YYY$= "6" THEN 2650
  51. 510    IF YYY$= "7" THEN 2770
  52. 520    IF YYY$= "8" THEN 2900
  53. 530    IF YYY$= "9" THEN 3040
  54. 540    IF YYY$= "10" THEN 3190
  55. 550    IF YYY$ <> "10" THEN PRINT CHR$(26)
  56. 560 PRINT "You must enter from 3 to 10 fields.":GOTO 450
  57. 570 :
  58. 580 OPEN "O",1,"B:COPY.DAT"
  59. 590 OPEN "I",2,FILE$
  60. 600 :
  61. 610 REM THE FOLLOWING WHILE LOOP IS SKIPPED IF THE OPEN STATMENT
  62. 620 REM FOR XXX.DAT CAUSED AN ERROR 53 (FILE NOT FOUND ON DISK)
  63. 630 :
  64. 640 WHILE NOT EOF(2)
  65. 650 INPUT# 2,FIRST$,SECOND$,THIRD$
  66. 660 WRITE# 1,FIRST$;SECOND$;THIRD$
  67. 670 WEND
  68. 680 :
  69. 690 GOSUB 6430
  70. 700    PRINT CHR$(26)
  71. 710 GOSUB 6470
  72. 720 :
  73. 730 WRITE#1,AAA$;BBB$;CCC$
  74. 740 GOTO 700
  75. 750 GOTO 6580
  76. 760 :
  77. 770 PRINT:PRINT:PRINT "Do you wish to continue?"
  78. 780 PRINT:PRINT:INPUT ANW$
  79. 790    IF ANW$= "YES" THEN PRINT CHR$(26):GOTO 50
  80. 800    IF ANW$= "Yes" THEN PRINT CHR$(26):GOTO 50
  81. 810    IF ANW$= "yes" THEN PRINT CHR$(26):GOTO 50
  82. 820    IF ANW$= "Y" THEN PRINT CHR$(26):GOTO 50
  83. 830    IF ANW$= "y" THEN PRINT CHR$(26):GOTO 50
  84. 840 PRINT CHR$(26)
  85. 850 PRINT:PRINT:PRINT:PRINT
  86. 860 PRINT "Very well, until next time..."
  87. 870 PRINT:PRINT:PRINT
  88. 880 END
  89. 890 :
  90. 900 PRINT CHR$(26)
  91. 910 PRINT:PRINT "      YOU ARE OPENING A NEW DATA FILE"
  92. 920 PRINT:PRINT:PRINT "Enter new file name as 'B:XXXXXXXX.DAT'"
  93. 930 PRINT:PRINT:INPUT DAT$
  94. 940    IF DAT$= "" THEN GOTO 770
  95. 950 :
  96. 960 OPEN "O",#1,DAT$
  97. 970 PRINT CHR$(26)
  98. 980 PRINT"             ***   INSTRUCTIONS   ***"
  99. 990 PRINT:PRINT "Your New Data File must contain from 3 to 10 fields."
  100. 1000 PRINT:PRINT "Select 3 to 10:  ";
  101. 1010 INPUT NO$
  102. 1020    IF NO$= "3" THEN GOTO 1130
  103. 1030    IF NO$= "4" THEN GOTO 1180
  104. 1040    IF NO$= "5" THEN GOTO 1260
  105. 1050    IF NO$= "6" THEN GOTO 1370
  106. 1060    IF NO$= "7" THEN GOTO 1440
  107. 1070    IF NO$= "8" THEN GOTO 1540
  108. 1080    IF NO$= "9" THEN GOTO 1670
  109. 1090    IF NO$= "10" THEN GOTO 1830
  110. 1100    IF NO$ <> "10" THEN PRINT CHR$(26):GOTO 1110
  111. 1110    PRINT CHR$(7):PRINT:PRINT "You must select from 3 to 10 fields to coninue.":GOTO 1000
  112. 1120 :
  113. 1130 GOSUB 6320
  114. 1140 GOSUB 6140
  115. 1150 WRITE#1,ONE$;TWO$;THREE$:GOTO 1140  
  116. 1160 GOTO 2000
  117. 1170 :
  118. 1180 GOSUB 6320
  119. 1190    PRINT:INPUT "Enter name of fourth field:  ",FOURTH$
  120. 1200 GOSUB 6140
  121. 1210    PRINT:PRINT FOURTH$":  ";
  122. 1220    INPUT FOUR$
  123. 1230 WRITE #1,ONE$;TWO$;THREE$;FOUR$:GOTO 1200
  124. 1240 GOTO 2000
  125. 1250 :
  126. 1260 GOSUB 6320
  127. 1270    PRINT:INPUT "Enter name of fourth field:  ",FOURTH$
  128. 1280    PRINT:INPUT "Enter name of fifth field:  ",FIFTH$
  129. 1290 GOSUB 6140
  130. 1300    PRINT:PRINT FOURTH$":  ";
  131. 1310    INPUT FOUR$
  132. 1320    PRINT:PRINT FIFTH$":  ";
  133. 1330    INPUT FIVE$
  134. 1340 WRITE #1,ONE$;TWO$;THREE$;FOUR$;FIVE$:GOTO 1290
  135. 1350 GOTO 2000
  136. 1360 :
  137. 1370 GOSUB 6320
  138. 1380 GOSUB 6390
  139. 1390 GOSUB 6140
  140. 1400 GOSUB 6240
  141. 1410 WRITE #1,ONE$;TWO$;THREE$;FOUR$;FIVE$;SIX$:GOTO 1390
  142. 1420 GOTO 2000
  143. 1430 :
  144. 1440 GOSUB 6320
  145. 1450 GOSUB 6390
  146. 1460    PRINT:INPUT "Enter name of seventh field:  ",SEVENTH$
  147. 1470 GOSUB 6140
  148. 1480 GOSUB 6240
  149. 1490    PRINT:PRINT SEVENTH$":  ";
  150. 1500    INPUT SEVEN$
  151. 1510 WRITE #1,ONE$;TWO$;THREE$;FOUR$;FIVE$;SIX$;SEVEN$:GOTO 1470
  152. 1520 GOTO 2000
  153. 1530 :
  154. 1540 GOSUB 6320
  155. 1550 GOSUB 6390
  156. 1560    PRINT:INPUT "Enter name of seventh field:  ",SEVENTH$
  157. 1570    PRINT:INPUT "Enter name of eighth field:  ",EIGHTH$
  158. 1580 GOSUB 6140
  159. 1590 GOSUB 6240
  160. 1600    PRINT:PRINT SEVENTH$":  ";
  161. 1610    INPUT SEVEN$
  162. 1620    PRINT:PRINT EIGHTH$":  ";
  163. 1630    INPUT EIGHT$
  164. 1640 WRITE #1,ONE$;TWO$;THREE$;FOUR$;FIVE$;SIX$;SEVEN$;EIGHT$:GOTO 1580
  165. 1650 GOTO 2000
  166. 1660 :
  167. 1670 GOSUB 6320
  168. 1680 GOSUB 6390
  169. 1690    PRINT:INPUT "Enter name of seventh field:  ",SEVENTH$
  170. 1700    PRINT:INPUT "Enter name of eighth field:  ",EIGHTH$
  171. 1710    PRINT:INPUT "Enter name of ninth field:  ",NINTH$
  172. 1720 GOSUB 6140
  173. 1730 GOSUB 6240
  174. 1740    PRINT:PRINT SEVENTH$":  ";
  175. 1750    INPUT SEVEN$
  176. 1760    PRINT:PRINT EIGHTH$":  ";
  177. 1770    INPUT EIGHT$
  178. 1780    PRINT:PRINT NINTH$":  ";
  179. 1790    INPUT NINE$
  180. 1800    WRITE #1,ONE$;TWO$;THREE$;FOUR$;FIVE$;SIX$;SEVEN$;EIGHT$;NINE$:GOTO 1720
  181. 1810 GOTO 2000
  182. 1820 :
  183. 1830 GOSUB 6320
  184. 1840 GOSUB 6390
  185. 1850    PRINT:INPUT "Enter name of seventh field:  ",SEVENTH$
  186. 1860    PRINT:INPUT "Enter name of eighth field:  ",EIGHTH$
  187. 1870    PRINT:INPUT "Enter name of ninth field:  ",NINTH$
  188. 1880    PRINT:INPUT "Enter name of tenth field:  ",TENTH$      
  189. 1890 GOSUB 6140
  190. 1900 GOSUB 6240
  191. 1910    PRINT:PRINT SEVENTH$":  ";
  192. 1920    INPUT SEVEN$
  193. 1930    PRINT:PRINT EIGHTH$":  ";
  194. 1940    INPUT EIGHT$
  195. 1950    PRINT:PRINT NINTH$":  ";
  196. 1960    INPUT NINE$
  197. 1970    PRINT:PRINT TENTH$":  ";
  198. 1980    INPUT TEN$   
  199. 1990 WRITE #1,ONE$;TWO$;THREE$;FOUR$;FIVE$;SIX$;SEVEN$;EIGHT$;NINE$;TEN$:GOTO 1890
  200. 2000 CLOSE #1
  201. 2010 PRINT CHR$(26)
  202. 2020 PRINT "Your new data file "DAT$" has been saved."
  203. 2030 PRINT "Please note the fields used:"
  204. 2040 PRINT
  205. 2050 PRINT "            1.  "FIRST$
  206. 2060 PRINT "            2.  "SECOND$
  207. 2070 PRINT "            3.  "THIRD$
  208. 2080 PRINT "            4.  "FOURTH$
  209. 2090 PRINT "            5.  "FIFTH$
  210. 2100 PRINT "            6.  "SIXTH$
  211. 2110 PRINT "            7.  "SEVENTH$
  212. 2120 PRINT "            8.  "EIGHTH$
  213. 2130 PRINT "            9.  "NINTH$
  214. 2140 PRINT "           10.  "TENTH$
  215. 2150 :
  216. 2160 PRINT:PRINT "Do you wish a printout";
  217. 2170 INPUT V$
  218. 2180     IF V$= "YES" THEN 2240
  219. 2190     IF V$= "Yes" THEN 2240
  220. 2200     IF V$= "yes" THEN 2240
  221. 2210     IF V$= "Y" THEN 2240
  222. 2220     IF V$= "y" THEN 2240
  223. 2230     IF V$= <> "y" THEN 770
  224. 2240 PRINT CHR$(7)
  225. 2250 PRINT:PRINT "Press RETURN when printer is ready.";
  226. 2260 INPUT U$
  227. 2270     LPRINT; DAT$
  228. 2280     LPRINT:LPRINT "1.  "FIRST$
  229. 2290     LPRINT "2.  "SECOND$
  230. 2300     LPRINT "3.  "THIRD$
  231. 2310     LPRINT "4.  "FOURTH$
  232. 2320     LPRINT "5.  "FIFTH$
  233. 2330     LPRINT "6.  "SIXTH$
  234. 2340     LPRINT "7.  "SEVENTH$
  235. 2350     LPRINT "8.  "EIGHTH$
  236. 2360     LPRINT "9.  "NINTH$
  237. 2370     LPRINT "10.  "TENTH$
  238. 2380       GOTO 770
  239. 2390 :
  240. 2400 WHILE NOT EOF(2)
  241. 2410     INPUT# 2,FIRST$,SECOND$,THIRD$,FOURTH$
  242. 2420     WRITE# 1,FIRST$;SECOND$;THIRD$;FOURTH$
  243. 2430 WEND
  244. 2440 GOSUB 6430 
  245. 2450    PRINT CHR$(26)
  246. 2460 GOSUB 6470
  247. 2470     PRINT:INPUT "Enter data for 4th field:  ",DDD$
  248. 2480     WRITE#1,AAA$;BBB$;CCC$;DDD$
  249. 2490 GOTO 2450
  250. 2500 GOTO 6580
  251. 2510 :
  252. 2520 WHILE NOT EOF(2)
  253. 2530    INPUT# 2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$
  254. 2540    WRITE# 1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$
  255. 2550      WEND
  256. 2560 GOSUB 6430
  257. 2570    PRINT CHR$(26)
  258. 2580 GOSUB 6470
  259. 2590 PRINT:INPUT "Enter data for 4th field:  ",DDD$
  260. 2600 PRINT:INPUT "Enter data for 5th field:  ",EEE$
  261. 2610 WRITE#1,AAA$;BBB$;CCC$;DDD$;EEE$
  262. 2620 GOTO 2570
  263. 2630 GOTO 6580
  264. 2640 :
  265. 2650 WHILE NOT EOF(2)
  266. 2660    INPUT# 2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$
  267. 2670    WRITE# 1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$
  268. 2680    WEND
  269. 2690 GOSUB 6430
  270. 2700    PRINT CHR$(26)
  271. 2710 GOSUB 6470
  272. 2720 GOSUB 6530
  273. 2730     WRITE#1,AAA$;BBB$;CCC$;DDD$;EEE$;FFF$
  274. 2740 GOTO 2700
  275. 2750 GOTO 6580
  276. 2760 :
  277. 2770 WHILE NOT EOF(2)
  278. 2780    INPUT# 2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$
  279. 2790    WRITE# 1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$
  280. 2800    WEND
  281. 2810 GOSUB 6430
  282. 2820    PRINT CHR$(26)
  283. 2830 GOSUB 6470
  284. 2840 GOSUB 6530
  285. 2850     PRINT:INPUT "Enter data for 7th field:  ",GGG$
  286. 2860     WRITE#1,AAA$;BBB$;CCC$;DDD$;EEE$;FFF$;GGG$
  287. 2870     GOTO 2820
  288. 2880 GOTO 6580
  289. 2890 :
  290. 2900 WHILE NOT EOF(2)
  291. 2910    INPUT# 2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$
  292. 2920    WRITE# 1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$
  293. 2930    WEND
  294. 2940 GOSUB 6430
  295. 2950    PRINT CHR$(26)
  296. 2960 GOSUB 6470
  297. 2970 GOSUB 6530
  298. 2980    PRINT:INPUT "Enter data for 7th field:  ",GGG$
  299. 2990    PRINT:INPUT "Enter data for 8th field:  ",HHH$
  300. 3000    WRITE#1,AAA$;BBB$;CCC$;DDD$;EEE$;FFF$;GGG$;HHH$
  301. 3010 GOTO 2950
  302. 3020 GOTO 6580
  303. 3030 :
  304. 3040 WHILE NOT EOF(2)
  305. 3050    INPUT# 2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$,NINTH$
  306. 3060    WRITE# 1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH$
  307. 3070    WEND
  308. 3080 GOSUB 6430
  309. 3090    PRINT CHR$(26)
  310. 3100 GOSUB 6470
  311. 3110 GOSUB 6530
  312. 3120    PRINT:INPUT "Enter data for 7th field:  ",GGG$
  313. 3130    PRINT:INPUT "Enter data for 8th field:  ",HHH$
  314. 3140    PRINT:INPUT "Enter data for 9th field:  ",III$
  315. 3150    WRITE#1,AAA$;BBB$;CCC$;DDD$;EEE$;FFF$;GGG$;HHH$;III$
  316. 3160 GOTO 3090
  317. 3170 GOTO 6580
  318. 3180 :
  319. 3190 WHILE NOT EOF(2)
  320. 3200    INPUT# 2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$,NINTH$,TENTH$
  321. 3210    WRITE# 1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH$;TENTH$
  322. 3220    WEND
  323. 3230 GOSUB 6430
  324. 3240    PRINT CHR$(26)
  325. 3250 GOSUB 6470
  326. 3260 GOSUB 6530
  327. 3270    PRINT:INPUT "Enter data for 7th field:  ",GGG$
  328. 3280    PRINT:INPUT "Enter data for 8th field:  ",HHH$
  329. 3290    PRINT:INPUT "Enter data for 9th field:  ",III$
  330. 3300    PRINT:INPUT "Enter data for 10th field:  ",JJJ$ 
  331. 3310 WRITE#1,AAA$;BBB$;CCC$;DDD$;EEE$;FFF$;GGG$;HHH$;III$;JJJ$
  332. 3320 GOTO 3240
  333. 3330 GOTO 6580
  334. 3340 :
  335. 3350  REM   * * *  CORRECTIONS  * * *
  336. 3360 PRINT CHR$(26)
  337. 3370    INPUT "Enter the 1st field DATA:  ";ONE$
  338. 3380 IF EOF (2) THEN 3430 
  339. 3390    INPUT #2,FIRST$,SECOND$,THIRD$
  340. 3400 IF ONE$= FIRST$ THEN 3450 
  341. 3410    WRITE #1,FIRST$;SECOND$;THIRD$
  342. 3420 GOTO 3380 
  343. 3430 GOSUB 6070
  344. 3440 GOTO 160
  345. 3450 GOSUB 6640 
  346. 3460    WRITE #1,FIRST$;SECOND$;THIRD$
  347. 3470 IF EOF (2) THEN 3510
  348. 3480    INPUT #2,FIRST$,SECOND$,THIRD$
  349. 3490    WRITE #1,FIRST$;SECOND$;THIRD$
  350. 3500 GOTO 3470 
  351. 3510 GOSUB 6020
  352. 3520 IF EOF (1) THEN 3560 
  353. 3530    INPUT #1,FIRST$,SECOND$,THIRD$
  354. 3540    WRITE #2,FIRST$;SECOND$;THIRD$
  355. 3550 GOTO 3520 
  356. 3560    CLOSE 1,2
  357. 3570 GOTO 5890
  358. 3580 :
  359. 3590 PRINT CHR$(26)
  360. 3600    INPUT "Enter the 1st field DATA:  ";ONE$
  361. 3610 IF EOF (2) THEN 3660 
  362. 3620    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$
  363. 3630 IF ONE$= FIRST$ THEN 3680 
  364. 3640    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$
  365. 3650 GOTO 3610 
  366. 3660 GOSUB 6070
  367. 3670 GOTO 160
  368. 3680 GOSUB 6640
  369. 3690    PRINT:PRINT "The 4th field reads:  "FOURTH$
  370. 3700    PRINT:PRINT "Enter RETURN or correct as follows:"
  371. 3710    INPUT DD$
  372. 3720 IF DD$= "" GOTO 3740
  373. 3730    LET FOURTH$= DD$
  374. 3740    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$
  375. 3750 IF EOF (2) THEN 3790
  376. 3760    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$
  377. 3770    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$
  378. 3780 GOTO 3750
  379. 3790 GOSUB 6020
  380. 3800 IF EOF (1) THEN 3840
  381. 3810    INPUT #1,FIRST$,SECOND$,THIRD$,FOURTH$
  382. 3820    WRITE #2,FIRST$;SECOND$;THIRD$;FOURTH$
  383. 3830 GOTO 3800
  384. 3840    CLOSE 1,2
  385. 3850 GOTO 5890
  386. 3860 :
  387. 3870 PRINT CHR$(26)
  388. 3880    INPUT "Enter the 1st field DATA:  ";ONE$
  389. 3890 IF EOF (2) THEN 3940
  390. 3900    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$
  391. 3910 IF ONE$= FIRST$ THEN 3960 
  392. 3920    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$
  393. 3930 GOTO 3890 
  394. 3940 GOSUB 6070
  395. 3950 GOTO 160
  396. 3960 GOSUB 6640
  397. 3970 PRINT:PRINT "The 4th field reads:  "FOURTH$
  398. 3980    PRINT:PRINT "Enter RETURN or correct as follows:"
  399. 3990    INPUT DD$
  400. 4000    IF DD$= "" GOTO 4020
  401. 4010    LET FOURTH$= DD$
  402. 4020 PRINT:PRINT "The 5th field reads:  "FIFTH$
  403. 4030    PRINT:PRINT "Enter RETURN or correct as follows:"
  404. 4040    INPUT EE$
  405. 4050    IF EE$= "" GOTO 4070
  406. 4060    LET FIFTH$= EE$
  407. 4070 WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$
  408. 4080    IF EOF (2) THEN 4120
  409. 4090    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$
  410. 4100    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$
  411. 4110 GOTO 4080
  412. 4120 GOSUB 6020
  413. 4130    IF EOF (1) THEN 4170
  414. 4140    INPUT #1,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$
  415. 4150    WRITE #2,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$
  416. 4160 GOTO 4130
  417. 4170    CLOSE 1,2
  418. 4180 GOTO 5890
  419. 4190 :
  420. 4200 PRINT CHR$(26)
  421. 4210 INPUT "Enter the 1st field DATA:  ";ONE$
  422. 4220    IF EOF (2) THEN 4270
  423. 4230    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$
  424. 4240    IF ONE$= FIRST$ THEN 4290
  425. 4250    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$
  426. 4260 GOTO 4220
  427. 4270 GOSUB 6070
  428. 4280 GOTO 160
  429. 4290 GOSUB 6640
  430. 4300 GOSUB 6770
  431. 4310    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$
  432. 4320    IF EOF (2) THEN 4360
  433. 4330    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$
  434. 4340    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$
  435. 4350 GOTO 4320
  436. 4360 GOSUB 6020
  437. 4370    IF EOF (1) THEN 4410
  438. 4380    INPUT #1,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$
  439. 4390    WRITE #2,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$
  440. 4400 GOTO 4370
  441. 4410    CLOSE 1,2
  442. 4420 GOTO 5890
  443. 4430 :
  444. 4440 PRINT CHR$(26)
  445. 4450 INPUT "Enter the 1st field DATA:  ";ONE$
  446. 4460    IF EOF (2) THEN 4510
  447. 4470    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$
  448. 4480    IF ONE$= FIRST$ THEN 4530
  449. 4490    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$
  450. 4500 GOTO 4460
  451. 4510 GOSUB 6070
  452. 4520 GOTO 160
  453. 4530 GOSUB 6640
  454. 4540 GOSUB 6770
  455. 4550    PRINT:PRINT "The 7th field reads:  "SEVENTH$
  456. 4560    PRINT:PRINT "Enter RETURN or correct as follows:"
  457. 4570    INPUT GG$
  458. 4580    IF GG$= "" GOTO 4600
  459. 4590    LET SEVENTH$= GG$
  460. 4600    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$
  461. 4610    IF EOF (2) THEN 4650
  462. 4620    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$
  463. 4630    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$
  464. 4640 GOTO 4610
  465. 4650 GOSUB 6020
  466. 4660    IF EOF (1) THEN 4700
  467. 4670    INPUT #1,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$
  468. 4680    WRITE #2,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$
  469. 4690 GOTO 4660
  470. 4700    CLOSE 1,2
  471. 4710 GOTO 5890
  472. 4720 :
  473. 4730 PRINT CHR$(26)
  474. 4740 INPUT "Enter the 1st field DATA:  ";ONE$
  475. 4750    IF EOF (2) THEN 4800
  476. 4760    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$
  477. 4770    IF ONE$= FIRST$ THEN 4820
  478. 4780    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$
  479. 4790 GOTO 4750
  480. 4800 GOSUB 6070
  481. 4810 GOTO 160
  482. 4820 GOSUB 6640
  483. 4830 GOSUB 6770
  484. 4840 PRINT:PRINT "The 7th field reads:  "SEVENTH$
  485. 4850    PRINT:PRINT "Enter RETURN or correct as follows:"
  486. 4860    INPUT GG$
  487. 4870    IF GG$= "" GOTO 4890
  488. 4880    LET SEVENTH$= GG$
  489. 4890 PRINT:PRINT "The 8th field reads:  "EIGHTH$ 
  490. 4900    PRINT:PRINT "Enter RETURN or correct as follows:"
  491. 4910    INPUT HH$
  492. 4920    IF HH$= "" GOTO 4940
  493. 4930    LET EIGHTH$= HH$
  494. 4940    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$
  495. 4950    IF EOF (2) THEN 4990
  496. 4960    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$
  497. 4970    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$
  498. 4980 GOTO 4950
  499. 4990 GOSUB 6020
  500. 5000    IF EOF (1) THEN 5040
  501. 5010    INPUT #1,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$
  502. 5020    WRITE #2,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$
  503. 5030 GOTO 5000
  504. 5040    CLOSE 1,2
  505. 5050 GOTO 5890
  506. 5060 :
  507. 5070 PRINT CHR$(26)
  508. 5080    INPUT "Enter the 1st field DATA:  ";ONE$
  509. 5090    IF EOF (2) THEN 5140
  510. 5100    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$,NINTH$
  511. 5110 IF ONE$= FIRST$ THEN 5160
  512. 5120    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH
  513. 5130 GOTO 5090
  514. 5140 GOSUB 6070
  515. 5150 GOTO 160
  516. 5160 GOSUB 6640
  517. 5170 GOSUB 6770
  518. 5180    PRINT:PRINT "The 7th field reads:  "SEVENTH$
  519. 5190    PRINT:PRINT "Enter RETURN or correct as follows:"
  520. 5200    INPUT GG$
  521. 5210 IF GG$= "" GOTO 5230
  522. 5220    LET SEVENTH$= GG$
  523. 5230    PRINT:PRINT "The 8th field reads:  "EIGHTH$ 
  524. 5240    PRINT:PRINT "Enter RETURN or correct as follows:"
  525. 5250    INPUT HH$
  526. 5260 IF HH$= "" GOTO 5280
  527. 5270    LET EIGHTH$= HH$
  528. 5280    PRINT:PRINT "The 9th field reads:  "NINTH$
  529. 5290    PRINT:PRINT "Enter RETURN or correct as follows:"
  530. 5300    INPUT II$
  531. 5310 IF II$= "" THEN 5330
  532. 5320    LET NINTH$= II$
  533. 5330    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH$
  534. 5340 IF EOF (2) THEN 5380
  535. 5350    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$,NINTH$
  536. 5360    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH$
  537. 5370 GOTO 5340
  538. 5380 GOSUB 6020
  539. 5390 IF EOF (1) THEN 5430
  540. 5400    INPUT #1,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$,NINTH$
  541. 5410    WRITE #2,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH$
  542. 5420 GOTO 5390
  543. 5430    CLOSE 1,2
  544. 5440 GOTO 5890
  545. 5450 :
  546. 5460 PRINT CHR$(26)
  547. 5470    INPUT "Enter the 1st field DATA:  ";ONE$
  548. 5480 IF EOF (2) THEN 5530
  549. 5490    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$,NINTH$,TENTH$
  550. 5500 IF ONE$= FIRST$ THEN 5550
  551. 5510    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH$;TENTH$
  552. 5520 GOTO 5480
  553. 5530 GOSUB 6070
  554. 5540 GOTO 160
  555. 5550 GOSUB 6640
  556. 5560 GOSUB 6770
  557. 5570    PRINT:PRINT "The 7th field reads:  "SEVENTH$
  558. 5580    PRINT:PRINT "Enter RETURN or correct as follows:"
  559. 5590    PRINT:INPUT GG$
  560. 5600 IF GG$= "" GOTO 5620
  561. 5610    LET SEVENTH$= GG$
  562. 5620    PRINT:PRINT "The 8th field reads:  "EIGHTH$ 
  563. 5630    PRINT:PRINT "Enter RETURN or correct as follows:"
  564. 5640    PRINT:INPUT HH$
  565. 5650 IF HH$= "" GOTO 5670
  566. 5660       LET EIGHTH$= HH$
  567. 5670    PRINT:PRINT "The 9th field reads:  "NINTH$
  568. 5680    PRINT:PRINT "Enter RETURN or correct as follows:"
  569. 5690    PRINT:INPUT II$
  570. 5700 IF II$= "" THEN 5720
  571. 5710    LET NINTH$= II$
  572. 5720    PRINT:PRINT "The 10th field reads:  "TENTH$
  573. 5730    PRINT:PRINT "Enter RETURN or correct as follows:"
  574. 5740    PRINT:INPUT JJ$
  575. 5750 IF JJ$= "" THEN 5770
  576. 5760    LET TENTH$= JJ$
  577. 5770    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH$;TENTH$
  578. 5780 IF EOF (2) THEN 5820
  579. 5790    INPUT #2,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$,NINTH$,TENTH$
  580. 5800    WRITE #1,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH$;TENTH$
  581. 5810 GOTO 5780
  582. 5820 GOSUB 6020
  583. 5830 IF EOF (1) THEN 5870
  584. 5840    INPUT #1,FIRST$,SECOND$,THIRD$,FOURTH$,FIFTH$,SIXTH$,SEVENTH$,EIGHTH$,NINTH$,TENTH$
  585. 5850    WRITE #2,FIRST$;SECOND$;THIRD$;FOURTH$;FIFTH$;SIXTH$;SEVENTH$;EIGHTH$;NINTH$;TENTH$
  586. 5860 GOTO 5830
  587. 5870 CLOSE 1,2
  588. 5880 :
  589. 5890 PRINT CHR$(26)
  590. 5900 PRINT "Do you have another correction for "FILE$
  591. 5910 PRINT:INPUT XX$
  592. 5920    IF XX$= "YES" THEN 200
  593. 5930    IF XX$= "yes" THEN 200
  594. 5940    IF XX$= "Yes" THEN 200
  595. 5950    IF XX$= "Y" THEN 200
  596. 5960    IF XX$= "y" THEN 200
  597. 5970 GOTO 6600
  598. 5980 CLOSE
  599. 5990 END
  600. 6000 :
  601. 6010 REM          ***  SUB-ROUTINES  ***
  602. 6020 CLOSE 1,2
  603. 6030 OPEN "I",1,"B:COPY.DAT"
  604. 6040 OPEN "O",2,FILE$
  605. 6050 RETURN
  606. 6060 :
  607. 6070 PRINT CHR$(26):PRINT CHR$(7)
  608. 6080 PRINT:PRINT "I cannot locate the record for "ONE$
  609. 6090 PRINT "in "FILE$"."
  610. 6100 PRINT:PRINT "Check your file name."
  611. 6110 CLOSE 1,2
  612. 6120 RETURN
  613. 6130 :
  614. 6140 PRINT CHR$(26)
  615. 6150    PRINT:PRINT FIRST$":  ";
  616. 6160    INPUT ONE$
  617. 6170 IF ONE$= "" GOTO 2000
  618. 6180    PRINT:PRINT SECOND$":  ";
  619. 6190    INPUT TWO$
  620. 6200    PRINT:PRINT THIRD$":  ";
  621. 6210    INPUT THREE$
  622. 6220 RETURN
  623. 6230 :
  624. 6240 PRINT:PRINT FOURTH$":  ";
  625. 6250    INPUT FOUR$
  626. 6260    PRINT:PRINT FIFTH$":  ";
  627. 6270    INPUT FIVE$
  628. 6280    PRINT:PRINT SIXTH$":  ";
  629. 6290    INPUT SIX$
  630. 6300 RETURN
  631. 6310 :
  632. 6320 PRINT CHR$(26)
  633. 6330    PRINT:INPUT "Enter name of 1st field:  ",FIRST$
  634. 6340 IF FIRST$= "" THEN 2000
  635. 6350    PRINT:INPUT "Enter name of 2nd field:  ",SECOND$
  636. 6360    PRINT:INPUT "Enter name of 3rd field:  ",THIRD$
  637. 6370 RETURN
  638. 6380 :
  639. 6390    PRINT:INPUT "Enter name for 4th field:  ",FOURTH$
  640. 6400    PRINT:INPUT "Enter name for 5th field:  ",FIFTH$
  641. 6410    PRINT:INPUT "Enter name for 6th field:  ",SIXTH$
  642. 6420 RETURN
  643. 6430 CLOSE 2
  644. 6440 KILL FILE$
  645. 6450 RETURN
  646. 6460 :
  647. 6470    PRINT:INPUT "Enter DATA for 1st field:  ",AAA$
  648. 6480 IF AAA$= "" THEN GOTO 6580
  649. 6490    PRINT:INPUT "Enter DATA for 2nd field:  ",BBB$
  650. 6500    PRINT:INPUT "Enter DATA for 3rd field:  ",CCC$
  651. 6510 RETURN
  652. 6520 :
  653. 6530    PRINT:INPUT "Enter DATA for 4th field:  ",DDD$
  654. 6540    PRINT:INPUT "Enter DATA for 5th field:  ",EEE$
  655. 6550    PRINT:INPUT "Enter DATA for 6th field:  ",FFF$
  656. 6560 RETURN
  657. 6570 :
  658. 6580    CLOSE 1
  659. 6590    NAME "B:COPY.DAT" AS FILE$
  660. 6600    PRINT CHR$(26)
  661. 6610    PRINT "Your new DATA has been added to "FILE$"."
  662. 6620 GOTO 770
  663. 6630 :
  664. 6640    PRINT:PRINT "The 2nd field for the record of "FIRST$
  665. 6650    PRINT "reads:  "SECOND$
  666. 6660    PRINT:PRINT "Enter RETURN or correct as follows: "
  667. 6670    INPUT BB$
  668. 6680 IF BB$= "" GOTO 6700
  669. 6690    LET SECOND$= BB$
  670. 6700    PRINT:PRINT "The 3rd field reads:  "THIRD$
  671. 6710    PRINT:PRINT "Enter RETURN or correct as follows:"
  672. 6720    INPUT CC$
  673. 6730 IF CC$= "" THEN RETURN
  674. 6740    LET THIRD$= CC$
  675. 6750 RETURN 
  676. 6760 :
  677. 6770    PRINT:PRINT "The 4th field reads:  "FOURTH$
  678. 6780    PRINT:PRINT "Enter RETURN or correct as follows:"
  679. 6790    INPUT DD$
  680. 6800    IF DD$= "" GOTO 6820
  681. 6810    LET FOURTH$= DD$
  682. 6820 PRINT:PRINT "The 5th field reads:  "FIFTH$
  683. 6830    PRINT:PRINT "Enter RETURN or correct as follows:"
  684. 6840    INPUT EE$
  685. 6850    IF EE$= "" GOTO 6870
  686. 6860    LET FIFTH$= EE$
  687. 6870 PRINT:PRINT "The 6th field reads:  "SIXTH$
  688. 6880    PRINT:PRINT "Enter RETURN or correct as follows:"
  689. 6890    INPUT FF$
  690. 6900    IF FF$= "" THEN RETURN
  691. 6910    LET SIXTH$= FF$
  692. 6920 RETURN
  693. T:PRINT "Enter RETURN or correct as follows:"
  694. 6890    INPUT FF$
  695. 6900    IF FF$= "" THEN RETURN
  696. 6910    LET SIXTH$= FF$
  697. 6920 R