home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / DATABASE-PROGRAM (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.5 KB  |  616 lines
  1. 1 POKE53281,1:PRINTCHR$(14)"[147][151] [212][200][197] [198][201][204][197] [196][210][193][215][197][210] -- [193] [196][193][212][193][194][193][211][197] [205][193][206][193][199][197][210]"
  2. 2 PRINT" [211]AVE UP TO 300 RECORDS, 8 FIELDS EACH."
  3. 3 PRINT" [201]F YOU FIND THIS UNPROTECTED PROGRAM    USEFUL, SEND MONEY, KUDOS,
  4. 4 [153]" LETTERS, COMPLAINTS, OR GOSSIP TO:      (null). MID$. (null)AKIS"
  5. 5 [153]" 1900 PEEKURKLEY (null)D.":[153]" (null)ILLIAMSTON, (null)RIGHT$ 48895":[137]60000
  6. 6 [134]S$(300):LM[178]0
  7. 7 [151]198,0:[153]"LOAD":[137]60005
  8. 8 [151]198,0:[137]60007
  9. 9 [135] R$,R:[129]T[178]1[164]R:[135]F$(T):[130]
  10. 20 [153][199](14)[199](8):[151]53281,0:[151]53280,0:[153]"LIST"
  11. 25 [153]"LOAD"[163](32[171][195](R$))[173]2)"*** "R$"WAIT ***"
  12. 30 [153]"     1) (null)CAN (null)ECORDS":[153]"     2) (null)EARCH
  13. 32 PRINT"     3) [193]DD [210]ECORD":PRINT"     4) [205]AILING [204]ABELS"
  14. 34 PRINT"     5) [211]ORT":PRINT"     6)  [211][193][214][197] [213][208][196][193][212][197] ":PRINT"     7) [209]UIT
  15. 36 [151]198,0
  16. 37 [161]K$:[139]K$[178]""[167]37
  17. 38 [139][197](K$)[179]1[176][197](K$)[177]7[167]37
  18. 40 K[178][197](K$):[145]K[141]50,300,500,425,600,900,47
  19. 45 [137] 25
  20. 47 [153]"LOAD"[199](9):[128]
  21. 50 [143] ----
  22. 51 [143] SCAN
  23. 52 [143] ----
  24. 55 [133]"LOAD(null)TART SCAN AT WHICH RECORD";SC
  25. 57 [139]SC[178]0[167][142]
  26. 60 [141]250
  27. 65 [141]100:[139][182](A)[179]SC[167]65
  28. 67 [139]A$[178]"END OF DATA"[167][141]250:[137]25
  29. 70 [141]150
  30. 75 [137]65
  31. 100 [143] -----------
  32. 101 [143] READ RECORD
  33. 102 [143] -----------
  34. 105 [135]A$:[135]A
  35. 110 [139]A$[178]"SPC("[167][142]
  36. 112 [139]A$[178]"END OF DATA"[167][142]
  37. 115 [129]T[178]1[164]R:[135]A$(T):[130]
  38. 120 [142]
  39. 150 [143] --------------------
  40. 151 [143] PUT RECORD ON SCREEN
  41. 152 [143] --------------------
  42. 153 E[178]0:[139]A$[178]"SPC("[167] [153]"LOAD(null)ECORD "[182](A)" VAL(null)(null)(null)(null)":E[178]1:[137]180
  43. 155 [153]"LOAD (null)ECORD: "[182](A)""
  44. 160 [129]T[178]1[164]R:[153]"POKE"F$(T)": LIST";:[153]A$(T):[130]
  45. 165 [153]"  1) STR$ELETE"
  46. 170 [153]"  2) VALDIT"
  47. 175 [153]"  3) (null)RINT"
  48. 180 [153]"  4) LENONTINUE
  49. 185 PRINT"  5) [209]UIT
  50. 188 [161]K$:[139][197](K$)[179]1[176][197](K$)[177]5[167]188
  51. 190 [139]E[178]1[167][139][197](K$)[179]4[167]188
  52. 191 [139]K$[178]"1"[167][141]200
  53. 192 [139]K$[178]"2"[167][141]550
  54. 193 [139]K$[178]"3"[167][141]350
  55. 194 [139]K$[178]"4"[167][142]
  56. 195 [139]K$[178]"5"[167]25
  57. 196 [142]
  58. 200 [143] -------------
  59. 201 [143] DELETE RECORD
  60. 202 [143] -------------
  61. 205 [153]"STOPLOAD":Z[178][182](A)[172]10[170]1000:[153]Z"DATA"[199](34)"SPC("[199](34)","A
  62. 210 [129]T[178]Z[170]1[164]Z[170]R:[153]T:[130]:[153]"RUN"
  63. 215 [153]"LISTSTR$ELETING RIGHT$TEM: "[182](A)"STOP"
  64. 220 [143] ---------------
  65. 221 [143] CREATE NEW DATA
  66. 222 [143] ---------------
  67. 225 [151]198,10:[129]T[178]0[164]9:[151]631[170]T,13:[130]:[128]
  68. 250 [143] -------
  69. 251 [143] RESTORE
  70. 252 [143] -------
  71. 255 [140]
  72. 257 [135]B$:[139]B$[179][177]"(null)"[167]257
  73. 259 [142]
  74. 300 [143] ------
  75. 301 [143] SEARCH
  76. 302 [143] ------
  77. 303 SR[178]0
  78. 305 [133]"LOAD(null)EARCH FOR: ";SR$
  79. 310 [141] 250:[143] RESTORE
  80. 315 [135] A$,A
  81. 320 [139] A$[178]"SPC("[167]315
  82. 325 [139] A$[178]"END OF DATA"[167] [142]
  83. 330 [129]T[178]1[164]R:[135]A$(T)
  84. 335 [139] [200](A$(T),[195](SR$))[178]SR$[167]SR[178]1
  85. 340 [130]:[139]SR[178]1[167][141]150:[143] SCREEN
  86. 345 SR[178]0:[137]315
  87. 350 [143] ------------
  88. 351 [143] PRINT RECORD
  89. 352 [143] ------------
  90. 355 [153]"(null)REPARE (null)RINTER."
  91. 365 [153]"1) (null)RINT VALNTIRE (null)ECORD":[153]"2) (null)RINT (null)AIL (null)ABEL (1ST 4 ASCIELDS)
  92. 367 GETK$:IFK$=""THEN367
  93. 368 IFK$=CHR$(13)THENRETURN
  94. 369 IFK$="2"THEN400
  95. 370 IFK$<>"1"THEN367
  96. 375 OPEN4,4,7:CMD4
  97. 380 FORT=1TOR:PRINT#4,A$(T):NEXT
  98. 385 PRINT#4:CLOSE4:RETURN
  99. 400 REM -----------
  100. 401 REM PRINT LABEL
  101. 402 REM -----------
  102. 405 PRINT"[201]F YOUR RECORDS ARE BY LAST NAME, DO YOUWANT THE LAST NAME AT THE END
  103. 406 [153]"OF THE TOP LINE OF THE LABEL? YWAIT OR N"
  104. 407 [161]KS$:[139]KS$[178]""[167]407
  105. 408 [129]X[178]1[164][195](A$(1)):[139][202](A$(1),X,1)[178]" "[167]AA$[178][200](A$(1),X):X[178][195](A$(1))
  106. 409 [130]:X[178][195](A$(1))[171][195](AA$):[139]KS$[178]"Y"[167]A$(1)[178][201](A$(1),X)[170]" "[170]AA$
  107. 410 [139] FS[178]1[167][142]
  108. 412 [159]4,4,7:[157]4
  109. 415 [129]T[178]1[164]4:[152]4,A$(T):[130]
  110. 420 [152]4:[160]4:[142]
  111. 425 [143] ------------
  112. 426 [143] PRINT LABELS
  113. 427 [143] ------------
  114. 428 [153]"(null)REPARE PRINTER."
  115. 429 [153]"(null)AILING (null)ABELS CONSIST OF THE FIRST     FOUR FIELDS."
  116. 430 [153]"(E.G. (null)AME, ATNDDRESS, LENITY, (null)TATE)
  117. 433 PRINT"[201]F YOUR RECORDS ARE BY LAST NAME, DO YOUWANT THE LAST NAME AT THE END
  118. 435 [153]"OF THE TOP LINE OF THE LABEL? YWAIT OR N"
  119. 436 [161]KS$:[139]KS$[178]""[167]436
  120. 437 [139]KS$[178][199](13)[167][142]
  121. 438 [153]"LEFT$OLD DOWN '(null)' TO STOP PRINTING."
  122. 440 [141]250
  123. 442 [141]100:[139]A$[178]"SPC("[167]442
  124. 444 [161]H$:[139]H$[178]"S"[167][142]
  125. 446 [139]A$[178]"END OF DATA"[167][142]
  126. 448 [141]408:[137]442
  127. 500 [143] ----------
  128. 501 [143] ADD RECORD
  129. 502 [143] ----------
  130. 505 [140]
  131. 510 [135] A$
  132. 512 [139]A$[178]"END OF DATA"[167][153]"LOADSTR$ATN(null)ATNPEEKATN(null)VAL ASC(null)(null)(null)!":[129]T[178]1[164]3000:[130]:[137]25
  133. 513 [139]A$[179][177]"SPC("[167]510
  134. 515 [135]A:[153]"LOADPOKE(null)RY NOT TO USE COMMAS OR COLONS IN AN"
  135. 520 [153]"ENTRY, BUT IF YOU MUST, BEGIN LINE WITH QUOTATION MARK--("[199](34)")"
  136. 522 [153]"(null)IMIT ENTRIES TO 2 SCREEN LINES!"
  137. 525 [153]"LIST(null)ECORD: "[182](A)"":[129]T[178]1[164]R:[153]F$(T):[133] D$(T):[153]
  138. 530 [139]D$(1)[178]""[167]T[178]R:[130]:[137]25
  139. 535 [130]:D$(0)[178]"XX"[170][199](34)[170]","[170][196](A):Z[178][182](A)[172]10[170]1000:K[178]0:[153]"STOPLOAD"
  140. 540 [129]T[178]Z[164]Z[170]R:[153]T"DATA"[199](34)D$(K):K[178]K[170]1:[130]:[153] "RUN"
  141. 545 [153]"LISTATNDDING RIGHT$TEM: "[182](A)"STOP":[137]220
  142. 550 [143] ----
  143. 551 [143] EDIT
  144. 552 [143] ----
  145. 553 [153]"LOAD(null)ECORD :"[182](A)"":[129]I[178]1[164]R:[153]"  "A$(I):[130]
  146. 555 [153]"VALDIT ERRORS THEN PRESS (null)VAL(null)(null)(null)(null).":[129]T[178]1[164]R:[133]A$(T)
  147. 560 [130]:A$(0)[178]"XX"[170][199](34)[170]","[170][196](A):Z[178][182](A)[172]10[170]1000:K[178]0:[153]"STOPLOAD"
  148. 565 [129]T[178]Z[164]Z[170]R:[153]T"DATA"[199](34)A$(K):K[178]K[170]1:[130]:[153] "RUN"
  149. 570 [153]"LIST(null)AKING CORRECTIONS.STOP":[137]220
  150. 597 [143] ----
  151. 598 [143] SORT
  152. 599 [143] ----
  153. 600 [139][194](49152)[178]32[167]618
  154. 602 [153]"LOAD(null)OADING SORT PROGRAM..."
  155. 604 I[178]49152
  156. 606 [135]CK$:[139]CK$[178]"(null)"[167]610
  157. 608 [137]606
  158. 610 [135]SO:[139]SO[178]256[167]616
  159. 612 [151]I,SO:I[178]I[170]1
  160. 614 [137]610
  161. 616 [140]
  162. 618 [143]
  163. 620 [153]"LOAD(null)HICH FIELD DO YOU WANT SORTED?"
  164. 622 [129]I[178]1[164]R:[153][163]5)I"CMD) "F$(I):[130]
  165. 624 [151]198,0
  166. 626 [161]K$:[139]K$[178]""[167]626
  167. 628 [139][197](K$)[179]1[176][197](K$)[177]R[167]624
  168. 630 F[178][197](K$)
  169. 632 NS$[178]F$(F)
  170. 636 [153]"STR$O YOU WANT TO SPECIFY A LIMITATION?"
  171. 638 [151]198,0
  172. 640 [161]K$:[139]K$[178]""[167]640
  173. 642 [139]K$[178]"Y"[167][141]800
  174. 644 [153]"LOAD(null)ORTING.  (null)LEASE WAIT."
  175. 646 [135]C$
  176. 648 [139]C$[178]"END OF DATA"[167]662
  177. 650 [139]C$[178]"XX"[167]654
  178. 652 [137]646
  179. 654 [135]D:D[178][182](D):[129]FF[178]1[164]R:[135]F$(FF):[130]
  180. 656 S$(D)[178]F$(F)[170]" (#"[170][196](D)[170]")"
  181. 658 [139]LM[178]1[167][139][200](F$(SE),[195](NS$))[179][177]NS$[167]S$(D)[178]""
  182. 660 [137]646
  183. 662 [158]49152,D,S$(1)
  184. 664 [153]"LOAD   (null)HERE DO YOU WANT THE LIST PRINTED?"
  185. 666 [153][163]7)"1. (null)CREEN      2. (null)RINTER"
  186. 668 [151]198,0
  187. 670 [161]K$:[139]K$[178]""[167]670
  188. 671 [139][197](K$)[179]1[176][197](K$)[177]2[167]668
  189. 672 O[178][197](K$)
  190. 673 [139]O[178]1[167]676
  191. 674 [153]"RIGHT$F THE FIRST WORD IS A LAST NAME DO YOU WANT IT AT THE END?"
  192. 675 [161]KS$:[139]KS$[178]""[167]675
  193. 676 [153][163]6)"(null)RESS '(null)' TO BEGIN PRINTING."
  194. 678 [153]"  STR$URING LIST, YOU MAY PRESS (null)(null)ATNLENVALWAIT TO"
  195. 680 [153]"  PAUSE AND RESUME.  (null)RESSING 'ATN' WILL    ABORT THE LISTING."
  196. 684 [139]O[178]1[167]690
  197. 686 [153]"  (null)AKE SURE PRINTER IS READY."
  198. 688 [159]4,4,7
  199. 690 [161]K$:[139]K$[179][177]"P"[167]690
  200. 691 FS[178]0:[139]O[178]2[167]FS[178]1
  201. 692 [153]
  202. 694 [139]O[178]2[167][152]4,NS$:[152]4,"----------------"
  203. 696 [153]""NS$"--# OF (null)ECORD"
  204. 698 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  205. 700 [129]I[178]1[164]D:[151]198,0
  206. 702 [139]O[178]2[167][139]S$(I)[178]""[167][130]I
  207. 704 [139]O[178]2[167]XL[178][195](S$(I))[171]6:A$(1)[178][200](S$(I),XL):[141]408
  208. 705 [139]O[178]2[167][152]4,A$(1)
  209. 706 [139]S$(I)[178]""[167][130]
  210. 707 [153]S$(I):[139]O[178]1[167][129]T[178]1[164]200:[130]T
  211. 708 [161]KK$:[139]KK$[178]"A"[167]I[178]D:[137]712
  212. 710 [139]KK$[178]" "[167][146]198,1
  213. 712 [130]I:[139]O[178]2[167][152]4:[160]4
  214. 714 [153]" (null)ORT COMPLETED.  (null)ANT TO SEE IT AGAIN?"
  215. 716 [151]198,0
  216. 718 [161]K$:[139]K$[178]""[167]718
  217. 720 [139]K$[178]"Y"[167]662
  218. 722 [139]K$[178]"N"[167][160]4:[138]
  219. 724 [137]716
  220. 800 [143] ---------------
  221. 801 [143] SORT LIMITATION
  222. 802 [143] ---------------
  223. 804 LM[178]1:[153]"(null)HICH FIELD DO YOU WANT THE LIMITATION  TO COME FROM?"
  224. 806 [129]I[178]1[164]R:[153][163]5)I"CMD) "F$(I):[130]
  225. 808 [151]198,0
  226. 810 [161]K$:[139]K$[178]""[167]810
  227. 812 [139][197](K$)[179]1[176][197](K$)[177]R[167]810
  228. 814 SE[178][197](K$)
  229. 816 [153]"(null)LEASE ENTER SEARCH STRING FOR THE      LIMITATION:"
  230. 818 [133]NS$
  231. 820 [142]
  232. 900 [143] -----------
  233. 901 [143] SAVE UPDATE
  234. 902 [143] -----------
  235. 905 [153]"LOAD(null)AVING UPDATE."
  236. 907 [153]"(null)LEASE WAIT UNTIL THE DISK DRIVE IS     DONE WORKING."
  237. 910 [159]15,8,15,"S0:"[170]R$
  238. 915 [160]15:[148]R$,8
  239. 920 [139]ST[179][177]0[167][153]"(null)(null)STR$ATN(null)VAL (null)(null)(null) (null)ATN(null)VALSTR$!":[153]"STR$ISK VALRROR!"
  240. 925 [139]ST[179][177]0[167][153]"(null)RESS A KEY TO RETURN TO MENU."
  241. 927 [139]ST[179][177]0[167][161]K$:[139]K$[178]""[167]927
  242. 930 [142]
  243. 1000 [131]"(null)"
  244. 1010 [131]"SPC(",- 1
  245. 1020 [131]"SPC(",- 2
  246. 1030 [131]"SPC(",- 3
  247. 1040 [131]"SPC(",- 4
  248. 1050 [131]"SPC(",- 5
  249. 1060 [131]"SPC(",- 6
  250. 1070 [131]"SPC(",- 7
  251. 1080 [131]"SPC(",- 8
  252. 1090 [131]"SPC(",- 9
  253. 1100 [131]"SPC(",- 10
  254. 1110 [131]"SPC(",- 11
  255. 1120 [131]"SPC(",- 12
  256. 1130 [131]"SPC(",- 13
  257. 1140 [131]"SPC(",- 14
  258. 1150 [131]"SPC(",- 15
  259. 1160 [131]"SPC(",- 16
  260. 1170 [131]"SPC(",- 17
  261. 1180 [131]"SPC(",- 18
  262. 1190 [131]"SPC(",- 19
  263. 1200 [131]"SPC(",- 20
  264. 1210 [131]"SPC(",- 21
  265. 1220 [131]"SPC(",- 22
  266. 1230 [131]"SPC(",- 23
  267. 1240 [131]"SPC(",- 24
  268. 1250 [131]"SPC(",- 25
  269. 1260 [131]"SPC(",- 26
  270. 1270 [131]"SPC(",- 27
  271. 1280 [131]"SPC(",- 28
  272. 1290 [131]"SPC(",- 29
  273. 1300 [131]"SPC(",- 30
  274. 1310 [131]"SPC(",- 31
  275. 1320 [131]"SPC(",- 32
  276. 1330 [131]"SPC(",- 33
  277. 1340 [131]"SPC(",- 34
  278. 1350 [131]"SPC(",- 35
  279. 1360 [131]"SPC(",- 36
  280. 1370 [131]"SPC(",- 37
  281. 1380 [131]"SPC(",- 38
  282. 1390 [131]"SPC(",- 39
  283. 1400 [131]"SPC(",- 40
  284. 1410 [131]"SPC(",- 41
  285. 1420 [131]"SPC(",- 42
  286. 1430 [131]"SPC(",- 43
  287. 1440 [131]"SPC(",- 44
  288. 1450 [131]"SPC(",- 45
  289. 1460 [131]"SPC(",- 46
  290. 1470 [131]"SPC(",- 47
  291. 1480 [131]"SPC(",- 48
  292. 1490 [131]"SPC(",- 49
  293. 1500 [131]"SPC(",- 50
  294. 1510 [131]"SPC(",- 51
  295. 1520 [131]"SPC(",- 52
  296. 1530 [131]"SPC(",- 53
  297. 1540 [131]"SPC(",- 54
  298. 1550 [131]"SPC(",- 55
  299. 1560 [131]"SPC(",- 56
  300. 1570 [131]"SPC(",- 57
  301. 1580 [131]"SPC(",- 58
  302. 1590 [131]"SPC(",- 59
  303. 1600 [131]"SPC(",- 60
  304. 1610 [131]"SPC(",- 61
  305. 1620 [131]"SPC(",- 62
  306. 1630 [131]"SPC(",- 63
  307. 1640 [131]"SPC(",- 64
  308. 1650 [131]"SPC(",- 65
  309. 1660 [131]"SPC(",- 66
  310. 1670 [131]"SPC(",- 67
  311. 1680 [131]"SPC(",- 68
  312. 1690 [131]"SPC(",- 69
  313. 1700 [131]"SPC(",- 70
  314. 1710 [131]"SPC(",- 71
  315. 1720 [131]"SPC(",- 72
  316. 1730 [131]"SPC(",- 73
  317. 1740 [131]"SPC(",- 74
  318. 1750 [131]"SPC(",- 75
  319. 1760 [131]"SPC(",- 76
  320. 1770 [131]"SPC(",- 77
  321. 1780 [131]"SPC(",- 78
  322. 1790 [131]"SPC(",- 79
  323. 1800 [131]"SPC(",- 80
  324. 1810 [131]"SPC(",- 81
  325. 1820 [131]"SPC(",- 82
  326. 1830 [131]"SPC(",- 83
  327. 1840 [131]"SPC(",- 84
  328. 1850 [131]"SPC(",- 85
  329. 1860 [131]"SPC(",- 86
  330. 1870 [131]"SPC(",- 87
  331. 1880 [131]"SPC(",- 88
  332. 1890 [131]"SPC(",- 89
  333. 1900 [131]"SPC(",- 90
  334. 1910 [131]"SPC(",- 91
  335. 1920 [131]"SPC(",- 92
  336. 1930 [131]"SPC(",- 93
  337. 1940 [131]"SPC(",- 94
  338. 1950 [131]"SPC(",- 95
  339. 1960 [131]"SPC(",- 96
  340. 1970 [131]"SPC(",- 97
  341. 1980 [131]"SPC(",- 98
  342. 1990 [131]"SPC(",- 99
  343. 2000 [131]"SPC(",- 100
  344. 2010 [131]"SPC(",- 101
  345. 2020 [131]"SPC(",- 102
  346. 2030 [131]"SPC(",- 103
  347. 2040 [131]"SPC(",- 104
  348. 2050 [131]"SPC(",- 105
  349. 2060 [131]"SPC(",- 106
  350. 2070 [131]"SPC(",- 107
  351. 2080 [131]"SPC(",- 108
  352. 2090 [131]"SPC(",- 109
  353. 2100 [131]"SPC(",- 110
  354. 2110 [131]"SPC(",- 111
  355. 2120 [131]"SPC(",- 112
  356. 2130 [131]"SPC(",- 113
  357. 2140 [131]"SPC(",- 114
  358. 2150 [131]"SPC(",- 115
  359. 2160 [131]"SPC(",- 116
  360. 2170 [131]"SPC(",- 117
  361. 2180 [131]"SPC(",- 118
  362. 2190 [131]"SPC(",- 119
  363. 2200 [131]"SPC(",- 120
  364. 2210 [131]"SPC(",- 121
  365. 2220 [131]"SPC(",- 122
  366. 2230 [131]"SPC(",- 123
  367. 2240 [131]"SPC(",- 124
  368. 2250 [131]"SPC(",- 125
  369. 2260 [131]"SPC(",- 126
  370. 2270 [131]"SPC(",- 127
  371. 2280 [131]"SPC(",- 128
  372. 2290 [131]"SPC(",- 129
  373. 2300 [131]"SPC(",- 130
  374. 2310 [131]"SPC(",- 131
  375. 2320 [131]"SPC(",- 132
  376. 2330 [131]"SPC(",- 133
  377. 2340 [131]"SPC(",- 134
  378. 2350 [131]"SPC(",- 135
  379. 2360 [131]"SPC(",- 136
  380. 2370 [131]"SPC(",- 137
  381. 2380 [131]"SPC(",- 138
  382. 2390 [131]"SPC(",- 139
  383. 2400 [131]"SPC(",- 140
  384. 2410 [131]"SPC(",- 141
  385. 2420 [131]"SPC(",- 142
  386. 2430 [131]"SPC(",- 143
  387. 2440 [131]"SPC(",- 144
  388. 2450 [131]"SPC(",- 145
  389. 2460 [131]"SPC(",- 146
  390. 2470 [131]"SPC(",- 147
  391. 2480 [131]"SPC(",- 148
  392. 2490 [131]"SPC(",- 149
  393. 2500 [131]"SPC(",- 150
  394. 2510 [131]"SPC(",- 151
  395. 2520 [131]"SPC(",- 152
  396. 2530 [131]"SPC(",- 153
  397. 2540 [131]"SPC(",- 154
  398. 2550 [131]"SPC(",- 155
  399. 2560 [131]"SPC(",- 156
  400. 2570 [131]"SPC(",- 157
  401. 2580 [131]"SPC(",- 158
  402. 2590 [131]"SPC(",- 159
  403. 2600 [131]"SPC(",- 160
  404. 2610 [131]"SPC(",- 161
  405. 2620 [131]"SPC(",- 162
  406. 2630 [131]"SPC(",- 163
  407. 2640 [131]"SPC(",- 164
  408. 2650 [131]"SPC(",- 165
  409. 2660 [131]"SPC(",- 166
  410. 2670 [131]"SPC(",- 167
  411. 2680 [131]"SPC(",- 168
  412. 2690 [131]"SPC(",- 169
  413. 2700 [131]"SPC(",- 170
  414. 2710 [131]"SPC(",- 171
  415. 2720 [131]"SPC(",- 172
  416. 2730 [131]"SPC(",- 173
  417. 2740 [131]"SPC(",- 174
  418. 2750 [131]"SPC(",- 175
  419. 2760 [131]"SPC(",- 176
  420. 2770 [131]"SPC(",- 177
  421. 2780 [131]"SPC(",- 178
  422. 2790 [131]"SPC(",- 179
  423. 2800 [131]"SPC(",- 180
  424. 2810 [131]"SPC(",- 181
  425. 2820 [131]"SPC(",- 182
  426. 2830 [131]"SPC(",- 183
  427. 2840 [131]"SPC(",- 184
  428. 2850 [131]"SPC(",- 185
  429. 2860 [131]"SPC(",- 186
  430. 2870 [131]"SPC(",- 187
  431. 2880 [131]"SPC(",- 188
  432. 2890 [131]"SPC(",- 189
  433. 2900 [131]"SPC(",- 190
  434. 2910 [131]"SPC(",- 191
  435. 2920 [131]"SPC(",- 192
  436. 2930 [131]"SPC(",- 193
  437. 2940 [131]"SPC(",- 194
  438. 2950 [131]"SPC(",- 195
  439. 2960 [131]"SPC(",- 196
  440. 2970 [131]"SPC(",- 197
  441. 2980 [131]"SPC(",- 198
  442. 2990 [131]"SPC(",- 199
  443. 3000 [131]"SPC(",- 200
  444. 3010 [131]"SPC(",- 201
  445. 3020 [131]"SPC(",- 202
  446. 3030 [131]"SPC(",- 203
  447. 3040 [131]"SPC(",- 204
  448. 3050 [131]"SPC(",- 205
  449. 3060 [131]"SPC(",- 206
  450. 3070 [131]"SPC(",- 207
  451. 3080 [131]"SPC(",- 208
  452. 3090 [131]"SPC(",- 209
  453. 3100 [131]"SPC(",- 210
  454. 3110 [131]"SPC(",- 211
  455. 3120 [131]"SPC(",- 212
  456. 3130 [131]"SPC(",- 213
  457. 3140 [131]"SPC(",- 214
  458. 3150 [131]"SPC(",- 215
  459. 3160 [131]"SPC(",- 216
  460. 3170 [131]"SPC(",- 217
  461. 3180 [131]"SPC(",- 218
  462. 3190 [131]"SPC(",- 219
  463. 3200 [131]"SPC(",- 220
  464. 3210 [131]"SPC(",- 221
  465. 3220 [131]"SPC(",- 222
  466. 3230 [131]"SPC(",- 223
  467. 3240 [131]"SPC(",- 224
  468. 3250 [131]"SPC(",- 225
  469. 3260 [131]"SPC(",- 226
  470. 3270 [131]"SPC(",- 227
  471. 3280 [131]"SPC(",- 228
  472. 3290 [131]"SPC(",- 229
  473. 3300 [131]"SPC(",- 230
  474. 3310 [131]"SPC(",- 231
  475. 3320 [131]"SPC(",- 232
  476. 3330 [131]"SPC(",- 233
  477. 3340 [131]"SPC(",- 234
  478. 3350 [131]"SPC(",- 235
  479. 3360 [131]"SPC(",- 236
  480. 3370 [131]"SPC(",- 237
  481. 3380 [131]"SPC(",- 238
  482. 3390 [131]"SPC(",- 239
  483. 3400 [131]"SPC(",- 240
  484. 3410 [131]"SPC(",- 241
  485. 3420 [131]"SPC(",- 242
  486. 3430 [131]"SPC(",- 243
  487. 3440 [131]"SPC(",- 244
  488. 3450 [131]"SPC(",- 245
  489. 3460 [131]"SPC(",- 246
  490. 3470 [131]"SPC(",- 247
  491. 3480 [131]"SPC(",- 248
  492. 3490 [131]"SPC(",- 249
  493. 3500 [131]"SPC(",- 250
  494. 3510 [131]"SPC(",- 251
  495. 3520 [131]"SPC(",- 252
  496. 3530 [131]"SPC(",- 253
  497. 3540 [131]"SPC(",- 254
  498. 3550 [131]"SPC(",- 255
  499. 3560 [131]"SPC(",- 256
  500. 3570 [131]"SPC(",- 257
  501. 3580 [131]"SPC(",- 258
  502. 3590 [131]"SPC(",- 259
  503. 3600 [131]"SPC(",- 260
  504. 3610 [131]"SPC(",- 261
  505. 3620 [131]"SPC(",- 262
  506. 3630 [131]"SPC(",- 263
  507. 3640 [131]"SPC(",- 264
  508. 3650 [131]"SPC(",- 265
  509. 3660 [131]"SPC(",- 266
  510. 3670 [131]"SPC(",- 267
  511. 3680 [131]"SPC(",- 268
  512. 3690 [131]"SPC(",- 269
  513. 3700 [131]"SPC(",- 270
  514. 3710 [131]"SPC(",- 271
  515. 3720 [131]"SPC(",- 272
  516. 3730 [131]"SPC(",- 273
  517. 3740 [131]"SPC(",- 274
  518. 3750 [131]"SPC(",- 275
  519. 3760 [131]"SPC(",- 276
  520. 3770 [131]"SPC(",- 277
  521. 3780 [131]"SPC(",- 278
  522. 3790 [131]"SPC(",- 279
  523. 3800 [131]"SPC(",- 280
  524. 3810 [131]"SPC(",- 281
  525. 3820 [131]"SPC(",- 282
  526. 3830 [131]"SPC(",- 283
  527. 3840 [131]"SPC(",- 284
  528. 3850 [131]"SPC(",- 285
  529. 3860 [131]"SPC(",- 286
  530. 3870 [131]"SPC(",- 287
  531. 3880 [131]"SPC(",- 288
  532. 3890 [131]"SPC(",- 289
  533. 3900 [131]"SPC(",- 290
  534. 3910 [131]"SPC(",- 291
  535. 3920 [131]"SPC(",- 292
  536. 3930 [131]"SPC(",- 293
  537. 3940 [131]"SPC(",- 294
  538. 3950 [131]"SPC(",- 295
  539. 3960 [131]"SPC(",- 296
  540. 3970 [131]"SPC(",- 297
  541. 3980 [131]"SPC(",- 298
  542. 3990 [131]"SPC(",- 299
  543. 4000 [131]"SPC(",- 300
  544. 4010 [131]"END OF DATA",-301
  545. 49000 [143] ---------
  546. 49001 [143] SORT DATA
  547. 49002 [143] ---------
  548. 49003 [143] LIGHTNING SORT COPYRIGHT
  549. 49004 [143] COMPUTE! PUBLICATIONS
  550. 49005 [143]
  551. 49152 [131] "(null)",32,253,174,32,158,173
  552. 49158 [131] 32,247,183,165,20,133
  553. 49164 [131] 253,165,21,133,254,32
  554. 49170 [131] 253,174,32,158,173,162
  555. 49176 [131] 1,165,71,157,85,193
  556. 49182 [131] 157,125,193,165,72,157
  557. 49188 [131] 105,193,157,145,193,165
  558. 49194 [131] 253,208,2,198,254,198
  559. 49200 [131] 253,160,3,24,189,125
  560. 49206 [131] 193,101,253,157,125,193
  561. 49212 [131] 189,145,193,101,254,157
  562. 49218 [131] 145,193,136,208,236,189
  563. 49224 [131] 85,193,133,80,189,105
  564. 49230 [131] 193,133,81,189,125,193
  565. 49236 [131] 133,82,189,145,193,133
  566. 49242 [131] 83,32,21,193,144,4
  567. 49248 [131] 202,208,228,96,165,82
  568. 49254 [131] 133,78,165,83,133,79
  569. 49260 [131] 160,2,177,78,153,250
  570. 49266 [131] 0,136,16,248,48,11
  571. 49272 [131] 24,165,80,105,3,133
  572. 49278 [131] 80,144,2,230,81,160
  573. 49284 [131] 2,177,80,153,247,0
  574. 49290 [131] 136,16,248,32,32,193
  575. 49296 [131] 144,230,56,165,82,233
  576. 49302 [131] 3,133,82,176,2,198
  577. 49308 [131] 83,32,21,193,176,31
  578. 49314 [131] 160,2,177,82,153,247
  579. 49320 [131] 0,136,16,248,32,32
  580. 49326 [131] 193,176,225,160,2,177
  581. 49332 [131] 80,145,82,185,247,0
  582. 49338 [131] 145,80,136,16,244,48
  583. 49344 [131] 183,160,2,177,80,145
  584. 49350 [131] 78,185,250,0,145,80
  585. 49356 [131] 136,16,244,24,189,85
  586. 49362 [131] 193,125,125,193,133,82
  587. 49368 [131] 189,105,193,125,145,193
  588. 49374 [131] 133,83,102,83,102,82
  589. 49380 [131] 32,21,193,176,22,189
  590. 49386 [131] 85,193,157,86,193,189
  591. 49392 [131] 105,193,157,106,193,32
  592. 49398 [131] 53,193,232,32,69,193
  593. 49404 [131] 76,71,192,189,125,193
  594. 49410 [131] 157,126,193,189,145,193
  595. 49416 [131] 157,146,193,32,69,193
  596. 49422 [131] 232,32,53,193,76,71
  597. 49428 [131] 192,165,81,197,83,208
  598. 49434 [131] 4,165,80,197,82,96
  599. 49440 [131] 160,255,200,196,247,176
  600. 49446 [131] 11,196,250,176,6,177
  601. 49452 [131] 248,209,251,240,241,96
  602. 49458 [131] 196,250,96,24,165,80
  603. 49464 [131] 105,3,157,85,193,165
  604. 49470 [131] 81,105,0,157,105,193
  605. 49476 [131] 96,56,165,80,233,3
  606. 49482 [131] 157,125,193,165,81,233
  607. 49488 [131] 0,157,145,193,96,256
  608. 60000 [153]"(null)HIS PROGRAM CREATES THE DATABASE AND ISNOT A DATABASE ITSELF."
  609. 60001 [153]"VALNTER A TITLE FOR THE DATABASE:":[133]T$
  610. 60002 [133]"LEFT$OW MANY FIELDS FOR EACH RECORD";R
  611. 60003 [153]"LOAD":[153]"1REM FILE DRAWER -- BY S.J. TAKIS":[129]T[178]2[164]4:[153]T:[130]
  612. 60004 [153]"5R="R:[153]"10 DATA"[199](34);T$;[199](34)","R:[153]"RUN":[137]220
  613. 60005 X[178]1:[129]I[178]1[164]R:[153]"POKE(null)AME OF FIELD "I;:[133]W$(X):X[178]X[170]1:[130]:[153]"LOAD"
  614. 60006 [129]I[178]11[164]R[170]10:[153]I"DATA"[199](34)W$(I[171]10):[130]:[153]7:[153]"RUN":[137]220
  615. 60007 [153]"LOAD8":[129]I[178]60000[164]60007:[153]I:[130]:[153]"RUN":[137]220
  616.