B53281,1:(14)"  -- "s" AVE UP TO 300 RECORDS, 8 FIELDS EACH."" F YOU FIND THIS UNPROTECTED PROGRAM USEFUL, SEND MONEY, KUDOS," LETTERS, COMPLAINTS, OR GOSSIP TO: . . AKIS"6 " 1900 URKLEY D.":" ILLIAMSTON, 48895":60000H S$(300):LM0_ 198,0:"":60005q 198,0:60007 R$,R:T1R:F$(T): (14)(8):53281,0:53280,0:"" ""(32(R$))2)"*** "R$" ***" " 1) CAN ECORDS":" 2) EARCHC " 3) DD ECORD":" 4) AILING ABELS" "" 5) ORT":" 6)  ":" 7) UIT $198,0 %K$:K$""37 &(K$)1(K$)737 (K(K$):K50,300,500,425,600,900,47 - 25 /""(9): 2 ---- 3 SCAN 4 ----B 7"TART SCAN AT WHICH RECORD";SCN 9SC0W <250l A100:(A)SC65 CA$"END OF DATA"250:25 F150 K65 d ----------- e READ RECORD f ----------- iA$:A nA$"" pA$"END OF DATA" sT1R:A$(T): x8 --------------------S PUT RECORD ON SCREENn -------------------- E0:A$"" "ECORD "(A)" ":E1:180 " ECORD: "(A)"" T1R:""F$(T)": ";:A$(T): " 1) ELETE" " 2) DIT" " 3) RINT". " 4) ONTINUE> " 5) UIT[ K$:(K$)1(K$)5188q E1(K$)4188 K$"1"200 K$"2"550 K$"3"350 K$"4" K$"5"25 ------------- DELETE RECORD -------------8"":Z(A)101000:Z"DATA"(34)""(34)","ASTZ1ZR:T::"RUN"w"ELETING TEM: "(A)"" --------------- CREATE NEW DATA ---------------198,10:T09:631T,13:: ------- RESTORE ------- B$:B$""257%2, ------?- SEARCHL. ------U/SR0q1"EARCH FOR: ";SR$6 250: RESTORE; A$,A@ A$""315E A$"END OF DATA" JT1R:A$(T)O (A$(T),(SR$))SR$SR1T:SR1150: SCREENYSR0:315'^ ------------:_ PRINT RECORDM` ------------hc"REPARE RINTER."m"1) RINT NTIRE ECORD":"2) RINT AIL ABEL (1ST 4 IELDS)oK$:K$""367pK$(13)qK$"2"400rK$"1"367w4,4,7:4|T1R:4,A$(T):"4:4:4 -----------F PRINT LABELX -----------"F YOUR RECORDS ARE BY LAST NAME, DO YOUWANT THE LAST NAME AT THE END"OF THE TOP LINE OF THE LABEL? Y OR N"KS$:KS$""407'X1(A$(1)):(A$(1),X,1)" "AA$(A$(1),X):X(A$(1))a:X(A$(1))(AA$):KS$"Y"A$(1)(A$(1),X)" "AA$n FS1|4,4,7:4T14:4,A$(T):4:4: ------------ PRINT LABELS ------------"REPARE PRINTER."-"AILING ABELS CONSIST OF THE FIRST FOUR FIELDS."U"(E.G. AME, DDRESS, ITY, TATE)"F YOUR RECORDS ARE BY LAST NAME, DO YOUWANT THE LAST NAME AT THE END"OF THE TOP LINE OF THE LABEL? Y OR N"KS$:KS$""436KS$(13)"OLD DOWN '' TO STOP PRINTING."'250<100:A$""442NH$:H$"S"fA$"END OF DATA"t408:442 ---------- ADD RECORD ---------- A$A$"END OF DATA"" !":T13000::25A$""5108A:"RY NOT TO USE COMMAS OR COLONS IN AN""ENTRY, BUT IF YOU MUST, BEGIN LINE WITH QUOTATION MARK--("(34)")" "IMIT ENTRIES TO 2 SCREEN LINES!" "ECORD: "(A)"":T1R:F$(T): D$(T):D$(1)""TR::25-:D$(0)"XX"(34)","(A):Z(A)101000:K0:""]TZZR:T"DATA"(34)D$(K):KK1:: "RUN"!"DDING TEM: "(A)"":220& ----' EDIT( ----)"ECORD :"(A)"":I1R:" "A$(I): +"DIT ERRORS THEN PRESS .":T1R:A$(T)F0:A$(0)"XX"(34)","(A):Z(A)101000:K0:""v5TZZR:T"DATA"(34)A$(K):KK1:: "RUN":"AKING CORRECTIONS.":220U ----V SORTW ----X(49152)32618Z"OADING SORT PROGRAM..."\I49152^CK$:CK$""610%`6069bSO:SO256616IdI,SO:II1Rf610Xh^jl"HICH FIELD DO YOU WANT SORTED?"nI1R:5)I") "F$(I):p198,0rK$:K$""626t(K$)1(K$)R624vF(K$)xNS$F$(F)%|"O YOU WANT TO SPECIFY A LIMITATION?"0~198,0CK$:K$""640TK$"Y"800{"ORTING. LEASE WAIT."C$C$"END OF DATA"662C$"XX"654646D:D(D):FF1R:F$(FF):S$(D)F$(F)" (#"(D)")" LM1(F$(SE),(NS$))NS$S$(D)"")646<49152,D,S$(1)l" HERE DO YOU WANT THE LIST PRINTED?"7)"1. CREEN 2. RINTER"198,0K$:K$""670(K$)1(K$)2668O(K$)O1676%"F THE FIRST WORD IS A LAST NAME DO YOU WANT IT AT THE END?":KS$:KS$""675b6)"RESS '' TO BEGIN PRINTING."" URING LIST, YOU MAY PRESS Œ TO"" PAUSE AND RESUME. RESSING '' WILL ABORT THE LISTING."O1690 " AKE SURE PRINTER IS READY."4,4,7)K$:K$"P"690<FS0:O2FS1BhO24,NS$:4,"----------------"""NS$"--# OF ECORD"""I1D:198,0O2S$(I)""IO2XL(S$(I))6:A$(1)(S$(I),XL):408O24,A$(1)*S$(I)""FS$(I):O1T1200:TaKK$:KK$"A"ID:712uKK$" "198,1I:O24:4" ORT COMPLETED. ANT TO SEE IT AGAIN?"198,0K$:K$""718K$"Y"662K$"N"4:716  ---------------+! SORT LIMITATIONA" ---------------$LM1:"HICH FIELD DO YOU WANT THE LIMITATION TO COME FROM?"&I1R:5)I") "F$(I):(198,0*K$:K$""810,(K$)1(K$)R810.SE(K$)"0"LEASE ENTER SEARCH STRING FOR THE LIMITATION:"+2NS$14C -----------U SAVE UPDATEg -----------"AVING UPDATE.""LEASE WAIT UNTIL THE DISK DRIVE IS DONE WORKING."15,8,15,"S0:"R$15:R$,8 ST0" !":"ISK RROR!"B ST0"RESS A KEY TO RETURN TO MENU."\ ST0K$:K$""927b k ""x "",- 1 "",- 2 "",- 3 "",- 4 "",- 5 $"",- 6 ."",- 7 8"",- 8 B"",- 9 L"",- 10 V"",- 11 !`"",- 12!j"",- 13&!t"",- 144!~"",- 15B!"",- 16P!"",- 17^!"",- 18l!"",- 19z!"",- 20!"",- 21!"",- 22!"",- 23!"",- 24!"",- 25!"",- 26!"",- 27!"",- 28! "",- 29""",- 30""",- 31""("",- 320"2"",- 33>"<"",- 34L"F"",- 35Z"P"",- 36h"Z"",- 37v"d"",- 38"n"",- 39"x"",- 40""",- 41""",- 42""",- 43""",- 44""",- 45""",- 46""",- 47#"",- 48#"",- 49#"",- 50,#"",- 51:#"",- 52H#"",- 53V#"",- 54d#"",- 55r#"",- 56#""",- 57#,"",- 58#6"",- 59#@"",- 60#J"",- 61#T"",- 62#^"",- 63#h"",- 64#r"",- 65#|"",- 66 $"",- 67$"",- 68($"",- 696$"",- 70D$"",- 71R$"",- 72`$"",- 73n$"",- 74|$"",- 75$"",- 76$"",- 77$"",- 78$"",- 79$"",- 80$"",- 81$"",- 82$&"",- 83$0"",- 84%:"",- 85%D"",- 86$%N"",- 872%X"",- 88@%b"",- 89N%l"",- 90\%v"",- 91j%"",- 92x%"",- 93%"",- 94%"",- 95%"",- 96%"",- 97%"",- 98%"",- 99%"",- 100%"",- 101%"",- 102&"",- 103&"",- 104&&"",- 1055& "",- 106D&"",- 107S& "",- 108b&*"",- 109q&4"",- 110&>"",- 111&H"",- 112&R"",- 113&\"",- 114&f"",- 115&p"",- 116&z"",- 117&"",- 118&"",- 119'"",- 120'"",- 121%'"",- 1224'"",- 123C'"",- 124R'"",- 125a'"",- 126p'"",- 127'"",- 128'"",- 129'"",- 130' "",- 131' "",- 132' "",- 133'$ "",- 134'. "",- 135'8 "",- 136(B "",- 137(L "",- 138$(V "",- 1393(` "",- 140B(j "",- 141Q(t "",- 142`(~ "",- 143o( "",- 144~( "",- 145( "",- 146( "",- 147( "",- 148( "",- 149( "",- 150( "",- 151( "",- 152( "",- 153) "",- 154) "",- 155#) "",- 1562) "",- 157A) "",- 158P) "",- 159_)( "",- 160n)2 "",- 161})< "",- 162)F "",- 163)P "",- 164)Z "",- 165)d "",- 166)n "",- 167)x "",- 168) "",- 169) "",- 170* "",- 171* "",- 172"* "",- 1731* "",- 174@* "",- 175O* "",- 176^* "",- 177m* "",- 178|* "",- 179* "",- 180* "",- 181* "",- 182* "",- 183* "",- 184*" "",- 185*, "",- 186*6 "",- 187+@ "",- 188+J "",- 189!+T "",- 1900+^ "",- 191?+h "",- 192N+r "",- 193]+| "",- 194l+ "",- 195{+ "",- 196+ "",- 197+ "",- 198+ "",- 199+ "",- 200+ "",- 201+ "",- 202+ "",- 203+ "",- 204, "",- 205, "",- 206 , "",- 207/, "",- 208>, "",- 209M, "",- 210\,& "",- 211k,0 "",- 212z,: "",- 213,D "",- 214,N "",- 215,X "",- 216,b "",- 217,l "",- 218,v "",- 219, "",- 220, "",- 221- "",- 222- "",- 223- "",- 224.- "",- 225=- "",- 226L- "",- 227[- "",- 228j- "",- 229y- "",- 230- "",- 231- "",- 232- "",- 233- "",- 234- "",- 235- "",- 236-* "",- 237-4 "",- 238.> "",- 239.H "",- 240.R "",- 241-.\ "",- 242<.f "",- 243K.p "",- 244Z.z "",- 245i. "",- 246x. "",- 247. "",- 248. "",- 249. "",- 250. "",- 251. "",- 252. "",- 253. "",- 254. "",- 255. "",- 256/ "",- 257/ "",- 258,/"",- 259;/"",- 260J/"",- 261Y/$"",- 262h/."",- 263w/8"",- 264/B"",- 265/L"",- 266/V"",- 267/`"",- 268/j"",- 269/t"",- 270/~"",- 271/"",- 272/"",- 273 0"",- 2740"",- 275+0"",- 276:0"",- 277I0"",- 278X0"",- 279g0"",- 280v0"",- 2810"",- 2820"",- 2830"",- 2840 "",- 2850"",- 2860"",- 2870("",- 28802"",- 2890<"",- 290 1F"",- 2911P"",- 292*1Z"",- 29391d"",- 294H1n"",- 295W1x"",- 296f1"",- 297u1"",- 2981"",- 2991"",- 3001"END OF DATA",-3011h ---------1i SORT DATA1j ---------1k LIGHTNING SORT COPYRIGHT2l COMPUTE! PUBLICATIONS2m<2 "",32,253,174,32,158,173X2 32,247,183,165,20,133t2 253,165,21,133,254,322 253,174,32,158,173,1622 1,165,71,157,85,1932 157,125,193,165,72,1572$ 105,193,157,145,193,1653* 253,208,2,198,254,19830 253,160,3,24,189,125;36 193,101,253,157,125,193Y3< 189,145,193,101,254,157w3B 145,193,136,208,236,1893H 85,193,133,80,189,1053N 193,133,81,189,125,1933T 133,82,189,145,193,1333Z 83,32,21,193,144,44` 202,208,228,96,165,824f 133,78,165,83,133,7984l 160,2,177,78,153,250Q4r 0,136,16,248,48,11k4x 24,165,80,105,3,1334~ 80,144,2,230,81,1604 2,177,80,153,247,04 136,16,248,32,32,1934 144,230,56,165,82,2334 3,133,82,176,2,1985 83,32,21,193,176,31#5 160,2,177,82,153,247<5 0,136,16,248,32,32X5 193,176,225,160,2,177r5 80,145,82,185,247,05 145,80,136,16,244,485 183,160,2,177,80,1455 78,185,250,0,145,805 136,16,244,24,189,855 193,125,125,193,133,826 189,105,193,125,145,19336 133,83,102,83,102,82N6 32,21,193,176,22,189j6 85,193,157,86,193,1896 105,193,157,106,193,326 53,193,232,32,69,1936 76,71,192,189,125,1936 157,126,193,189,145,1936 157,146,193,32,69,1937 232,32,53,193,76,71.7 192,165,81,197,83,208G7 4,165,80,197,82,96e7 160,255,200,196,247,1767& 11,196,250,176,6,1777, 248,209,251,240,241,9672 196,250,96,24,165,8078 105,3,157,85,193,1657> 81,105,0,157,105,1938D 96,56,165,80,233,3$8J 157,125,193,165,81,233?8P 0,157,145,193,96,2568`"HIS PROGRAM CREATES THE DATABASE AND ISNOT A DATABASE ITSELF."8a"NTER A TITLE FOR THE DATABASE:":T$8b"OW MANY FIELDS FOR EACH RECORD";R9c"":"1REM FILE DRAWER -- BY S.J. TAKIS":T24:T:O9d"5R="R:"10 DATA"(34);T$;(34)","R:"RUN":2209eX1:I1R:"AME OF FIELD "I;:W$(X):XX1::""9fI11R10:I"DATA"(34)W$(I10)::7:"RUN":2209g"8":I6000060007:I::"RUN":220