36)D$;68)"PAGE ";PN:#2,(80,"="):LCLC3:PN1838CRP0(C1)8S106:#2,"":#2,PN$;R$(0):#2,PT$;R$(1):#2,PL$;R$(2):#2,CM$;R$(3):#2,"":LCLC6:P(C)58TLC60SPLC 66:#2,"":SP:LC1:PNPN1:PP1:818UP:59BV2:@64,"ENTER NUMBER OF RECORD TO PRINT":@227,RM$;:@142,"";:PR$:PR$"R"59W(PR$)1(PR$)C 4:@233,"NO SUCH RECORD";:T1V::86:X2:@204,"PRINTING";:P(PR$)1:106:#2,PN$;R$(0):#2,PT$;R$(1):#2,PL$;R$(2):#2,CM$;R$(3):#2,"":#2,"":86: YC110:Z91:90:c[3:@3,RM$;:@68,"RECORD NUMBER TO MODIFY";:@110,"";:A$:A$"R"5:\P(A$)1:P(C1)100,4:@168,"NO SUCH RECORD!";:T1V::91;#]3:106:@128,R$(0):R$(1):R$(2):R$(3):"MODIFY THIS RECORD y/n ";A$:A$"R"5:A$"N":A$"Y"94:100,4:93;v^" ONLY FOR NO CHANGE":"NAME - ";NR$:NR$""R$(0)NR$:@327,R$(0);_"TYPE - ";NR$:NR$""R$(1)NR$:@359,R$(1);`"LOCATION - ";NR$:NR$""R$(2)NR$:@395,R$(2)< a"COMMENTS - ";NR$:NR$""R$(3)NR$<b3:"RECORD MODIFIED TO -"::R$(0):R$(1):R$(2):R$(3):D$(P)R$(0)"\"R$(1)"\"R$(2)"\"R$(3)"\"::"cONTINUE - rETURN TO MENU"<cA$:A$"R"5:A$"C":A$""99:100,4:99<dA$:A$""100:A(A$):=neP0C1:N$D$(P):E1A:D0:L(N$):F(N$,Z1$):R$(N$,F1):N$(N$,(LF)):E:L(ST$):Y1(R$):(R$,Y,L)ST$104=fY:@389,"searching record #";P;=gP:107:33=h106:3:@10,RN$;(P1);:@128,"";:R$(0):R$(1):R$(2):R$(3)>Ai@448,"cONTINUE SEARCH rETURN TO MENU";:A$:A$"R"5:A$"C"150,1:103:105>jD0:N$D$(P):E0:L(N$):E03:F(1,N$,Z1$):DDF:R$(E)(N$,F1):N$(N$,(LD)):E:>k2:@202,"search fails";:100,4:T1V:::R$(1):R$(2):R$(3)>Ai@448,"cONTINUE SE| .L\DLLHDgD;4h''߆''5h~(߈b 2b(>"#########"`````1f4 I!SORTING...    n5@77@J&n:/0/$360 4O_0&2b970ӯ  - DV001'{x-t1r{Y0a'_XM.ݮME-4@0;F$1*03A"10椧!!##5@_'&\'j& Wj'Q"_'&\'j& *j'$''%"j'j' O99||/جr,k60f_V/Pb0Z&%&x0&T9+'0#.Я$0 10-$040&500 501 Ȯ00 !#9 )._a'*+12:;CDL|20#.Я$&(2150):X300&R$(3),D$(X):Z1$"\":V600:PN$"PROGRAM NAME - ":PT$"PROGRAM TYPE - ":PL$"LOCATION - ":CM$"COMMENTS - ":RM$"'r' FOR MAIN MENU ":U$(32,"*"):RN$"record #":RR$"records remaining ="'PC:3:@32,U$:@70,"program file system":U$;'@134,"<1> INPUT DATA ";:@166,"<2> SORT DATA ";:@198,"<3> SEARCH RECORDS ";:@230,"<4> DELETE RECORDS ";:@262,"<5> SAVE TO DISK ";:@294,"<6> LOAD FROM DISK ";:@326,"<7> LIST TO SCREEN ";(.@358,"<8> LIST TO PRINTER";:@390,"<9> MODIFY RECORDS ";:@416,U$(c@457,"YOUR CHOICE ?";:100:A1A9100,4:8( A 11,22,33,36,53,64,71,77,89( 8:50,4:@232,"NO DATA IN MEMORY";:T1V::5)/ 3:@74,RN$;(C1);:@3,RM$;:@484,RR$;(XC1);:XC14:@197,"RECORD SPACE DEPLETED!";:100,4:T1V2::5)^ @128,"";:"NAME - ";R1$:R1$"R"5) "TYPE - ";R2$:"LOCATION - ";R3$:"COMMENTS - ";R4$):" cONTINUE mODIFY rETURN TO MENU"*A$:A$"M"17:A$"C"A$"R"D$(P)R1$"\"R2$"\"R3$"\"R4$"\":CC1:PP1*<A$"C"11:A$"R"5:15*3:@32,"1. "R1$:"2. "R2$:"3. "R3$:"4. "R4$::" ONLY FOR NO CHANGE":@288,"";:"1. ";NR$:NR$""@291,R1$:R1$NR$*"2. ";NR$:NR$""@323,R2$:R2$NR$+"3. ";NR$:NR$""@355,R3$:R3$NR$+C"4. ";NR$:NR$""@387,R4$:R4$NR$+L14+fC110:0:31780,92, @99,RM$;:@294,"SELECT FIELD TO SORT";:@170,"<1> NAME ";:@202,"<2> TYPE ";:@234,"<3> LOCATION";:PS$:PS$""23:PS$"R"5:(PS$)1(PS$)323,t@294,"SELECT SECOND FIELD ";:@99," ONLY TO SKIP TO SORT";:SS$:SS$""24:SS$(13)29,(SS$)1(SS$)324,@294,"SELECT THIRD FIELD ";:TS$:TS$""26:TS$(13)30,(TS$)1(TS$)326,31-&31781,(PS$)1:31782,15:31783,15:32-[31781,(SS$)1:31782,(PS$)1:31783,15:32-31781,(TS$)1:31782,(SS$)1:31783,(PS$)1- Z((P1)256):31778,Z:Z(P1)(((P1)256)256):31779,Z:131800:Z1(D$(0))::5.[!C110:3:@3,RM$;:@69,"SELECT FIELD TO SEARCH";:@128,"<1> "PN$:"<2> "PT$:"<3> "PL$:"<4> "CM$.|"100:A$"R"5:A1A434.#@320,"";:"ENTER SEARCH TERM ";ST$:101.$C110/%0:@3,RM$;:@64,"DELETE BY -":"<1> NUMBER":"<2> NAME":"<3> ALL DATA"/.&100:A$"R"5:A1A3100,4:38/@'A 42,47,40/(0:100,2:100,2:@160,"ABOUT TO DELETE ALL RECORDS!"::" cONTINUE aBORT TO MENU";:A$:A$"A"5:A$"C"41:40/)C0:50E*0:@3,RM$;:@64,"RECORD NUMBER TO DELETE";:A$:A$"R"5:(A$)1(A$)C 100,4:@170,"NO SUCH RECORD.";:T1V::420+P(A$)1:106:@128,R$(0):R$(1):R$(2):R$(3)::"DELETE THIS RECORD y/n";A$:A$"N"420,A$"R"50-A$"Y"46:420.DP (C1):D$(D)D$(D1):D:CC1:421</3:@3,RM$;:@64,"";:PN$"TO DELETE ":@128,"";:A$:A$"R"51g0P0(C1):L(A$):(D$(P),L)A$501y1P:107:4712106::R$(0):R$(1):R$(2):R$(3)::"DELETE THIS RECORD ? y/n";13A$:A$"Y"52:A$"N"47:5124DP (C1):D$(D)D$(D1)::CC1:4725C110263:@133,"PLACE DISK IN DRIVE 0";:@3,RM$;:@74,"records="C;:@224,"NAME FOR FILE";:F$:F$"R"5273:@200,"saving "F$;:P028"O",#1,F$29#1,D$(P):P(C1)592:PP1:@490,"records="P;:572;#13(=3:@199,F$" SAVE COMPLETED";:50,3:T1V2::53\@0:C0@64,"THE DATA IN MEMORY WILL APPEND!";3A@3,RM$;:@195,"PLACE DISK IN DRIVE 0 ";:@256,"NAME OF FILE TO LOAD";:F$:F$"R"54 B3:@228,"SEARCHING FOR - "F$" ";:"I",#1,F$:@228,"found/loading - "F$" ";:200,34>C#1,D$(P):PP1:CC1:PX PX:CP:#1:704yD(1)#1:200,2:@298,"file loaded";:T1V2::54E@490,"records="C;:675F4:@128,"record space is depleted entire disk file has not been loaded!":100,4:@293,"hit any key for menu";:100:55GC1105H0:@10,"records="C;:@64,"DURING SCAN HIT ANY KEY TO PAUSE";:@160,"SELECT SPEED OF SCAN <5 FASTEST>":@230,"<1> <2> <3> <4> <5>";5I100:A1A5100,4:736JG2000A:P0(C1):2:@10,RN$;(P1);:N$D$(P):@128,"";:106:R$(0):R$(1):R$(2):R$(3):T1G:T:A$:A$""76:@320,RM$:"'m' TO MODIFY RECORD":"HIT TO RESUME SCAN ";R$:R$"R"56KR$"M"3:936LP:3:@202,"end of file";:50,3:T1V::56MC1107{N2:@3,RM$;:@132,"DO YOU WANT TO";:@196,"<1> PRINT ALL RECORDS";:@228,"<2> PRINT SELECTED RECORDS";:100:A$"R"5:A1A2100,4:787OA 80,867PPN1:LC1:3:@96,"";:"NAME FOR FILE: ";F$:"DATE: ";D$:5:@236,"printing";84Q#2,(80,"="):#2,2)F$;"SELECT SPEED OF SCAN <5 FASTEST>";:@230,"<1> <2> <3> <4> <5>";8eE87:A1A588:69:G2400A8FP0(C1):2:@10,K$(2);(P1);:N$D$(P):@96,"";:91:D15:F$(D)""R$(D):9PGT1G::A$:A$""74:@384,K$(1):"'m' TO MODIFY RECORD":"'p' TO PRINT RECORD":"HIT TO RESUME SCAN ";R$:R$"R"59qHR$"M"QP:WC:30:PQ:CW9IR$"P"A3:769JP:3:@202,"end of file";:88:90:5:CK2:@3,K$(1);:@132,"DO YOU WANT TO";:@196,"<1> PRINT ALL RECORDS";:@228,"<2> PRINT SELECTED RECORDS";:87:A$"R"5:A1A288:75:ZLN15:F$(N)"":uMNN1:A283:A386:NPN1:P1:3:@3,K$(1);:@105,"position paper";:@160,"";:"NAME FOR FILE: ";F$:F$"R"5:"DATE: ";D$:5:@236,"printing";;JO#2,(80,"="):#2,F$;36)D$;68)"PAGE ";PN:#2,(80,"="):#2,"":LCLC4;[PPP1:PC5;Q91:A1N:#2,F$(A):#2,3)R$(A):LCLC2:A:#2,"":LCLC1:LCAA65NCLC 65:#2,"":NC:LC0:PNPN1:79;R80:5;S84:83<|T2:@3,K$(1);:@96,"ENTER NUMBER OF RECORD TO PRINT":@176,"";:"?";A$:A(A$):A$"R"5:A1AC4:@233,"NO SUCH RECORD";:90:84<UP(A1):91<V5:@172,"PRINTING";:L1N:#2,F$(L):#2,3)R$(L)::#2,"":<WA$:A$""87:A(A$):<X100,4:=-Y8:88:@232,"NO DATA IN MEMORY";:90:=<ZT1V::=[D0:N$D$(P):L(N$):E15:F(1,N$,Z1$):DDF:R$(E)(N$,F1):N$(N$,(LD)):E:=\3:@10,K$(2);(P1);:@128,"";:A15:F$(A)""R$(A):=]>5^D$(P)R$(1)"\"R$(2)"\"R$(3)"\"R$(4)"\"R$(5)"\":SUSU(D$(P)):CC1:PP1:::=[D0:N$D$(P):L(N$):E15:F(1,N$,Z1$):DDF:R$(E)(N$,F1):N$(N$,(LD)):E:=\3:@10,K$(2);(P1);:@128,"";:A15:F$(A)""R$(A):=]>5^D$(P)R$(1)"\"R$(2)"\"R$(3)&L(39)2563000025,14:&HE00,0:200,31775:1,1:M"SORT32":"PROG32"&25,14:&HE00,0:200,15391:1,1:M"SORT16":"PROG16"1Q$"TAPE":Q11::Q$"DISK":Q11:)R12:LN$(R)"":LA$(R)"":LM$(R)"":LC$(R)"":LP$(R)"":R:> ANOTHER NA6& 0:1600:X200:MX20205&VD$(X),K$(2),Z1$(1),R$(6),F$(6),A$(1),B$(1),C$(1)&V600:Z1$"\":K$(0)(32,"*"):K$(1)"'r' FOR MAIN MENU":K$(2)"record #"'|PC:0:@32,K$(0):@71,"fileiii data system":K$(0);:@134,"<1> INPUT DATA ";:@166,"<2> LOCATE DATA ";:@198,"<3> MODIFY DATA ";:@230,"<4> DELETE DATA ";:@262,"<5> SORT DATA ";(@294,"<6> SAVE ON DISK ";:@326,"<7> LOAD FROM DISK ";:@358,"<8> SHOW ON SCREEN ";:@390,"<9> SEND TO PRINTER ";:@416,K$(0):@457,"YOUR CHOICE ?"(587:A1A988:7(oA1A7C189:5:A9,22,28,35,42,51,61,68,75( F$(1)""12) 3:@3,K$(1);:@69,"DEFINE FIELDS <5 MAX>";:@353," ONLY FOR UNUSED FIELDS";:@128,"field < 1 >: ";:"";F$(1):F$(1)"R"F$(1)""F$(1)"":5)U A25:"field <"A">: ";:"";F$(A):F$(A)""15:A) F$(5)""15:3:@107,"DO YOU WANT";:@169,"<1> SAME FIELDS";:@201,"<2> MORE FIELDS";:87:A1A288:12*. A115:2:@37," ONLY WHEN DONE";:@96,"add fields"::A15:F$(A)"""<"A"> "F$(A):*X"<"A"> ";:"";F$(A):F$(A)""15:*3:@42,K$(2);(C1);:@3,K$(1);:@484,"records remaining";(XC1);:XC14:@197,"RECORD SPACE DEPLETED!";:88:90:5+4SUMX4:@132,"string space is depleted";:88:@294,"hit any key for menu";:87:5+a@96,F$(1);":":"- ";R$(1):R$(1)"R"5+A25:F$(A)""F$(A)":":"- ";R$(A):+94:" cONTINUE mODIFY rETURN TO MENU"+87:A$"C"15:A$"M"PP1:CP:30:A$"R"5:88:20,15,d3:@3,K$(1);:@69,"SELECT FIELD TO SEARCH";:@128,"";:B15:F$(B)"""<"B">- "F$(B):,87:A$"R"5:A1A(B1)88:23-IZA:@352,"";:"ENTER SEARCH TERM ";ST$:P0:PPC1:N$D$(P):E1Z:D0:L(N$):F(N$,Z1$):R$(N$,F1):N$(N$,(LF)):E:L(ST$):Y1(R$):(R$,Y,L)ST$91:92:26-yY:@421,"searching record #";P;:P:PC27-@448,"cONTINUE SEARCH rETURN TO MENU":87:A$"R"5:A$"C"P:PC27-2:@202,"search fails";:88:90:22.2:@3,K$(1);:@160,"RECORD # TO MODIFY? ";:A$:A(A$):A$"R"5:A1AC2:@168,"NO SUCH RECORD!";:90:PA1:QC:30:CQ:PC:28.28.2:91:@32,"";:A15:F$(A)"""<"A"> "R$(A):/SUSU(D$(P))::"MODIFY THIS RECORD? y/n":87:A$"N"94::A$"Y"88:31/t " ONLY FOR NO CHANGE":A15:F$(A)"""<"A"> ";:"";N$:N$""R$(A)N$:A/!F$(A)""A/"2:@96,"RECORD MODIFIED TO -"::A15:R$(A)::36)"HIT ANY KEY TO CONTINUE":87:94:0/#0:@3,K$(1);:@64,"DELETE BY -":"<1> RECORD NUMBER":"<2> ALL DATA"0V$87:A$"R"5:A1A288:360d%A38,410&0:@3,K$(1);:@96,"RECORD NUMBER TO DELETE ";:A$:A$"R"5:(A$)1(A$)C88:@169,"NO SUCH RECORD!";:90:380'P(A$)1:91:92:1("DELETE THIS RECORD y/n";A$:A$"N"38:A$"Y"SUSU(D$(P)):DP(C1):D$(D)D$(D1):D:CC1:3:@169,"RECORD DELETED";:90:38:401)0:88:88:@160,"ABOUT TO DELETE ALL RECORDS!"::" cONTINUE aBORT TO MENU";:A$:A$"A"5:A$"C"1:412*31780,92:02+@99,K$(1);:@294,"SELECT FIELD TO SORT";:@160,"<1>- ";F$(1):"<2>- ";F$(2):"<3>- ";F$(3):87:A$"R"5:A1A388:432,C$A$:@294,"SELECT SECOND FIELD ";:@99," TO SKIP TO SORT ";:87:A$(13)473,-B$A$:@294,"SELECT THIRD FIELD ";:87:A$(13)4835.493b/31781,(C$)1:31782,15:31783,15:503031781,(B$)1:31782,(C$)1:31783,15:503131781,(A$)1:31782,(B$)1:31783,(C$)14)2Z((P1)256):31778,Z:Z(P1)(((P1)256)256):31779,Z:131800:Z1(D$(0))::5433:@128,"PLACE DISK IN DRIVE 0 ";:@3,K$(1);:@74,"records ="C;:@224,"";:"NAME FOR FILE ";F$:F$"R"5442:@200,"saving "F$;:P045"O",#1,F$:#1,F$(1),F$(2),F$(3),F$(4),F$(5)56#1,D$(P):P(C1)565#7PP1:@490,"records="P;:545+8#15`:2:@192,F$" SAVE COMPLETED":50,3:90:90:55=0:C0@64,"THE DATA IN MEMORY WILL APPEND. IF YOUR FIELDS ARE DIFFERENT THEFIELDS IN MEMORY WILL BE LOST"62>@3,K$(1);:@192,"PLACE DISK IN DRIVE 0 ";:@256,"NAME OF FILE TO LOAD? ";:"";F$:F$"R"56?3:@228,"SEARCHING FOR - "F$" ";:"I",#1,F$:@228,"found/loading";:50,3:#1,F$(1),F$(2),F$(3),F$(4),F$(5)7@#1,D$(P):SUSU(D$(P)):SUMX 4:@128,"string";:67:PP1:CC1:PX PX:#1:4:@128,"record";:677(A(1)#1:57EB@490,"records ="C;:647C@135,"space is depleted entire disk file has not been loaded!":88:@293,"hit any key for menu";:87:58?D0:@10,"RECORDS ="C;:@64,"DURING SCAN HIT ANY KEY TO PAUSE";:@160,ENTER> ONLY TO SKIP TO SORT";:SS$:SS$""77:SS$(13)79:(SS$)1(SS$)3778N@295,"SELECT THIRD FIELD ";:TS$:TS$""78:TS$(13)80:(TS$)1(TS$)378:818O31781,(PS$)1:31782,15:31783,15:829P31781,(SS$)1:31782,(PS$)1:31783,15:829QQ31781,(TS$)1:31782,(SS$)1:31783,(PS$)19RZ((P1)256):31778,Z:Z(P1)(((P1)256)256):31779,Z:131800:Z1(D$(0))::59SA$:A$""83:A(A$):9T100,4::>UR0:N$D$(P):E0:L(N$):E06:F(1,N$,Z1$):RRF:R$(E)(N$,F1):N$(N$,(LR)):E::VD$(P)R$(2)Z1$R$(6)Z1$R$(1)Z1$R$(0)Z1$R$(3)Z1$R$(4)Z1$R$(5)Z1$:T06:R$(T)"":::W5:@198,"NO RECORDS IN MEMORY";:84:102:5;X2:@8,RN$;(P1);:@128,R$(2);" ";R$(0):R$(4):R$(6)""R$(6);8YR$(5);" ";R$(1):R$(3):;ZLN$(X)R$(2)" "R$(0):LA$(X)R$(4):LM$(X)R$(6):LC$(X)R$(5)" "R$(1):LP$(X)R$(3):LM$(X)""LM$(X)LC$(X):LC$(X)"";[;\3:@32,"<0> ";:R$(0)""R$(0):"(LAST NAME)"<]"<1> ";:R$(1)""R$(1):"(ZIP)" ";:R$(2)""R$(2):"(FIRST NAME) ";:R$(3)""R$(3):"(PHONE)"<`"<4> ";:R$(4)""R$(4):"(ADDRESS)"<a"<5> ";:R$(5)""R$(5):"(CITY/STATE)"=b"<6> ";:R$(6)""R$(6):"(EXTRA ADDRESS LINE)"=c:"NUMBER TO REVISE <^> WHEN DONE":83:A$"^"D$(P)R$(0)"\"R$(1)"\"R$(2)"\"R$(3)"\"R$(4)"\"R$(5)"\"R$(6)"\":=dA684:92=eA"- ";:R$(A):92=fT1Q::>gJ0:5:@3,RM$;:@96," LAST NAME OF RECORD DESIRED":@160,"";:DR$:DR$"^"5>dhJC105:PJC1:F(D$(P),Z1$):R$(D$(P),F1):R$DR$85:88::P>i5:84:@199,"RECORD NOT LOCATED";:102:103>j58:5:@237,"printing";:85:90>k(CPA)CPACPCP1:107?lQQ1CPA:A110,113,116?Rn#2,LN$(X):#2,LA$(X):#2,LM$(X):#2,LC$(X):PA$"Y"#2,LP$(X):#2,""?ho#2,"":QQ:119?q#2,LN$(X);42)LN$(X):#2,LA$(X);42)LA$(X):#2,LM$(X);42)LM$(X):#2,LC$(X);42)LC$(X):PA$"Y"#2,LP$(X);42)LP$(X):#2,""@r#2,"":QQ:119@t#2,LN$(X);26)LN$(X);52)LN$(X):#2,LA$(X);26)LA$(X);52)LA$(X):#2,LM$(X);26)LM$(X);52)LM$(X):#2,LC$(X);26)LC$(X);52)LC$(X):PA$"Y"#2,LP$(X);26)LP$(X);52)LP$(X):#2,""@u#2,"":QQ:119A$wZ2:0:@192,"<1> ANOTHER NAME <2> TO MENU":83:A1A2119A1xA30,5A}2:@128,"DO YOU WANT TO USE",,,"<1> TAPE","<2> DISK":83:A1A284:125A~A1Q$"TAPE":Q11::Q$"DISK":Q11:AR12:LN$(R)"":LA$(R)"":LM$(R)"":LC$(R)"":LP$(R)"":R:> ANOTHER&0:(1650):D201&D$(D),R$(6),LN$(2),LA$(2),LM$(2),LC$(2),LP$(2):Z1$"\":Q500:RM$"'^' FOR MAIN MENU":RN$"record number":RE$"RECORDS =":RR$"record space remaining"'PC:3:@64,(14,"*")"MENU"(14,"*");:VDC1:@482,RR$V;:@5,"records in memory="C;:@96,"<1> INPUT NAMES",,"<2> DELETE NAMES/CLEAR MEMORY","<3> LOCATE NAMES","<4> SAVE TO DISK/TAPE","<5> LOAD FROM DISK/TAPE"("<6> LIST NAMES TO SCREEN","<7> PRINT NAMES ON LABELS","<8> SORT RECORDS","<9> PRINT SINGLE RECORDS":@426,"YOUR CHOICE";(9@437," ?";:83:A1A984:7([A9,20,29,33,44,51,57,74,29( C(D1)5:@197,"record space depleted";:84:102:5( 5:@128,"INCLUDE PHONE NUMBERS y/n";( PA$:PA$"Y"PA$"N"12:11) 5:@3,RM$;:@71,RN$;P1;:@482,RR$DC2;:T06:R$(T)""::PL160:19:@352,"FIRST NAME ?":R$(1):R$(1)"^"5:"LAST NAME ?":R$(2):@PL,R$(1)" "R$(2):19:@352,"ADDRESS ?":R$(3):PLPL32*5 @PL,R$(3):19:@448,"ENTER 'X' FOR EXTRA ADDRESS LINE";:@352,"CITY/STATE":R$(4):R$(4)"X"14:PLPL32:@PL,R$(4):19:15*@448,"":@352,"SECOND ADDRESS LINE":R$(5):PLPL32:@PL,R$(5):19:@448,"":@352,"CITY/STATE":R$(4):PLPL32:@PL,R$(4):19+-@448,"":@352,"ZIP CODE":R$(6):@PL,R$(4)" "R$(6):19:PA$"Y"@352,"PHONE":R$(0):PLPL32:@PL,R$(0)+m19:@352,"cONTINUE mODIFY rETURN TO MENU";:86:CC1:PC+83:A$"C"12:A$"R"5:A$"M"17:PP1:85:92:3:@192,"cONTINUE ENTRY / rETURN TO MENU":PC+83:A$"R"5:A$"C"12:18,@352,,,,,,,,,:@320,"";:,'C187,w4:@35,"DO YOU WANT TO DELETE BY";:@96,"<1> LAST NAME":"<2> ALL RECORDS",83:A1A284:22,A126,4:@163,"ABOUT TO DELETE ALL MEMORY";:@228,"aBORT TO MENU / cONTINUE";:200,6-83:A$"A"5:A$"C"C0:P0:5:25-)103-|@352,"DELETE THIS RECORD? y/n";:83:A$"N"JP1:104:27:A$"Y"28:27-PPC:D$(P)D$(P1)::7:@201,"RECORD DELETED";:102:CC1:PC:26-C187-103.}@352," cONTINUE SEARCH rETURN TO MENU ";:@420,"mODIFY pRINT ON LABELS";:83:A$"C"JP1:104:A$"R"PC:5:A$"P"106:A$"M"92:31:31. 31.!C187."125:3:@138,"PREPARE "Q$;:@3,RM$;:@74,"records="C;:@224,"NAME FOR FILE";:F$:F$"^"5/#3:@200,"saving "F$;:P0/)$"O",#Q1,F$:A238/g%#Q1,D$(P):P(C1)39:PP1:@388,"saving ";RN$;P;:37/,D$(P):PC139:PP1:@388,"saving ";RN$;P;:38/'#Q1/*5/,125:0:C0@67,"DATA IN MEMORY WILL APPEND";05-@3,RM$;:@199,"PREPARE "Q$;:@256,"NAME OF FILE TO LOAD";:F$:F$"^"50`.3:@232,"LOADING - "F$" ";:"I",Q1,F$0/#Q1,D$(P):PP1:CP:(Q1)#Q1:5:PD1PD1:CP:#Q1:5001@490,RE$;C;:471124:@128,"record space is depleted entire file was not loaded":84:@293,"hit any key for menu";:83:51=3C187140:@10,RE$C;:@64,"DURING SCAN HIT ANY KEY TO PAUSE";:@160,"SELECT SPEED OF SCAN <5 FASTEST>":@230,"<1> <2> <3> <4> <5>";1583:A1A584:5326G2000A:P0(C1):85:88:T1G::A$:A$""56:@320,RM$:"'m' TO MODIFY RECORD":"'p' TO PRINT RECORD":"HIT TO RESUME SCAN ";R$:R$"^"PC:527R$"P"Z2:106:Z0:R$"M"92:PP128P:3:@202,"end of file";:50,3:102:539C187:58:613?:0:@32,;:"HOW MANY COPIES DO YOU WANT";CP:CP1583;@131,"DO YOU WANT LABELS PRINTED";:@201,"<1> ONE WIDE ";:@233,"<2> TWO WIDE ";:@265,"<3> THREE WIDE";:@484,RM$;:@330,"YOUR CHOICE?";:83:A$"^"5:A1A384:594Y<@323,"INCLUDE PHONE NUMBERS y/n ";:PA$:PA$""60:PA$"^"5:PA$"N"PA$"Y"84:60:4=5:@200,"PRINTING LABELS";:A62,64,694>T1CP:P0C1:85:90:#2,LN$(X):#2,LA$(X):#2,LM$(X):#2,LC$(X):PA$"Y"#2,LP$(X):#2,""5 ?#2,"":P:T:55@T1CP:P05@AX01:85:90:PP1:PC66:X5B#2,LN$(0);42)LN$(1):#2,LA$(0);42)LA$(1):#2,LM$(0);42)LM$(1):#2,LC$(0);42)LC$(1):PA$"Y"#2,LP$(0);42)LP$(1):#2,""5C#2,"":127:PC 655DT:55ET1CP:P06&FX02:85:90:PP1:PC71:X6G#2,LN$(0);26)LN$(1);52)LN$(2):#2,LA$(0);26)LA$(1);52)LA$(2):#2,LM$(0);26)LM$(1);52)LM$(2):#2,LC$(0);26)LC$(1);52)LC$(2):PA$"Y"#2,LP$(0);26)LP$(1);52)LP$(2):#2,""7H#2,"":127:PC 707 IT:57JC1877)K0:31780,927L@101,RM$;:@295,"SELECT FIELD TO SORT";:@170,"<1> LAST NAME ";:@202,"<2> ZIP CODE ";:@234,"<3> FIRST NAME";:PS$:PS$""76:PS$"^"5:(PS$)1(PS$)3768WM@295,"SELECT SECOND FIELD ";:@99,"<&5:PL32&EBB$:BB$"Z"3:N3011:@PLN,(BB$,31N);:&VPLPL32:1&@425,"your choice?";:A$:A$""3&A(A$):A1A3150,3:3&A1"LABELIII"&A2"FILEIII"&"PROGFILE"'******owls nest software*,,*,....data management system.,*,,- ENTER YOUR PROGRAM CHOICE - ,,* <1> LABELIII ,* <2> FILEIII ,* <3> PROGRAM FILE ,,,ZA(A$):A1A3150,3:3&A1"LABELIII"&A2"FILEIII"&"PROGFILE"'******owls nest software*,,*,...&I(39)2563000025,14:&HE00,0:200,31775:1,1:M"SORT32":"32K"&25,14:&HE00,0:200,15391:1,1:M"SORT16":"16K")~A1Q$"TAPE":Q11::Q$"DISK":Q11:)R12:LN$(R)"":LA$(R)"":LM$(R)"":LC$(R)"":LP$(R)"":R:> ANOTHER NA#$%()+,MENU BAS LABELIIIBAS!16K BAS"32K BASFILEIII BAS&FILE16 BAS'6FILE32 BAS9PROGFILEBASPROG16 BAS*PROG32 BASSORT16 BIN-SORT32 BIN&0:(900):D51&D$(D),R$(6),LN$(2),LA$(2),LM$(2),LC$(2),LP$(2):Z1$"\":Q500:RM$"'^' FOR MAIN MENU":RN$"record number":RE$"RECORDS =":RR$"record space remaining"'PC:3:@64,(14,"*")"MENU"(14,"*");:VDC1:@482,RR$V;:@5,"records in memory="C;:@96,"<1> INPUT NAMES",,"<2> DELETE NAMES/CLEAR MEMORY","<3> LOCATE NAMES","<4> SAVE TO DISK/TAPE","<5> LOAD FROM DISK/TAPE"("<6> LIST NAMES TO SCREEN","<7> PRINT NAMES ON LABELS","<8> SORT RECORDS","<9> PRINT SINGLE RECORDS":@426,"YOUR CHOICE";(7@437," ?";:83:A1A984:7(YA9,20,29,33,44,51,57,74,29( C(D1)5:@197,"record space depleted";:84:102:5( 5:@128,"INCLUDE PHONE NUMBERS y/n";( PA$:PA$"Y"PA$"N"12:11) 5:@3,RM$;:@71,RN$;P1;:@482,RR$DC2;:T06:R$(T)""::PL160:19:@352,"FIRST NAME ?":R$(1):R$(1)"^"5:"LAST NAME ?":R$(2):@PL,R$(1)" "R$(2):19:@352,"ADDRESS ?":R$(3):PLPL32*3 @PL,R$(3):19:@448,"ENTER 'X' FOR EXTRA ADDRESS LINE";:@352,"CITY/STATE":R$(4):R$(4)"X"14:PLPL32:@PL,R$(4):19:15*@448,"":@352,"SECOND ADDRESS LINE":R$(5):PLPL32:@PL,R$(5):19:@448,"":@352,"CITY/STATE":R$(4):PLPL32:@PL,R$(4):19++@448,"":@352,"ZIP CODE":R$(6):@PL,R$(4)" "R$(6):19:PA$"Y"@352,"PHONE":R$(0):PLPL32:@PL,R$(0)+k19:@352,"cONTINUE mODIFY rETURN TO MENU";:86:CC1:PC+83:A$"C"12:A$"R"5:A$"M"17:PP1:85:92:3:@192,"cONTINUE ENTRY / rETURN TO MENU":PC+83:A$"R"5:A$"C"12:18,@352,,,,,,,,,:@320,"";:,%C187,u4:@35,"DO YOU WANT TO DELETE BY";:@96,"<1> LAST NAME":"<2> ALL RECORDS",83:A1A284:22,A126,4:@163,"ABOUT TO DELETE ALL MEMORY";:@228,"aBORT TO MENU / cONTINUE";:200,6-83:A$"A"5:A$"C"C0:P0:5:25-'103-z@352,"DELETE THIS RECORD? y/n";:83:A$"N"JP1:104:27:A$"Y"28:27-PPC:D$(P)D$(P1)::7:@201,"RECORD DELETED";:102:CC1:PC:26-C187-103.{@352," cONTINUE SEARCH rETURN TO MENU ";:@420,"mODIFY pRINT ON LABELS";:83:A$"C"JP1:104:A$"R"PC:5:A$"P"106:A$"M"92:31:31. 31.!C187."125:3:@138,"PREPARE "Q$;:@3,RM$;:@74,"records="C;:@224,"NAME FOR FILE";:F$:F$"^"5/#3:@200,"saving "F$;:P0/'$"O",#Q1,F$:A238/e%#Q1,D$(P):P(C1)39:PP1:@388,"saving ";RN$;P;:37/,D$(P):PC139:PP1:@388,"saving ";RN$;P;:38/'#Q1/*5/,125:0:C0@67,"DATA IN MEMORY WILL APPEND";03-@3,RM$;:@199,"PREPARE "Q$;:@256,"NAME OF FILE TO LOAD";:F$:F$"^"50^.3:@232,"LOADING - "F$" ";:"I",Q1,F$0/#Q1,D$(P):PP1:CP:(Q1)#Q1:5:PD1PD1:CP:#Q1:5001@490,RE$;C;:471/24:@128,"record space is depleted entire file was not loaded":84:@293,"hit any key for menu";:83:51;3C187140:@10,RE$C;:@64,"DURING SCAN HIT ANY KEY TO PAUSE";:@160,"SELECT SPEED OF SCAN <5 FASTEST>":@230,"<1> <2> <3> <4> <5>";1583:A1A584:5326G2000A:P0(C1):85:88:T1G::A$:A$""56:@320,RM$:"'m' TO MODIFY RECORD":"'p' TO PRINT RECORD":"HIT TO RESUME SCAN ";R$:R$"^"PC:527R$"P"Z2:106:Z0:R$"M"92:PP128P:3:@202,"end of file";:50,3:102:539C187:58:613=:0:@32,;:"HOW MANY COPIES DO YOU WANT";CP:CP1583;@131,"DO YOU WANT LABELS PRINTED";:@201,"<1> ONE WIDE ";:@233,"<2> TWO WIDE ";:@265,"<3> THREE WIDE";:@484,RM$;:@330,"YOUR CHOICE?";:83:A$"^"5:A1A384:594W<@323,"INCLUDE PHONE NUMBERS y/n ";:PA$:PA$""60:PA$"^"5:PA$"N"PA$"Y"84:60:4=5:@200,"PRINTING LABELS";:A62,64,694>T1CP:P0C1:85:90:#2,LN$(X):#2,LA$(X):#2,LM$(X):#2,LC$(X):PA$"Y"#2,LP$(X):#2,""5?#2,"":P:T:55@T1CP:P05>AX01:85:90:PP1:PC66:X5B#2,LN$(0);42)LN$(1):#2,LA$(0);42)LA$(1):#2,LM$(0);42)LM$(1):#2,LC$(0);42)LC$(1):PA$"Y"#2,LP$(0);42)LP$(1):#2,""5C#2,"":127:PC 655DT:55ET1CP:P06$FX02:85:90:PP1:PC71:X6G#2,LN$(0);26)LN$(1);52)LN$(2):#2,LA$(0);26)LA$(1);52)LA$(2):#2,LM$(0);26)LM$(1);52)LM$(2):#2,LC$(0);26)LC$(1);52)LC$(2):PA$"Y"#2,LP$(0);26)LP$(1);52)LP$(2):#2,""6H#2,"":127:PC 707 IT:57JC1877'K0:15396,927L@101,RM$;:@295,"SELECT FIELD TO SORT";:@170,"<1> LAST NAME ";:@202,"<2> ZIP CODE ";:@234,"<3> FIRST NAME";:PS$:PS$""76:PS$"^"5:(PS$)1(PS$)3768UM@295,"SELECT SECOND FIELD ";:@99," ONLY TO SKIP TO SORT";:SS$:SS$""77:SS$(13)79:(SS$)1(SS$)3778N@295,"SELECT THIRD FIELD ";:TS$:TS$""78:TS$(13)80:(TS$)1(TS$)378:818O15397,(PS$)1:15398,15:15399,15:829P15397,(SS$)1:15398,(PS$)1:15399,15:829OQ15397,(TS$)1:15398,(SS$)1:15399,(PS$)19RZ((P1)256):15394,Z:Z(P1)(((P1)256)256):15395,Z:115416:Z1(D$(0))::59SA$:A$""83:A(A$):9T100,4::<UR0:N$D$(P):E0:L(N$):E06:F(1,N$,Z1$):RRF:R$(E)(N$,F1):N$(N$,(LR)):E::VD$(P)R$(2)Z1$R$(6)Z1$R$(1)Z1$R$(0)Z1$R$(3)Z1$R$(4)Z1$R$(5)Z1$:T06:R$(T)"":::W5:@198,"NO RECORDS IN MEMORY";:84:102:5;X2:@8,RN$;(P1);:@128,R$(2);" ";R$(0):R$(4):R$(6)""R$(6);6YR$(5);" ";R$(1):R$(3):;ZLN$(X)R$(2)" "R$(0):LA$(X)R$(4):LM$(X)R$(6):LC$(X)R$(5)" "R$(1):LP$(X)R$(3):LM$(X)""LM$(X)LC$(X):LC$(X)"";[;\3:@32,"<0> ";:R$(0)""R$(0):"(LAST NAME)"<]"<1> ";:R$(1)""R$(1):"(ZIP)" ";:R$(2)""R$(2):"(FIRST NAME) ";:R$(3)""R$(3):"(PHONE)"<`"<4> ";:R$(4)""R$(4):"(ADDRESS)"<a"<5> ";:R$(5)""R$(5):"(CITY/STATE)"<b"<6> ";:R$(6)""R$(6):"(EXTRA ADDRESS LINE)"=c:"NUMBER TO REVISE <^> WHEN DONE":83:A$"^"D$(P)R$(0)"\"R$(1)"\"R$(2)"\"R$(3)"\"R$(4)"\"R$(5)"\"R$(6)"\":=dA684:92=eA"- ";:R$(A):92=fT1Q::>gJ0:5:@3,RM$;:@96," LAST NAME OF RECORD DESIRED":@160,"";:DR$:DR$"^"5>bhJC105:PJC1:F(D$(P),Z1$):R$(D$(P),F1):R$DR$85:88::P>i5:84:@199,"RECORD NOT LOCATED";:102:103>j58:5:@237,"printing";:85:90>k(CPA)CPACPCP1:107>lQQ1CPA:A110,113,116?Pn#2,LN$(X):#2,LA$(X):#2,LM$(X):#2,LC$(X):PA$"Y"#2,LP$(X):#2,""?fo#2,"":QQ:119?q#2,LN$(X);42)LN$(X):#2,LA$(X);42)LA$(X):#2,LM$(X);42)LM$(X):#2,LC$(X);42)LC$(X):PA$"Y"#2,LP$(X);42)LP$(X):#2,""@r#2,"":QQ:119@t#2,LN$(X);26)LN$(X);52)LN$(X):#2,LA$(X);26)LA$(X);52)LA$(X):#2,LM$(X);26)LM$(X);52)LM$(X):#2,LC$(X);26)LC$(X);52)LC$(X):PA$"Y"#2,LP$(X);26)LP$(X);52)LP$(X):#2,""@u#2,"":QQ:119A"wZ2:0:@192,"<1> ANOTHER NAME <2> TO MENU":83:A1A2119A/xA30,5A}2:@128,"DO YOU WANT TO USE",,,"<1> TAPE","<2> DISK":83:A1A284:125A~A1Q$"TAPE":Q11::Q$"DISK":Q11:AR12:LN$(R)"":LA$(R)"":LM$(R)"":LC$(R)"":LP$(R)"":R:> ANOTHER N&L(39)2563000025,14:&HE00,0:200,31775:1,1:M"SORT32":"FILE32"&25,14:&HE00,0:200,15391:1,1:M"SORT16":"FILE16"1Q$"TAPE":Q11::Q$"DISK":Q11:)R12:LN$(R)"":LA$(R)"":LM$(R)"":LC$(R)"":LP$(R)"":R:> ANOTHER NA3&0:950:X50:MX4671&SD$(X),K$(2),Z1$(1),R$(6),F$(6),A$(1),B$(1),C$(1)&V600:Z1$"\":K$(0)(32,"*"):K$(1)"'r' FOR MAIN MENU":K$(2)"record #"'yPC:0:@32,K$(0):@71,"fileiii data system":K$(0);:@134,"<1> INPUT DATA ";:@166,"<2> LOCATE DATA ";:@198,"<3> MODIFY DATA ";:@230,"<4> DELETE DATA ";:@262,"<5> SORT DATA ";(@294,"<6> SAVE ON DISK ";:@326,"<7> LOAD FROM DISK ";:@358,"<8> SHOW ON SCREEN ";:@390,"<9> SEND TO PRINTER ";:@416,K$(0):@457,"YOUR CHOICE ?"(287:A1A988:7(lA1A7C189:5:A9,22,28,35,42,51,61,68,75(} F$(1)""12) 3:@3,K$(1);:@69,"DEFINE FIELDS <5 MAX>";:@353," ONLY FOR UNUSED FIELDS";:@128,"field < 1 >: ";:"";F$(1):F$(1)"R"F$(1)""F$(1)"":5)R A25:"field <"A">: ";:"";F$(A):F$(A)""15:A) F$(5)""15:3:@107,"DO YOU WANT";:@169,"<1> SAME FIELDS";:@201,"<2> MORE FIELDS";:87:A1A288:12*+ A115:2:@37," ONLY WHEN DONE";:@96,"add fields"::A15:F$(A)"""<"A"> "F$(A):*U"<"A"> ";:"";F$(A):F$(A)""15:*3:@42,K$(2);(C1);:@3,K$(1);:@484,"records remaining";(XC1);:XC14:@197,"RECORD SPACE DEPLETED!";:88:90:5+1SUMX4:@132,"string space is depleted";:88:@294,"hit any key for menu";:87:5+^@96,F$(1);":":"- ";R$(1):R$(1)"R"5+A25:F$(A)""F$(A)":":"- ";R$(A):+94:" cONTINUE mODIFY rETURN TO MENU"+87:A$"C"15:A$"M"PP1:CP:30:A$"R"5:88:20,15,a3:@3,K$(1);:@69,"SELECT FIELD TO SEARCH";:@128,"";:B15:F$(B)"""<"B">- "F$(B):,87:A$"R"5:A1A(B1)88:23-FZA:@352,"";:"ENTER SEARCH TERM ";ST$:P0:PPC1:N$D$(P):E1Z:D0:L(N$):F(N$,Z1$):R$(N$,F1):N$(N$,(LF)):E:L(ST$):Y1(R$):(R$,Y,L)ST$91:92:26-vY:@421,"searching record #";P;:P:PC27-@448,"cONTINUE SEARCH rETURN TO MENU":87:A$"R"5:A$"C"P:PC27-2:@202,"search fails";:88:90:22.2:@3,K$(1);:@160,"RECORD # TO MODIFY? ";:A$:A(A$):A$"R"5:A1AC2:@168,"NO SUCH RECORD!";:90:PA1:QC:30:CQ:PC:28.28.2:91:@32,"";:A15:F$(A)"""<"A"> "R$(A):/SUSU(D$(P))::"MODIFY THIS RECORD? y/n":87:A$"N"94::A$"Y"88:31/q " ONLY FOR NO CHANGE":A15:F$(A)"""<"A"> ";:"";N$:N$""R$(A)N$:A/!F$(A)""A/"2:@96,"RECORD MODIFIED TO -"::A15:R$(A)::36)"HIT ANY KEY TO CONTINUE":87:94:0,#0:@3,K$(1);:@64,"DELETE BY -":"<1> RECORD NUMBER":"<2> ALL DATA"0S$87:A$"R"5:A1A288:360a%A38,410&0:@3,K$(1);:@96,"RECORD NUMBER TO DELETE ";:A$:A$"R"5:(A$)1(A$)C88:@169,"NO SUCH RECORD!";:90:380'P(A$)1:91:92:1("DELETE THIS RECORD y/n";A$:A$"N"38:A$"Y"SUSU(D$(P)):DP(C1):D$(D)D$(D1):D:CC1:3:@169,"RECORD DELETED";:90:38:401)0:88:88:@160,"ABOUT TO DELETE ALL RECORDS!"::" cONTINUE aBORT TO MENU";:A$:A$"A"5:A$"C"1:412 *15396,92:02+@99,K$(1);:@294,"SELECT FIELD TO SORT";:@160,"<1>- ";F$(1):"<2>- ";F$(2):"<3>- ";F$(3):87:A$"R"5:A1A388:432,C$A$:@294,"SELECT SECOND FIELD ";:@99," TO SKIP TO SORT ";:87:A$(13)473)-B$A$:@294,"SELECT THIRD FIELD ";:87:A$(13)4832.493_/15397,(C$)1:15398,15:15399,15:503015397,(B$)1:15398,(C$)1:15399,15:503115397,(A$)1:15398,(B$)1:15399,(C$)14&2Z((P1)256):15394,Z:Z(P1)(((P1)256)256):15395,Z:115416:Z1(D$(0))::5433:@128,"PLACE DISK IN DRIVE 0 ";:@3,K$(1);:@74,"records ="C;:@224,"";:"NAME FOR FILE ";F$:F$"R"5442:@200,"saving "F$;:P045"O",#1,F$:#1,F$(1),F$(2),F$(3),F$(4),F$(5)46#1,D$(P):P(C1)565 7PP1:@490,"records="P;:545(8#15]:2:@192,F$" SAVE COMPLETED":50,3:90:90:55=0:C0@64,"THE DATA IN MEMORY WILL APPEND. IF YOUR FIELDS ARE DIFFERENT THEFIELDS IN MEMORY WILL BE LOST"6/>@3,K$(1);:@192,"PLACE DISK IN DRIVE 0 ";:@256,"NAME OF FILE TO LOAD? ";:"";F$:F$"R"56?3:@228,"SEARCHING FOR - "F$" ";:"I",#1,F$:@228,"found/loading";:50,3:#1,F$(1),F$(2),F$(3),F$(4),F$(5)7@#1,D$(P):SUSU(D$(P)):SUMX 4:@128,"string";:67:PP1:CC1:PX PX:#1:4:@128,"record";:677%A(1)#1:57BB@490,"records ="C;:647C@135,"space is depleted entire disk file has not been loaded!":88:@293,"hit any key for menu";:87:58<D0:@10,"RECORDS ="C;:@64,"DURING SCAN HIT ANY KEY TO PAUSE";:@160,"SELECT SPEED OF SCAN <5 FASTEST>";:@230,"<1> <2> <3> <4> <5>";8bE87:A1A588:69:G2400A8FP0(C1):2:@10,K$(2);(P1);:N$D$(P):@96,"";:91:D15:F$(D)""R$(D):9MGT1G::A$:A$""74:@384,K$(1):"'m' TO MODIFY RECORD":"'p' TO PRINT RECORD":"HIT TO RESUME SCAN ";R$:R$"R"59nHR$"M"QP:WC:30:PQ:CW9IR$"P"A3:769JP:3:@202,"end of file";:88:90:5:@K2:@3,K$(1);:@132,"DO YOU WANT TO";:@196,"<1> PRINT ALL RECORDS";:@228,"<2> PRINT SELECTED RECORDS";:87:A$"R"5:A1A288:75:WLN15:F$(N)"":rMNN1:A283:A386:NPN1:P1:3:@3,K$(1);:@105,"position paper";:@160,"";:"NAME FOR FILE: ";F$:F$"R"5:"DATE: ";D$:5:@236,"printing";;GO#2,(80,"="):#2,F$;36)D$;68)"PAGE ";PN:#2,(80,"="):#2,"":LCLC4;XPPP1:PC5;Q91:A1N:#2,F$(A):#2,3)R$(A):LCLC2:A:#2,"":LCLC1:LCAA65NCLC 65:#2,"":NC:LC0:PNPN1:79;R80:5;S84:832^D$(P)R$(1)"\"R$(2)"\"R$(3)"\"R$(4)"\"R$(5)"\":SUSU(D$(P)):CC1:PP1:::=[D0:N$D$(P):L(N$):E15:F(1,N$,Z1$):DDF:R$(E)(N$,F1):N$(N$,(LD)):E:=\3:@10,K$(2);(P1);:@128,"";:A15:F$(A)""R$(A):=]>2^D$(P)R$(1)"\"R$(2)"\"R$(3)"\&(1150):X100&R$(3),D$(X):Z1$"\":V600:PN$"PROGRAM NAME - ":PT$"PROGRAM TYPE - ":PL$"LOCATION - ":CM$"COMMENTS - ":RM$"'r' FOR MAIN MENU ":U$(32,"*"):RN$"record #":RR$"records remaining ="'PC:3:@32,U$:@70,"program file system":U$;'@134,"<1> INPUT DATA ";:@166,"<2> SORT DATA ";:@198,"<3> SEARCH RECORDS ";:@230,"<4> DELETE RECORDS ";:@262,"<5> SAVE TO DISK ";:@294,"<6> LOAD FROM DISK ";:@326,"<7> LIST TO SCREEN ";(.@358,"<8> LIST TO PRINTER";:@390,"<9> MODIFY RECORDS ";:@416,U$(c@457,"YOUR CHOICE ?";:100:A1A9100,4:8( A 11,22,33,36,53,64,71,77,89( 8:50,4:@232,"NO DATA IN MEMORY";:T1V::5)/ 3:@74,RN$;(C1);:@3,RM$;:@484,RR$;(XC1);:XC14:@197,"RECORD SPACE DEPLETED!";:100,4:T1V2::5)^ @128,"";:"NAME - ";R1$:R1$"R"5) "TYPE - ";R2$:"LOCATION - ";R3$:"COMMENTS - ";R4$):" cONTINUE mODIFY rETURN TO MENU"*A$:A$"M"17:A$"C"A$"R"D$(P)R1$"\"R2$"\"R3$"\"R4$"\":CC1:PP1*<A$"C"11:A$"R"5:15*3:@32,"1. "R1$:"2. "R2$:"3. "R3$:"4. "R4$::" ONLY FOR NO CHANGE":@288,"";:"1. ";NR$:NR$""@291,R1$:R1$NR$*"2. ";NR$:NR$""@323,R2$:R2$NR$+"3. ";NR$:NR$""@355,R3$:R3$NR$+C"4. ";NR$:NR$""@387,R4$:R4$NR$+L14+fC110:0:15396,92, @99,RM$;:@294,"SELECT FIELD TO SORT";:@170,"<1> NAME ";:@202,"<2> TYPE ";:@234,"<3> LOCATION";:PS$:PS$""23:PS$"R"5:(PS$)1(PS$)323,t@294,"SELECT SECOND FIELD ";:@99," ONLY TO SKIP TO SORT";:SS$:SS$""24:SS$(13)29,(SS$)1(SS$)324,@294,"SELECT THIRD FIELD ";:TS$:TS$""26:TS$(13)30,(TS$)1(TS$)326,31-&15397,(PS$)1:15398,15:15399,15:32-[15397,(SS$)1:15398,(PS$)1:15399,15:32-15397,(TS$)1:15398,(SS$)1:15399,(PS$)1- Z((P1)256):15394,Z:Z(P1)(((P1)256)256):15395,Z:115416:Z1(D$(0))::5.[!C110:3:@3,RM$;:@69,"SELECT FIELD TO SEARCH";:@128,"<1> "PN$:"<2> "PT$:"<3> "PL$:"<4> "CM$.|"100:A$"R"5:A1A434.#@320,"";:"ENTER SEARCH TERM ";ST$:101.$C110/%0:@3,RM$;:@64,"DELETE BY -":"<1> NUMBER":"<2> NAME":"<3> ALL DATA"/.&100:A$"R"5:A1A3100,4:38/@'A 42,47,40/(0:100,2:100,2:@160,"ABOUT TO DELETE ALL RECORDS!"::" cONTINUE aBORT TO MENU";:A$:A$"A"5:A$"C"41:40/)C0:50E*0:@3,RM$;:@64,"RECORD NUMBER TO DELETE";:A$:A$"R"5:(A$)1(A$)C 100,4:@170,"NO SUCH RECORD.";:T1V::420+P(A$)1:106:@128,R$(0):R$(1):R$(2):R$(3)::"DELETE THIS RECORD y/n";A$:A$"N"420,A$"R"50-A$"Y"46:420.DP (C1):D$(D)D$(D1):D:CC1:421</3:@3,RM$;:@64,"";:PN$"TO DELETE ":@128,"";:A$:A$"R"51g0P0(C1):L(A$):(D$(P),L)A$501y1P:107:4712106::R$(0):R$(1):R$(2):R$(3)::"DELETE THIS RECORD ? y/n";13A$:A$"Y"52:A$"N"47:5124DP (C1):D$(D)D$(D1)::CC1:4725C110263:@133,"PLACE DISK IN DRIVE 0";:@3,RM$;:@74,"records="C;:@224,"NAME FOR FILE";:F$:F$"R"5273:@200,"saving "F$;:P028"O",#1,F$29#1,D$(P):P(C1)592:PP1:@490,"records="P;:572;#13(=3:@199,F$" SAVE COMPLETED";:50,3:T1V2::53\@0:C0@64,"THE DATA IN MEMORY WILL APPEND!";3A@3,RM$;:@195,"PLACE DISK IN DRIVE 0 ";:@256,"NAME OF FILE TO LOAD";:F$:F$"R"54 B3:@228,"SEARCHING FOR - "F$" ";:"I",#1,F$:@228,"found/loading - "F$" ";:200,34>C#1,D$(P):PP1:CC1:PX PX:CP:#1:704yD(1)#1:200,2:@298,"file loaded";:T1V2::54E@490,"records="C;:675F4:@128,"record space is depleted entire disk file has not been loaded!":100,4:@293,"hit any key for menu";:100:55GC1105H0:@10,"records="C;:@64,"DURING SCAN HIT ANY KEY TO PAUSE";:@160,"SELECT SPEED OF SCAN <5 FASTEST>":@230,"<1> <2> <3> <4> <5>";5I100:A1A5100,4:736JG2000A:P0(C1):2:@10,RN$;(P1);:N$D$(P):@128,"";:106:R$(0):R$(1):R$(2):R$(3):T1G:T:A$:A$""76:@320,RM$:"'m' TO MODIFY RECORD":"HIT TO RESUME SCAN ";R$:R$"R"56KR$"M"3:936LP:3:@202,"end of file";:50,3:T1V::56MC1107{N2:@3,RM$;:@132,"DO YOU WANT TO";:@196,"<1> PRINT ALL RECORDS";:@228,"<2> PRINT SELECTED RECORDS";:100:A$"R"5:A1A2100,4:787OA 80,867PPN1:LC1:3:@96,"";:"NAME FOR FILE: ";F$:"DATE: ";D$:5:@236,"printing";84Q#2,(80,"="):#2,2)F$;36)D$;68)"PAGE ";PN:#2,(80,"="):LCLC3:PN1838CRP0(C1)8S106:#2,"":#2,PN$;R$(0):#2,PT$;R$(1):#2,PL$;R$(2):#2,CM$;R$(3):#2,"":LCLC6:P(C)58TLC60SPLC 66:#2,"":SP:LC1:PNPN1:PP1:818UP:59BV2:@64,"ENTER NUMBER OF RECORD TO PRINT":@227,RM$;:@142,"";:PR$:PR$"R"59W(PR$)1(PR$)C 4:@233,"NO SUCH RECORD";:T1V::86:X2:@204,"PRINTING";:P(PR$)1:106:#2,PN$;R$(0):#2,PT$;R$(1):#2,PL$;R$(2):#2,CM$;R$(3):#2,"":#2,"":86: YC110:Z91:90:c[3:@3,RM$;:@68,"RECORD NUMBER TO MODIFY";:@110,"";:A$:A$"R"5:\P(A$)1:P(C1)100,4:@168,"NO SUCH RECORD!";:T1V::91;#]3:106:@128,R$(0):R$(1):R$(2):R$(3):"MODIFY THIS RECORD y/n ";A$:A$"R"5:A$"N":A$"Y"94:100,4:93;v^" ONLY FOR NO CHANGE":"NAME - ";NR$:NR$""R$(0)NR$:@327,R$(0);_"TYPE - ";NR$:NR$""R$(1)NR$:@359,R$(1);`"LOCATION - ";NR$:NR$""R$(2)NR$:@395,R$(2)< a"COMMENTS - ";NR$:NR$""R$(3)NR$<b3:"RECORD MODIFIED TO -"::R$(0):R$(1):R$(2):R$(3):D$(P)R$(0)"\"R$(1)"\"R$(2)"\"R$(3)"\"::"cONTINUE - rETURN TO MENU"<cA$:A$"R"5:A$"C":A$""99:100,4:99<dA$:A$""100:A(A$):=neP0C1:N$D$(P):E1A:D0:L(N$):F(N$,Z1$):R$(N$,F1):N$(N$,(LF)):E:L(ST$):Y1(R$):(R$,Y,L)ST$104=fY:@389,"searching record #";P;=gP:107:33=h106:3:@10,RN$;(P1);:@128,"";:R$(0):R$(1):R$(2):R$(3)>Ai@448,"cONTINUE SEARCH rETURN TO MENU";:A$:A$"R"5:A$"C"150,1:103:105>jD0:N$D$(P):E0:L(N$):E03:F(1,N$,Z1$):DDF:R$(E)(N$,F1):N$(N$,(LD)):E:>k2:@202,"search fails";:100,4:T1V:::R$(1):R$(2):R$(3)>Ai@448,"cONTINUE SE< $\ h4h''߆''5h~(߈b 2b(>"#########"`````1f4 I!SORTING...    n5@77@J&n:/0/$360 4O_0&2b970ӯ  - DV001'{x-t1r{Y0a'_XM.ݮME-4@0;F$1*03A"10椧!!##5@_'&\'j& Wj'Q"_'&\'j& *j'$''%"j'j' O99||/جr,k60f_V/Pb0Z&%&x0&T9+'0#.Я$0 10-$040&500 501 Ȯ00 !#9!"#STin<20#.Я$