' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( 0 Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`RSRCİ240:S1:W2$"Y"F4F157 F7$"Y"RSRCıW F1$"F"F31āX1F31:: 240:C1CPRSRCS1:W2$"Y"F4F15 C1CPRSRCS1: F1$"F"F8$"C"2850  :(7):12:"'R' RTN TO MENU, OR 'RTN' TO CONTINUE.";:Z$:Z$"R"ĭW2$1::LNLN1:LNLI2730n X3x HC0:C11H1ĺL LNLN1:LNLI2730f 240:W2$"Y"F4F15 C1CP1ĺOF$LL",D"D1::AC11:2020 240: F7$"N"WR$"N"C1CP1ĺ F3$"N"ĺ:2760 :PGPG1:TB)"PAGE-";PG:HC0! F7$"Y"NLI2730, WR$"Y"LNLN1:LNLI27302( 82 J< F7$"Y"HC0F F1$"F"F6$"R"āX1F3:::X0:X(16384):16368,0:X127İ240::12:"PRESS 'SPACE BAR' TO START OR STOP ";:Z1$:230P A$"N"HCH1CCNCĺZ F222680d X1F2 F7$"Y"C1H125500 W2$"Y"HC1ĺRS;> HC1ĖF4p A$(CC);:PCCL%(CC)(A$(CC))SP:PC);:2600 W2$"Y"HC1ĺRS; HC1F7$"Y"C1H1ĖF4 A$(CC):HC0:F7$"Y"C1H1LNLN1:HCC1:LNLI2730  WR$"N"F7$"N"LNLN1:LB L TI1CO:"-";::,V LNF5:HC0;` C11CP1Hj CC1NC\t PC(C1)CC2440f~ 2600 A$(CC)""A$(CC)" " (A$(CC))1922610 HCHC1:HCH12550 A$"Y"2510 W2$"Y"HC1ĺRS; HC1ĖF4 A$(CC);:" ";:26002390 WR$"Y"H2CP1:2270*H2H17C11H2DCC1NCXPC(C1)CC2310b2360p C12ĖF4 WR$"Y"HCHC1:HCH12350 C1H22350$ H$(CC);:CL%(CC)(H$(CC))SP);:2360. H$(CC):HC0:C1H2F5F51:CPC1ĖF48 2):TB(CO2)30HF5$"Y"ĺ:TA)N$;:::CH0BRCH0:CHCHF1O\C11H1\fCC1NCppPC(C1)CC2180zz2200CHCHCL%(CC)CHCO2880SQ(COCH)H1:SP((COCH)H1):(SQSP).5SPSP1SP02880HC0:A$"N")"< LOADING LEVEL SEARCH >":D$"RUN LEVEL SEARCH"7?A1ZW2$"Y"F4F15:2040dF4F1~F50:F5$"Y"F5F52F3$"Y"F5F52 A$"Y"F5F52S0:A$"N"2390 LNF52120*CK024004CK1:PG0>:TA(CO2)((N$)"< LOADING SEARCH >":D$"RUN SEARCH"T:12:12)"< LOADING SORT >":D$"RUN SORT":12:11)"< LOADING FROM/TO >":D$"RUN FROM/TO":12:12)"< LOADING TOTAL >":D$"RUN TOTAL":12:11)"< LOADING COMPARE >":D$"RUN COMPARE"1:12:81160,1170,1170,1190,5000,1230,1200,1210,1220,1160,1160,1160,1170,1170,1170,1160,6000:12:6)"< LOADING DATA MAINTENANCE >":D$"RUN DATA MAINTENANCE":12:3)"< LOADING SPACE/LIST/APPEND/INDEX >":D$"RUN SPACE/LIST/APPEND/INDEX"$:12:12)330:1070#VS$"5"S$"17"1150u`D11ė:(7):12:3:"LOAD ";::"PROGRAM DISK";::" THEN PRESS 'RTN'";:Z$j:12:6)"< SAVING WORKING TEMP FILE >"t:D$"OPEN WORKING TEMP,D1":D$"WRITE WORKING TEMP":N$:P$:P1$:S$:D1:CL$T~(S$)L SEARCH";20)"15-DISK SPACE":"7-FROM/TO SEARCH";:20)"16-DELETE A FILE":"8-TOTAL";:20)"17-DELETE A FORMAT":"9-COMPARE";:20)" 0-EXIT"$:.(21):16:"WHICH: ";S$8S$""ĺ(7):330:1070B(S$)48Ā L(S$)1(S$)17ĺ(7):((N$)2):TA::N$::79)"MENU SELECTION LIST":"1-ENTER DATA";:20)"10-INSPECT/CHANGE":"2-LIST";:20)"11-DELETE A RECORD":"3-INDEX";:20)"12-FILE INFORMATION" "4-SORT";:20)"13-PRINTER SET-UP":"5-SEARCH";:20)"14-APPEND":"6-LEVEv216,0.D$"OPEN"N$".F":D$"WRITE"N$".F"KNR1:J1NR1:R$(J):V:CL$\{I10131022:PP:I,PP::104,168,104,166,223,154,72,152,72,961013:40501013:(7):"BAD FORMAT NAME-TRY AGAIN":560:80::TA20 NAME FOR FORMAT (28) ":R$(NR1):R$(NR1)""(R$(NR1))28ĺ(7);:330:570ZDNNNR1N:D$"OPEN"R$(NN)"-F,D"D1:D$"WRITE"R$(NN)"-F"XCO:F1:LI:F2:F1$:F3:F6$:F8$:F3$:A$:F5$:W3$:W2$:H1:WR$:F7$:CPbX1CP1:PC(X):lCL$ 1$,F3,F6$,F8$,F3$,A$,F5$,W3$,W2$,H1,WR$,F7$,CPEX1CP1:PC(X):P:CL$VgNR101010:(7);:11:"SAVE THIS FORMAT TO DISK (Y/N) ";Z1$:Z1$"Y"Z1$"N"ĺ(7);:330:520Z1$"N"1010NR1NR0&7100N:"ENTER1NR:R$(J):CL$7:B1::"FORMAT SELECT:":RI1NR:I" "R$(I)::rI" CREATE A NEW FORMAT ":"WHICH: ";Z1$:Z(Z1$):Z1ZIĺ(7);:330:440:ZIB0:4050D$"OPEN"R$(Z)"-F,D"D1:D$" READ "R$(Z)"-F".CO,F1,LI,F2,FN"P$"")ĺ9 @RF$RS",B"B1:768:A$(X)(TE$,1)::CL$:Y JCV(37):37,(CV1):958: TX1NC:4)X;"- ("CL%(X)") ";:14:H$(X):: ^X140:"-";:: h:12:11)"> RECALLING DATA <": r700 |D$"OPEN"N$".F":D$"READ"N$".F"NR:J * TURN OFF PRINTER * Z S0İ230:LFLNLI:::F3$"Y"PGPG1:TB)"PAGE-";PG:240:e 240:x :OF$LL",D"D1 I1RC:B1CL(C1):RF$I",B"B1:768:S$(I)(TE$,1)::CL$: "OF$LL",D"D1 ,X1NC:B1CL(X1) 6X1F7$"Y"C1CP1(P$"L"LL",D"D1; PC(NC),A$(RR),S$(RR),DT$(RR),H$(NC),CL%(NC) X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:768:H$(X)(TE$,1)::D$"CLOSE" X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ40 5000 D$"PR#"F8:: * TURN ON PRINTER * D$"PR#0":: CLOSE"U D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :12:2)"> > ENTERING VARIABLES FROM DISC < <" :D$"OPEN"N$".V,D"D1:D$"READ"N$".V" NC,RC,RR:CL(NC) X1NC:CL(X): LL(CL(NC)NC):D$"OPEN"N$", MANAGEMENT SYSTEM 2.0 *"D Z6)"COPYRIGHT 1979 BY W.L.PASSAUER":t d:12:5)"< RECALLING WORKING TEMP FILE >" n:D$"OPEN WORKING TEMP,D1":D$"READ WORKING TEMP":N$,P$,P1$,S$,D1:D$"CLOSE" xRF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$"+- TE$"X"::255:D$(4):D$"NOMON I,O,C"DD$"BLOAD MOVE,D1"R680:100(:12:5)"< RECALLING PRINTER VARIABLES >"2:D$"OPEN"N$".P,D"D1:D$"READ"N$".P"<CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8FD$"CLOSE"N$".P": P3)"* UNIV. DATA             #D$"CLOSE"#"DELETE"N$".V":D$"RENAME VAR TEMP,"N$".V"="0 Z3$"2"İ4000G": 2780a"D :D$"RENAME TEMP,"N$"N :D$"RENAME VAR TEMP,"N$".V""X 3120""23:15::"-WORKING-":"NP1:R$(1)N$"D$"OPEN DATA FILES":D$"WRITE DATA FILES"#NP:R$(1)R6R61:X11NC:B1CL(X11):W1$X2",B"B1:A$(R6,X1):::CL$l! R2R2R1:12:11:R2;:16:"RECORDS MOVED"! R4R4R1:R3RCR2:14:11:R3" ";:16:"RECORDS TO GO":R303090! 2940! Z3$"2"3140! :D$"DELETE"N$:D$"RENAME TEMP,"N$*"& :D$"RECORDS" OF$LL",D"D12 R5R5R1:X2R4R5} R6R61:X1NC:B1CL(X1):RF$BB(X2)",B"B1:768:A$(R6,X)(TE$,1):: CL$ Z3$"2"ĺ(7);:23:"INSERT ";::"COPY DISK";::" AND PRESS 'RTN'";:Z2$:230 :O1$LL R60:X2R4R5=! $".P"5^ CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:F8>h CL$Wr R20:R3RC:R41:R50| Z3$"2"ĺ(7);:23:"INSERT ";::"ORIGINAL DATA DISK";::" & PRESS 'RTN'";:Z2$:230 R60:R340R140:2970 R1R3 9:11:"MOVING";:18:R1" ";:21::Z2$:230) 23:15::"- WORKING -":= OT$",D"D1:WT$M NC:RC:RRd N11NC:CL(N1):m" CL$x, O1$LL6 X11NC:B1CL(X11):W1$0",B"B1:H$(X1):@ CL$E Z1$"N"2930J Z3$"2"ĭP1$"N"2930T D$"OPEN"N$".P,D1":D$"WRITE"N  2660 :12:10)"* * DONE SORTING * *":TI115:(7);::D12Z1$"Y"Ģ14:"REINSERT INTO DRIVE# 1 AND PRESS 'RTN' ";:Z1$ 1010  Z3$"2"ĺ(7):12:"INSERT AN INITIALIZED (COPY) DISKETTE INTO DRIVE# 1 AND PRESS 'RTN' ";:CL$  D$"OPEN"N$",L"LL",D1"3 R60:X2R4R5 R6R61:X11NC:B1CL(X11):D$"WRITE"N$",R"X2",B"B1:A$(R6,X1):::CL$ R2R2R1:12:11:R2" ";:16:"RECORDS MOVED" R4R4R1:R3RCR2:14:11:R3" ";:16:"RECORDS TO GO":R30İ4000:2780P CL$Z R20:R3RC:R41:R50;d R60:R340R140:2680En R1R3vx 9:11:"MOVING";:18:R1" ";:21:"RECORDS" OF$LL",D"D1:D$"OPEN"N$,L"LL",D"D1 R5R5R1:X2R4R5 R6R61:X1NC:B1CL(X1):RF$BB(X2)",B"B1:768:A$(R6,X)(TE$,1)::,D1":D$"WRITE"N$".P"E CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:F8N CL$x :D$"OPEN"N$".V,D1":D$"WRITE"N$".V" NC:RC:RR( N11NC:CL(N1):2 :CL$< :D$"OPEN"N$",L"LLF X11NC:B1CL(X11):D$"WRITE"N$",R"0",B"B1:H$(X1):0 Z$"D"2490. (S$(I))(S$(B))23808 2320T (S$(I))(S$(B))2380^ 2320n :S02780 :7)"> REORGANIZING DISC DATA <":250:4:6:"WE WILL BE MOVING "RC" RECORDS" D11Z1$"N"2800 P1$"N"2580 :D$"OPEN"N$".PM8 I12380B 2250$L JJ12V JP2210<` 2240Mj Z$"A"2440t (S$(I),2)(S$(I),2)(S$(I),4,2)(S$(B),2)(S$(B),2)(S$(B),4,2)2380~ 2320 (S$(I),2)(S$(I),2)(S$(I),4,2)(S$(B),2)(S$(B),2)(S$(B),4,2)2380 232M:11:13:B" ";:17:"<--*-->";:25:N:A$"2"2460KA$"3"2410\Z$"A"2310rS$(I)S$(B)2380|2320 S$(I)S$(B)2380 T$S$(I):S$(I)S$(B):S$(B)T$ GBB(I):BB(I)BB(B):BB(B)G$ SS1:13:12:"NO. OF MOVES "S. II:OF$LL",D"D1:I1RC:B1(CL(C1)):RF$I",B"B1:NN1:S$(N):BB(N)I:S$(N)"@"NN1:RCRC1:SS1p::CL$:8:13)"* * SORTING * *"MNM(M2):15:10:"SORT OVER WHEN '0'-> "M" "M0ĺ(7);:2510J1:PNMIJ)BING ORDER (A/D) ? ";Z$:Z$"A"Z$"D"ĺ(7);:230:2130^\::12:11:"< RECALLING DATA >"fA$"2"ĺ:OF$LL",D"D1:I1RC:B1(CL(C1)):RF$I",B"B1:NN1:768:S$(N)(TE$,1):BB(N)I:(S$(N))192NN1:RCRC1:SS1pA$"2"Ă::CL$:2190cz240::"SORT WHICH COLUMN (1-";NC;") ";:C<4C.ĉ:1010W>C1CNCĺ(7);:2090H::A$"":12:"* SORTING OPTIONS *"::15:"1- WORD":15:"2- NUMBER":15:"3- DATE"::16:"WHICH: ";A$::A$"1"A$"3"ĺ(7)::21208R"ASCENDING OR DESCENDI"INSERT A DISKETTE INTO DRIVE#1AND PRESS 'RTN' ";:Z2$::20909:12:"IS DISKETTE:"::10:"1- ORIGINAL DATA DISKETTE":10:"2- ANOTHER DATA DISKETTE"::17:"WHICH: ";Z3$:Z3$"."ĉ:1000 Z3$"1"Z3$"2"ĺ(7)::2000+*:D$"RUN LEVEL SEARCH"_:N0:S0:M10:Z1$"":Z3$"":13)"* SORT ROUTINE *":250:34,3nD1120704:"WRITE SORTED FILE TO DRIVE# 1 (Y/N) ? ";Z1$:Z1$"."ĉ:1010Z1$"Y"Z1$"N"ĺ(7);:230:2030Z1$"N"2090H (7)::4: SEARCH"8:12:12)"< LOADING SORT >":D$"RUN SORT"n:12:11)"< LOADING FROM/TO >":D$"RUN FROM/TO":12:12)"< LOADING TOTAL >":D$"RUN TOTAL":12:11)"< LOADING COMPARE >":D$"RUN COMPARE":12:8)"< LOADING LEVEL SEARCH >":0,1200,1210,1220,1160,1160,1160,1170,1170,1170,1160,1160:12:6)"< LOADING DATA MAINTENANCE >":D$"RUN DATA MAINTENANCE":12:3)"< LOADING SPACE/LIST/APPEND/INDEX >":D$"RUN SPACE/LIST/APPEND/INDEX":12:12)"< LOADING SEARCH >":D$"RUN4"2000Y`D11ė:(7):12:3:"LOAD ";::"PROGRAM DISK";::" THEN PRESS 'RTN'";:Z$j:12:6)"< SAVING WORKING TEMP FILE >"t:D$"OPEN WORKING TEMP,D1":D$"WRITE WORKING TEMP":N$:P$:P1$:S$:D1:CL$8~(S$)1160,1170,1170,2000,1180,123"15-DISK SPACE":"7-FROM/TO SEARCH";:20)"16-DELETE A FILE":"8-TOTAL";:20)"17-DELETE A FORMAT":"9-COMPARE";:20)" 0-EXIT"$:.(21):16:"WHICH: ";S$8S$""ĺ(7):230:1070B(S$)48ĀL(S$)1(S$)17ĺ(7):230:1070VS$":# 9)"MENU SELECTION LIST": "1-ENTER DATA";:20)"10-INSPECT/CHANGE":"2-LIST";:20)"11-DELETE A RECORD":"3-INDEX";:20)"12-FILE INFORMATION" "4-SORT";:20)"13-PRINTER SET-UP":"5-SEARCH";:20)"14-APPEND":"6-LEVEL SEARCH";20)1::P1$"Y"İ40! (7):2000A CV(37):37,(CV2):958:s X1NC:4)X;"- ("CL%(X)") ";:14:H$(X):: X140:"-";:: I10131022:PP:I,PP::  104,168,104,166,233,154,72,152,72,96  :80::TA20((N$)2):TA::N$:D$"READ"N$".V"$ NC,RC,RR:CL(NC)9 X1NC:CL(X):d LL(CL(NC)NC):D$"OPEN"N$",L"LL",D"D1 BB(RR),A$(40,NC),S$(RR),H$(NC),CL%(NC) X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:768:H$(X)(TE$,1)::D$"CLOSE" X1NC:CL%(X)CL(X)CL(X1)WRITE TEMP,R":O1$D$"OPEN TEMP,L":OT$D$"OPEN VAR TEMP":WT$D$"WRITE VAR TEMP":CL$D$"CLOSE" D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :12:2)"> > ENTERING VARIABLES FROM DISC < <" :D$"OPEN"N$".V,D"D1: MANAGEMENT SYSTEM 2.0 *"D Z6)"COPYRIGHT 1979 BY W.L.PASSAUER":t d:12:5)"< RECALLING WORKING TEMP FILE >" n:D$"OPEN WORKING TEMP,D1":D$"READ WORKING TEMP":N$,P$,P1$,S$,D1:D$"CLOSE"` xRF$D$"READ"N$",R":OF$D$"OPEN"N$",L":W1$D$"- TE$"X"::255:D$(4):D$"NOMON I,O,C"DD$"BLOAD MOVE,D1"R260:100(:12:5)"< RECALLING PRINTER VARIABLES >"2:D$"OPEN"N$".P,D"D1:D$"READ"N$".P"<CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8FD$"CLOSE"N$".P": P3)"* UNIV. DATA          F"F':10020wF'1013:(7)::12:7:"NO PRINT FORMATS AVAILABLE":10:"PRESS 'RTN' TO MENU. ";:Z$:216,0::1010010Z1$:Z(Z1$):Z1ZIĺ(7);:380:10080BEj':ZIĹ216,0::1010qEt'N3$R$(Z)::12:10:"< DELETING FORMAT >"E~':D$"OPEN"N$".F":D$"WRITE"N$".F"E'NR11ĺD$"DELETE"N$".F":10140E'NR1:J1NR:JZĺR$(J)E'E'CL$F'D$"DELETE"N3$"-TD' APPENDING DONE <":TI115:(7);:@!D12ė:12:(7);:"LOAD INTO DRIVE# 1":"AND PRESS 'RTN' ";:Z$@!1010@(# A2#:11)"$F?H!D11ĺ(7);:20:"LOAD DISKETTE AND PRESS 'RTN'";Z$:390b?R!D$"OPEN"N2$",L"LL",D1"u?\!R60:X2R4R5?f!R6R61:EE1:X11NC:B1CL(X11):D$"WRITE"N2$",R"E",B"B1:B$(R6,X1):::CL$?p!R2R2R1:12:11:R2" ";:16:"RECORDS MOVED"N@z!ESS 'RTN'";Z$:390.> !R60:R340R140:84808>!R1R3i> !9:11:"MOVING";:18:R1" ";:21:"RECORDS">*!D$"OPEN"N1$",L"LL",D"D1>4!R5R5(R1(C1)):C1:X2R4R5?>!R6R61:X1NC:B1CL(X1):D$"READ"N1$",R"X2",B"B1:768:B$(R6,X)(TE$,1):::CLO DRIVE #2 AND PRESS 'RTN' ";:TI115:(7);::Z$^= :8:"< APPENDING DATA PART 2 >":410= R20:R7(DC)1:R4C:R50:R3R7= 5:5:"WE WILL BE MOVING";:23:R7;:28:"RECORDS">!D11ĺ(7);:20:"LOAD DISKETTE HOLDING AND PRNC:B1CL(X11):D$"WRITE"N2$",R"E",B"B1:B$(R6,X1):::CL$n< R2R2R1:11:11:R2" ";:16:"RECORDS MOVED"< R4R4R1:R3R7R2:14:10:R3" ";:15:"RECORDS TO GO":R308410< 82703= D12ė:12:"LOAD DISKETTE HOLDING >APPEND FROM FILE<":"INT"D1&; R5R5(R1(A1)):A1:X2R4R5r; R6R61:X1NC:B1CL(X1):RF$X2",B"B1:768:B$(R6,X)(TE$,1):::CL$; D11ĺ(7);:20:"LOAD DISKETTE AND PRESS 'RTN'";Z$:390; :D$"OPEN"N2$",L"LL",D1"; R60:X2R4R5<< R6R61:EE1:X11A)1:R3R7B:D 5:5:"WE WILL BE MOVING";:23:R7;:28:"RECORDS":N D11ĺ(7);:20:"LOAD DISKETTE HOLDING ":"AND PRESS 'RTN'";Z$:390:X R60:R340R140:8300:b R1R3:l 9:11:"MOVING";:18:R1" ";:21:"RECORDS";v OF$LL",D+9:D$"OPEN"N2$".V,D1":D$"WRITE"N2$".V";9NC:RB:RRR9 N11NC:CL(N1):]9 :CL$9 :7:"WRITING DATA FILE PART -1-":4109& :D$"OPEN"N2$",L"LL",D1"90 X11NC:B1CL(X11):D$"WRITE"N2$",R0,B"B1:H$(X1)::CL$ :: R20:R4A:R50:R7(BING PART 1 >"8P1$"N"8160K812:5:"WRITING PRINTER VARIABLE FILE"w8:D$"OPEN"N2$".P,D1":D$"WRITE"N2$".P"8CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:F88D$"CLOSE"N2$".P"8RB(BA1)(DC1)812:868:10:"WRITING VARIABLE FILE"N2$""(N2$N$D11)(N2$)28İ390:(7);:80707:(BA)(DC)2RRĺ(7)::12:7)"=APPENDING TO MANY RECORDS=":TI13000::80007:12:(7);:"LOAD A BLANK INITIALILED DISKETTEINTO DRIVE #1 AND PRESS'RTN' ";:Z$ 8:10:11)"< WRIT-CONSTRUCT FROM":"RECORD #: ";A:A.1010G6^:"TO RECORD #: ";B::6h"APPEND FROM WHAT FILE NAME ?":"";N1$:N1$""İ380:(7);:80406r:"CONSTRUCT FROM RECORD #: ";C::"TO RECORD #: ";D6|17"CALL APPEND FILE WHAT NAME (28) ? ":"";N2$:CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:F8B5D$"CLOSE"N$".P"T5P1$"Y":10105@E0::9)"* APPEND FILE ROUTINE *":4105J1)"YOUR EXISTING FILE HAS >"RC"< RECORDS":1)"YOU MAY APPEND UP TO >"RRRC"< MORE RECORDS":410*6T"FOR EXISTING FILE"F3$"N"ĺ(7);:7240!4R7000w4\380:"FORM FEED ON RECORD/FORM END (R/F) ? ";F6$:F6$"R"F6$"F"ĺ(7);:72604f70004p380:"SLOT NUMBER FOR PRINTER (1-7) ? ";F8:F81F87ĺ(7);72804z70004:D$"OPEN"N$".P,D"D1:D$"WRITE"N$".P"-51$:F1$"F"F1$"S"ĺ(7);:7190,3 7000d3*380:"ENTER # LINE FEEDS ON FORM FEED ? ";F3:700034380:"STOP ON FORM END OR CONTINUE (S/C) ? ";F8$:F8$"S"F8$"C":(7):72203>70004H380:"ENTER PRINT PAGE NUMBERS (Y/N) ? ";F3$:F3$"Y380:"ENTER # LEFT MARGIN SPACES ";F1:F1F11:F11ĺ(7);:7140M270002380:"ENTER # LINES PER PAGE ? ";LI:LI7ĺ(7);:7160270002 380:"ENTER # LINE FEEDS ON CARRIAGE RETURN ? ";F2:7000"3380:"ENTER FORM OR SHEET FED (F/S) ? ";F"WHICH: ";:F4$!1F4$"."101031F4$"0"7300P1(F4$)0(F4$)117110e1(7):380:70001(F4$)7120,7140,7160,7180,7190,7210,7260,7220,7240,72801380:"ENTER # HORIZ. PRINTER LINE SPACES ? ";CO:CO40CO132ĺ(7);:712017000C26- ("F3")";:12:"LINE FEEDS ON FORM FED":3)"7- ("F6$")";:12:"FORM FEED ON FORM/RECORD END ";13)"8- ("F8$")";:12:"STOP ON FORM END OR CONTINUE":3)"9- ("F3$")";:12:"PRINT PAGE NUMBER (Y/N)":3)"10-("F8")";:12:"PRINTER SLOT NUMBER"::16)10:/v3)"1- ("CO")";:12:"HORIZ. PRINTER SPACES":3)"2- ("F11")";:12:"LEFT MARGIN INDENT":3)"3- ("LI")";:12:"LINES PER PAGE"/3)"4- ("F2")";:12:"LINE FEEDS ON CARRIAGE RETURN";:3)"5- ("F1$")";:12:"FORM OR SHEET FED (F/S)"a03)"SRO.8310:(7)::"INDEX FINISHED!";::" PRESS 'RTN' TO MENU.";:Z$:1010.B:"'R' RTN TO MENU, OR 'RTN' TO CONT.";:Z$.LZ$"R"İ310:1010.V:6170.X.b:7)"* CHANGE PRINTER SET-UP *":410/l4)"ENTER '0' OR '.' WHEN FINISHED":4;:6060$-420:340::P$"Y"İ300N-TA20(((N$)6)2):TA)N$" INDEX":e-H$(C);" COLUMN":r-SR1RC-S$(SR)"@"6190-SR16170-IN1SR1-S$(SR)S$(IN)6190-IN-P$"Y"6180-CV(37):CV226210-$S$(SR)..",P" PRESS 'RTN' TO MENU ";:Z$0,ZB0İ570:,d1010@,pj,z:12)"* INDEX COLUMN *":410::400,:"INDEX WHICH COLUMN #: ";:C:CNCĺ(7):6010,C.1010,P1$"N"6070,-"ON PRINTER (Y/N) ? ";P$:P$"Y"P$"N"İ380:(7)C+C1CPĺ%+X1NC:B1CL(X1)P+X1F7$"Y"C1CP1(P$"N"P$"")ĺw+RF$RS",B"B1:768:A$(X)(TE$,1):+P$"N"5140+300:2000+ 5150+3000++(CL$+2P$"N"A$"N"5190+<320,F(7)::"LISTING FINISHED!!";: ? ";F7$:F7$"Y"F7$"N"ĺ(7);:380:43605*:;*v*PG0:CK0:LN0::9)"= LIST RECORDS ROUTINE =":410:*"FOR ";RC;" RECORDS:"::"START AT WHAT RECORD # ";:LF::LFRCĺ(7);:5010*LF.1010*4000*OF$LL",D"D1+RSLFRCPNC4300%)PC(CP)0CPH1143707)H1CP14370Q):A$"N"P$"N"4340)"USE WRAPAROUND OPTION (Y/N) ? ";WR$:WR$"Y"WR$"N"ĺ(7);:380:4320)WR$"Y"4370))A$"N"P$"N"4370-*H1CP1Ą"USE UNDERNEATH FORMATTING (Y/N)PC(CP)(PC(CP)04260G(PC(CP)NCĺ(7):"INPUT TO HIGH!!":4220M((CP1H1ĺ(7)::11:"YOU SELECTED TO PRINT "H1" COLUMNS":"ACROSS, BUT ONLY CHOSE TO PRINT "CP1:"COLUMNS, PRESS 'RTN' TO TRY AGAIN. ";:Z$::4170(W3$"V"4370 ):400:S'J"PRINT HOW MANY COLUMNS HORIZONTALY":"BEFORE CARRIAGE RETURN ";:H1'TH11H1NCĺ(7);:CV(37):37,(CV2):958:4170'^'h410:"COLUMN SELECTION-ENTER '0' WHEN FINISHED";:410::CP0'rCP1NC(|"PRINT WHICH COLUMN #: ";:? ";F5$:F5$"Y"F5$"N"ĺ(7);:380:41002&&P$"N"A$"Y"Ą"PRINT RECORDS HORIZ./VERT. (H/V)? ";W3$:W3$"H"W3$"V"ĺ(7);:380:4120&"&,"PRINT RECORD NUMBERS (Y/N) ? ";W2$:W2$"Y"W2$"N"ĺ(7);:380:4140&6:W3$"V"4200 '@(7):4020F%P$"Y"ė::(7):12:11:"TURN ON PRINTER !!"::(7)S%B0:430h%216,0:B14370u%:400:%"PRINT COLUMN NAMES (Y/N) ? ";A$:A$"Y"A$"N"A$""ĺ(7);:380:4070%A$"N"P$"N"4110%,&"PRINT FILE TITLE (Y/N) 010$R Z1$"R"1010C$\ S0::OF$LL",D"D1::AC11:ACP13020M$f 3360S$$:8)"> PRINT-OUT FORMATTING <":410: %LN0:S0:F5$"":F7$"":C20:HC0:H10:W2$"":W3$"":WR$"":P1$"Y"Ą"ON PRINTER (Y/N) ? ";P$:3:958:1:P$"Y"P$"N"ĺ1:PC)"";:3330+# W2$"Y"HC1ĺRS;:5<# A$(CC):HC0U# CV(37):CV183370]# CCe# C1# H1CP1(F7$"N"F7$"")HC0:# #* ::HC0#4 :CL$:C1CPRSRCı#> "'R' RTN TO MENU,OR 'RTN' TO CONT. ";:Z1$$H Z1$"R"B0İ570:11923340!" A$"Y"W3$"H"32602" A$"N"3230F" :H$(CC);" - "_" HCHC1:HCH13300y" W2$"Y"HC1ĺRS;:5" A$(CC);:" ";:3330" HCHC1:HCH13300" F7$"Y"C1H13300" W2$"Y"HC1ĺRS;:5# A$(CC);:PCCL%(CC)(A$(CC)) ! C11H1! CC1NC.! PC(C1)CC30908! 3110M! W2$"Y"C11Ė5z! H$(CC);:PCCL%(CC)(H$(CC))1:PC)"";!& !0 !: :X140:"-";:!D C1ACP1!N CC1NC!X PC(C1)CC3180!b 3330!l A$(CC)""A$(CC)" ""v (A$(CC))5  Z$"R"B0İ570:1010-  Z$"R"1010? " F7$"Y"HC0` , ::300:F5$"Y"LN6:2700o 6 LN4:2700 @ :(7):12:(5):"TO MANY HORIZ. CHARACTERS USED !":X14000:::310:1010 A1 SS1 S13140! A$"N"W3$"V"314010:S1:W2$"Y"F4F15- F7$"Y"RSRCıM F1$"F"F31āX1F31::x 310:C1CPRSRCS1:W2$"Y"F4F15 C1CPRSRCS1: F1$"F"F8$"C"2850  :(7):12:"'R' RTN TO MENU, OR 'RTN' TO CONTINUE.";:Z$:Z$"R"ĭW2$"Y"F4F1NLN1:LNLI2730n X.x HC0:C11H1ĺG LNLN1:LNLI2730\ W2$"Y"F4F15 C1CP1ĺOF$LL",D"D1::AC11:2020 310: F7$"N"WR$"N"C1CP1ĺ F3$"N"ĺ:2760 :PGPG1:TB)"PAGE-";PG:HC0 F7$"Y"RSRCİ3I2730( WR$"Y"LNLN1:LNLI2730.( 42 F< F7$"Y"HC0F F1$"F"F6$"R"āX1F3:::X0:X(16384):16368,0:X127İ310::12:"PRESS 'SPACE BAR' TO START OR STOP ";:Z$:300P A$"N"HCH1CCNCĺZ F222680d X1F21::LF7$"Y"C1H12550* W2$"Y"HC1ĺRS;8 HC1ĖF4j A$(CC);:PCCL%(CC)(A$(CC))SP:PC);:2600 W2$"Y"HC1ĺRS; HC1(F7$"Y"C1H1)ĖF4 A$(CC):HC0:F7$"Y"C1H1LNLN1:HCC1:LNLI2730 F7$"N"WR$"N"LNLN1:LNLL TI1CO:"-";::&V LNF5:HC05` C1ACP1Bj CC1NCVt PC(C1)CC2440`~ 2600z A$(CC)""A$(CC)" " (A$(CC))1922610 HCHC1:HCH12550 A$"Y"2510 W2$"Y"HC1ĺRS; HC1ĖF4 A$(CC);:" ";:2600 WR$"Y"H2CP1:2270$H2H11C11H2>CC1NCRPC(C1)CC2310\2360j C12ĖF4 WR$"Y"HCHC1:HCH12350 C1H22350$ H$(CC);:CL%(CC)(H$(CC))SP);:2360. H$(CC):HC0:C1H2F5F51:CPC1ĖF48 B (CO2)3*HF5$"Y"ĺ:TA)N$;:::CH0<RCH0:CHCHF1I\C11H1VfCC1NCjpPC(C1)CC2180tz2200CHCHCL%(CC)CHCO2880SQ(COCH)H1:SP((COCH)H1):(SQSP).5SPSP1SP02880HC0:A$"N"2390ADING LEVEL SEARCH >":D$"RUN LEVEL SEARCH"19A1TW2$"Y"F4F15:2040^F4F1xF50:F5$"Y"F5F52F3$"Y"F5F52 A$"Y"F5F52S0:A$"N"2390 LNF52120*CK024004CK1:PG0 >:TA(CO2)((N$)2):TBDING SEARCH >":D$"RUN SEARCH"N:12:12)"< LOADING SORT >":D$"RUN SORT":12:11)"< LOADING FROM/TO >":D$"RUN FROM/TO":12:12)"< LOADING TOTAL >":D$"RUN TOTAL":12:11)"< LOADING COMPARE >":D$"RUN COMPARE"+:12:8)"< LO000,6000,1190,1180,1230,1200,1210,1220,1160,1160,1160,7000,8000,9000,1160,1160:12:6)"< LOADING DATA MAINTENANCE >":D$"RUN DATA MAINTENANCE":12:3)"< LOADING SPACE/LIST/APPEND/INDEX >":D$"RUN SPACE/LIST/APPEND/INDEX":12:12)"< LOAS$"15"S$"14"S$"13"1150o`D11ė:(7):12:3:"LOAD ";::"PROGRAM DISK";::" THEN PRESS 'RTN'";:Z$j:12:6)"< SAVING WORKING TEMP FILE >"t:D$"OPEN WORKING TEMP,D1":D$"WRITE WORKING TEMP":N$:P$:P1$:S$:D1:CL$N~(S$)1160,5SPACE":"7-FROM/TO SEARCH";:20)"16-DELETE A FILE":"8-TOTAL";:20)"17-DELETE A FORMAT":"9-COMPARE";:20)" 0-EXIT"~$:.(21):16:"WHICH: ";S$8S$""ĺ(7):380:1070B(S$)48ĀL(S$)1(S$)17ĺ(7):380:1070VS$"2"S$"3"9)"MENU SELECTION LIST":"1-ENTER DATA";:20)"10-INSPECT/CHANGE":"2-LIST";:20)"11-DELETE A RECORD":"3-INDEX";:20)"12-FILE INFORMATION""4-SORT";:20)"13-PRINTER SET-UP":"5-SEARCH";:20)"14-APPEND":"6-LEVEL SEARCH";v20)"15-DISK I,PP::2104,168,104,166,223,154,72,152,72,96B1013:4050t1013:(7):"BAD FORMAT NAME-TRY AGAIN":620z :D$"OPEN DATA FILES,D1":D$"WRITE DATA FILES" 1:R$*D$"CLOSE"::90::TA20((N$)2):TA::N$::,D"D1:D$"WRITE"R$(NN)"-F"kCO:F1:LI:F2:F1$:F3:F6$:F8$:F3$:A$:F5$:W3$:W2$:H1:WR$:F7$:CPX1CP1:PC(X):CL$216,0D$"OPEN"N$".F":D$"WRITE"N$".F"NR1:J1NR1:R$(J)::CL$I10131022:PP:;:11:"SAVE THIS FORMAT TO DISK (Y/N) ";Z1$:Z1$"Y"Z1$"N"ĺ(7);:380:580bNZ1$"N"1010qXNR1NR0{b770lv"ENTER NAME FOR FORMAT (28) ":R$(NR1):R$(NR1)""(R$(NR1))28ĺ(7);:380:630NNNR1:D$"OPEN"R$(NN)"-F5"WHICH: ";Z1$:Z(Z1$):Z1ZIĺ(7);:380:500J:ZIB0:4050zD$"OPEN"R$(Z)"-F,D"D1:D$" READ "R$(Z)"-F"CO,F1,LI,F2,F1$,F3,F6$,F8$,F3$,A$,F5$,W3$,W2$,H1,WR$,F7$,CPX1CP1:PC(X):&:CL$0:NR101010PD:(7)%(X)") ";:14:H$(X)::.X140:"-";::T:12:11)"> RECALLING DATA <":^760D$"OPEN"N$".F":D$"READ"N$".F"NR:J1NR:R$(J):CL$:B1::"FORMAT SELECT:":I1NR:I" "R$(I)::I" CREATE A NEW FORMAT ": T:OF$LL",D"D1T ^I1RC:B1CL(C1):RF$I",B"B1:768:S$(I)(TE$,1)::CL$:e hOF$LL",D"D1 rX1NC:B1CL(X1):RF$RS",B"B1:768:A$(X)(TE$,1)::CL$: |CV(37):37,(CV1):958: CV(37):37,(CV2):958:X1NC:4)X;"- ("CLS$"2"5000 S$"2"5000. S$"14"8000@ S$"13"7000R S$"15"9000c "S$"3"6000 ,D$"PR#"F8::* TURN ON PRINTER * 6D$"PR#0":: * TURN OFF PRINTER * @S0İ300:LFLNLI:::F3$"Y"PGPG1:TB)"PAGE-";PG:310: J310:CL(NC) X1NC:CL(X):@ LL(CL(NC)NC):D$"OPEN"N$",L"LLs PC(NC),B$(40,NC),S$(RR),H$(NC),CL%(NC),A$(RR) X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:768:H$(X)(TE$,1)::D$"CLOSE" X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ40 (7):N$",R":RF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$"CLOSE" D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :12:2)"> > ENTERING VARIABLES FROM DISC < <" :D$"OPEN"N$".V,D"D1:D$"READ"N$".V" NC,RC,RR:)"* UNIV. DATA MANAGEMENT SYSTEM 2.0 *"R d6)"COPYRIGHT 1979 BY W.L.PASSAUER": n:12:5)"< RECALLING WORKING TEMP FILE >" x:D$"OPEN WORKING TEMP,D1":D$"READ WORKING TEMP":N$,P$,P1$,S$,D1:D$"CLOSE" D$"BLOAD MOVE,D1"B WF$D$"WRITE";- TE$"X"::255:D$(4):D$"NOMON I,O,C"DD$"BLOAD MOVE,D1"R740:110(:12:5)"< RECALLING PRINTER VARIABLES >"2:D$"OPEN"N$".P":D$"READ"N$".P"<CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8FD$"CLOSE"N$".P":PS$"3 "6000' Z3                             CL$(D$"DELETE"N3$"-F")(:7020(1013:(7)::12:7:"NO PRINT FORMATS AVAILABLE":10:"PRESS 'RTN' TO MENU. ";:Z$:216,0::1010"DELETE WHICH: (1-"I") ";:Z1$:Z(Z1$):Z1ZIĺ(7);:560:7070^':ZIĹ216,0::1010'N3$R$(Z)::12:10:"< DELETING FORMAT >"':D$"OPEN"N$".F":D$"WRITE"N$".F"'NR11ĺD$"DELETE"N$".F":7150'NR1:J1NR:JZĺR$(J)'(&1013:6200 &1013:6220&&XY&b:12:"* DELETE A FORMAT *":580:34,2:7170&l:D$"OPEN"N$".F,D"D1:D$"READ"N$".F"&vNR:J1NR:R$(J)::CL$&::9:"-- FORMATS AVAILABLE --":&I1NR:I" "R$(I)::&I" EXIT ROUTINE":D'TA FILES":D$"WRITE DATA FILES"P%NR11ĺD$"DELETE DATA FILES":NRNR1:6160o%NR1:J1NR:JZĺR$(J)u%%D$"CLOSE"%D$"DELETE"N3$%D$"DELETE"N3$".V"%.D$"DELETE"N3$".F"%86310%BD$"DELETE"N3$".P"&L216,0:(7)::6015OGRAM"::/$7:"--DATA FILES AVAILABLE--":J$I1NR:I" "R$(I)::b$I" EXIT ROUTINE":$"WHICH: (1-"I") ";:"";Z1$:Z(Z1$):Z1ZIĺ(7);:560:6090$ZIĹ216,0::1010$N3$R$(Z)::12:9:"< DELETING DATA FILE >"%D$"OPEN DA> IS LOADED.":"PRESS'RETURN' TO RESTART PROGRAM";:Z$::D$"RUN INITIATE,D1"X#6300#:D$"OPEN DATA FILES,D"D1:D$"READ DATA FILES"#NR:J1NR:R$(J):#D$"CLOSE" $3:2::"DELETEING ALL FILES OR FILE IN MEMORY"::11::"WILL STOP PR"IS PRINTER BEING USED ? ";2"P1$"Y"ĺ" YES"F" P1$"N"ĺ" NO"t"280::"PRESS 'RTN' TO MENU ";:Z$:1010z"p"zNR1::11:"* DELETE A FILE *":580:34,2M#NR0N$N3$ĺ(7):8::"DATA FILES NOT AVAILABLE"::" INSURE ":X1NC:A$(X)"@"::60010:8)"< SORT, TO COMPACT FILE >":( 12:4:"DELETE ANOTHER RECORD (HIS RECORD (Y/N)? ";Z$:Z$"Y"Z$"N"ĺ(7);:560:3140JN Z$"N"3030RX :b "CORRECT ANOTHER RECORD (Y/N) ? ";Z$:Z$"Y"Z$"N"ĺ(7);:560:3170l Z$"N"1010v 3010SE0::7)"- DELETE A RECORD ROUTINE -":580::330:640):L6L6(L740):L60L640 H$(Z)" ("CL%(Z)")":L6:"I":A$(Z):768:WS$(1)(A$,1):(WS$(1))CL%(Z)ĺ(7):::"COLUMN LONGER THAN >"CL%(Z)"< CHARACTERS !!"::3100& RS0H$(Z)WS$(1)0 A$(Z)WS$(1):600: :9D "FINISHED CORRECTING TCORD ROUTINE *":580: 330C :9)"CHANGE SELECTION LIST":^ "0- * NO CHANGE *": X1NC:X"-";:5:H$(X)" - "A$(X): :9)"WHICH: ";:Z::ZNCĺ(7);:3030 Z03170 12)"ENTER YOUR CHANGE":580 L6CL%(Z):L640L7(L X1NC:S1$(S,X)A$(X)::S50Z$"2"ĉ:2350<$ :2020]. :12:13)"> SAVING DATA <"t8 :OF$LL",D"D1:O$B X11S:R1RCSX1L X1NC:B1CL(X1):WF$R1",B"B1:A$(X)S1$(X1,X):A$(X):::S0:2230 SE0: :3)"* INSPECT/CHANGE A RE$:NC:RC:RR$N11NC:CL(N1):-CL$@:RCRR2300P(7):2020^A$(CL)""j:1010:(7):12::3)"DISK DATA WILL FILL YOUR MEMORY !!!"::TI15000::2020 ::"RESTART AT COLUMN # ? ";A::2070 A1:SS1:RCRC10Z$"3"2310pZ$"1"23201zZ$"2"S02320tZ$""(Z$"1"Z$"3")ĺ(7);:CV(37):37,(CV4):958:2150Z$""S02320A1::12:13)"> SAVING DATA <"RCRC1::OF$LL",D"D1:O$X1NC:B1CL(X1):WF$RC",B"B1:A$(X): W(7):::"COLUMN LONGER THAN > "CL%(CL)"< CHARACTERS !!"::2080iHA$(CL)""ĭ(A$(CL))174S02350RA$(CL)""ĭ(A$(CL))1742280\: f8)"1) ALL CORRECT-TO MEMORY":8)"2) ALL CORRECT-TO DISK":8)"3) NOT CORRECT":17)"WHICH: ";:Z$: "RRRC580B3)"> ENTER A 'PERIOD' WHEN FINISHED <":580_ 34,6::"RECORD # "RC1lCLANC L6CL%(CL)::CL" - "H$(CL)" ("L6")"*L640L7(L640):L6L6(L740):L60L6404L6:"I":768:A$(CL)(A$,1)A>(A$(CL))CL%(CL)ĺ"< LOADING TOTAL >":D$"RUN TOTAL"X:12:11)"< LOADING COMPARE >":D$"RUN COMPARE":12:8)"< LOADING LEVEL SEARCH >":D$"RUN LEVEL SEARCH"S0A1::11)"* * ENTER DATA * *":"YOU HAVE "NC" COLUMNS.";:21:"RECORDS UNUSED="V:12:3)"< LOADING SPACE/LIST/APPEND/INDEX >":D$"RUN SPACE/LIST/APPEND/INDEX":12:12)"< LOADING SEARCH >":D$"RUN SEARCH":12:12)"< LOADING SORT >":D$"RUN SORT":12:11)"< LOADING FROM/TO >":D$"RUN FROM/TO"":12:12) FILE >"Zt:D$"OPEN WORKING TEMP,D1":D$"WRITE WORKING TEMP":N$:P$:P1$:S$:D1:CL$~(S$)2000,1170,1170,1190,1180,1230,1200,1210,1220,3000,4000,5000,1170,1170,1170,6000,7000:12:6)"< LOADING DATA MAINTENANCE >":D$"RUN DATA MAINTENANCE8S$""ĺ(7):560:1070)B(S$)48ĀPL(S$)1(S$)17ĺ(7):560:1070VS$"1"S$"10"S$"11"S$"12"S$"16"S$"17"1150`D11ė:(7):12:3:"LOAD ";::"PROGRAM DISK";::" THEN PRESS 'RTN'";:Z$j:12:6)"< SAVING WORKING TEMPSORT";:20)"13-PRINTER SET-UP":"5-SEARCH";:20)"14-APPEND":"6-LEVEL SEARCH";20)"15-DISK SPACE":"7-FROM/TO SEARCH";:20)"16-DELETE A FILE":"8-TOTAL";:20)"17-DELETE A FORMAT":"9-COMPARE";:20)" 0-EXIT"$:.(21):16:"WHICH: ";S$:-v104,168,104,166,223,154,72,152,72,963]:80::TA20((N$)2):TA::N$::}9)"MENU SELECTION LIST":"1-ENTER DATA";:20)"10-INSPECT/CHANGE":"2-LIST";:20)"11-DELETE A RECORD":"3-INDEX";:20)"12-FILE INFORMATION"P"4-310::&49000CV(37):37,(CV1):958:a:X1NC:4)X;"-("CL%(X)") ";:14:H$(X)::wDX140:"-";::N:12:11)"> RECALLING DATA <":X:OF$LL",D"D1bX1NC:B1CL(X1):WF$RS",B"B1:A$(X)::CL$:lI10131022:PP:I,PP:C::12:14)"> SEARCHING <")RS0RC7RS0540V(S$(RS),PA)NA$İ310::\:11:(7):"SORRY-I COULD NOT FIND > "NA$" <"::"CONTINUE (Y/N) ? ";Z$:Z$"Y"Z$"N"ĺ(7);:500:Z$"N"1010400(H$(C),PA)NA$İ ";:RS:RS(RC1)Ģ12:16:"THANK YOU":310:C(7);:560:380::"ENTER ITEM TO SEARCH FOR ";:768:NA$(A$,1):PA(NA$):PA0PA1:570:"FOUND IN WHAT COLUMN # ";C:C1CNCĺ(7);:560:420CSE450::590:290SEI)(A$,1)::CL$:$ 6OF$LL",D"D1d @X1NC:B1CL(X1):RF$RS",B"B1:768:A$(X)(A$,1)::CL$:j J T"RECORD NUMBER SEARCH (Y/N) ? ";A$:A$"."1010 ^A$"Y"A$"N"ĺ(7);:560:340 hA$"N"400 r:.|"ENTER RECORD NUMBER (0-"RC") (7):S$"1"2000) S$"10"3000; S$"11"4000M S$"12"5000_ S$"16"6000q S$"17"7000 D$"PR#"F8:: * TURN ON PRINTER * D$"PR#0":: * TURN OFF PRINTER * ":OF$LL",D"D1 ,I1RC:B1CL(C1):RF$I",B"B1:768:S$(,RR:CL(NC) X1NC:CL(X):E LL(CL(NC)NC):D$"OPEN"N$",L"LL PC(NC),BB(RR),A$(RR),S$(RR),S1$(50,NC),H$(NC),CL%(NC) X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:768:H$(X)(A$,1)::D$"CLOSE" X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ40OPEN"N$",L":O$D$"OPEN"N$".V":CL$D$"CLOSE":W$D$"WRITE"N$".V" D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :12:2)"> > ENTERING VARIABLES FROM DISC < <" :D$"OPEN"N$".V,D"D1:D$"READ"N$".V" NC,RCMANAGEMENT SYSTEM 2.0 *"C Z6)"COPYRIGHT 1979 BY W.L.PASSAUER":s d:12:5)"< RECALLING WORKING TEMP FILE >" n:D$"OPEN WORKING TEMP,D1":D$"READ WORKING TEMP":N$,P$,P1$,S$,D1:D$"CLOSE"G xWF$D$"WRITE"N$",R":RF$D$"READ"N$",R":OF$D$" , A$"X"::255:D$(4):D$"NOMON I,O,C"CD$"BLOAD MOVE,D1"Q620:100(:12:5)"< RECALLING PRINTER VARIABLES >"2:D$"OPEN"N$".P,D"D1:D$"READ"N$".P"<CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8FD$"CLOSE"N$".P": P3)"* UNIV. DATA                     RTN' TO MENU. ";:Z$:216,0::1020A:12:10:"< DELETING FORMAT >"F:D$"OPEN"N$".F":D$"WRITE"N$".F"jNR11ĺD$"DELETE"N$".F":4150NR1:J1NR:JZĺR$(J)",CL$6D$"DELETE"N3$"-F"@:4020#J1013:(7)::12:7:"NO PRINT FORMATS AVAILABLE":10:"PRESS ',D"D1:D$"READ"N$".F"3NR:J1NR:R$(J)::CL$[::9:"-- FORMATS AVAILABLE --":vI1NR:I" "R$(I)::I" EXIT ROUTINE":"DELETE WHICH: (1-"I") ";:Z1$:Z(Z1$):Z1ZIĺ(7);:370:4070:ZIĹ216,0::1020N3$R$(Z):",R0,B"B1:H$(X)::D$"CLOSE"&5106(7):1000a :D$"OPEN"N$".P,D"D1:D$"WRITE"N$".P" CO:F1:LI:F2:F1$:F3:F3$:F6$:F8$:F8 D$"CLOSE" P1$"Y":1020:12:"* DELETE A FORMAT *":380:34,2:4170:D$"OPEN"N$".F: ";:SA:SA1SANCĺ(7);:370:2160:zZ$"N"ė:2060g:12:6)"> SAVING FILE DATA TO DISC <":D$"OPEN"N$".V,D"D1::D$"WRITE"N$".V":NC:RC:RRN11NC:CL(N1):LL(CL(NC)NC):D$"OPEN"N$",L"LLX1NC:B1CL(X1):D$"WRITE"N$TERS !!":::21003>H$(N1)""ĺ(7);:370:21009HR:"ENTER THE LENGTH OF THE LONGEST COLUMN YOU WILL MANIPULATE IN MEMORY (>0) ? ";N2:N2N212\RR(((0)4200)N2)f:"ALL CORRECT (Y/N) ? ";Z$:&pZ$"N"ĺ"RESTART AT COL.# (1-"NC")"LENGTH OF COLUMN # "N1" (1-239)";:" ";CL(N1):CL(N1)239CL(N1)1ĺ(7);:370:2070v CL(N1)CL(N1)(CL(N11)1):*CL(CL(N1)CL(N11))14"NAME COLUMN ";N1;" ("CL") ":768:H$(N1)(A$,1):(H$(N1))CLĺ(7)::"NAME LONGER THAN > "CL" < CHARAC LEVEL SEARCH >":D$"RUN LEVEL SEARCH",cRL249:NC0:SA1::12)"> INITIATE FILE <":380:"FILE NAME (28) ":28:"I":"";N$:N$""(N$)28ĺ(7);:2010R$(NR1)N$"HOW MANY COLUMNS ? ";NC:CL(NC),H$(NC) N1SANC:USEARCH >":D$"RUN SEARCH"I:12:12)"< LOADING SORT >":D$"RUN SORT":12:11)"< LOADING FROM/TO >":D$"RUN FROM/TO":12:12)"< LOADING TOTAL >":D$"RUN TOTAL":12:11)"< LOADING COMPARE >":D$"RUN COMPARE"&:12:8)"< LOADING170,1190,1180,1230,1200,1210,1220,1160,1160,1160,1170,1170,1170,1160,4000:12:6)"< LOADING DATA MAINTENANCE >":D$"RUN DATA MAINTENANCE":12:3)"< LOADING SPACE/LIST/APPEND/INDEX >":D$"RUN SPACE/LIST/APPEND/INDEX":12:12)"< LOADING :1080[S$"17"1150j`D11ė:(7):12:3:"LOAD ";::"PROGRAM DISK";::" THEN PRESS 'RTN'";:Z$j:12:6)"< SAVING WORKING TEMP FILE >"t:D$"OPEN WORKING TEMP,D1":D$"WRITE WORKING TEMP":N$:P$:P1$:S$:D1:CL$I~(S$)1160,1170,1ARCH";$20)"15-DISK SPACE":"7-FROM/TO SEARCH";:20)"16-DELETE A FILE":"8-TOTAL";:20)"17-DELETE A FORMAT":"9-COMPARE";:20)" 0-EXIT".:8(21):16:"WHICH: ";S$BS$""ĺ(7):370:1080L(S$)48ĀV(S$)1(S$)17ĺ(7):370$)2):TA::N$::39)"MENU SELECTION LIST":"1-ENTER DATA";:20)"10-INSPEST/CHANGE":"2-LIST";:20)"11-DELETE A RECORD":"3-INDEX";:20)"12-FILE INFORMATION""4-SORT";:20)"13-PRINTER SET-UP":"5-SEARCH";:20)"14-APPEND":"6-LEVEL SEB0:216,0:2000N$R$(Z)$SD$"OPEN DATA FILES":D$"WRITE DATA FILES"pNR1:J1NR1:R$(J):D$"CLOSE"&I10131022:PP:I,PP::0104,168,104,166,223,154,72,152,72,96:1013:50:260::TA20((ND$"CLOSE"6B1::7:"-- DATA FILES AVAILABLE --":QI1NR:I" "R$(I)::qI" INITIATE A NEW FILE ":"WHICH: (1-"I") ";:"";Z1$:Z(Z1$):Z1ZIĺ(7);:370:460Z10ĺ(7);::"NO MORE THAN 10 FILES PER DISK PLEASE..."::ZI NEW":"FILE (Y/N) ";Z$:Z$"N"Z$"Y"ĺ(7);:370:330JTZ$"Y"2000e^Z$"N"ė:12:"BYE":oh1000rCV(37):37,(CV1):958:|X140:"-";::570D$"OPEN DATA FILES,D"D1:D$"READ DATA FILES"NR:J1NR:R$(J): DISK INTO DRIVE #1 >"::6)"LOAD DATA DISK INTO DRIVE #2"::14)"PRESS 'RTN'";:Z$:310b ,D11 6D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ @:260:3909J216,0:B0ĺ(7);:10:"NO DATA FILES ON DISK, INITIATE ANG PRINTER VARIABLES >":3000L 3)"* UNIV. DATA MANAGEMENT SYSTEM 2.0 *"w 6)"COPYRIGHT 1979 BY W.L.PASSAUER": :12:5)"USING A TWO DISK SYSTEM (Y/N) ";:Z$:Z$"Y"Z$"N"ĺ(7);:370:280Y "Z$"Y"D12:(7);::10:3:"< LOAD PROGRAM P ON FORM END OR CONTINUE (S/C) ? ";F8$:F8$"S"F8$"C"ĺ(7);:370:200Q "PRINT PAGE NUMBERS (Y/N) ? ";F3$:F3$"Y"F3$"N"ĺ(7);:370:220 "SLOT NUMBER FOR YOUR PRINTER (1-7) ? ";F8:F81F87ĺ(7);:370:240 :6)"< SAVIINE FEEDS ON CARRIAGE RETURN ? ";F2:o "FORM OR SHEET FED (F/S) ? ";F1$:F1$"F"F1$"S"ĺ(7);:370:160 :"NO. LINE FEEDS ON FORM FEED ? ";F3: "FORM FEED AT FORM/RECORD END (F/R) ?";F6$:F6$"R"F6$"F"ĺ(7);:370:180 K "STONTER SET-UP *":380:` d"NUMBER OF HORIZ.PRINTER SPACES ? ";CO:CO40CO132ĺ(7);:370:100f n x"SPACES TO INDENT LEFT MARGIN ? ";F1:F1F11:F11ĺ(7);:370:120 "NUMBER OF LINES PER PAGE ? ";LI:LI7ĺ(7);:370:140% :"NO. L$* A$"X"::255:D$(4):CL$D$"CLOSE"?D$"NOMON I,O,C"VD$"BLOAD MOVE,D1"d(550:2802:12:6)"USE PRINTER ROUTINES (Y/N) ";:P1$:P$P1$::P1$"N"P1$"Y"ĺ(7):50<:P1$"N"1020FB0P1$"Y"90P1020 Z:11)"* PRI             Ka(ΠɬϬ)1M6oPa(Š٠)c(Pa()c02Pa(̠Ԡ͠).<Pa(Ԡé٠׮̮)FP a(̠Ӡ)Pa(Π)ZQ    hLH ,i ,h`&&&&&eiei`*aHH T  i ihh`HH T Q)e i ihh`jjjj)` jjjj)` )e   )e` `dhlptx|`"hhh` ~ ɫ   L@L* HɰɫЉơ`*   # (ʩоL: IN BREAKɁ! ݩPRUW  #  (٩ѥ    ШL:(E(ı)_dgoa(ϠŠӠΠĠԡ)l_q`$3voa(ŠŠϠ٠)FE()d6@e`.?6@r$_doS(Šź)&@`@9()$d M;oa(Š)E@E()F?ed6?ed6?ed6?e_#poP M6a(ˠ)ud6?ed6?ezoS()&@`@9()$doPa()E@ ccc_z.XoP M6a(ŠĠ)]d6?ed6?eb`$q0M6 UVWY `$ , oa(ŠŠϠӠĠԡ) _  M q d6@e `.?6@r$  `.?6@r<()r$ `.?6@r<()r$ _d+d6?ed6?ed6?ed6?e_+d6̺)'deM3qqq(.?r.?r@oa(ŠŠ)FE(ӠȠؠҠ)Fd6@e`.?6@r$_d# oP a(Š)" d6?ed6?eo`$d _#oP M6a(Ġ)d6?ed6?eoS(Šź)&@`@9()$d#oa(Ġ)E@E(ı)_d&oP M6a(Š)d6?ed6?e%oS(ؠӯ)oa(κ)]Ġq.?6@r`$d6@e ,q6`<()r%q@`<()r%qJ`<()r%qT`<()r%q^`<()r%qh`<()r%qr`<()r%q)+ca(ŠŠϠ).ca(ӠŠŠ͠))ca(٠Ҡ̠)+ca(٠Ġ)#ca(ĠŠˠ)/ca(ؠŠĠŠϠ@p()]̭UVWa@H(Ġ)FY N@"(r7q qqqqdM6d6?ed6?enPa(͠ŠΠ)xPa()c&ca(̠ĠŠ͠     ҠӬԠŠӠ̠ŠӠB]Π٠ŠɠԠŠҠd6?e qq` %q\ \2BUV6W7Ųq.?6@r`$Yq.d6?ed6?ed6?ed6?e*`.?r`%ŲqqŲ_\(q_dM0u]ϠŠҠPa(Š)cPa(à)cP a(٠Ӻ)2\d2e?o P;@r\_d2e<oP a(Ԡ)cP a(ŠҠ) oP -a(ϠΠϠլ)cP a@*rŲqq@p(ŠϠć)`7;@r$\_d2e_ \K_ X]׭'bKM6@p()\lUVW q<@*rr8rq<@*rroPa()oP(a()(voP(a()oPa()YNodede!d ed e`.?r?$~<a(ԠҠˬ)a@E(ϠΠ)\PM 7@p()`.?rD%@p(ŠŠć)'`.? r %@p(ŠϠŇ)J d2e?`7.? r%ˠԠŠ)[@p()[(q8r]Ҥañq.?ròq.?r8ñrdOñ8òr8ò8òrre@p()[ ]٠\FM: q.?rM6'q.?rq]ү֠ҧԠ"q []Ԡ<UVWcP\ bE()E@Y[]Ԡՠ@p(ȠŠ)[.@p(٠ϠŠŠˠũ)[-@p(٠ϠŠ̠ˠө)[@p(٠Ϡ)[!@p([@p(٠Š)[@p()[@p(Р)[@p()[$@p()[.@p(ŠŠ)[8@p(Π)[B@p(Ǡ)[L@p(̧ӠԠ)[V@p(٠)["@p(Šנ)[]ԠҠĠԩ)E@E()E@oa(ĠҠ׺)ca@E(ϠΠϠծ) \P_ a@E(ϠΠϠ)7*d6?eUVW`.?6@r%Yd6?e_]à]àϭ@p(͠)d>e?d?e?M63] \(o*\(oa@E(ӠנΠĠ))a(ŮΠՠȠϠŠ)(a(άŠŠŠǺ)o a()E@E()E@(ca(ðððð)6a( X]ŠIJ0b`$vPa(͠ԠҠˠӠ)5lPa(ŠĠ)E@Gd6?e\7\P\-v\Aq_-Pa(ŠԠҠΠĩ)!q"\Pa(Ġ)E@G\7\P\-Jd<e d=e a(ŠĠ)E@G\7\P\-\A\(o (a(׬ŠŠ̠)a@ \P\(o \K\ )a(ΠՠȠϠנŬź)!ca(Ġ)E@E()0&a(Š)a()a(ŭ)+_$6q PbG\Uq_6/T`$6a()Goc`$`$d\ \2'd6?ed6?ed6?eM6oP;@r\_c_d ]ŠıP a(ŠҠˠ) d6?e:P8rqq\Ud6?ea6q.?6@r`88r8r8r8rr$6N@d6?e`$J`.?$r%P.?$r\Uq q8r_6YJ`$T`$6`8rΠթ)`%\ bE()E@Y]Š'ca(ŠҠŠҠƠ)@a(ŠՠĠŠϠ)G`%a()`%a()"a(ĠΠ)E@E()Ga,qq8 r`%q q $`$X\(d6?eQ \(\\Z6cd2e?\ P;@ra@d2e/ca(ĠҠҠǠԺ)c$P`%a(Š˩)kUVWP8 r@p(ΠϠ)[]$d@p()@p(ԠŠ΢)n\(\\Zq1xoPa(ϠՠȠϺ)d6?ec\4cca(ŠҠҠŠ٠Ҡ)G\U(q.?6@r`$d6?e!qbGUVWAY6`a@E()E@E()[&Fa@E(Ġٮʬıְ)[$K\a@E(٠)E@E(ıְ)[/Pq.?6@r`$Q`$Pd6?e[ Qw_dBUd2eq\a@Gd2eM6dP.?$r[]Ҡ ZoP _a()E@E()\(_d*(d6?ed"eM6Kd6?e[5-d6?eoPM6cPa(Ǡ)[32a@E(Ġ)E@E(à)F  E(ıְ)[7UVWYd6?e[<d6?e[NAa@E(Š)E@E(à̤)FE(ְ) ]Ԡ٠ ]ŠҠà ] ] ]/dJedKedede]ͺRO4rN@"rC@"(rq\@p@\a@E(Πìɬ|] ] ] ]ŠàΠ ]٠Šɠ ] ]Šנ ]٠̠Π ]      >?U**]*U.u+U**"(/U*U@*U:U.u*WzU.u*"T D w*U*U@*UT*U("D*U**D@>W*U*U* *]*E(D*QD |jj?"U*p+(]*E*T( Q"U(Q**U;w];uU:/"U*U{w];U U*@~{*U*p{W/U*U(Q"D*@@jU:U+U*W>U+u*U""Up(U*U x]|+U"E Q"T(U*U*@Q*U*]jE.U+Uh*P*~oU*U*"_w/}{w.U* U*E*U*U(U*U**U*Q"E*U*U(Q*E*"D*U"D*T("D"U ~~};"  _?k_{Wo}+zW?U@*U*U*U*U*U*U*U*U"U U*U*U*U**D("E*"D"D*p_{Wn_+wnDU*U;| D*Uj]:U*T*"T*U*U"D"D"D"D"T *U*Q"@*D"@"D"];W*] U* D(|W*U@(U*U:T*U*T U*D"E*U(U*D"D(U"U*D Q.D"D"D"~?}/T*Un_xW*Q*T T +U*U*U*U**_zU.u*_@_?]~@Q*Uz*u~_ "D"T(QD @uoU*U*U *@(W  `/U{`_?WjU*U*U*U*`?j_{uo}k~U/UU*U*x#U*wnp+x?w+]*"U*U*U*U*U*]**U:jU>u/]zW>u+u*U*z#  ̯ՠ͠ έɠǠ ƨةΠΠծΠΠծΠ#Ϡ ˭ɠ ҠԠ ӨҩΠ ŠͭҠ ٠Π  ͯϠ̠ Š,ˠŮʠŠǠРӠ Š٠ Š Š" ůԯįؠ@ԠȠ- ̠Ƞ+:12:14)"> SEARCHING <"0.Z$"Y"ė:5330@.360:270:R.Z2$"I"5620_.MA1SL|.PA(DT$(MA)):PA1PA1.RS1RC.Z$"N"5390.RS(DT$(MA))5500.5540.W9$"2"5450.Z3$"2"5430."(S$(RS),PA)DT$(MA)5500R-dZ$"N"ĺ"CHOICE ";SL;" ";:768:DT$(SL)(TE$,1):DT$(SL)""SLSL1::5280c-nZ$"N"5260-x"CHOICE ";SL;" ";:DT$(SL):DT$(SL)""SLSL1::5280-Z$"Y"(DT$(SL))1(DT$(SL))RCĺ(7);:330:5240-Z3$"2"ĉ:5280--4000.NTRY":9:"2- NOT EQUAL TO ENTRY":],216:"WHICH: ";Z3$:Z3$"1"Z3$"2"ĺ(7);:330:5170,<Z3$"2"ĺ:2::"> YOU MAY SEARCH FOR ONLY ONE ITEM <":,FZ3$"1"ė,PZ3$"1"ĺ5)"PRESS 'RTN' ONLY; WHEN FINISHED":350:CV(37):34,CV-ZSL1RR:RED":10:"2- ENTIRE COLUMN":X+16:"WHICH: ";W9$:W9$"1"W9$"2"ĺ(7);:330:5120m+ W9$"2"ĺ:5160s++"REGULAR OR INTERNAL SEARCH (R/I) ? ";Z2$:Z2$"R"Z2$"I"ĺ(7);:330:5150#,(:7:10:"* PRINT-OUT ITEMS *"::9:"1- EQUAL TO ERD SEARCH-FOR RECORDS (1-"RC")":350:34,7:5200=*3:958j*10)"WORD/S NUMBER SEARCH":350::34,4u*340:*"SEARCH FROM WHICH COLUMN #: ";C:C1CNCĺ(7);:330:5090*+:7:8:"* SEARCH MATCH OPTIONS *"::10:"1- CHARACTERS ENTEING (Y/N) ? ";F7$:F7$"Y"F7$"N"ĺ(7);:330:4360>):D))PG0:CK0:LN0:W9$""::9)"* SEARCH DATA ROUTINE *":350:)"RECORD NUMBER SEARCH (Y/N) ? ";Z$:Z$"."1010)Z$"Y"Z$"N"ĺ(7);:330:5020)0*Z$"Y"Ģ3:4)"RECO370(CPNC4300.(PC(CP)0CPH114370@(H1CP14370Z(:A$"N"P$"N"4340("USE WRAPAROUND OPTION (Y/N) ? ";WR$:WR$"Y"WR$"N"ĺ(7);:330:4320(WR$"Y"4370((A$"N"P$"N"43706)H1CP1Ą"USE UNDERNEATH FORMATTN #: ";:PC(CP)"'PC(CP)04260P'PC(CP)NCĺ(7):"INPUT TO HIGH!!":4220V''CP1H1ĺ(7)::11:"YOU SELECTED TO PRINT "H1" COLUMNS":"ACROSS, BUT ONLY CHOSE TO PRINT "CP1:"COLUMNS, PRESS 'RTN' TO TRY AGAIN. ";:Z$::4170(W3$"V"44200&@:340:\&J"PRINT HOW MANY COLUMNS HORIZONTALY":"BEFORE CARRIAGE RETURN ";:H1&TH11H1NCĺ(7);:CV(37):37,(CV2):958:4170&^&h350:"COLUMN SELECTION-ENTER '0' WHEN FINISHED";:350::CP0&rCP1NC'|"PRINT WHICH COLUMLE (Y/N) ? ";F5$:F5$"Y"F5$"N"ĺ(7);:330:4100;%%P$"N"A$"Y"Ą"PRINT RECORDS HORIZ./VERT. (H/V)? ";W3$:W3$"H"W3$"V"ĺ(7);:330:4120%"%,"PRINT RECORD NUMBERS (Y/N) ? ";W2$:W2$"Y"W2$"N"ĺ(7);:330:4140&6:W3$"V"P$"N"ĺ(7):4020O$P$"Y"ė::(7):12:11:"TURN ON PRINTER !!"::(7)\$B0:370q$216,0:B14370~$:340:$"PRINT COLUMN NAMES (Y/N) ? ";A$:A$"Y"A$"N"A$""ĺ(7);:330:4070$A$"N"P$"N"4110$5%"PRINT FILE TIT0İ510:1010#H Z1$"R"1010L#R S0::OF$LL",D"D1::AC11:ACP13020V#\ 3350\##:8)"> PRINT-OUT FORMATTING <":350:$LN0:S0:F5$"":F7$"":C20:HC0:H10:W2$"":W3$"":WR$"":P1$"Y"Ą"ON PRINTER (Y/N) ? ";P$:3:958:1:P$"Y"(A$(CC))1:PC)"";:33305" W2$"Y"HC1ĺRS;:5F" A$(CC):HC0_" CV(37):CV183360g" CCo" C1" H1CP1(F7$"N"F7$"")HC0:" " ::HC0"* :CL$:C1CPRSRCı"4 "'R' RTN TO MENU,OR 'RTN' TO CONT. ";:Z1$ #> Z1$"R"B(A$(CC))1923340+! A$"Y"W3$"H"3260 RECALLING COL.# "C(L)" <":2|710VD$"OPEN"N$".F":D$"READ"N$".F"oNR:J1NR:R$(J):xCL$:B1::"FORMAT SELECT:":I1NR:I" "R$(I)::I" CREATE A NEW FORMAT ": "WHICH: ";Z1$:Z(Z1$):Z1ZIĺ(7);:(TE$,1)::CL$:" ,OF$LL",D"D19 6X1NC:B1CL(X1)d @X1F7$"Y"C1CP1(P$"N"P$"")ĺ JRF$BB(L)",B"B1:768:A$(X)(TE$,1)::CL$: TCV(37):37,(CV1):958: ^X1NC:4)X;"- ("CL%(X)") ";:14:H$(X):: hX140:"-";::(:: * TURN OFF PRINTER * _ S0İ230:LFLNLI:::F3$"Y"PGPG1:TB)"PAGE-";PG:240:j 240:} :OF$LL",D"D1 I1RC:B1CL(C1):RF$I",B"B1:768:S$(I)(TE$,1)::CL$: "OF$LL",D"D1:I1X1:B1CL(C(L)1):RF$BB(I)",B"B1:768:S$(I)L"LL",D"D1: PC(NC),A$(NC),S$(RR),H$(NC),CL%(NC),BB(RR) X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:768:H$(X)(TE$,1)::D$"CLOSE" X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ40 (7):5000 D$"PR#"F8:: * TURN ON PRINTER * D$"PR#0"CLOSE"U D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :12:2)"> > ENTERING VARIABLES FROM DISC < <" :D$"OPEN"N$".V,D"D1:D$"READ"N$".V" NC,RC,RR:CL(NC) X1NC:CL(X): LL(CL(NC)NC):D$"OPEN"N$", MANAGEMENT SYSTEM 2.0 *"D Z6)"COPYRIGHT 1979 BY W.L.PASSAUER":t d:12:5)"< RECALLING WORKING TEMP FILE >" n:D$"OPEN WORKING TEMP,D1":D$"READ WORKING TEMP":N$,P$,P1$,S$,D1:D$"CLOSE" xRF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$")- TE$"X"::255:D$(4):D$"NOMON I,O,C"DD$"BLOAD MOVE,D1"R690:100(:12:5)"< RECALLING PRINTER VARIABLES >"2:D$"OPEN"N$".P,D"D1:D$"READ"N$".P"<CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8FD$"CLOSE"N$".P": P3)"* UNIV. DATA           150"3NR1:J1NR:JZĺR$(J)(313CL$H3D$"DELETE"N3$"-F"T32602031013:(7)::12:7:"NO PRINT FORMATS AVAILABLE":10:"PRESS 'RTN' TO MENU. ";:Z$:216,0::1010:I" "R$(I)::'2I" EXIT ROUTINE":o2"DELETE WHICH: (1-"I") ";:Z1$:Z(Z1$):Z1ZIĺ(7);:330:60702:ZIĹ216,0::10102N3$R$(Z)::12:10:"< DELETING FORMAT >"2:D$"OPEN"N$".F":D$"WRITE"N$".F"3NR11ĺD$"DELETE"N$".F":62901bP$"N"5750+1l230:2000:576051v3000=1RSK1MA:5560Q1p1z:12:"* DELETE A FORMAT *":350:34,2:61701:D$"OPEN"N$".F,D"D1:D$"READ"N$".F"1NR:J1NR:R$(J)::CL$1::9:"-- FORMATS AVAILABLE --":2I1NR7)::"SEARCH FINISHED!";:=0" PRESS 'RTN' TO MENU.";:Z$K0B0İ510U01010b0MA1SL0PA(DT$(MA)):PA1PA10RS1RC0F(S$(RS))0X1F0&(S$(RS),X,PA)DT$(MA)5710000:Z3$"2"57200D57600NZ3$"2"57601X /,5540)/6(S$(RS),PA)DT$(MA)55003/@5540E/JZ3$"2"5480^/TS$(RS)DT$(MA)5500h/^5540/hS$(RS)DT$(MA)5500/r5540/|290/P$"N"5530/230:2000:5540/3000/RS/MA/P$"N"A$"N"5580/2500:(C)""A$(CC)" "(!v (A$(CC))1923340A! A$"Y"W3$"H"3260R! A$"N"3230f! :H$(CC);" - "! HCHC1:HCH13300! W2$"Y"HC1ĺRS;:5! A$(CC);:" ";:3330! HCHC1:HCH13300! F7$"Y"C1H13300! W2$"Y"HC1ĺRS;:5113140 A$"N"W3$"V"3140- C11H1: CC1NCN PC(C1)CC3090X  3110m  W2$"Y"C11Ė5  H$(CC);:PCCL%(CC)(H$(CC))1:PC)""; & 0 : :X140:"-";: D C1ACP1 N CC1NC X PC(C1)CC3180 b 3330!l A$(CE.";:Z$:Z$"R"ĭW2$"Y"F4F15< Z$"R"B0İ520:1010M Z$"R"1010_" F7$"Y"HC0, ::230:F5$"Y"LN6:27006 LN4:2700@ :(7):12:(5):"TO MANY HORIZ. CHARACTERS USED !":X14000:::240:1010  A1 SS1 S";PG:HC07 F7$"Y"RSRCİ240:S1:W2$"Y"F4F15M F7$"Y"RSRCım F1$"F"F31āX1F31:: 240:C1CPRSRCS1:W2$"Y"F4F15 C1CPRSRCS1: F1$"F"F8$"C"2850! :(7):12:"'R' RTN TO MENU, OR 'RTN' TO CONTINUF222680.d X1F21::LNLN1:LNLI27305n XIx HC0:C11H1ĺb LNLN1:LNLI2730| 240:W2$"Y"F4F15 C1CP1ĺOF$LL",D"D1::AC11:2020 240: F7$"N"WR$"N"C1CP1ĺ F3$"N"ĺ:2760  :PGPG1:TB)"PAGE-"N"F7$"N"LNLN1:LNLI2730B WR$"Y"LNLN1:LNLI2730H( N2 `< F7$"Y"HC0F F1$"F"F6$"R"āX1F3:::X0:X(16384):16368,0:X127İ240::12:"PRESS 'SPACE BAR' TO START OR STOP ";:Z1$:230P A$"N"HCH1CCNCĺ Z A$(CC);:" ";:2600/ F7$"Y"C1H12550F W2$"Y"HC1ĺRS;T HC1ĖF4 A$(CC);:PCCL%(CC)(A$(CC))SP:PC);:2600 W2$"Y"HC1ĺRS; HC1F7$"Y"C1H1ĖF4 A$(CC):HC0:F7$"Y"C1H1LNLN1:HCC1:LNLI2730  WR$F51:CPC1ĖF48 B 3L TI1CO:"-";::BV LNF5:HC0Q` C11CP1^j CC1NCrt PC(C1)CC2440|~ 2600 A$(CC)""A$(CC)" " (A$(CC))1922610 HCHC1:HCH12550 A$"Y"2510 W2$"Y"HC1ĺRS; HC1ĖF42880HC0:A$"N"23906WR$"Y"H2CP1:2270@H2H1MC11H2ZCC1NCnPC(C1)CC2310x2360 C12ĖF4 WR$"Y"HCHC1:HCH12350 C1H22350$ H$(CC);:CL%(CC)(H$(CC))SP);:2360. H$(CC):HC0:C1H2F5%>:TA(CO2)((N$)2):TB(CO2)3FHF5$"Y"ĺ:TA)N$;:::CH0XRCH0:CHCHF1e\C11H1rfCC1NCpPC(C1)CC2180z2200CHCHCL%(CC)CHCO2880SQ(COCH)H1:SP((COCH)H1):(SQSP).5SPSP1SP0>":D$"RUN TOTAL"G:12:11)"< LOADING COMPARE >":D$"RUN COMPARE"MUA1pW2$"Y"F4F15:2040zF4F1F50:F5$"Y"F5F52F3$"Y"F5F52 A$"Y"F5F52S0:A$"N"2390 LNF52120*CK024004CK1:PG0< LOADING SPACE/LIST/APPEND/INDEX >":D$"RUN SPACE/LIST/APPEND/INDEX"y:12:12)"< LOADING SEARCH >":D$"RUN SEARCH":12:12)"< LOADING SORT >":D$"RUN SORT":12:11)"< LOADING FROM/TO >":D$"RUN FROM/TO":12:12)"< LOADING TOTAL $"OPEN WORKING TEMP,D1":D$"WRITE WORKING TEMP":N$:P$:P1$:S$:D1:CL$~(S$)1160,1170,1170,1190,1180,5000,1200,1210,1220,1160,1160,1160,1170,1170,1170,1160,1160:12:6)"< LOADING DATA MAINTENANCE >":D$"RUN DATA MAINTENANCE"E:12:3)"1):16:"WHICH: ";S$08S$""ĺ(7):340:1070@B(S$)48ĀgL(S$)1(S$)17ĺ(7):340:1070xVS$"6"5000`D11ė:(7):12:3:"LOAD ";::"PROGRAM DISK";::" THEN PRESS 'RTN'";:Z$j:12:6)"< SAVING WORKING TEMP FILE >"It:DE INFORMATION"g"4-SORT";:20)"13-PRINTER SET-UP":"5-SEARCH";:20)"14-APPEND":"6-LEVEL SEARCH";20)"15-DISK SPACE":"7-FROM/TO SEARCH";:20)"16-DELETE A FILE":"8-TOTAL";:20)"17-DELETE A FORMAT":"9-COMPARE";:20)" 0-EXIT"$:.(2,72,961013:4050H1013:(7):"BAD FORMAT NAME-TRY AGAIN":570Nt:80::TA20((N$)2):TA)N$:9)"MENU SELECTION LIST":"1-ENTER DATA";:20)"10-INSPECT/CHANGE":"2-LIST";:20)"11-DELETE A RECORD":"3-INDEX";:20)"12-FILTN' TO MENU.";:Z$ 1B0İ520*11010:1F(S$(RS))E1&X1FW10Z3$"2"5740w1:(S$(RS),X,PA)DT$(L)5720~1DX1NZ3$"1"55601XX1X11:L2BB(X1)RS:55601bBB(X1)BB(RS):55601l(S$(RS),X,PA)DT$(L)55601v5700:55600hBB(X1)BB(RS):5560,0r:L1X1>0|RSBB(L):300O0P$"N"5530d0230:2000:5560n03000u0L056000RS0L0X11ė:5620054900P$"N"A$"N"562002500:(7)::"SEARCH FINISHED!";:1" PRESS 'RA)DT$(L)X1X11:5380"/5560;/L2BB(X1)RS:5560S/BB(X1)BB(RS):5560e/Z3$"2"5450/"S$(RS)DT$(L)X1X11:5430/,5560/6L2BB(X1)RS:5560/@BB(X1)BB(RS):5560/JS$(RS)DT$(L)X1X11:5470/T55600^L2BB(X1)RS2X1:X10/.12:9)"> SEARCHING LEVEL "L" <"K.PA(DT$(L)):PA1PA1X.RS1X2j.Z2$"I"5660|.W9$"2"5400.Z3$"2"5360.(S$(RS),PA)DT$(L)X1X11:5340.5560.L2BB(X1)RS:5560.BB(X1)BB(RS):5560/(S$(RS),P2E-<"ALL CORRECT (Y/N) ? ";Z$:Z$"N"Z$"Y"ĺ(7);:340:5180K-F-PZ$"N"ĺ"RESTART AT LEVEL # (1-"SE"): ";:SA:SA1SASEĺ(7);:340:5200-ZZ$"N"ė::5140-d4000-nL1SE:370:L1CC(L):270:5260-xX11ė:5620 .290:X12:"SEARCH HOW MANY LEVELS (1-10) ? ";SE:SE1SE10ĺ(7):5130t,:350:360:11:"SEARCHING "SE" LEVEL/S":360,XSASE:"FOR LEVEL# "X" SEARCH COLUMN #: ";:C(X):C(X)1C(X)NCĺ(7);:340:5150,("SEARCH FOR ? ";:768:DT$(X)(TE$,1)::-\+:7:10:"* PRINT-OUT ITEMS *"::9:"1- EQUAL TO ENTRY":9:"2- NOT EQUAL TO ENTRY":+16:"WHICH: ";Z3$:Z3$"1"Z3$"2"ĺ(7);:340:5120+NC10ė:12:"SEARCH HOW MANY LEVELS (1-"NC") ";:SE:SE1SENCĺ(7):5125+NC105140A, :H OPTIONS *"::10:"1- CHARACTERS ENTERED":10:"2- ENTIRE COLUMN":j*16:"WHICH: ";W9$:W9$"."1010*W9$"1"W9$"2"ĺ(7);:340:5060*W9$"2"ĺ:5110*+"REGULAR OR INTERNAL SEARCH (R/I) ? ";Z2$:Z2$"R"Z2$"I"ĺ(7);:340:5100USE UNDERNEATH FORMATTING (Y/N) ? ";F7$:F7$"Y"F7$"N"ĺ(7);:340:4360T):Z))PG0:CK0:LN0:W9$"":X2RC:X10:SA1::8)"* LEVEL SEARCH R0UTINE *":360:)3:958)10)"WORD/S NUMBER SEARCH":360:)E*7:8:"* SEARCH MATC:4170(W3$"V"4370)(CPNC4300D(PC(CP)0CPH114370V(H1CP14370p(:A$"N"P$"N"4340("USE WRAPAROUND OPTION (Y/N) ? ";WR$:WR$"Y"WR$"N"ĺ(7);:340:4320(WR$"Y"4370((A$"N"P$"N"4370L)H1CP1Ą"'|"PRINT WHICH COLUMN #: ";:PC(CP)8'PC(CP)04260f'PC(CP)NCĺ(7):"INPUT TO HIGH!!":4220l'(CP1H1ĺ(7)::11:"YOU SELECTED TO PRINT "H1" COLUMNS":"ACROSS, BUT ONLY CHOSE TO PRINT "CP1:"COLUMNS, PRESS 'RTN' TO TRY AGAIN. ";:Z$:0:4140&6:W3$"V"4200(&@:350:r&J"PRINT HOW MANY COLUMNS HORIZONTALY":"BEFORE CARRIAGE RETURN ";:H1&TH11H1NCĺ(7);:CV(37):37,(CV2):958:4170&^&h360:"COLUMN SELECTION-ENTER '0' WHEN FINISHED";:360::CP0&rCP1NC%K%"PRINT FILE TITLE (Y/N) ? ";F5$:F5$"Y"F5$"N"ĺ(7);:340:4100Q%%P$"N"A$"Y"Ą"PRINT RECORDS HORIZ./VERT. (H/V)? ";W3$:W3$"H"W3$"V"ĺ(7);:340:4120%"&,"PRINT RECORD NUMBERS (Y/N) ? ";W2$:W2$"Y"W2$"N"ĺ(7);:34:3:958:1:P$"Y"P$"N"ĺ(7):4020e$P$""ė::(7):12:11:"TURN ON PRINTER !!"::(7)r$B0:380$216,0:B14370$:350:$"PRINT COLUMN NAMES (Y/N) ? ";A$:A$"Y"A$"N"A$""ĺ(7);:340:4070$A$"N"P$"N"4110%";:Z1$##> Z1$"R"B0İ520:10105#H Z1$"R"1010b#R S0::OF$LL",D"D1::AC11:ACP13020l#\ 3350r##:8)"> PRINT-OUT FORMATTING <":360:)$LN0:S0:F5$"":F7$"":C20:HC0:H10:W2$"":W3$"":WR$"":P1$"Y"Ą"ON PRINTER (Y/N) ? ";P$" A$(CC);:PCCL%(CC)(A$(CC))1:PC)"";:3330K" W2$"Y"HC1ĺRS;:5\" A$(CC):HC0u" CV(37):CV183360}" CC" C1" H1CP1(F7$"N"F7$"")HC0:" " ::HC0"* :CL$:C1CPRSRCı#4 "'R' RTN TO MENU,OR 'RTN' TO CONT. VING WORKING TEMP FILE >"kt:D$"OPEN WORKING TEMP,D1":D$"WRITE WORKING TEMP":N$:P$:P1$:S$:D1:CL$~(S$)1160,1170,1170,1190,1180,1230,5000,1210,1220,1160,1160,1160,1170,1170,1170,1160,1160:12:6)"< LOADING DATA MAINTENANCE >":D$"RUNE";:20)" 0-EXIT"$:6.(21):16:"WHICH: ";S$R8S$""ĺ(7):430:1070bB(S$)48ĀL(S$)1(S$)17ĺ(7):430:1070VS$"7"5000`D11ė:(7):12:3:"LOAD ";::"PROGRAM DISK";::" THEN PRESS 'RTN'";:Z$j:12:6)"< SAA RECORD":"3-INDEX";:20)"12-FILE INFORMATION""4-SORT";:20)"13-PRINTER SET-UP":"5-SEARCH";:20)"14-APPEND":"6-LEVEL SEARCH";20)"15-DISK SPACE":"7-FROM/TO SEARCH";:20)"16-DELETE A FILE":"8-TOTAL";:20)"17-DELETE A FORMAT":"9-COMPAR104,168,104,166,223,154,72,152,72,964 1013:4050f*1013:(7):"BAD FORMAT NAME-TRY AGAIN":660l:80::TA20((N$)2):TA::N$::9)"MENU SELECTION LIST":0"1-ENTER DATA";:20)"10-INSPECT/CHANGE":"2-LIST";:20)"11-DELETE E"R$(NN)"-F"]CO:F1:LI:F2:F1$:F3:F6$:F8$:F3$:A$:F5$:W3$:W2$:H1:WR$:F7$:CPtX1CP1:PC(X):}CL$216,0D$"OPEN"N$".F":D$"WRITE"N$".F"NR1:J1NR1:R$(J)::CL$ I10131022:PP:I,PP::$HIS FORMAT TO DISK (Y/N) ";Z1$:Z1$"Y"Z1$"N"ĺ(7);:430:620TvZ1$"N"1010cNR1NR0m810s"ENTER NAME FOR FORMAT (28) ":R$(NR1):R$(NR1)""(R$(NR1))28ĺ(7);:430:670NNNR1 :D$"OPEN"R$(NN)"-F,D"D1:D$"WRIT1$:Z(Z1$):Z1ZIĺ(7);:430:540:&:ZIB0:4050l0:D$"OPEN"R$(Z)"-F,D"D1:D$" READ "R$(Z)"-F":CO,F1,LI,F2,F1$,F3,F6$,F8$,F3$,A$,F5$,W3$,W2$,H1,WR$,F7$,CPDX1CP1:PC(X):N:CL$XbNR101010Bl:(7);:11:"SAVE T$(X)::X140:"-";::D:12:11)"> RECALLING DATA <":N800rD$"OPEN"N$".F":D$"READ"N$".F"NR:J1NR:R$(J):CL$:B1::"FORMAT SELECT:":I1NR:I" "R$(I)::I" CREATE A NEW FORMAT ":%"WHICH: ";Z8:S$(I)(TE$,1)::CL$:$OF$LLdI1X1:B1CL(C1):RF$I",B"B1:768:S$(I)(TE$,1)::CL$:uOF$LL",D"D1I1RC:B1CL(WC1):RF$I",B"B1:768:S$(I)(TE$,1)::CL$:CV(37):37,(CV1):958:X1NC:4)X;"- ("CL%(X)") ";:14:HP$"")ĺ6 @RF$RS",B"B1:768:A$(X)(TE$,1)::CL$:G JOF$LL",D"D1z TI1X1:B1CL(C1):RF$I",B"B1:S$(I)::CL$: ^OF$LL hX1NC:B1CL(X1):RF$BB(RS)",B"B1:768:A$(X)(TE$,1)::CL$: rOF$LL|I1X1:B1CL(C1):RF$BB(I)",B"B1:76":: * TURN OFF PRINTER * ` S0İ230:LFLNLI:::F3$"Y"PGPG1:TB)"PAGE-";PG:240:k 240:~ :OF$LL",D"D1 I1X1:B1CL(C1):RF$BB(I)",B"B1:S$(I)::CL$: "OF$LL",D"D1 ,X1NC:B1CL(X1) 6X1F7$"Y"C1CP1(P$"N"L"LL",D"D1: PC(NC),A$(RR),S$(RR),BB(RR),H$(NC),CL%(NC) X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:768:H$(X)(TE$,1)::D$"CLOSE" X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ40 (7):5000 D$"PR#"F8:: * TURN ON PRINTER *  D$"PR#0CLOSE"U D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :12:2)"> > ENTERING VARIABLES FROM DISC < <" :D$"OPEN"N$".V,D"D1:D$"READ"N$".V" NC,RC,RR:CL(NC) X1NC:CL(X): LL(CL(NC)NC):D$"OPEN"N$", MANAGEMENT SYSTEM 2.0 *"D Z6)"COPYRIGHT 1979 BY W.L.PASSAUER":t d:12:5)"< RECALLING WORKING TEMP FILE >" n:D$"OPEN WORKING TEMP,D1":D$"READ WORKING TEMP":N$,P$,P1$,S$,D1:D$"CLOSE" xRF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$"+- TE$"X"::255:D$(4):D$"NOMON I,O,C"DD$"BLOAD MOVE,D1"R780:100(:12:5)"< RECALLING PRINTER VARIABLES >"2:D$"OPEN"N$".P,D"D1:D$"READ"N$".P"<CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8FD$"CLOSE"N$".P": P3)"* UNIV. DATA               T COLUMN NAMES (Y/N) ? ";A$:A$"Y"A$"N"A$""ĺ(7);:430:4070\&A$"N"P$"N"4110b&&"PRINT FILE TITLE (Y/N) ? ";F5$:F5$"Y"F5$"N"ĺ(7);:430:4100&'P$"N"A$"Y"Ą"PRINT RECORDS HORIZ./VERT. (H/V)? ";W3$:W3$"H"W3$"%LN0:S0:F5$"":F7$"":C20:HC0:H10:W2$"":W3$"":WR$"":P1$"Y"Ą"ON PRINTER (Y/N) ? ";P$:3:958:1:P$"Y"P$"N"ĺ(7):4020%P$"Y"ė::(7):12:11:"TURN ON PRINTER !!"::(7)%B0:470%216,0:B14370%:440:D&"PRIN"")HC0:$ $ ::HC08$* :CL$:C1CPRSRCıh$4 "'R' RTN TO MENU,OR 'RTN' TO CONT. ";:Z1$$> Z1$"R"B0İ610:1010$H Z1$"R"1010$R S0::OF$LL",D"D1::AC11:ACP13020$\ 3350$$:8)"> PRINT-OUT FORMATTING <":450:A$(CC);:" ";:3330,# HCHC1:HCH13300E# F7$"Y"C1H13300_# W2$"Y"HC1ĺRS;:5# A$(CC);:PCCL%(CC)(A$(CC))1:PC)"";:3330# W2$"Y"HC1ĺRS;:5# A$(CC):HC0# CV(37):CV183360# CC# C1 $ H1CP1(F7$"N"F7$"0 ": :X140:"-";:,"D C1ACP19"N CC1NCM"X PC(C1)CC3180W"b 3330q"l A$(CC)""A$(CC)" ""v (A$(CC))1923340" A$"Y"W3$"H"3260" A$"N"3230" :H$(CC);" - "" HCHC1:HCH13300" W2$"Y"HC1ĺRS;:5# :(5):"TO MANY HORIZ. CHARACTERS USED !":X14000:::240:1010H! P! A1Z! SS1h! S13140! A$"N"W3$"V"3140! C11H1! CC1NC! PC(C1)CC3090! 3110! W2$"Y"C11Ė5! H$(CC);:PCCL%(CC)(H$(CC))1:PC)"";"& 1CPRSRCS1:* F1$"F"F8$"C"2850  :(7):12:"'R' RTN TO MENU, OR 'RTN' TO CONTINUE.";:Z$:Z$"R"ĭW2$"Y"F4F15  Z$"R"B0İ610:1010  Z$"R"1010 " F7$"Y"HC0 , ::230:F5$"Y"LN6:2700 6 LN4:2700B!@ :(7):121:2020 240:2 F7$"N"WR$"N"C1CP1ĺG F3$"N"ĺ:2760j :PGPG1:TB)"PAGE-";PG:HC0 F7$"Y"RSRCİ240:S1:W2$"Y"F4F15 F7$"Y"RSRCı F1$"F"F31āX1F31:: 240:C1CPRSRCS1:W2$"Y"F4F15 C127İ240::12:"PRESS 'SPACE BAR' TO START OR STOP ";:Z1$:230[P A$"N"HCH1CCNCĺjZ F222680d X1F21::LNLN1:LNLI2730n Xx HC0:C11H1ĺ LNLN1:LNLI2730 240:W2$"Y"F4F15 C1CP1ĺOF$LL",D"D1::AC1 HC1F7$"Y"C1H1ĖF4W A$(CC):HC0:F7$"Y"C1H1LNLN1:HCC1:LNLI2730 WR$"N"F7$"N"LNLN1:LNLI2730 WR$"Y"LNLN1:LNLI2730( 2 < F7$"Y"HC0@F F1$"F"F6$"R"āX1F3:::X0:X(16384):16368,0:X$(CC))1922610( HCHC1:HCH125509 A$"Y"2510P W2$"Y"HC1ĺRS;^ HC1ĖF4w A$(CC);:" ";:2600 F7$"Y"C1H12550 W2$"Y"HC1ĺRS; HC1ĖF4 A$(CC);:PCCL%(CC)(A$(CC))SP:PC);:2600 W2$"Y"HC1ĺRS;H12350 C1H22350E$ H$(CC);:CL%(CC)(H$(CC))SP);:2360q. H$(CC):HC0:C1H2F5F51:CPC1ĖF4w8 }B L TI1CO:"-";::V LNF5:HC0` C11CP1j CC1NCt PC(C1)CC2440~ 2600 A$(CC)""A$(CC)" " (ACC)CHCO2880VSQ(COCH)H1:SP((COCH)H1):(SQSP).5SPSP1fSP02880|HC0:A$"N"2390WR$"Y"H2CP1:2270H2H1C11H2CC1NCPC(C1)CC23102360 C12ĖF4 WR$"Y"HCHC1:HCY"F5F52 A$"Y"F5F523S0:A$"N"2390C LNF52120R*CK02400`4CK1:PG0>:TA(CO2)((N$)2):TB(CO2)3HF5$"Y"ĺ:TA)N$;:::CH0RCH0:CHCHF1\C11H1fCC1NCpPC(C1)CC2180z2200CHCHCL%("3:12:12)"< LOADING TOTAL >":D$"RUN TOTAL"i:12:11)"< LOADING COMPARE >":D$"RUN COMPARE":12:8)"< LOADING LEVEL SEARCH >":D$"RUN LEVEL SEARCH"A1W2$"Y"F4F15:2040F4F1F50:F5$"Y"F5F52 F3$" DATA MAINTENANCE"g:12:3)"< LOADING SPACE/LIST/APPEND/INDEX >":D$"RUN SPACE/LIST/APPEND/INDEX":12:12)"< LOADING SEARCH >":D$"RUN SEARCH":12:12)"< LOADING SORT >":D$"RUN SORT":12:11)"< LOADING FROM/TO >":D$"RUN FROM/TOAGEMENT SYSTEM 2.0 *"@ Z6)"COPYRIGHT 1979 BY W.L.PASSAUER":p d:12:5)"< RECALLING WORKING TEMP FILE >" n:D$"OPEN WORKING TEMP":D$"READ WORKING TEMP":N$,P$,P1$,S$,D1:D$"CLOSE" xRF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$"CLOSE"A. TE$"X"::255:D$(4):D$"NOM ON I,O,C"ED$"BLOAD MOVE,D1"N100~(:12:5)"< RECALLING PRINTER VARIABLES >"2:D$"OPEN"N$".P,D"D1:D$"READ"N$".P"<CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8FD$"CLOSE"N$".P": P3)"* UNIV. DATA MAN           35640!3A1$"Y"İ350:5610*3290;3P$"N"5630P3230:2000:5640Z33000`3x3P$"N"A$"N"567032503&:(7)::"FROM/TO SEARCH FINISHED";:30"PRESS RTN TO MENU";:Z$3:B0İ6103D1010E$)(S$(RS))(LG$)5590#256402LE(S$(RS)):LE$(S$(RS),LELC):LF(GT$):LF$(GT$,LFLA):LG(LT$):LG$(LT$,LGLB):(LE$)(LF$)(LE$)(LG$)5590256402LE(S$(RS)):LE$(S$(RS),LELC):(LE$)(GT$)(LE$)(LT$)559025640((S$(RS),1))36((GT$,1))365540R1h((S$(RS),1))36((GT$,1))365560~1r((GT$,1))36((S$(RS),1))3655201|(S$(RS))(GT$)(S$(RS))(LT$)5590156402LF(GT$):LF$(GT$,LFLA):LG(LT$)LG$(LT$,LGLB):(S$(RS))(LF"5440Q0(S$(RS),2)(S$(RS),2)(S$(RS),4,2)(Y$,2)(Y$,2)(Y$,4,2)5420[0"56400,(S$(RS),2)(S$(RS),2)(S$(RS),4,2)(X$,2)(X$,2)(X$,4,2)55900656400@LA1:LB1:LC1:(GT$)2LA00J(S$(RS))2LC00T(LT$)2LB0&1^330 /410/X1RC*/Z3$"2"5310J/S$(X)WO$X1X11:BB(X1)XT/5320u/S$(X)WO$X1X11:BB(X1)X{//A1$"N"5360/Z$"N"İ270::5380/370::5380/460:Z$"N"İ330::5380/Z$"Y"İ390:/RS1X10Z$"N":450:B.F"'FROM' WHAT VALUE ? ";GT$:GT$""ĺ(7);:430:5190H.P.Z"'TO' WHAT VALUE ? ";LT$:LT$""ĺ(7);:430:5210.d:440::"SEARCH WHICH COLUMN ? ";C::CNCĺ(7);:5220.n4000.x12:11:"< RECALLING DATA >"/A1$"N"X1RC:5DATE (MM/DD/YY) ? ";:768:Y$(TE$,1):Y$""ĺ(7);:430:5130D--"'TO' DATE (MM/DD/YY) ? ";:768:X$(TE$,1):X$""ĺ(7);:430:5150-(:440::"DATES IN WHAT COLUMN # ? ";C:C1CNCĺ(7);:5160-25230.<:8:"- ENTER REGULAR NUMBERS - WORD/S: ";:768:WO$(TE$,1):WO$""ĺ(7);:430:5080,:440::"WORD/S FOUND IN WHAT COLUMN # ? ";WC::WC1WCNCĺ(7);:430:5090,"USE DATE OPTION (Y/N) ? ";Z$:Z$"Y"Z$"N"ĺ(7);:430:5100,Z$"N"İ430::5180,:>- "'FROM' OPTION (Y/N) ? ";A1$::A1$"."1010G+A1$"Y"A1$"N"ĺ(7):5010Y+A1$"N"5100+:10:"* PRINT-OUT ITEMS *"::9:"1- EQUAL TO ENTRY":9:"2- NOT EQUAL TO ENTRY":+16:"WHICH: ";Z3$:Z3$"1"Z3$"2"ĺ(7);:430:5060+:7,"ENTER$"N"ĺ(7);:430:4320**WR$"Y"43700*H*A$"N"P$"N"4370*H1CP1Ą"USE UNDERNEATH FORMATTING (Y/N) ? ";F7$:F7$"Y"F7$"N"ĺ(7);:430:4360*:**X10:PG0:CK0:LN0::10)"* FROM / TO SEARCH *":450:$+"USE WORD UMNS":"ACROSS, BUT ONLY CHOSE TO PRINT "CP1:"COLUMNS, PRESS 'RTN' TO TRY AGAIN.";:Z$::4170r)W3$"V"4370)CPNC4300)PC(CP)0CPH114370)H1CP14370):A$"N"P$"N"4340*"USE WRAPAROUND OPTION (Y/N) ? ";WR$:WR$"Y"WR170 (^K(h450:"COLUMN SELECTION-ENTER '0' WHEN FINISHED";:450::CP0X(rCP1NC(|"PRINT WHICH COLUMN #: ";:PC(CP)(PC(CP)04260(PC(CP)NCĺ(7):"INPUT TO HIGH!!":4220(`)CP1H1ĺ(7)::11:"YOU SELECTED TO PRINT "H1" COLV"ĺ(7);:430:4120'"h',"PRINT RECORD NUMBERS (Y/N) ? ";W2$:W2$"Y"W2$"N"ĺ(7);:430:4140|'6:W3$"V"4200'@'J"PRINT HOW MANY COLUMNS HORIZONTALY":"BEFORE CARRIAGE RETURN ";:H1(TH11H1NCĺ(7);:CV(37):37,(CV2):958:4/NUMBER FOUND IN WHAT COLUMN # ?";WC:WC1WCNCĺ(7);:370:2260H"USE DATE OPTION (Y/N) ? ";Z$:Z$"Y"Z$"N"ĺ(7);:370:2280:Z$"N"2350 "'FROM' DATE (MM/DD/YY) ? ";:768:Y$(TE$,1):Y$""ĺ(7);:370:2310 C ":11:"* COMPUTE ITEMS *"::9:"1- EQUAL TO WORDS/S":9:"2- NOT EQUAL TO WORD/S":16:"WHICH: ";Z3$:Z3$"1"Z3$"2"ĺ(7);:370:2230"ENTER WORD/S /NUMBER: ";:768:WO$(TE$,1):PA(WO$):PA0ĺ(7);:370:2250B:380::"WORD/SGHTED COLUMN #: ";W1:W11W1NCĺ(7);:370:2160:z:"WORD/NUMBER SEARCH OPTION (Y/N) ? ";W4$:W4$"Y"W4$"N"ĺ(7);:370:2180:W4$"N"ĺ:2280"MATCH EXACTLY (Y/N) ? ";W9$:W9$"Y"W9$"N"ĺ(7);:370:2200A1$"N"2280W370:2090>ZH"USE WEIGHTED OPTION (Y/N) ";Z2$:Z2$"Y"Z2$"N"ĺ(7);:370:2120lRZ2$"N"2170\:10:"* WEIGHTED OPTIONS *"::14:"1- SUM":14:"2- MULTIPLY":f16:"WHICH: ";Z3$:Z3$"1"Z3$"2"ĺ(7);:370:21502p:380::"WEIERAGE":11:"3- COUNT"11:"4- TOTAL & AVERAGE":11:"5- TOTAL & COUNT":11:"6- AVERAGE & COUNT":11:"7- ALL"::16:"WHICH: ";Z8$:Z8$"."1010 Z8$"1"Z8$"7"ĺ(7)::2060*:380::"COMPUTE WHICH COLUMN # ";C:SU0 4C1CNCĺ(7);::TI(0)nZ3$"":WC0:SU0:SN0:SA0:X10:X20:W9$""::8)"> TOTAL COLUMN ROUTINE <":390::P1$"N"2060:"ON PRINTER (Y/N) ? ";P$:P$"."1010P$"Y"P$"N"ĺ(7):2020370 11:"* TOTAL OPTIONS *"::11:"1- TOTAL":11:"2- AV1)"< LOADING FROM/TO >":D$"RUN FROM/TO"Z:12:12)"< LOADING TOTAL >":D$"RUN TOTAL":12:11)"< LOADING COMPARE >":D$"RUN COMPARE":12:8)"< LOADING LEVEL SEARCH <":D$"RUN LEVEL SEARCH"(7)::12:13::"CLEARING MEMORY":)"< LOADING DATA MAINTENANCE >":D$"RUN DATA MAINTENANCE":12:3)"< LOADING SPACE/LIST/APPEND/INDEX >":D$"RUN SPACE/LIST/APPEND/INDEX":12:12)"< LOADING SEARCH >":D$"RUN SEARCH":12:12)"< LOADING SORT >":D$"RUN SORT"(:12:1N PRESS 'RTN'";:Z$@j:12:6)"< SAVING WORKING TEMP FILE >"t:D$"OPEN WORKING TEMP,D1":D$"WRITE WORKING TEMP":N$:P$:P1$:S$:D1:CL$~(S$)1160,1170,1170,1190,1180,1230,1200,2000,1220,1160,1160,1160,1170,1170,1170,1160,11609:12:6";:20)"17-DELETE A FORMAT":"9-COMPARE";:20)" 0-EXIT"A$:].(21):16:"WHICH: ";S$y8S$""ĺ(7):370:1070B(S$)48ĀL(S$)1(S$)17ĺ(7):370:1070VS$"8"2000`D11ė:(7):12:3:"LOAD ";::"PROGRAM DISK";::" THEECT/CHANGE":"2-LIST";:20)"11-DELETE A RECORD":"3-INDEX";:20)"12-FILE INFORMATION""4-SORT";:20)"13-PRINTER SET-UP":"5-SEARCH";:20)"14-APPEND":"6-LEVEL SEARCH";920)"15-DISK SPACE":"7-FROM/TO SEARCH";:20)"16-DELETE A FILE":"8-TOTAL$I",B"B1:768:S$(I)(TE$,1)::CL$:ErCV(37):37,(CV1):958:w|X1NC:4)X;"- ("CL%(X)") ";:14:H$(X)::X140:"-";:::80::TA20((N$)2):TA::N$::9)"MENU SELECTION LIST":W"1-ENTER DATA";:20)"10-INSP1X2:B1CL(C1):RF$I",B"B1:S$(I)::CL$:< 6OF$LL",D"D1} @I1X1:B1CL(DT1):RF$I",B"B1:768:S$(I)(TE$,1)::CL$: JOF$LL",D"D1 TI1X1:B1CL(DT1):RF$BB(I)",B"B1:768:S$(I)(TE$,1)::CL$: ^OF$LL",D"D1%hI1RC:B1CL(WC1):RF* TURN OFF PRINTER * ( :OF$LL",D"D1_ I1X2:B1CL(C1):RF$BB(I)",B"B1:S$(I)::CL$: OF$LL",D"D1:I1X2:B1CL(W11):RF$I",B"B1:WC$(I)::CL$: OF$LL",D"D1:I1X2:B1CL(W11):RF$BB(I)",B"B1:WC$(I)::CL$: "OF$LL",D"D1+ ,I"D14 BB(RR),A$(NC),S$(RR),H$(NC),CL%(NC),WC$(RR) X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:768:H$(X)(TE$,1)::D$"CLOSE" X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ40 (7):2000 D$"PR#"F8:: * TURN ON PRINTER * D$"PR#0":: N D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :12:2)"> > ENTERING VARIABLES FROM DISC < <" :D$"OPEN"N$".V,D"D1:D$"READ"N$".V" NC,RC,RR:CL(NC) X1NC:CL(X): LL(CL(NC)NC):D$"OPEN"N$",L"LL",D MANAGEMENT SYSTEM 2.0 *"D Z6)"COPYRIGHT 1979 BY W.L.PASSAUER":t d:12:5)"< RECALLING WORKING TEMP FILE >" n:D$"OPEN WORKING TEMP,D1":D$"READ WORKING TEMP":N$,P$,P1$,S$,D1:D$"CLOSE" xRF$D$"READ"N$",R":OF$D$"OPEN"N$",L":CL$D$"o*- TE$"X"::255:D$(4):D$"NOMON I,O,C"DD$"BLOAD MOVE,D1"R720:100(:12:5)"< RECALLING PRINTER VARIABLES >"2:D$"OPEN"N$".P,D"D1:D$"READ"N$".P"<CO,F1,LI,F2,F1$,F3,F3$,F6$,F8$,F8FD$"CLOSE"N$".P": P3)"* UNIV. DATA               (S$(AB)):LF$(S$(AB),LE1):SUSU((LE$)(LF$)):SNSN1:2760(AB)):LF$(S$(AB),LE1):SUSU((LE$)(LF$)):SNSN1:2760%b LE(WC$(AB)):LE$(WC$(AB),LE1):SUSU((LE$)(S$(AB))):SNSN1:2760%l LE(WC$(AB)):LE$(WC$(AB),LE1):SUSU((LE$)(S$(AB))):SNSN1:2760@&v LE(WC$(AB)):LE$(WC$(AB),LE1):LE601$: SUSU((S$(AB))(WC$(AB))):SNSN1:2760}$D LE(S$(AB)):LE$(S$(AB),LE1):SUSU((LE$)(WC$(AB))):SNSN1:2760$N LE(WC$(AB)):LE$(WC$(AB),LE1):SUSU((LE$)((S$(AB),LE1))):SNSN1:2760<%X LE(WC$(AB)):LE$(WC$(AB),LE1):LE(S$SU((S$(AB))(WC$(AB))):SNSN1:2760s# LE(S$(AB)):LE$(S$(AB),LE1):SUSU((LE$)(WC$(AB))):SNSN1:2760# ((S$(AB),1))36((WC$(AB),1))363140#& ((WC$(AB),1))36((S$(AB),1))363180$0 ((WC$(AB),1))36((S$(AB),1))3631::" 240:(7):::"PRESS 'RTN' TO MENU ";:Z$::1010W" WC$(AB)""WC$(AB)"00"i" Z3$"1"3100" ((S$(AB),1))36((WC$(AB),1))363090" ((WC$(AB),1))36((S$(AB),1))363190" ((WC$(AB),1))36((S$(AB),1))363170'# SUİ2950:2980:2970:3020/! :H$(C)" = ";SU:G! :H$(C)" = $";SU:d! :H$(C)" (COUNT)= "SN:! SN0SASUSN::H$(C)" (AVE.)= "SA:! :H$(C)" (AVE.)= 0":! SN0SASUSN::SA(SA100)100:H$(C)" (AVE.)= $"SA:" :H$(C)" (AVE.)=$0"İ3000:2970:3020K 6 ((S$(AD1),1))36Z8$"7"İ2960:3000:2970:3020d @ Z8$"1"İ2950:3020} J Z8$"2"İ2980:3020 T Z8$"3"İ2970:3020 ^ Z8$"4"İ2950:2980:3020 h Z8$"5"İ2950:2970:3020 r Z8$"6"İ2980:2970:3020!| Z8$"7"D1),1))36Z8$"1"İ2960:3020L ((S$(AD1),1))36Z8$"2"İ3000:3020y ((S$(AD1),1))36Z8$"3"İ2970:3020 ((S$(AD1),1))36Z8$"4"İ2960:3000:3020" ((S$(AD1),1))36Z8$"5"İ2960:2970:3020 , ((S$(AD1),1))36Z8$"6"SNSN1:2760F LE(S$(AB)):LE$(S$(AB),LE1):SUSU(LE$):SNSN1L ] P$"Y"İ230 Z2$"Y"Z3$"1"ĺ"-SUM- WEIGHTED,USING "H$(W1)" COLUMN" Z2$"Y"Z3$"2"ĺ"-MULTIPLY- WEIGHTED,USING "H$(W1)" COLUMN" S$(AD1)""2890 ((S$(A640F X2X21:BB(X2)XP 3Z X21AD1:2770Zd Z$"Y"W4$"Y"İ250:Z2$"Y"İ280tn Z$"Y"W4$"Y"ī2690x 290:Z2$"Y"İ270 AD1X2 ABAD S$(AB)""S$(AB)"00" Z2$"Y"3030 ((S$(AB),1))362750  SUSU(S$(AB)):650 W4$"Y"İ330:2570$ 3100 X1X1x (S$(X),2)(S$(X),2)(S$(X),4,2)(Y$,2)(Y$,2)(Y$,4,2)2600 2640( (S$(X),2)(S$(X),2)(S$(X),4,2)(X$,2)(X$,2)(X$,4,2)26202 2640< W4$"Y"Z$"Y"X2X21:BB(X2)BB(X):2 Z3$"1"W9$"N"24600t Z3$"2"W9$"Y"2480J~ Z3$"2"W9$"N"2500^ S$(X)WO$2520h 2530 (S$(X),PA)WO$2520 2530 S$(X)WO$2520 2530 (S$(X),PA)WO$2520 2530 X1X11:BB(X1)X  Z$"N"X2X1:2'TO' DATE (MM/DD/YY) ? ";:768:X$(TE$,1):X$""ĺ(7);:370:2330$ :380::"DATES IN WHAT COLUMN # ? ";DT:DT1DTNCĺ(7):2340. :15)"< WORKING >"::8 W4$"Y"2390B W4$"N"Z$"Y"X1RC:2560L X2RC:2650V 350` X1RCjpPC(C1)CC2180z2200.CHCHCL%(CC)>CHCO2880DJSQ(COCH)H1:SP((COCH)H1):(SQSP).5SPSP1SP02880HC0:A$"N"2390WR$"Y"H2CP1:2270H2H1C11H2CC1NCPC(C1)CC2310F4F1 F50:F5$"Y"F5F525F3$"Y"F5F52I A$"Y"F5F52^S0:A$"N"2390n LNF52120}*CK024004CK1:PG0>:TA(CO2)((N$)2):TB(CO2)3HF5$"Y"ĺ:TA)N$;:::CH0RCH0:CHCHF1\C11H1fCC1NC:12:12)"< LOADING SORT >":D$"RUN SORT"b:12:11)"< LOADING FROM/TO >":D$"RUN FROM/TO":12:12)"< LOADING TOTAL >":D$"RUN TOTAL":12:8)"< LOADING LEVEL SEARCH >":D$"RUN LEVEL SEARCH"A1W2$"Y"F4F15:20405000,1160,1160,1160,1170,1170,1170,1160,1160s:12:6)"< LOADING DATA MAINTENANCE >":D$"RUN DATA MAINTENANCE":12:3)"< LOADING SPACE/LIST/APPEND/INDEX >":D$"RUN SPACE/LIST/APPEND/INDEX":12:12)"< LOADING SEARCH >":D$"RUN SEARCH",D11ė:(7):12:3:"LOAD ";::"PROGRAM DISK";::" THEN PRESS 'RTN'";:Z$yj:12:6)"< SAVING WORKING TEMP FILE >"t:D$"OPEN WORKING TEMP,D1":D$"WRITE WORKING TEMP":N$:P$:P1$:S$:D1:CL$,~(S$)1160,1170,1170,1190,14000,1230,1200,1210,E":"7-FROM/TO SEARCH";:20)"16-DELETE A FILE":"8-TOTAL";:20)"17-DELETE A FORMAT":"9-COMPARE";:20)" 0-EXIT"z$:.(21):16:"WHICH: ";S$8S$""ĺ(7):370:1070B(S$)48ĀL(S$)1(S$)17ĺ(7):370:1070VS$"9"5000L`MENU SELECTION LIST":"1-ENTER DATA";:20)"10-INSPECT/CHANGE":"2-LIST";:20)"11-DELETE A RECORD":"3-INDEX";:20)"12-FILE INFORMATION""4-SORT";:20)"13-PRINTER SET-UP":"5-SEARCH";:20)"14-APPEND":"6-LEVEL SEARCH";r20)"15-DISK SPAC"WRITE"N$".F"*NR1:J1NR1:R$(J):5:CL$;ZI10131022:PP:I,PP::104,168,104,166,223,154,72,152,72,961013:40501013:(7):"BAD FORMAT NAME-TRY AGAIN":600:80::TA20((N$)2):TA::N$::9)":R$(NR1)""(R$(NR1))28ĺ(7);:370:6109lNNNR1lv:D$"OPEN"R$(NN)"-F,D"D1:D$"WRITE"R$(NN)"-F"CO:F1:LI:F2:F1$:F3:F6$:F8$:F3$:A$:F5$:W3$:W2$:H1:WR$:F7$:CPX1CP1:PC(X):CL$216,0 D$"OPEN"N$".F":D$H1,WR$,F7$,CP$X1CP1:PC(X):/:CL$5F&NR1010100:(7);:11:"SAVE THIS FORMAT TO DISK (Y/N) ";Z1$:Z1$"Y"Z1$"N"ĺ(7);:370:560:Z1$"N"1010DNR1NR0N750X-b"ENTER NAME FOR FORMAT (28) ":R$(NR1)::"FORMAT SELECT:":1I1NR:I" "R$(I)::QI" CREATE A NEW FORMAT ":"WHICH: ";Z1$:Z(Z1$):Z1ZIĺ(7);:370:480:ZIB0:4050D$"OPEN"R$(Z)"-F,D"D1:D$" READ "R$(Z)"-F" CO,F1,LI,F2,F1$,F3,F6$,F8$,F3$,A$,F5$,W3$,W2$,:A$(I)(TE$,1)::CL$:8rCV(37):37,(CV1):958:j|X1NC:4)X;"- ("CL%(X)") ";:14:H$(X)::X140:"-";:::12:11)"> RECALLING DATA <":740D$"OPEN"N$".F":D$"READ"N$".F"NR:J1NR:R$(J):CL$:B1 ,OF$LL",D"D1T 6IR1R2:B1CL(Z21):RF$I",B"B1:768:DT$(I)(TE$,1)::CL$: @OF$LL",D"D1:IR1R2:B1CL(Z21):RF$I",B"B1:DT$(I)::CL$: JOF$LL",D"D1 TI1NC:B1CL(I1) ^I1F7$"Y"C1CP1(P$"N"P$"")ĺhRF$RS",B"B1:768":: * TURN OFF PRINTER * ` S0İ230:LFLNLI:::F3$"Y"PGPG1:TB)"PAGE-";PG:240:k 240:| OF$LL",D"D1 IR1R2:B1CL(Z11):RF$I",B"B1:768:S$(I)(TE$,1)::CL$: "OF$LL",D"D1:IR1R2:B1CL(Z11):RF$I",B"B1:S$(I)::CL$:L"LL",D"D1; A$(NC),S$(RR),DT$(RR),H$(NC),CL%(NC),PC(NC) X1NC:B1CL(X1):D$"READ"N$",R"0",B"B1:768:H$(X)(TE$,1)::D$"CLOSE" X1NC:CL%(X)CL(X)CL(X1)1::P1$"Y"İ40 (7):5000 D$"PR#"F8:: * TURN ON PRINTER * D$"PR#0CLOSE"U D11ė:(7):12:4:"LOAD ";::"DATA DISK";::" THEN PRESS 'RTN'";:Z$ :12:2)"> > ENTERING VARIABLES FROM DISC < <" :D$"OPEN"N$".V,D"D1:D$"READ"N$".V" NC,RC,RR:CL(NC) X1NC:CL(X): LL(CL(NC)NC):D$"OPEN"N$",WRAPAROUND OPTION (Y/N) ? ";WR$:WR$"Y"WR$"N"ĺ(7);:370:4320V)WR$"Y"4370\)t)A$"N"P$"N"4370)H1CP1Ą"USE UNDERNEATH FORMATTING (Y/N) ? ";F7$:F7$"Y"F7$"N"ĺ(7);:370:4360):)*:7)"* COMPARE COLUMNS ROU(7)::11:"YOU SELECTED TO PRINT "H1" COLUMNS":"ACROSS, BUT ONLY CHOSE TO PRINT "CP1:"COLUMNS, PRESS 'RTN' TO TRY AGAIN. ";:Z$::4170(W3$"V"4370(CPNC4300(PC(CP)0CPH114370(H1CP14370(:A$"N"P$"N"4340D)"USE 1H1NCĺ(7);:CV(37):37,(CV2):958:41704'^v'h390:"COLUMN SELECTION-ENTER '0' WHEN FINISHED";:390::CP0'rCP1NC'|"PRINT WHICH COLUMN #: ";:PC(CP)'PC(CP)04260'PC(CP)NCĺ(7):"INPUT TO HIGH!!":4220'(CP1H1ĺ HORIZ./VERT. (H/V)? ";W3$:W3$"H"W3$"V"ĺ(7);:370:4120E&"&,"PRINT RECORD NUMBERS (Y/N) ? ";W2$:W2$"Y"W2$"N"ĺ(7);:370:4140&6:W3$"V"4200&@&J"PRINT HOW MANY COLUMNS HORIZONTALY":"BEFORE CARRIAGE RETURN ";:H1.'TH1%216,0:B14370 %:380:o%"PRINT COLUMN NAMES (Y/N) ? ";A$:A$"Y"A$"N"A$""ĺ(7);:370:4070%A$"N"P$"N"4110%%"PRINT FILE TITLE (Y/N) ? ";F5$:F5$"Y"F5$"N"ĺ(7);:370:4100%?&P$"N"A$"Y"Ą"PRINT RECORDS$:8)"> PRINT-OUT FORMATTING <":390:$LN0:S0:F5$"":F7$"":C20:HC0:H10:W2$"":W3$"":WR$"":P1$"Y"Ą"ON PRINTER (Y/N) ? ";P$:3:958:1:P$"Y"P$"N"ĺ(7):4020$P$"Y"ė::(7):12:11:"TURN ON PRINTER !!"::(7)$B0:4100 # CC# C16# H1CP1(F7$"N"F7$"")HC0:<# I# ::HC0c#* :CL$:C1CPRSRCı#4 "'R' RTN TO MENU,OR 'RTN' TO CONT. ";:Z1$#> Z1$"R"B0İ550:1010#H Z1$"R"1010#R S0::OF$LL",D"D1::AC11:ACP13020#\ 3350#*HCH13300%" W2$"Y"HC1ĺRS;:5>" A$(CC);:" ";:3330W" HCHC1:HCH13300p" F7$"Y"C1H13300" W2$"Y"HC1ĺRS;:5" A$(CC);:PCCL%(CC)(A$(CC))1:PC)"";:3330" W2$"Y"HC1ĺRS;:5" A$(CC):HC0# CV(37):CV18336$(CC);:PCCL%(CC)(H$(CC))1:PC)"";,!& 2!0 H!: :X140:"-";:W!D C1ACP1d!N CC1NCx!X PC(C1)CC3180!b 3330!l A$(CC)""A$(CC)" "!v (A$(CC))1923340! A$"Y"W3$"H"3260! A$"N"3230! :H$(CC);" - " " HCHC1:"LN6:2700 6 LN4:2700m @ :(7):12:(5):"TO MANY HORIZ. CHARACTERS USED !":X14000:::240:1010s { A1 SS1 S13140 A$"N"W3$"V"3140 C11H1 CC1NC PC(C1)CC3090  3110  W2$"Y"C11Ė5&! H40:C1CPRSRCS1:W2$"Y"F4F15; C1CPRSRCS1:U F1$"F"F8$"C"2850 :(7):12:"'R' RTN TO MENU, OR 'RTN' TO CONTINUE.";:Z$:Z$"R"ĭW2$"Y"F4F15 Z$"R"B0İ550:1010 Z$"R"1010" F7$"Y"HC0 , ::230:F5$"YF4F152 C1CP1ĺOF$LL",D"D1::AC11:2020= 240:] F7$"N"WR$"N"C1CP1ĺr F3$"N"ĺ:2760 :PGPG1:TB)"PAGE-";PG:HC0 F7$"Y"RSRCİ240:S1:W2$"Y"F4F15 F7$ТY"RSRCı F1$"F"F31āX1F31::$ 2"āX1F3:::X0:X(16384):16368,0:X127İ240::12:"PRESS 'SPACE BAR' TO START OR STOP ";:Z1$:230P A$"N"HCH1CCNCĺZ F222680d X1F21::LNLN1:LNLI2730n Xx HC0:C11H1ĺ LNLN1:LNLI2730 240:W2$"Y"))SP:PC);:2600) W2$"Y"HC1ĺRS;F HC1F7$"Y"C1H1ĖF4 A$(CC):HC0:F7$"Y"C1H1LNLN1:HCC1:LNLI2730 WR$"N"F7$"N"LNLN1:LNLI2730 WR$"Y"LNLN1:LNLI2730( 2 < F7$"Y"HC0kF F1$"F"F6$"R~ 2600" A$(CC)""A$(CC)" ": (A$(CC))1922610S HCHC1:HCH12550d A$"Y"2510{ W2$"Y"HC1ĺRS; HC1ĖF4 A$(CC);:" ";:2600 F7$"Y"C1H12550 W2$"Y"HC1ĺRS; HC1ĖF4 A$(CC);:PCCL%(CC)(A$(CC2360 C12ĖF43 WR$"Y"HCHC1:HCH12350D C1H22350p$ H$(CC);:CL%(CC)(H$(CC))SP);:2360. H$(CC):HC0:C1H2F5F51:CPC1ĖF48 B L TI1CO:"-";::V LNF5:HC0` C11CP1j CC1NCt PC(C1)CC2440Ԡԍ΍΍ uiȩiȩi`_  LMȑ ȑ   L-8L  Đ`A$"N"55902250V2:(7)::"COMPARE FINISHED!";::"PRESS 'RTN'TO MENU ";:Z$d2B0İ550n21010)2LA01^(DT$(RS))2LB0Z1h((S$(RS),1))36LE(S$(RS)):S$(RS)(S$(RS),LELA)1r((DT$(RS),1))36LE(DT$(RS)):DT$(RS)(DT$(RS),LELB)1|521013301P$"N"55401230:2000:55501300011R2RC5150 2P$"N"(DT$(RS))55100555080(S$(RS))(DT$(RS))5510B05550a0(S$(RS))(DT$(RS))5510k055500(S$(RS))(DT$(RS))55100"55500,(S$(RS))(DT$(RS))55100655500@(S$(RS))(DT$(RS))55100J55501TLA1:LB1:(S$(RS)0,5360,5380,5400,5420,54403/dS$(RS)DT$(RS)5510=/n5550W/xS$(RS)DT$(RS)5510a/5550z/S$(RS)DT$(RS)5510/5550/S$(RS)DT$(RS)5510/5550/S$(RS)DT$(RS)5510/5550/S$(RS)DT$(RS)5510/55500(S$(RS))::"FIRST HALF";::" OF COMPARE TO COL <":300::5170c.Z2$"N"R1R21:R2RC:290:320:5170.(R1R21:R2RC:270:300.2RSR1R2.<Z2$"N"5200.FZ35220,5240,5260,5280,5300,5320.P((S$(RS),1))36((DT$(RS),1))365460/ZZ353411:R2RR2:12:"> LOADING ";::"FIRST HALF";::" OF REFERENCE COL. <":290:12:"> LOADING ";::"FIRST HALF";::" OF COMPARE TO COL <":320::51708.R11:R2RR2:12:"> LOADING ";::"FIRST HALF";::" OF REFERENCE COL. <":270:12:"> LOADING ";R2RC:Z2$"N"Ģ12:5)"> RECALLING REFERENCE COLUMN <":290:12:4:"> RECALLIMG COMPARE TO COLUMN <":320::5170,RCRR2R11:R2RC:12:5)"> RECALLING REFERENCE COLUMN <":270:12:4:"> RECALLIMG COMPARE TO COLUMN <":300::5170- Z2$"N"R5010D+:380::"REFERENCE COLUMN # ";Z1:Z11Z1NCĺ(7):5050M+370+"COMPARE TO COLUMN # ";Z2:Z21Z2NCĺ(7);:370:5070++"COMPARE NUMBERS OR WORDS (N/W) ? ";Z2$:Z2$"N"Z2$"W"ĺ(7);:370:5090+4000s,RCRR2R11:TINE *":390:~*10:"* COMPARE OPTIONS *"::8)"1- EQUAL TO":8:"2- UNEQUAL TO":8:"3- GREATER THAN":8:"4- LESS THAN"*8:"5- LESS THAN OR EQUAL":8:"6- GREATER THAN OR EQUAL"::16:"WHICH: ";Z3$:Z3(Z3$):Z3$"."1010+Z31Z36ĺ(7):@~aG>@rO0|c yqs?p#`{||~wA{xxisq}|~ ~C`wsx }z_q~?x?x?@L| p~a?~O?{~Go``@@`@|_qax@@p`?p@||yp|?`M6``wow[`?x@?xlp`|xx`m<~?|?x?~w0Gp{ws`xo}???@y >``Gx@poL@~?p`?|a?~yy} ~A<@~_co?`oMo~O9x{vsx~OsG`7xy {`?3{x!pxxa{~| |gw?p@@y?~C?xpgq~ p?|~q}~?|xqao3xp|_@@@~B}~pcx? pg~`?pp~?|~?xoa^~zPpgw~\`@|C~p|x|x0xqg|kp|a?@?N?pzaAs{?|ps|@?xgxq@`pxX@pO?xp?~CCqwCC~|CpoM}G|y|?x~AlwoG@`xo?p72{ px|?~wy<|7~GO?~wx`@|@~a?~?x?x|xx `?|y|{|~G`=xOgyxp@||~pCpxoT`?px~?xp{7pd_>|owwo~>`o~p|gx|?@;p EX ~?~p;~`}~`~p|@sOqg p\cxo~x~`~x`?yyC}}?BCa?&|G}xmg||?~?pw{swoO p?@wxNxo4~yFx?~~o?~7`Oy|x?ww_`|{p?~ps|xG?C`x{{w?x~w?@~~O|??xp@@ xx~qCqpw^@?p~C?x}zGx||cco|?(p_`}?xap@yx~{@pZ`W~~`?~h=~p~'p?|}ggO``C |^c?x{!Bxp`\|p?@xp~ww``p|`@ D*U*U*UjUn](T*U*U*Q*E*U*U*U*}_P*u+U @:}Wn}{+U*U**U*@.h@U}/E*qT"T*U*U*u~U~/~U*\*U*U*U*U*U*U*w*}_ |+?WzW~/]{W*U*j_z(uWw"QD D(U*E*U*U"U:/U U*U*U*U"U*"U*u/U/(W.}}?Uz+U"U*U*]?* }b+U8TnD T*D*U*Pj]U U*U*U U*U*U*U;W*}?n(w*h j_ Uz"Pz+U"U U*U{?@.](}U(>@*U*Uj@*]:on]* }*U*E"D(U:un];w }A~;Wn]zw*P*U:W(U"U(p E*U*Unh]{{~]*@.U*U"T*U*wj*U~U?~{ }{W*P*U "T*zD"U*@(U;u?.U:xW*Q*E*D(*U*U?w~;@Ux]{+u*]*]*U*U*D P"T.}_+ Q*U*PU:wn]:Ux*U*E"T(U*U*U+u~?~h_;~_*u*U*U*U*u*U*U(U U:u/8"T*U(U*un{]+W.]* U(U*E@("U(U*W*U h(Uj{w U*u];U *TP*Uj?@ D@zo]T` @(Q"U*]*U:wn_;W.U+:E(Q*D(Q"U*U*n];8z{Ghz~?W*U+}oU*U*U*TP:u.Th+. U**T*}{~]@*TQ"D"U*U*uUPUz]:_?nU+U *u.]+U"D(Q*u~+U~P(t?Q{+W0*UT(UU*u~o_?wnU D*U"*U*U*U.U@ Pt;D*U;u uo];U" Un?*hu;_*A"U*U*Un} U?*DP?U*U*U*U:#P#o_ ~]*?};U*U:@Q*x"D(U*U:Wj? UW*D`w*U*U*U:w+U~/@zUW(@~*U*U*} @|?"DU*U*U*]; U*E|o]*u*U*U*U*un_{"E~/|u]>U~w];U*U*U.z*U(8"TU*U*Uj}(U:.E|]*U*U*U*U*wn]"+|?w_>Wn_+_;U*U;T{?@p*D(U*U*U*U{ T{W*EU*U*U*U*U*U*U*U+}D(|"}{UW{woU*U*U*wn@?*@~_z?*E U"UQ*U*U*] U{w"D*U*w*U*U*U*Uj_+_@||#|}/]z_~?U+U*U*z(U"}w_*U*\ UDQ*U *U*w"@Uju; (U*U*U*U*U*U*Uj]+u~/(Ej/UU/U U*U*w~n?@*@(Qzx?U8 ]{UQ*E*U* @:w~?U*@(U*U*U*U*U*U*Un]+w~{ Ez_z/@(Uj}{W u~/U*U*U*U~?P;Ut{w*U>            !!! ! ! ! ! q_zo*xo?|_a}_w``{xp}y?xpCAc|~q?f@@ka>~|o~{go?xCg? x?_ x ~_A}|?@~w~g_|?hB |{|oc!x po@?pq|y~`@?p@C_og3L` @w~plpcGwxp`0p}7ps~9~@}~pywp|~||aG8xx~~`?pxp|}gW? |`7@("*U*U*Ujun}w~_ \*U*U*U*T*U*U*U*}~_}_p u;W~_z~]:U*U*U*Ukzuu}/E DD**U*U>U~n_*|+U*]*U*T*U*U:unU_Pt??w~U~U:U*U*U*U:D:w*"U`T@**T*U*U*U{/E  T*U*E*U*D(U"U:U{w/Q~_~*U?WTz_+U"U "Uz?jU`/|_*> D D U*U*UnP~}{U T*U*U**T*U*U*U*}?w~*@*uu+U~WzU{;U*U*U"U*P.uU(AD*U*Ej@*U{n}o]**Q*U*E"D*U*W*]*uo ]?A~h}_;w*n]+U E* }"U(U*unUU?]{oU;Et*U+"D*U*U~U*U~P (}@U{{W T*U"T*~TQ*U*@(Uzwwn]+Ux_*U*@U*U*U*uo;(U{h?]{w]+U*T*un]*u*U"E**@jU+*UjP(U:u~wn]+`*U"T"D*U*W*]:u~?(]{Aj?~}{wn]*w* w*U*U*U*E*U@ Q"U*U(U*w~?+W*U+*UQ* D  T*U*w.U+j] (}?w*U;uoU*U*"D*U~T@j]{~jk8@P*E*(U:u?w*U+:E*U*  D *T*U*wn_;`}hW~/W*}+toU"U*U"D P*UT*}U;T @@**un}:o U Q"@( U*U*unU @(U*w}+w~U*woU+U *unU+U("*Un? P:]+U|TD*U U*unn];un]"D*D *U*U:u*U @* U* hU];w Q"u;U "D*Uj}?wkzo] @"@*]:Uj}`uw*}j?W*U*U*U:wT"?}_ /T:U*U D*U@"D(U*]:u/ T~.j*U*U*U{?wn/*|jG~]8@~]*Uj] @ U*U*Uj] U:+|_*U*U*U*U*W*]z_+/|w]>U?_;U*U*u`}"@ @Q*U*uj} hU?.Tp_*U*U*U*U:|#}?_(q*_;U*U{(U"E U"U**U*U*UzTz*T*U*U*U*U*U U*U*}  |U~z.U*U*U*uo?@zh?u/*p"D Q*U*U*U? UW+|*U*U*U*U*U*Uj};wTz/|]~w~?w~]+U*U*Uz(Q"@*_~U*QbU"@*U*U*U*U@(U~/"(U*U*U*U*U*U*U*}?u~? ]u_W(u~/UU*U*u~?(` /U8@{Q"@U*T U*U;Tz"U*U*U*E*U*U*U~]*{*+uo_(WTk]{W8q~/UU*U UnP?U U**D(U*@*Uj].;u**U*U "U*U+U*U; un~n:wo_;Uj]*@*U* T"|"E*U:Uun_?wn}wn;U*P*U**U*U;U UzTz*UUn_?j]*U*DP*:DU*"Un]o]:U*xW*U(  T(U*U*U:.*@j8~/Un*U*(];U*U*U*D P*u~}  *U*P*Uj]{_:W*`_*D*T*U*U*U;j(wn:n];wn]:W*U+@"_*U*U*U*UT*Q(*U U*]:wn{w*U*U "D * U*]:U :W (wjU*U*U?W*U"T(UjTP:@h]{h;E "DU*U"U*];~}?.]*U*."T("DP*U*]+u*P8~}{w/U*u+];U*U*UP*U@P;wU*@ DT*@ U:wn{o};UU@Q*U*U*U @*Uh]/j];Wn];UnU *U+U*@*U;w.U{P @~An?w*Ut U*UU*U*w~;w*];WQ*T (U*U*U*UPzjU*P*t?(U*UP U?w. U*wn_;/zwo?wD(U*U:} (u~] \~nU*U*U*Uj}_P?}}_(Wj/U.U*U*"T ~"U*U*]:/U_+h_*Q*U*Uj}/U:j_?QW:U*W*U*u/*T*U*U*w. Uj~_+|?W*U*U*U*U*U+Wn*/|j?U>\}W*U*U*U8_ P*U*U:w (Uj+pW*U**U*U*}w} }UwjUW*}w.U*UnP.u~_|~]*U*Q :}j*U @(*U@ D(*GU*U*jU>u/]zW>U+( @"@ @@@+un]+tn] T.]{U*Wn]wnU*("Dh_*U*U;U*U"T:w"D  "D*|{"T*U*~+Un+U(**U*U*U*U*UU*]jU>u+]*E*@}+*_@(U:to+@jU*U*U*@U*U ~U*U@/U*U*@*WzU/u*_zU.u+W*P"DP*Unp~U+U Q*E*U*U*U*U*PjU>U+ujU:U/]*W* U*U~]:W*U* D*+u*E  U:w"P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*E*U*U*U*E *U*U*U*?w*U*"D* "~;w/]*W*]*U*U*U*U*U*U*U*U*U*U*U*U*U*U *U*U*U*U*U*Q*U*@~*T*Uj*U:?_*D(Q"U*U*U "D"D"D(.U*U*U Q* "U*"D"D"Dp~Wb];"DQ"U*Un|/D*U*U*U Q*U*U*U+U*U*Q"E*U*U*Q"U*U*U(Q"U*U*U*"@@*Q"E "T(Q"U*x Un;|+T.U+U*E*U*U"@U*U*UjU:w.E(U*UzW>};nW?u+}@"(] @~?Q?U*Uz_xW*U  DU*U"DQ~+U*U*U*U D"DUjU/u*] @""D ??}~}nU@U @`wo}+_~o{W?U :U*U*`+} w~ pn]+U*U@U*]:U*U+Whw{w~}o_W/u T*U*!!!!!!!!""" " " " " """""""""     (T*A: Uj}/wo~];W**@*U*"U*U*E(U{u>~o] u~};WjU* w*@Q* _U*U*U;ETn}{Ujwn}+U*U+U* "D*U:w*QzwP TP/Tj}{w*U"p@*UP z DU*TjU~]+U*x]*U "E*U*U*U;/@:Pn(o};Un]{w*U*T U*U*U*U"E U*];W`"TQ*@ Uj}{o];W*_*U"U*U*U*Uk u~Az/U:wn]+W*]*U*D*U*U"@"TQ*U(TjU;wn]?w*U*U**"@*"Q*U*]+U :w*(zw/U*u.U;U*U*T*U;tU**wj}+@Q*"UjU{nU+U*xU"E**D **U*Uzw.u~xw(wn}?w.U*t(U;U*U*UP*ww*P"T*U{wn;wn];UQ"E@(U*U*U*U U*UtoUU+U.U"(Q;W* U:w~}{T P_h}?W*t@Q"U U*U;wo];U*U+U "D( U*U*U (*unU*U*] U*U;w.U"@ U*w~_ ;n_+U D*UjU(/ U~] Ujn]**U*U*}w.U P~?q?Ut*U*T*UpUQ"U*u*U{/(z*\z_+U*U*U*]]*?hP~`~?88W*U*}T*U*U*u(Uj*|W*U*U*U*U*]*Un_{ j tU?Wn]{/]W*U*U*U uoU@T*U*U*u(Un}_*@w.U**U*U*}P~@?w*}*U*U.@( ~U*U :}jU:U+U*@*"("p]*U@*WzU.u+_zW>U+U@ @D" @`+U*U:U.U(U*U8 D*U*U*(@"~]*U*U*E*Q@:* @*UP"E@ |{_` D*U*`+*U U*U*U*U U.u*]*E*+wo]]Q*uT*U:w]*T*U* @*@*U p/W U*U*U*U*@+W:U+ujW:U/}*W**D(Upx*U*U]xwjU*T"@*E*U*U*U*T*U.U+UjU:U+]*E*T*U~?w*U*U*U( @"};o_:U""`U*U*U*U*U*U*U*U*U*U*U*U*U*U*T*U"U U*T*U"U*U*T*Uxw:U D"};z_?o{W>U P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Q*U*U*U*U*U*U*U*pk D(U*U?Ujt+D*Uj{*u*E(U*U*U*E "D("E*D"T*U*U*U*D@*"D"D"D}wn_;W"U*""D(U*}U "D"TP*U*U*U;U*U*U*U*U*U *U*U"U**T(Q*U*U*U*"T**D("D *U*~?UU*]{`w*U*"DU*U"DU*U*U.U*U*E "DQ*u+_zU?u*] D@W~Q*U*wn}W*E "D(Q*U "D"Du]*U*U**UD(u*]" @"D/wn`_:w*EUjU+U`w}{~]?k_{W/U U*U*x? Unx+W*U*U*UU*U*U.U:U*U{w_{w~};~_>u+}@@*U*p?W**D*]*W:U*P" (*@c?U*@*]:U.u+_zU>u  E w*U*UnU*U*U*`@(U*U*U*U("@xW*U*UP*Uh] Q"U toP*U*@+ Q*T*U*E**U.U"U*Q*.}{\;w Tj}T*WnW P*U"T*@E( @W~*U`_+U*U U"@*U:U.u*WzU/u*U*@"Dpw~ U*_p_:U*U@ *T(U*U*QjU*U+]*U>U+U**"U _:U*UU*}w/}*W*UP@*U*T*U*U U*U*U*U *T(U"U**U*UD*U*D("E U"DQ"]AooU:U*E"_w/_{w}?jW:T*U*U*U*U*U*Q*U*U*U*U"U*U*U(U"E *T(Q"U*"T(Q"@_{"T*wj?@*Q*U/] "D(U*E"@"D"DD*U*U*U*E@.@" @"p_;nU;W*P*U*|*U*UP*U*U*U*U**DQ"DQ"D("E "D*E U*U(P*D"D"D"x#U*u~]_*U*U("U*@U*U*U*U*]*"D(Q"U>u+_zW?u+u~D*UjxW *T"D U"D"U~_*U*U*U*UU/}* z/];`n]:"DU*`_?o_zwo}+~U?U(U*U*`#U:/`_*U*U*"U*U*U*W*U:`u;j_?wo{W~U+uP*U*