53280,1853281,1:"": I1 5:L$(I)"0": IR""15)" "| 15)" PEABODY ": 15)" " 11)" BY DARIO TIESO" I0 3000"WOULD YOU LIKE AN OLD FILE?" 162: A$"Y" 204R$""="HOW MANY FIELDS(1-7)?":162:C(A$): C1 C7 22G 304["PLEASE WAIT"| I0 C:T$(I)"": I:Y1 J0 C""FIELD NAMES?": 158$"WHAT IS "J1"'S NAME"& T$(J): J("THE NEW FILE NAME"* R$, 44.G0:""R$":"E1":"Y1: 15)"MENU": 158V0"^-SEARCH D-DUMP"}2"\-ENTRY H-HARD COPY"4"N-NEW FILE"6"A-ALPHABETIZE"8"L-LOAD FROM TAPE/DISC":"S-SAVE TO TAPE/DISC"<162> A$"\"80@ A$"D" 276&B A$"^" 1008D A$"S" 186JF A$"L" 198[H A$"A"368lJ A$"N"140}L A$"H"440N60P" MAKE AN ENTRY"R YE "FILE FULL": I11000: I:44S YE SAY0" FILE FULL": I1 1000: I TK00 V I0 Y: C$(0,I)"" LI:IY:K16 XL ZYY1: K0 LYX \P%(Y)L` ^LYn ` I0 C b T$(I):C$(I,P%(Y))"": C$(I,P%(Y)):: 168: 44 d"  SEARCH" f 310: 618: Q1 QC1 44 hQQ1!j"WHAT IS THE "T$(Q): Q$:KK0: (Q$,1)"*" KK1.!l G1 4646!nK0s!p" SEARCHING": KK0 L0 Y:C$(Q,P%(L))Q$118!r KK1 L0 Y: (C$(Q,P%(L)),(Q$)1)"*"Q$118!t132!v622!xK1!zJ0C"| C$(J,P%(L))",";:J:(20):G0168:132"~ G1 488:: 132&" 548,"3"L_" K0 "NO RECORD OF THE "T$(Q)","Q$h"606""SCAN OVER":162:44"" NEW FILE""264:A$"Y"44"158""THE SAME FILE SET UP":162: A$"Y"Y1:44 #"DIFFERENT FILE SET UP?")# 162: A$"Y" :Y1: 22H#"HOW ABOUT A NEW TITLE?"`# 162: A$"Y" 40i# 44v# I0 C#""I1;T$(I): I:# A$# A$""162##"PUSH E TO EDIT THIS"# 162#A$"E" " ":$"PUSH K TO KILL ENTRY"9$ 162: A$"K" 364:G$ I0 C$""T$(I):" "C$(I,P%(L));:LN(C$(I,P%(L))): M0 LN$"";$ M:"": C$(I,P%(L)):I::$" SAVE TO TAPE/DICK "$ 264: A$"Y" 44$272% A$"Y" 212 % 268)%Z1: 1,1,1,R$:216:446% E118W%" LOAD FROM TAPE/DISK "o% 264: A$"Y" 44u%%Y1: 272: A$"Y"226%268%Z1:1,1,0:240:44% 254%Z2: 2,8,2,"@0:"R$" ,S,W": 216: 44%Z,R$" "&Z,C,&Z,Y: I0 C:Z,T$(I): I: I0 Y:& J0 CY&Z,C$(J,P%(I)): J,I: Z:c& 314& 254::Y1:Z2:"FILE NAME": A$: A$"" 198 & 2,8,2,"0:"A$" ,S,R"&Z,R$& R$"" R$(R$,(R$)2):244: 44& Z)'254:""A$" NOT FOUND":"PUSH ANY KEY":162:1983'Z,R$H'R$(R$,(R$)2)Z'"FOUND "R$c'Z,C'Z,Y:CC1:258:I0C:Z,T$(I):I'I0 Y 'P%(I)I:J0C:Z,C$(J,P%(I)):J,I:Z:'15,8,15,"UI+"'15 :' 304+( KEKE:"WARNING FILE FROM COMPUTER WITH MORE MEMORY":q(KEKE:SAY" WARNING FILE FROM COMPUTER WITH MORE MEMORI"w(("ARE YOU SURE?"(  162:( " * TAPE CONFIRMED *"(("ARE YOU USING TAPE?"(162:(" DUMP " )618:G1 464)")Q0:K0:L00) LY300;)J0C`) C$(J,P%(L))",";: J:(20):622v)! G0 168:296)" G1 488::296)$548)&)(LL1)*284 ),606)."DUMP COMPLETE":162:44)0E500)2CC1 *4 C$(C,E),T$(C),P%(E):*61585*8"WHICH FIELD":162:Q(A$):S*:" DISC FILE LISTING?"h*< 162:A$"Y"*>"SCANNING DISC"*@ 1,8,0,"$0"*B#1,A$,B$*D#1,A$,B$*F#1,A$,B$*HC0*J A$""C(A$)*L B$""CC(B$)256+ND$D$""((C),2)""+P#1,B$0+R ST0 1::D+T B$(34)336O+V#1,B$m+X B$(34)D$D$B$:342x+Z#1,B$+\ B$(32)346+`C$C$B$+b#1,B$: B$""352+dD$D$" """(C$,3)+f (D$,6)" """"SEQ" D$" ",hD$"" ,j324,lYY1M,nI0C:C$(I,P%(L))"":I:ILY:P%(I)P%(I1):IY,oLL1:p,p"ALPHABETIZE",rI0C:I%(I)0::158,t"PUSH RETURN IF YOU DON'T WANT ANYMORE",vI0C:K0,xA$"" -z" ENTER THE#"I1"IMPORTANTE FIELD"*-|" ";A$:-~I%(I)(A$)B-LIV-A$""IC:400{- I%(I)1I%(I)C1"":376-I%(I)I%(I)1-K0:J0I:I%(J)I%(I)KK1-J- K2"":K0:376-""I3)":"I%(I)1-I. L0 44.KL01.I0.KL00.J0:IY436?.JYI430k. C$(I%(K),P%(J))C$(I%(K),P%(J1))426.C$(I%(K),P%(J))C$(I%(K),P%(J1))422.UP%(J).P%(J)P%(J1):P%(J1)U:KL1.JJ1.412.JJ1.412.KL0436/II1/53280,((Y)81):408%/K-/44Q/"USING PAPER OR LABELS?"p/162:A$"L"G2:572:448x/G1/"USING PAPER"/"MAKE A HARD COPY"U "/"D - DUMP":"F1 - SEARCH"/"R - RETURN TO THE MENU"/ 1620 A$"R"G0:44!0 A$"D"27620 A$""100;0454D04,4p0A$"":I1((40(R$))2):A$A$" ":I04,(14)A$R$04, (15)(10)0K0:NL7:I06:M%(I)0:I0A$""0KL0: N0 C:II5:BB$T$(N):5100N14,A$:NLNL1:KLKK16C:4721X(A$):1A$"":I1X:A$A$"":IX14,(15)A$(18)(10)(15)a1II0g11 C$(0,P%(L))""1 N0C1M%(N)0:N1KL01A$"":N0C:BB$C$(N,P%(L)):5101N1NLNL1 2 NL61NNNL68:4,(10);:NN:4,"":NL324,A$"2 KL494.2NLNL1724:e2 (BB$,M%(N)1,1)" "M%(N)M%(N)1:510p2J15C2 (BB$)M%(N)15C5282KL12 (BB$,M%(N)15C,1)" " (BB$,M%(N)16C,1)" "5282J03  M14C11:(BB$,M%(N)M,1)" "JM:M03 M 3 J0J15C93CC$(BB$,M%(N)1,J)K3M%(N)M%(N)JY3A$A$CC$}3M015C(CC$)1:A$A$" ":M3 II5A$(A$,(A$)1)""33*************************************3AA$C$(((L$(II),1))1,P%(L))" "4AA$AA$C$(((L$(II),1))1,P%(L))*4 M(AA$)04"94$NN0h4& II15:(L$(II))3542:MNNNNM:5544((L$(II))0M(C$((L$(II))1,P%(L))):MNNNNM4*II4,NN((33NN)2):A$"":II1NN:A$A$" ":II4.4,450 II15:(L$(II))3542:4,A$AA$;:564>52(L$(II))04,A$C$((L$(II))1,P%(L));H544,""Z56 II:4: 4:a58Ij5:DV,5<"LABEL FORMAT"5>158:5805@""5BI15:"LINE"I"= "L$(I):I:5DJ155F5766H"LINE#"J"= FIELD #",6J" "L$(J):"";L$(J)X6L ((L$(J),1))C1((L$(J),1))05486N ((L$(J),1))C1((L$(J),1))05486P(L$(J))2(L$(J),2,1)"+"(L$(J))35486RJ6T5766V"IS THIS OK? "7X162:A$"Y"5727Z"USING LABELS"%7\44817^II0CC7`TL(II)0614Y7bT$(II)" ="TL(II)7dG14,(14)" TOTAL "T$(II)"="TL(II)(15)7fII7h7jII0C7lTL(II)0:II:7nII0C7p(T$(II),1)"#"6387rIK(C$(II,P%(L)))8tIK0642 8vIK((C$(II,P%(L)),2,20))/8xIK0642N8zIK((C$(II,P%(L)),3,20))^8| IK0642f8~IIl88TL(II)TL(II)IK:638$