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