B53281,1:(14)"  4.5 -- "s" AVE UP TO 300 RECORDS, 8 FIELDS EACH."" : LEASE SEND $2 TO AUTHOR: . . AKIS"" 1900 URKLEY D.":" ILLIAMSTON, 48895":60000S$(300):LM0 198,0:"":60005' 198,0:600079 198,0:60008T R$,R:T1R:F$(T):z (14)(8):53281,0:53280,0:"" (14)(8):53281,0:53280,0:"" "V4.5 ILE RAWER: ""(38(R$))2)"";:L1(R$):"";:L:" (38(R$))2)""R$"D (38(R$))2)"";:L1(R$):"";:L:"t " 1) CAN ECORDS":" 2) EARCH " 3) DD ECORD":" 4) AILING ABELS (1ST OUR IELDS)" " 5) EPORT (ORT)":" 6)  Π(O EFORE UITTING)"6 !" 7) ISK IRECTORY":" 8) UITc "" EMORY BYTES AVAILABLE:";(0)n $198,0 %K$:K$""37 &(K$)1(K$)837 (K(K$):K50,300,500,425,600,900,8000,47 - 25 /""(9): 2 ---- 3 SCAN 4 ----' 7"TART SCAN AT WHICH RECORD";SC3 9SC0G :"CANNING..."P <250e 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): x1 --------------------L PUT RECORD ON SCREENg -------------------- E0:A$"" "ECORD "(A)" ":E1:180 " ECORD: "(A)"" T1R:""F$(T)": ";:A$(T): " 1) ELETE"" 2) DIT"" 3) RINT"*" 4) ONTINUE?" 5) AIN ENU\K$:(K$)1(K$)5188rE1(K$)4188K$"1"200K$"2"550K$"3"350K$"4"K$"5"25 ------------- DELETE RECORD -------------9"":Z(A)101000:Z"DATA"(34)""(34)","ATTZ1ZR:T::"RUN"x"ELETING TEM: "(A)"" --------------- CREATE NEW DATA ---------------(0)650 "ATABASE IS FULL, NEW DATA NOT ADDED!!!":230245*"RESS ANY KEY TO CONTINUE."=K$:K$""235^198,10:T09:631T,13::l -------z RESTORE -------B$:B$""257, ------- SEARCH. ------/SR01"EARCH FOR: ";SR$ 6 250: RESTORE8"EARCHING..."); A$,A:@ A$""315TE A$"END OF DATA" fJT1R:A$(T)O (A$(T),(SR$))SR$SR1T:SR1150: SCREENYSR0:315^ ------------_ PRINT RECORD` ------------c"REPARE RINTER."Gm"1) RINT NTIRE ECORD":"2) RINT AIL ABEL (1ST 4 IELDS)ZoK$:K$""367jpK$(13)zqK$"2"400rK$"1"367w4,4,7:4|T1R:4,A$(T):4:4: ----------- PRINT LABEL ----------->"F YOUR RECORDS ARE BY LAST NAME, DO YOUWANT THE LAST NAME AT THE ENDm"OF THE TOP LINE OF THE LABEL? Y OR N"KS$:KS$""407X1(A$(1)):(A$(1),X,1)" "AA$(A$(1),X):X(A$(1)):X(A$(1))(AA$):KS$"Y"A$(1)(A$(1),X)" "AA$ FS14,4,7:4+T14:4,A$(T):74:4:J ------------] PRINT LABELSp ------------CJ1:"REPARE PRINTER.""AILING ABELS CONSIST OF THE FIRST FOUR FIELDS.""(E.G. AME, DDRESS, ITY, TATE)?"F YOUR RECORDS ARE BY LAST NAME, DO YOUWANT THE LAST NAME AT THE ENDn"OF THE TOP LINE OF THE LABEL? Y OR N"KS$:KS$""436KS$(13)449636:"OLD DOWN '' TO STOP PRINTING."250100:A$""442H$:H$"S"449A$"END OF DATA"4494LM1(A$(SE),(NS$))NS$442B408:442XLM0:N$"":CJ0:i ----------z ADD RECORD ----------"NTER NEW RECORD NUMBER OR PRESS TO SEARCH FOR AN EMPTY RECORD."A:A1508A300504F"(: HIS WILL ERASE ANY CURRENT RECORD IN THIS LOCATION.)"O515w"OOKING FOR AN EMPTY RECORD..."} A$A$"END OF DATA"" !":T13000::25A$""510A:"""RY NOT TO USE COMMAS OR COLONS IN AN"Y"ENTRY, BUT IF YOU MUST, BEGIN LINE WITH QUOTATION MARK--("(34)")" "IMIT ENTRIES TO 67 CHARACTERS!" "ECORD: "(A)"":T1R:""F$(T)":";D$(T):D$(1)""TR::25(D$(1))67D$(1)"":"NTRY TOO LONG, PLEASE REDO.":527Q: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)j0:A$(0)"XX"(34)","(A):Z(A)101000:K0:""5TZZR:T"DATA"(34)A$(K):KK1:: "RUN":"AKING CORRECTIONS.":220U ----V SORTW ----X(49152)32618Z"OADING SORT PROGRAM..."*\I49152@^CK$:CK$""610I`606]bSO:SO256616mdI,SO:II1vf610|hjl"HICH FIELD DO YOU WANT SORTED?"nI1R:5)I") "F$(I):p198,0rK$:K$""626t(K$)1(K$)R624vF(K$)xNS$F$(F)N|LM0:"O YOU WANT TO SPECIFY A LIMITATION?"Y~198,0lK$:K$""640}K$"Y"800CJ17000"ORTING. LEASE WAIT."C$C$"END OF DATA"662C$"XX"654646<D:D(D):FF1R:FF$(FF):FF$(FF)FF$(FF)" "wFF$(FF)FF$(FF)" ":S$(D)(FF$(F),W(0))" "(FF$(M(1)),W(1))" "(FF$(M(2)),W(2))S$(D)S$(D)" "(FF$(M(3)),W(3)) LM1(FF$(SE),(NS$))NS$S$(D)""646)49152,D,S$(1)=T13:M(T)0:m" HERE DO YOU WANT THE LIST PRINTED?"7)"1. CREEN 2. RINTER"198,0K$:K$""670(K$)1(K$)2668O(K$)O1676 6)"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,7K$:K$"P"690FS0:O2FS1 O24,NS$;:4,(W(0)(NS$)1))I O2L13:4,PF$(L);:4,(W(L)(PF$(L))1));:Lk O24:L179:4,"-";:L:4 NS$;:(W(0)(NS$)1)) L13:PF$(L);:(W(L)(PF$(L))1));:L: "" I1D:198,0!O2S$(I)""I?!O2XL(S$(I))6:A$(1)(S$(I),XL):408Q!O24,S$(I)b!S$(I)""I~!S$(I):O1T1200:T!KK$:KK$"A"ID:712!KK$" "198,1!I:O24:4!" ORT COMPLETED. ANT TO SEE IT AGAIN?"!198,0 "K$:K$""718"K$"Y"662."K$"N"4:7"716M"  ---------------c"! SORT LIMITATIONy"" ---------------"$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$)Z#0"LEASE ENTER SEARCH STRING FOR THE LIMITATION:"c#2NS$i#4{# -----------# SAVE UPDATE# -----------#"AVING UPDATE."#"LEASE WAIT UNTIL THE DISK DRIVE IS DONE WORKING." $15,8,15,"S0:"R$$15:R$,8L$ST0" !":"ISK RROR!"z$ST0"RESS A KEY TO RETURN TO MENU."$ST0K$:K$""927$$ --------------$ RECORD STORAGE$ --------------$""$"",- 1$"",- 2 %"",- 3%"",- 4#%"",- 50%$"",- 6=%."",- 7J%8"",- 8W%B"",- 9e%L"",- 10s%V"",- 11%`"",- 12%j"",- 13%t"",- 14%~"",- 15%"",- 16%"",- 17%"",- 18%"",- 19%"",- 20%"",- 21 &"",- 22&"",- 23)&"",- 247&"",- 25E&"",- 26S&"",- 27a&"",- 28o& "",- 29}&"",- 30&"",- 31&("",- 32&2"",- 33&<"",- 34&F"",- 35&P"",- 36&Z"",- 37&d"",- 38&n"",- 39 'x"",- 40'"",- 41%'"",- 423'"",- 43A'"",- 44O'"",- 45]'"",- 46k'"",- 47y'"",- 48'"",- 49'"",- 50'"",- 51'"",- 52'"",- 53'"",- 54'"",- 55'"",- 56'""",- 57(,"",- 58(6"",- 59!(@"",- 60/(J"",- 61=(T"",- 62K(^"",- 63Y(h"",- 64g(r"",- 65u(|"",- 66("",- 67("",- 68("",- 69("",- 70("",- 71("",- 72("",- 73("",- 74("",- 75)"",- 76)"",- 77)"",- 78+)"",- 799)"",- 80G)"",- 81U)"",- 82c)&"",- 83q)0"",- 84):"",- 85)D"",- 86)N"",- 87)X"",- 88)b"",- 89)l"",- 90)v"",- 91)"",- 92)"",- 93)"",- 94 *"",- 95*"",- 96'*"",- 975*"",- 98C*"",- 99R*"",- 100a*"",- 101p*"",- 102*"",- 103*"",- 104*"",- 105* "",- 106*"",- 107* "",- 108**"",- 109*4"",- 110*>"",- 111+H"",- 112+R"",- 113$+\"",- 1143+f"",- 115B+p"",- 116Q+z"",- 117`+"",- 118o+"",- 119~+"",- 120+"",- 121+"",- 122+"",- 123+"",- 124+"",- 125+"",- 126+"",- 127+"",- 128,"",- 129,"",- 130#, "",- 1312, "",- 132A, "",- 133P,$ "",- 134_,. "",- 135n,8 "",- 136},B "",- 137,L "",- 138,V "",- 139,` "",- 140,j "",- 141,t "",- 142,~ "",- 143, "",- 144, "",- 145- "",- 146- "",- 147"- "",- 1481- "",- 149@- "",- 150O- "",- 151^- "",- 152m- "",- 153|- "",- 154- "",- 155- "",- 156- "",- 157- "",- 158- "",- 159-( "",- 160-2 "",- 161-< "",- 162.F "",- 163.P "",- 164!.Z "",- 1650.d "",- 166?.n "",- 167N.x "",- 168]. "",- 169l. "",- 170{. "",- 171. "",- 172. "",- 173. "",- 174. "",- 175. "",- 176. "",- 177. "",- 178. "",- 179/ "",- 180/ "",- 181 / "",- 182// "",- 183>/ "",- 184M/" "",- 185\/, "",- 186k/6 "",- 187z/@ "",- 188/J "",- 189/T "",- 190/^ "",- 191/h "",- 192/r "",- 193/| "",- 194/ "",- 195/ "",- 1960 "",- 1970 "",- 1980 "",- 199.0 "",- 200=0 "",- 201L0 "",- 202[0 "",- 203j0 "",- 204y0 "",- 2050 "",- 2060 "",- 2070 "",- 2080 "",- 2090 "",- 2100& "",- 21100 "",- 2120: "",- 2131D "",- 2141N "",- 2151X "",- 216-1b "",- 217<1l "",- 218K1v "",- 219Z1 "",- 220i1 "",- 221x1 "",- 2221 "",- 2231 "",- 2241 "",- 2251 "",- 2261 "",- 2271 "",- 2281 "",- 2291 "",- 2301 "",- 2312 "",- 2322 "",- 233,2 "",- 234;2 "",- 235J2 "",- 236Y2* "",- 237h24 "",- 238w2> "",- 2392H "",- 2402R "",- 2412\ "",- 2422f "",- 2432p "",- 2442z "",- 2452 "",- 2462 "",- 2472 "",- 248 3 "",- 2493 "",- 250+3 "",- 251:3 "",- 252I3 "",- 253X3 "",- 254g3 "",- 255v3 "",- 2563 "",- 2573 "",- 2583"",- 2593"",- 2603"",- 2613$"",- 2623."",- 26338"",- 2643B"",- 265 4L"",- 2664V"",- 267*4`"",- 26894j"",- 269H4t"",- 270W4~"",- 271f4"",- 272u4"",- 2734"",- 2744"",- 2754"",- 2764"",- 2774"",- 2784"",- 2794"",- 2804"",- 2814"",- 282 5"",- 2835"",- 284)5 "",- 28585"",- 286G5"",- 287V5("",- 288e52"",- 289t5<"",- 2905F"",- 2915P"",- 2925Z"",- 2935d"",- 2945n"",- 2955x"",- 2965"",- 2975"",- 2985"",- 299 6"",- 300"6"END OF DATA",-30196X ----------------P6Y SPECIAL PRINTOUTg6Z ----------------|6]T03:W(T)0:T6b"OULD YOU LIKE OTHER FIELDS PRINTED ALONGSIDE? (Y OR N)"6lK$:K$""70206vK$"Y"MM1:70506{W(0)36757"OW WIDE DO YOU WANT THE SORT COLUMN";W(0)O7T1R:T") "F$(T):7"OU MAY CHOOSE UP TO 3 FIELDS, PRESS FOR NO FIELD."7T13:"HICH FIELD? "7K$:K$""70707K$(13)M07M(K$):M0MR70708PF$(T)F$(M)8M:M(T)MC8"OW WIDE DO YOU WANT THIS COLUMN";W(T)J8T8W(0)W(1)W(2)W(3)80"TOTAL WIDTHS MUST BE LESS THAN 80!":705088? --------------8@ DISK DIRECTORY8A --------------8J"";8O15,8,15,"I0"9T2,8,0,"$0:*"9h#2,A$,A$)9r#2,A$,B$,C$,D$A9|C0:C$""C(C$)[9D$""CC(D$)256r9#2,A$:ST08200}9C;A$;9#2,A$:A$""A$;:81009:80509 2:159 "RESS ANY KEY";9 A$:A$""82209& 9h ---------:i SORT DATA:j ---------3:k LIGHTNING SORT COPYRIGHTO:l COMPUTE! PUBLICATIONSU:mu: "",32,253,174,32,158,173: 32,247,183,165,20,133: 253,165,21,133,254,32: 253,174,32,158,173,162: 1,165,71,157,85,193; 157,125,193,165,72,157;$ 105,193,157,145,193,165;;* 253,208,2,198,254,198V;0 253,160,3,24,189,125t;6 193,101,253,157,125,193;< 189,145,193,101,254,157;B 145,193,136,208,236,189;H 85,193,133,80,189,105;N 193,133,81,189,125,193 136,16,244,24,189,853> 193,125,125,193,133,82Q> 189,105,193,125,145,193l> 133,83,102,83,102,82> 32,21,193,176,22,189> 85,193,157,86,193,189> 105,193,157,106,193,32> 53,193,232,32,69,193> 76,71,192,189,125,193? 157,126,193,189,145,1931? 157,146,193,32,69,193K? 232,32,53,193,76,71g? 192,165,81,197,83,208? 4,165,80,197,82,96? 160,255,200,196,247,176?& 11,196,250,176,6,177?, 248,209,251,240,241,96?2 196,250,96,24,165,80 @8 105,3,157,85,193,165'@> 81,105,0,157,105,193@@D 96,56,165,80,233,3]@J 157,125,193,165,81,233x@P 0,157,145,193,96,256@`"HIS PROGRAM CREATES THE DATABASE AND ISNOT A DATABASE ITSELF."@a"NTER A TITLE FOR THE DATABASE:":T$!Ab"OW MANY FIELDS PER RECORD (1-8)";R:R860002XAc"":"1REM FILE DRAWER -- BY S.J. TAKIS":2:3Ad"4R="R:"10 DATA"(34);T$;(34)","R:"RUN":220AeX1:I1R:"AME OF FIELD "I;:W$(X):XX1::""BfI11R10:I"DATA"(34)W$(I10)::6:"RUN":220.Bg"7":I6000060007:I::"RUN":220dBh"8":60008:60009:T$:"SAVE"(34)T$(34)",8Bi"GOTO60010":"LEASE WAIT UNTIL DISK IS FINISHED...":220Bj:T$::"OUR DATABASE "(34)T$(34)Bk"HAS BEEN CREATED.":198,06Cl"RESS TO LOAD.":"LOAD"(34)T$(34)",8":