:59468,12< DBOOK COPYRIGHT (C) 1979 GLEN FISHERY CURSOR #8, MARCH, 1979z BOX 550, GOLETA, CA. 93017: AS OF DECEMBER 15 1979ZPG$"DBOOK":NM$"8":62000dMX50:CM9:OC2:N$(MX),D%(MX),O%(MX),P%(MX),MN$(12),CM$(CM),OC$(OC)nCR$(13))xI112:MN$(I):TJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNEJULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERI1CM:CM$(I):IADD,CLEAR,DUMP,EDIT,LIST,LOAD,QUIT,SAVE,SORTI1OC:OC$(I):I"BIRTHDAY","ANNIVERSARY"NC0:SV1@FL0:"COMMAND? ";:60000:IN$""1000XZC1:ZN0:ZL(IN$)I1CM:(CM$(I),ZL)IN$ZNI:ZCZC1I:ZC1040,1100:"NOT UNIQUE.";:1050IN$"?""NOT A COMMAND.";" COMMANDS ARE:"$I1CM:(0)(CM$(I))38".CM$(I);" ";:I::1000WLZN2000,1900,2100,3000,7600,5000,6000,4000,7000a1000plNC0:1000NCMX"NO ROOM FOR MORE NAMES.":1000NCNC1:" PERSON";NC:50100:N$""NCNC1:1000SV0:NP1:N$(NC)N$:D%(NC)D:O%(NC)O:2020"4NC0"NO NAMES.":1000NHSZ5:LN0:I1NC:50300:" PERSON";I}RN$N$(I):DD%(I):OO%(I):50200:I::1000 EP1:EPNC"NO NAMES.":1000 " PERSON";EP:N$N$(EP):DD%(EP):OO%(EP):50200 FL0:"CHANGE? ";:60000:T$(IN$,1)0 59000:YN1N(IN$):N0NNCEPN:3020S YN1"NO SUCH PERSON.":3040 T$"Y"50100:N$(EP)N$:D%(EP)D:O%(EP)O:SV0:NP1:3020 T$"Q"1000 T$"N"IN$""3090  T$"D"3500:SV0:NP1:(EP)11000,3020  T$"?"3200 "H?":3040'  EPEP1:EPNC10001  3020n "CHOICES ARE:":"Y CHANGE THIS ENTRY":"N ORRETURN" " LEAVE IT ALONE":"Q RETURN TO'COMMAND?'" "D DISCARD THIS ENTRY":"? PRINT THIS LIST" "SOME NUMBER":" MOVETO THAT PERSON":3020& NCNC1:EPNC3600F NC0"ALL NAMES DELETED."R EPNC: IEPNC:JI1:N$(I)N$(J):D%(I)D%(J):O%(I)O%(J):I: NC0"NO NAMES.":1000 FL0:"FILE NAME? ";:60000 IN$""1000 F$IN$ 1,1,1,F$:1,NC:X$(1):Q$(34)@ I1NC:S$N$(I):DD%(I):OO%(I):".";:4200:IT ,1::SV1:1000i hT$"":J1(S$) |:C$(S$,J,1):C$":"C$Q$C$","C$(65(C$)) :T$T$C$:J TTI:1,Q$;T$;Q$;",";(D);",";(O):TTIT T10 59411,53:TTI20 TIT4330 59411,61:[ "FILE NAME (? IF UNKNOWN)? ";:FL0:60000:IN$""1000o IN$"?"IN$"" M0:1,1,0,IN$:1,FC:FCNCMX5100 "NOT ENOUGH ROOM FOR ALL SAVED NAMES.":1:1000 MNC1NCFC:1,T$,D,O:".";5200:N$(M)T$:D%(M)D:O%(M)O:M;(NP1:NCNCFC:1:::NCFCSV0E21000ZPS$"":I1(T$)d:C$(T$,I,1):(C$)95(C$)128C$((C$)65)n:S$S$C$:I:pSV0"NAMES NOT YET SAVED.":SV1:1000XNC0"NO NAMES.":1000&l"BY NAME(1), OR BY DATE (2)? ";:60000:59000NvYN1BY(IN$):BY0BY7100,7200j"TYPE A1 OR2.":7020"FROM: ";:60000:F$IN$:F$""F$(0)"TO: ";:60000:T$IN$:T$""T$(255)F$T$X$F$:F$T$:T$X$FL(F$):TL(T$))NP0:I1NC:N$N$(I):O%(I)1N$(N$,O%(I)1)Z:F$(N$,FL)(N$,TL)T$NPNP1:P%(NP)Ih:I:7500 "FROM ";:50000:FDD*"TO ";:50000:TDD:TD0TD13004FDTDXFD:FDTD:TDXHNP0:I1NC:FDD%(I)D%(I)TDNPNP1:P%(NP)IR:I:7500F$N$(F):T$N$(T)0CP1:F$T$BCP0:F$T$NCP1:dFDD%(F):TDD%(T)vCP1:FDTDCP0:FDTDCP1:L"NOW SORTING": INSERTION SORTVNS1NP:NNS:TP%(NS)jN17570t:FP%(N1):BY7300,7400~:CP075700::P%(N)P%(N1):NN1:7530=:P%(N)TKNS:1000oNP0"LIST NOT SORTED.":1000NP0"NO NAMES.":1000LN0:SZ4:I1NP:NP%(I):50300N$N$(N):DD%(N):OO%(N)::50200I::1000PFL0:"MONTH: ";:60000:IN$""D0:(ZZC1:ZN0:ZL(IN$)VdÁZI112:(MN$(ZI),ZL)IN$ZCZC1:ZNZInÂZI:ZC50050,50040:"NOT UNIQUE.":50000xMZN:50070Í59000:YN1M(IN$):M0M1350070Ù"TYPE A NAME, OR1 THRU12.":50000Ù"DATE: ";:60000:59000'ËYN1D(IN$):D0D3250090QÙ"TYPE A NUMBER FROM 1 TO31.":50070aDM100D:Ù"NAME: ";:60000:N$IN$:N$""Í50000:D050110Ù"OCCASION: ";:60000Í59000:YN1O(IN$):O0OOC150150Ù"TYPE";:I1OC:4);I;"(";OC$(I);"),":I>Ù" OR";OC1;"(SOMETHING ELSE)":50120PËOOCOO:^O(N$)1Ù"WHAT IS IT? ";:60000:IN$""50120N$N$IN$:M(D100):O0O$OC$((O)):50220"O$(N$,O):N$(N$,O1),ę"NAME: ";N$:"DATE: ";MN$(M);D100M6ę6);O$@Ď.|LNLNSZ:LN22Rę" HIT RETURN TO CONTINUE."gġT$:T$""50320sLNSZ:xIN$""YN0:I1(IN$):T$(IN$,I,1):T$"0"T$"9"YN0:I:YN1:`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""600704tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15?~60010oZ(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010JZ141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000U60010qT I110:"";: I:0"";9);"CURSOR #8 DBOOK"2"COPYRIGHT (C) 1979 BY GLEN FISHER4 60500:"KEEP TRACK OF DATES"D"PRESSRETURN TO BEGIN."NT$:T$""62030(X"":