home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG059.ARC / UPDATPER.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  13KB  |  387 lines
  1. 100 TITLE$ = "Update the Persons File Program"
  2. 105 TITLE$ = TITLE$ + " ON DISPLAY"
  3. 110 VERSION$ = "Version 1.3"
  4. 115 COPY1$ = "Copyright (c) 1983, by:"
  5. 120 COPY2$ = "Melvin O. Duke"
  6. 125 PRICE$ = "$35"
  7. 130 ADDR1$ = "Melvin O. Duke"
  8. 135 ADDR2$ = "P. O. Box 20836"
  9. 140 ADDR3$ = "San Jose, CA  95160"
  10. 145 REM Dimension Statements go here
  11. 170 REM Produce the first screen
  12. 175 KEY OFF : CLS
  13. 180 REM Draw the outer double box
  14. 185 R1 = 1 : C1 = 1 : R2 = 24 : C2 = 79 : GOSUB 400
  15. 190 REM Find the title location
  16. 195 TITLE.POS = 40 - INT(LEN(TITLE$)/2)
  17. 200 REM Draw the title box
  18. 205 R1=3:C1=TITLE.POS-2:R2=6:C2=TITLE.POS+LEN(TITLE$)+1:GOSUB 600
  19. 210 REM Print the title
  20. 215 LOCATE 4,TITLE.POS : PRINT TITLE$
  21. 220 LOCATE 5,40-INT(LEN(VERSION$)/2) :  PRINT VERSION$;
  22. 225 REM Draw the Contribution box
  23. 230 R1 = 8 : C1 = 19 : R2 = 17 : C2 = 62 : GOSUB 400
  24. 235 REM Request the Contribution
  25. 240 LOCATE 9,23 : PRINT "If you are using these programs, and"
  26. 245 LOCATE 10,21 : PRINT "finding them of value, your contribution"
  27. 250 LOCATE 11,23 : PRINT "("+PRICE$+" suggested) will be appreciated."
  28. 255 REM Draw the Mailing Label
  29. 260 R1 = 12 : C1 = 28 : R2 = 16 : C2 = 52 : GOSUB 600
  30. 265 REM Print the Name and Address
  31. 270 LOCATE 13,40-INT(LEN(ADDR1$)/2) :  PRINT ADDR1$;
  32. 275 LOCATE 14,40-INT(LEN(ADDR2$)/2) :  PRINT ADDR2$;
  33. 280 LOCATE 15,40-INT(LEN(ADDR3$)/2) :  PRINT ADDR3$;
  34. 285 REM Draw the Copyright box
  35. 290 R1 = 19 : C1 = 27 : R2 = 22 : C2 = 53 : GOSUB 400
  36. 295 REM Print the Copyright
  37. 300 LOCATE 20,40-INT(LEN(COPY1$)/2) :  PRINT COPY1$;
  38. 305 LOCATE 21,40-INT(LEN(COPY2$)/2) :  PRINT COPY2$;
  39. 310 GOTO 740
  40. 400 REM subroutine to print a double box
  41. 410 FOR I = R1 + 1 TO R2 - 1
  42. 420  LOCATE I, C1 : PRINT CHR$(186);
  43. 430  LOCATE I, C2 : PRINT CHR$(186);
  44. 440 NEXT I
  45. 450 FOR J = C1 + 1 TO C2 - 1
  46. 460  LOCATE R1, J : PRINT CHR$(205);
  47. 470  LOCATE R2, J : PRINT CHR$(205);
  48. 480 NEXT J
  49. 490  LOCATE R1, C1 : PRINT CHR$(201);
  50. 500  LOCATE R1, C2 : PRINT CHR$(187);
  51. 510  LOCATE R2, C1 : PRINT CHR$(200);
  52. 520  LOCATE R2, C2 : PRINT CHR$(188);
  53. 530 RETURN
  54. 600 REM subroutine to print a single box
  55. 610 FOR I = R1 + 1 TO R2 - 1
  56. 620  LOCATE I, C1 : PRINT CHR$(179);
  57. 630  LOCATE I, C2 : PRINT CHR$(179);
  58. 640 NEXT I
  59. 650 FOR J = C1 + 1 TO C2 - 1
  60. 660  LOCATE R1, J : PRINT CHR$(196);
  61. 670  LOCATE R2, J : PRINT CHR$(196);
  62. 680 NEXT J
  63. 690  LOCATE R1, C1 : PRINT CHR$(218);
  64. 700  LOCATE R1, C2 : PRINT CHR$(191);
  65. 710  LOCATE R2, C1 : PRINT CHR$(192);
  66. 720  LOCATE R2, C2 : PRINT CHR$(217);
  67. 730 RETURN
  68. 740 REM ask user to press a key to continue
  69. 750 LOCATE 25,1
  70. 760 PRINT "Press any key to continue";
  71. 770 K$ = INKEY$ : IF K$ = "" THEN 770
  72. 780 CLS
  73. 840 CLS
  74. 1000 REM Update the Persons File Program.
  75. 1010 REM By:  Melvin O. Duke.  Updated 26 June, 1983.
  76. 1020 OPEN "a:persfile" AS #1 LEN = 256
  77. 1030 FIELD 1, 5 AS F1$, 20 AS F2$, 30 AS F3$, 2 AS F4$, 5 AS F5$, 5 AS F6$, 5 AS F7$, 11 AS F8$, 18 AS F9$, 16 AS F10$, 16 AS F11$, 11 AS F12$, 18 AS F13$, 16 AS F14$, 16 AS F15$, 11 AS F16$, 18 AS F17$, 16 AS F18$, 16 AS F19$
  78. 1040 REM ask the user for input
  79. 1050 LOCATE 22,1
  80. 1060 PRINT SPACE$(79) : LOCATE 22,1
  81. 1070 INPUT "Enter Record Number of Person to Update"; REC.NO
  82. 1080 IF REC.NO = 0 THEN 4080
  83. 1090 IF REC.NO < 1 OR REC.NO > 400 THEN 1040
  84. 1100 GET #1, REC.NO
  85. 1110 REM Extract information from the file for use
  86. 1120 T1 = CVS(F1$)
  87. 1130 T2$ = F2$
  88. 1140 T3$ = F3$
  89. 1150 FOR J = 1 TO LEN(F3$)-1
  90. 1160  IF RIGHT$(T3$,1)=" "THEN T3$ = LEFT$(T3$,LEN(T3$)-1) ELSE J = LEN(F3$)-1
  91. 1170 NEXT J
  92. 1180 T4$ = F4$
  93. 1190 IF LEFT$(T4$,1) = "M" THEN T4$ = "Male"
  94. 1200 IF LEFT$(T4$,1) = "F" THEN T4$ = "Female"
  95. 1210 T5 = CVS(F5$)
  96. 1220 T6 = CVS(F6$)
  97. 1230 T7 = CVS(F7$)
  98. 1240 T8$ = F8$
  99. 1250 T9$ = F9$
  100. 1260 T10$ = F10$
  101. 1270 T11$ = F11$
  102. 1280 T12$ = F12$
  103. 1290 T13$ = F13$
  104. 1300 T14$ = F14$
  105. 1310 T15$ = F15$
  106. 1320 T16$ = F16$
  107. 1330 T17$ = F17$
  108. 1340 T18$ = F18$
  109. 1350 T19$ = F19$
  110. 1360 CLS
  111. 1370 R1 = 1 : C1 = 1 : R2 = 21 : C2 = 79 : GOSUB 400  'Double box
  112. 1380 R1 = 3 : C1 = 1 : R2 = 3 : C2 = 79 : GOSUB 2100  'Horizontal double
  113. 1390 LOCATE 2,3 : PRINT "Personal Information for:"
  114. 1400 R1 = 3 : C1 = 40 : R2 = 21 : C2 = 40 : GOSUB 2240  'Vertical Double
  115. 1410 LOCATE 4,3 : COLOR 1 : PRINT "Person:"; : COLOR 7
  116. 1420 LOCATE 6,3 : PRINT "Record-Number:";
  117. 1430 LOCATE 8,3 : PRINT "Surname:";
  118. 1440 LOCATE 9,3 : PRINT "Given-names:";
  119. 1450 LOCATE 11,3 : PRINT "Sex:";
  120. 1460 LOCATE 12,3 : PRINT "Code:";
  121. 1470 R1 = 13 : C1 = 1 : R2 =13 : C2 = 40 : GOSUB 2100  'Horizontal Double
  122. 1480 LOCATE 14,3 : COLOR 1 : PRINT "Person's Father:"; : COLOR 7
  123. 1490 LOCATE 16,3 : PRINT "Father's Record-number:";
  124. 1500 R1 = 17 : C1 = 1 : R2 = 17 : C2 = 40 : GOSUB 2170  'Horizontal Single
  125. 1510 LOCATE 18,3 : COLOR 1 : PRINT "Person's Mother:"; : COLOR 7
  126. 1520 LOCATE 20,3 : PRINT "Mother's Record-number:";
  127. 1530 LOCATE 4,42 : COLOR 1 : PRINT "Person's Vital Statistics:"; : COLOR 7
  128. 1540 LOCATE 6,42 : PRINT "Birth-date:";
  129. 1550 LOCATE 7,42 : PRINT "Birth-city:";
  130. 1560 LOCATE 8,42 : PRINT "Birth-county:";
  131. 1570 LOCATE 9,42 : PRINT "State/Country:";
  132. 1580 LOCATE 11,42 : PRINT "Death-date:";
  133. 1590 LOCATE 12,42 : PRINT "Death-city:";
  134. 1600 LOCATE 13,42 : PRINT "Death-county:";
  135. 1610 LOCATE 14,42 : PRINT "State/Country:";
  136. 1620 LOCATE 16,42 : PRINT "Burial-date:";
  137. 1630 LOCATE 17,42 : PRINT "Burial-city:";
  138. 1640 LOCATE 18,42 : PRINT "Burial-county:";
  139. 1650 LOCATE 19,42 : PRINT "State/Country:";
  140. 1660 GOSUB 1680 'To print the current information
  141. 1670 GOTO 2380 'For User Input
  142. 1680 REM Print the Information Currently Present
  143. 1690 LOCATE 2,29 : PRINT SPACE$(50);
  144. 1700 LOCATE 2,29 : PRINT T3$ + " " + T2$;
  145. 1710 LOCATE 6,18 : PRINT SPACE$(5);
  146. 1720 LOCATE 6,18 : PRINT T1;
  147. 1730 LOCATE 8,18 : PRINT SPACE$(20);
  148. 1740 LOCATE 8,18 : PRINT T2$;
  149. 1750 LOCATE 9,18 : PRINT SPACE$(22);
  150. 1760 LOCATE 9,18 : PRINT T3$;
  151. 1770 LOCATE 11,18 : PRINT SPACE$(2);
  152. 1780 LOCATE 11,18 : PRINT T4$;
  153. 1790 LOCATE 12,9 : PRINT SPACE$(5);
  154. 1800 LOCATE 12,9 : PRINT T5;
  155. 1810 LOCATE 16,27 : PRINT SPACE$(5);
  156. 1820 LOCATE 16,27 : PRINT T6;
  157. 1830 LOCATE 20,27 : PRINT SPACE$(5);
  158. 1840 LOCATE 20,27 : PRINT T7;
  159. 1850 LOCATE 6,57 : PRINT SPACE$(11);
  160. 1860 LOCATE 6,57 : PRINT T8$;
  161. 1870 LOCATE 7,57 : PRINT SPACE$(18);
  162. 1880 LOCATE 7,57 : PRINT T9$;
  163. 1890 LOCATE 8,57 : PRINT SPACE$(16);
  164. 1900 LOCATE 8,57 : PRINT T10$;
  165. 1910 LOCATE 9,57 : PRINT SPACE$(16);
  166. 1920 LOCATE 9,57 : PRINT T11$;
  167. 1930 LOCATE 11,57 : PRINT SPACE$(11);
  168. 1940 LOCATE 11,57 : PRINT T12$;
  169. 1950 LOCATE 12,57 : PRINT SPACE$(18);
  170. 1960 LOCATE 12,57 : PRINT T13$;
  171. 1970 LOCATE 13,57 : PRINT SPACE$(16);
  172. 1980 LOCATE 13,57 : PRINT T14$;
  173. 1990 LOCATE 14,57 : PRINT SPACE$(16);
  174. 2000 LOCATE 14,57 : PRINT T15$;
  175. 2010 LOCATE 16,57 : PRINT SPACE$(11);
  176. 2020 LOCATE 16,57 : PRINT T16$;
  177. 2030 LOCATE 17,57 : PRINT SPACE$(18);
  178. 2040 LOCATE 17,57 : PRINT T17$;
  179. 2050 LOCATE 18,57 : PRINT SPACE$(16);
  180. 2060 LOCATE 18,57 : PRINT T18$;
  181. 2070 LOCATE 19,57 : PRINT SPACE$(16);
  182. 2080 LOCATE 19,57 : PRINT T19$;
  183. 2090 RETURN
  184. 2100 REM Subroutine to draw a double horizontal line.  Attach to double.
  185. 2110 FOR J = C1 + 1 TO C2 - 1
  186. 2120  LOCATE R1,J : PRINT CHR$(205);
  187. 2130 NEXT J
  188. 2140 LOCATE R1,C1 : PRINT CHR$(204);
  189. 2150 LOCATE R1,C2 : PRINT CHR$(185);
  190. 2160 RETURN
  191. 2170 REM Subroutine to draw a single horizontal line.  Attach to double.
  192. 2180 FOR J = C1 + 1 TO C2 - 1
  193. 2190  LOCATE R1,J : PRINT CHR$(196);
  194. 2200 NEXT J
  195. 2210 LOCATE R1,C1 : PRINT CHR$(199);
  196. 2220 LOCATE R1,C2 : PRINT CHR$(182);
  197. 2230 RETURN
  198. 2240 REM Subroutine to draw a double vertical line.  Attach to double.
  199. 2250 FOR I = R1 + 1 TO R2 - 1
  200. 2260  LOCATE I,C1 : PRINT CHR$(186);
  201. 2270 NEXT I
  202. 2280 LOCATE R1,C1 : PRINT CHR$(203);
  203. 2290 LOCATE R2,C1 : PRINT CHR$(202);
  204. 2300 RETURN
  205. 2310 REM Subroutine to draw a single vertical line.  Attach to double.
  206. 2320 FOR I = R1 + 1 TO R2 - 1
  207. 2330  LOCATE I,C1 : PRINT CHR$(179);
  208. 2340 NEXT I
  209. 2350 LOCATE R1,C1 : PRINT CHR$(209);
  210. 2360 LOCATE R2,C1 : PRINT CHR$(207);
  211. 2370 RETURN
  212. 2380 REM Routines to Obtain information from the User
  213. 2390 LOCATE 22,1 : PRINT "'enter' to leave alone, '/ enter' to end record, or reply as shown"
  214. 2400 LOCATE 23,1
  215. 2410 INPUT "Enter the Record Number";REPLY$
  216. 2420 IF REPLY$ = "/" THEN 3750
  217. 2430 IF REPLY$ = "" THEN 2470
  218. 2440 IF ABS(VAL(REPLY$)) = ABS(T1) THEN 2450 ELSE 2460
  219. 2450 T1 = VAL(REPLY$)
  220. 2460 GOSUB 1680
  221. 2470 LOCATE 23,1 : PRINT SPACE$(79);
  222. 2480 LOCATE 23,1
  223. 2490 INPUT "Enter the Person's Surname (all capital letters)";REPLY$
  224. 2500 IF REPLY$ = "/" THEN 3750
  225. 2510 IF REPLY$ = "" THEN 2540
  226. 2520 T2$ = REPLY$
  227. 2530 GOSUB 1680
  228. 2540 LOCATE 23,1 : PRINT SPACE$(79);
  229. 2550 LOCATE 23,1
  230. 2560 INPUT "Enter the Person's Given Names";REPLY$
  231. 2570 IF REPLY$ = "/" THEN 3750
  232. 2580 IF REPLY$ = "" THEN 2610
  233. 2590 T3$ = REPLY$
  234. 2600 GOSUB 1680
  235. 2610 LOCATE 23,1 : PRINT SPACE$(79);
  236. 2620 LOCATE 23,1
  237. 2630 INPUT "Enter the Person's Sex";REPLY$
  238. 2640 IF REPLY$ = "/" THEN 3750
  239. 2650 IF REPLY$ = "" THEN 2700
  240. 2660 T4$ = REPLY$
  241. 2670 IF LEFT$(REPLY$,1) = "m" OR LEFT$(REPLY$,1) = "M" THEN T4$ = "Male"
  242. 2680 IF LEFT$(REPLY$,1) = "f" OR LEFT$(REPLY$,1) = "F" THEN T4$ = "Female"
  243. 2690 GOSUB 1680
  244. 2700 LOCATE 23,1 : PRINT SPACE$(79);
  245. 2710 LOCATE 23,1
  246. 2720 INPUT "Enter the Person's Code";REPLY$
  247. 2730 IF REPLY$ = "/" THEN 3750
  248. 2740 IF REPLY$ = "" THEN 2770
  249. 2750 T5 = VAL(REPLY$)
  250. 2760 GOSUB 1680
  251. 2770 LOCATE 23,1 : PRINT SPACE$(79);
  252. 2780 LOCATE 23,1
  253. 2790 INPUT "Enter the Father's Record Number";REPLY$
  254. 2800 IF REPLY$ = "/" THEN 3750
  255. 2810 IF REPLY$ = "" THEN 2840
  256. 2820 T6 = VAL(REPLY$)
  257. 2830 GOSUB 1680
  258. 2840 LOCATE 23,1 : PRINT SPACE$(79);
  259. 2850 LOCATE 23,1
  260. 2860 INPUT "Enter the Mother's Record Number";REPLY$
  261. 2870 IF REPLY$ = "/" THEN 3750
  262. 2880 IF REPLY$ = "" THEN 2910
  263. 2890 T7 = VAL(REPLY$)
  264. 2900 GOSUB 1680
  265. 2910 LOCATE 23,1 : PRINT SPACE$(79);
  266. 2920 LOCATE 23,1
  267. 2930 INPUT "Enter the Person's Birth-date as: dd Mmm yyyy";REPLY$
  268. 2940 IF REPLY$ = "/" THEN 3750
  269. 2950 IF REPLY$ = "" THEN 2980
  270. 2960 T8$ = REPLY$
  271. 2970 GOSUB 1680
  272. 2980 LOCATE 23,1 : PRINT SPACE$(79);
  273. 2990 LOCATE 23,1
  274. 3000 INPUT "Enter the Person's Birth-city";REPLY$
  275. 3010 IF REPLY$ = "/" THEN 3750
  276. 3020 IF REPLY$ = "" THEN 3050
  277. 3030 T9$ = REPLY$
  278. 3040 GOSUB 1680
  279. 3050 LOCATE 23,1 : PRINT SPACE$(79);
  280. 3060 LOCATE 23,1
  281. 3070 INPUT "Enter the Person's Birth-county";REPLY$
  282. 3080 IF REPLY$ = "/" THEN 3750
  283. 3090 IF REPLY$ = "" THEN 3120
  284. 3100 T10$ = REPLY$
  285. 3110 GOSUB 1680
  286. 3120 LOCATE 23,1 : PRINT SPACE$(79);
  287. 3130 LOCATE 23,1
  288. 3140 INPUT "Enter the Person's Birth-state or Country";REPLY$
  289. 3150 IF REPLY$ = "/" THEN 3750
  290. 3160 IF REPLY$ = "" THEN 3190
  291. 3170 T11$ = REPLY$
  292. 3180 GOSUB 1680
  293. 3190 LOCATE 23,1 : PRINT SPACE$(79);
  294. 3200 LOCATE 23,1
  295. 3210 INPUT "Enter the Person's Death-date as: dd Mmm yyyy";REPLY$
  296. 3220 IF REPLY$ = "/" THEN 3750
  297. 3230 IF REPLY$ = "" THEN 3260
  298. 3240 T12$ = REPLY$
  299. 3250 GOSUB 1680
  300. 3260 LOCATE 23,1 : PRINT SPACE$(79);
  301. 3270 LOCATE 23,1
  302. 3280 INPUT "Enter the Person's Death-city";REPLY$
  303. 3290 IF REPLY$ = "/" THEN 3750
  304. 3300 IF REPLY$ = "" THEN 3330
  305. 3310 T13$ = REPLY$
  306. 3320 GOSUB 1680
  307. 3330 LOCATE 23,1 : PRINT SPACE$(79);
  308. 3340 LOCATE 23,1
  309. 3350 INPUT "Enter the Person's Death-county";REPLY$
  310. 3360 IF REPLY$ = "/" THEN 3750
  311. 3370 IF REPLY$ = "" THEN 3400
  312. 3380 T14$ = REPLY$
  313. 3390 GOSUB 1680
  314. 3400 LOCATE 23,1 : PRINT SPACE$(79);
  315. 3410 LOCATE 23,1
  316. 3420 INPUT "Enter the Person's Death-state or Country";REPLY$
  317. 3430 IF REPLY$ = "/" THEN 3750
  318. 3440 IF REPLY$ = "" THEN 3470
  319. 3450 T15$ = REPLY$
  320. 3460 GOSUB 1680
  321. 3470 LOCATE 23,1 : PRINT SPACE$(79);
  322. 3480 LOCATE 23,1
  323. 3490 INPUT "Enter the Person's Burial-date as: dd Mmm yyyy";REPLY$
  324. 3500 IF REPLY$ = "/" THEN 3750
  325. 3510 IF REPLY$ = "" THEN 3540
  326. 3520 T16$ = REPLY$
  327. 3530 GOSUB 1680
  328. 3540 LOCATE 23,1 : PRINT SPACE$(79);
  329. 3550 LOCATE 23,1
  330. 3560 INPUT "Enter the Person's Burial-city";REPLY$
  331. 3570 IF REPLY$ = "/" THEN 3750
  332. 3580 IF REPLY$ = "" THEN 3610
  333. 3590 T17$ = REPLY$
  334. 3600 GOSUB 1680
  335. 3610 LOCATE 23,1 : PRINT SPACE$(79);
  336. 3620 LOCATE 23,1
  337. 3630 INPUT "Enter the Person's Burial-county";REPLY$
  338. 3640 IF REPLY$ = "/" THEN 3750
  339. 3650 IF REPLY$ = "" THEN 3680
  340. 3660 T18$ = REPLY$
  341. 3670 GOSUB 1680
  342. 3680 LOCATE 23,1 : PRINT SPACE$(79);
  343. 3690 LOCATE 23,1
  344. 3700 INPUT "Enter the Person's Burial-state or Country";REPLY$
  345. 3710 IF REPLY$ = "/" THEN 3750
  346. 3720 IF REPLY$ = "" THEN 3750
  347. 3730 T19$ = REPLY$
  348. 3740 GOSUB 1680
  349. 3750 REM Input is complete, now see if user wants to save the data
  350. 3760 LOCATE 22,1 : PRINT SPACE$(79);
  351. 3770 LOCATE 23,1 : PRINT SPACE$(79);
  352. 3780 LOCATE 23,1
  353. 3790 INPUT "Type 'save', 'more', or 'forget'";REPLY$
  354. 3800 IF REPLY$ = "more" THEN LOCATE 23,1 : PRINT SPACE$(79); : GOTO 2380
  355. 3810 IF REPLY$ = "forget" THEN CLS : GOTO 1040
  356. 3820 IF REPLY$ = "save" THEN LOCATE 22,1 : PRINT SPACE$(79); : GOTO 3850
  357. 3830 LOCATE 22,1 : PRINT "Error in reply";
  358. 3840 GOTO 3770
  359. 3850 REM Routine to SAVE the newly updated record
  360. 3860 LSET F1$  = MKS$(T1)
  361. 3870 LSET F2$  = T2$
  362. 3880 LSET F3$  = T3$
  363. 3890 LSET F4$  = LEFT$(T4$,1)
  364. 3900 LSET F5$  = MKS$(T5)
  365. 3910 LSET F6$  = MKS$(T6)
  366. 3920 LSET F7$  = MKS$(T7)
  367. 3930 LSET F8$  = T8$
  368. 3940 LSET F9$  = T9$
  369. 3950 LSET F10$  = T10$
  370. 3960 LSET F11$  = T11$
  371. 3970 LSET F12$  = T12$
  372. 3980 LSET F13$  = T13$
  373. 3990 LSET F14$  = T14$
  374. 4000 LSET F15$  = T15$
  375. 4010 LSET F16$  = T16$
  376. 4020 LSET F17$  = T17$
  377. 4030 LSET F18$  = T18$
  378. 4040 LSET F19$  = T19$
  379. 4050 PUT #1, REC.NO
  380. 4060 CLS
  381. 4070 GOTO 1040
  382. 4080 CLOSE #1
  383. 4090 CLS : LOCATE 21,1
  384. 4100 PRINT "End of Program"
  385. 4110 END
  386. T3$
  387. 3540 MID$(FORM$(11