' +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- ( q  Ϡ@跻~!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`z#???     ϠŠ(ŠŠŠŠŠ "RUN FILE" 1140  ( 26202 1013+< J0J1VF "NAME FOR NEW DATA BASE FILE :";R$(J)eP NRJ:4280{Z DB$R$(J1):1140d *** DELETE A DATA BASE ***n :"DELETE WHICH : ";S$:S(S$)x S1SJ1ĺ(7);:(37)1:868:2670$ :(9):"READENAMEFILE ROUTINES *** 2 "SELECT FROM:":N J1NR:J" "R$(J):J:n J" CREATE A NEW DATA BASE" J1ĺJ1" DELETE A DATA BASE"  "WHICH ";S$:S(S$) SJ12660 S1SJĺ(7);:(37):868:2540 DB$R$(S) SJU WANT DELETED ";DR$:DR(DR$)3B DR1DRNR2360BL JDRNR1RV R(J)R(J1)^[ I1NHt` N$(J,I)N$(J1,I){j It J:NRNR1~ :"RECORD NUMBER "DR" DELETED!": "MORE (Y/N) ";L$ L$"Y"2360 F$"INDEX":4280:4810 *** BASL$"Y"2080,F$"INDEX":4280:4810F***PRINT A RECORD***WPF0İ12000l" "H$(0)": ";JxI1NHI" "H$(I)": "N$(Y,I)I LLNH2 PF0İ12200 $ ***DELETE RECORDS***. 8 "ENTER RECORD NUMBER YOE ";J$:J(J$):YR(J)!>:2240_H" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";rR"";S$:S(S$)\S1SNH2130fp"FROM "H$(S)": "N$(Y,S)z"TO "H$(S)": ";:"";N$(J,S):2240" MORE CHANGES (Y/N) ";L$:S(S$)S1S320300S1800,2080,4810@ PF02070o"PRESS RETURN TO CONTINUE, ESC FOR MENU";wL$(L$)274810(L$)132064L0:: ***CHANGE DATA****" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANG ":"";Q$"J1NR:YR(J)3N$(Y,0)(J)R(N$(Y,S),(Q$))Q$İ2240eLNH20İ2060lJ"THAT'S ALL OF THEM. ";"NOW YOU MAY:""1 DO MORE SEARCHES""2 MAKE CHANGES""3 RETURN TO THE MAIN MENU"" WHICH ";S$E*** L0A"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"GQ&3880g0:"OR YOU MAY":}:I" MAKE CHANGES"DN"WHICH ";S$:S(S$)XS0SNH11870bSNH12080l v"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND.......THERE ARE "NR" RECORDS"0r"IN THE "DB$" FILE"E|NRNR1:R(NR)NRi"YOU ARE ENTERING RECORD # "NRo{I1NHH$(I)":";:N$(NR,I)I"MORE (Y/N) ";L$L$"Y"1640F$"INDEX"42804810***SEARCH/CHANG$ 1013:*** CREATE HEADERFILE ***- NR1U :"PRESS 'RETURN' TO EXIT TO MENU"[  "HEADER FOR COLUMN NUMBER "NR": ";:"";R$(NR) "R$(NR)""NR201600 ,NRNR1 61560 @NRNR1 J4280:1160 T***ENTER RECORDS*** ^h""Y/N) ?";L$:L$"Y"F$"INDEX":4280/ 4810> MF1:3880z "ENTER # OF FIELD FOR SORT ";S$:S(S$):S1SNH1450 :"DO YOU WANT TO SORT:": "1 ALPHABETICALLY" "2 NUMERICALLY"  "WHICH ";L$:L(L$) :"SORTING ";:12401 <J:I F"SORTING "# PJ1; ZR(J)JJJ1:1370K dJNR1420 nI1NH:Z$(I)N$(R(J),I):N$(R(J),I)N$(J,I):N$(J,I)Z$(I):I xZR(R(J)):R(R(J))R(J):R(J)Z 1370% "":"WANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";: LLIM:I2R(I):L2R(LL):L1290:(N$(I2,S))(N$(L2,S))1300K 1295h N$(I2,S)N$(L2,S)1300 YR(I):R(I)R(LL):R(LL)Y:IIM:I11270 JJ1:JK1250 1260 "SORTING "; (INR11:JNR11 2IJĭR(I)R(J)R(J)R(J)$"HEADER":1520 ~41106 I1NR:H$(I)R$(I):IN NHNR:NR0:MEM(0)c B(MEM(13NH))v N$(B,NH),R(B) F$"INDEX":4830 4110 4810 *** SORT *** NNR:MN M(M2):KNM:J1:"SORTING ";:M0ĺ"DONE":1420 IJAq& 216,0"MAXFILES1"1D$"":CTRL DFD$"NOMON,I,O,C"N:X5180^$R$(65),AC(21),K(65),H$(21),RN$(21).Z$(21)8COMMA$"NO"BD$"":CTRL DLH$(0)"REC#"VDB$"":F$"BASENAME":2610`4110j2470 tF               NR&@J1NR&JFF4230(&TI1NH5&^N$(J,I)<&rIG&wR(J)JQ&|4240\&R$(J)c&Jr&D$"CLOSE"{&FF0&&*** SAVE FILES ***&F$"INDEX"FF1&D$"OPEN"DB$" "F$"FILE"&D$"DELETE"DB$" "F$"FILE"'D$"OPEN"DB$" "F$"3810%4100<%1013::"NO REPORT FORMATS ON DISK...":E%NN1%"DO YOU WANT TO CREATE ONE (Y/N) ?";L$:L$"Y"4810%3880:NRNS:3010%*** READ FILES ***%F$"INDEX"FF1%"D$"OPEN"DB$" "F$"FILE"%,D$"READ"DB$" "F$"FILE"&6I)"":I:NSNR"$xF$"RPTFMTNAME"-$40707$4110S$I1NR:RN$(I)R$(I):Ik$:"SELECT FROM:":$I1NR:I" "R$(I):I:$I" CREATE A NEW REPORT FORMAT":$"WHICH ";S$:S(S$):S1SI4030$NNS%SIRN$(S)R$(S):E1:NRNS:3:I1NR:K(I)(R$(I)):I/# K(0)(R$(I2))9#NRNSK#3880::3160a#(*** SUB MENU ***y#2:"SELECT FROM:":#<MF0ĺ"0 "H$(0)#FI1NH:I" "H$(I):I:#PMF0#Z#d*** READ REPORTNAMEFILE & SELECT REPORT ***$nNN0:I021:RN$(* "NSNR:":"ENTER THE REPORT FORMAT NAME ";RN$(NN)S"F$RN$(NN)" RPTFMT"a"NR3RH2~"I1NR:R$(I)(K(I)):I"R$(I2)(K(0))"4280:4440""*** SET-UP TO READ RPTFMTFILE ***"F$RN$(NN)" RPTFMT""4110#RH(NR2)EPORT (ALL RECORDS)":3650@!$RN$(NN)" REPORT FOR "H$(S)":"Q$;Q!.X$"@"3650n!8" AND "H$(X)":"X$:3660t!B!LI1RH!V36,K(3I1):H$(K(3I2));!`I!jK(0)1Ĺ36,K(3I1):"TOTAL";!t!~L4:"*** SET-UP TO SAVE RPTFMTFILE ** : N3I2> V(N$(Y,K(N))):AC(I)AC(I)V:HCHCVD g I139((PF1)39):"-";:I:s I1RH AC(I)03580 36,K(3I1):AC(I); I GT0Ĺ36,K(3I1):GT; : PF0ė L0ĺ(12)!Q$"@"ĺRN$(NN);" R;L$H L$"Y"E1:3720WR :"MORE REPORTS USING THE "RN$(NN)" FORMAT":"(Y/N) ";L$s\ L$"Y"İ3880:E1:2980}f 4810p I1RHz 36,K(3I1):N$(J,K(3I2)); K(3I)3510 I K(0)1ĭHC0Ĺ36,K(3I1):HC;:GTGTHC:HC0 LL1$3330 X$"@"33206 (N$(Y,X),(X$))X$3330@ 3440\ PF1ĭL18İ2060:3610q JNRL55İ3610 L0İ3610 J (12) T93540* 122004 E3410> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) "X)"= ";:"";X$. I1RH1:K(3I1)35PF25 IA I1RHT K(I3)1T91[ Ip PF0İ12000:L0z 3610 BD1WIDE:"-";:  J1NR:YR(J) SP03270 LL1: N$(Y,0)(J) Q$"@"3320 (N$(Y,S),(Q$))QEADER # ";S$:S(S$).b (S$)0Q$"@":3230hl :"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":3200v :"ENTER # OF 'AND' HEADER ";X$:X(X$) :"@ WILL SELECT ALL RECORDS." :"SELECT RECORDS FOR "H$(S)"= ";:"";Q$: L$"Y"ĺ"AND "H$(3060, "TOTAL ON "H$(K(I))" (Y/N) ";:L$H L$"Y"K(I2)1:K(0)1O Ia& K(0)131500 "ENTER TAB FOR TOTAL: ";A$: (A$)0K(0)0:T91:3150D K(I1)(A$):K(I1)0K(I1)131ĺ"":(37)1:3120N X "SELECT RECORDS BY WHICH H:RH(RH$):RH1RHNH130108 E0RN$(NN)"PRESENT"H I1RH33 "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";K$:K(I)(K$) K(I)0K(I)NH3040 "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$) K(I1)0K(I1)255(@ NR1ĺD$"DELETE BASENAMEFILE":10006J ISNR1HT R$(I)R$(I1)O^ Iah NRNR1:4280kr 2470}| ***REPORT*** T90 :E0 I03NH2:K(I)0:I I0NH:AC(I)0:I:HC0:GT0 E3150 3940 :"HOW MANY HEADERS ";RH$$"RPTFMTNAME" 41107 D$;"DELETE"DB$" "F$"FILE"C I1NRl D$;"DELETE"DB$" "R$(I)" RPTFMTFILE"s I 1013:D$"DELETE"DB$" RPTFMTNAMEFILE" D$"DELETE"DB$" INDEXFILE"" D$"DELETE"DB$" HEADERFILE", DB$""6 F$"BASENAME":4110Y TO DELETE "(34);R$(S);(34);".":M "ONCE DELETED, THIS DATA CANNOT BE"v "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE IT? (Y/N) ";:"";S$ S$"Y"2470 :12:11::(91);" DELETING DATABASE ]": 2830 DB$R$(S) FRINTER ?";WIDE.20.2"DOUBLE SPACING ?";Q3$D.2Q3$"Y"SP1:O.2SP0:p.V"TO "H$(S)": ";:"";N$(Y,S);N$(Y,S)CSET UP-.13000-.D$(4),-.D$;"PR#5":-.1402,128G-.33,WIDEV-.1914,WIDEd-.1146,128x-.WIDE80ĺ(28)~-C/-/ ** RETURN TO VIDEO **-/(25)-/(19)-/33,40:1402,0-/D$;"PR#0"-/- 0-2.2"HOW MANY COLUMNS ON PS1S104810F,S1050,1780,1620,2340,2940,1440,5080,5160,4500,5170L,U,PF2_,4810n,(PF0:4810t,2,<*** APPLESOFT ONERR CORRECTION,FI10131022:PP:I,PP:I,PI0,Z,d104,168,104,166,223,154,72,152,72,96-. ** PRINTER A BASE"++V"2 SEARCH AND/OR CHANGE DATA"C+`"3 ENTER RECORDS"\+j"4 DELETE RECORDS"m+t"5 REPORT"|+~"6 SORT"+"7 TURN ON PRINTER"+"8 TURN OFF PRINTER"+"9 LIST ALL RECORDS"+"10 QUIT"++"WHICH ";S$:S(S$) ,******* DATA BASE MANAGEMENT I *******"-*M*"CURRENT DATA BASE: "DB$:*"CURRENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS"*$*.PF1ĺ"THE PRINTER IS ";::"ON"::4930*8"THE PRINTER IS OFF"*B+L"1 SELECT DATRETURN FOR MENU...";L$ )*48100)4PF012000_)>"PRESS RETURN TO CONTINUE, ESC FOR MENU";g)@L$z)B(L$)274810)D(L$)134680)F4672)H:L0)RPF5230,5250,5280)\4620)f)*** MAIN MENU ***)4840)1013)'*":I (4280(NRNS:,( *** LIST ***4(L0:(K(PF0İ12000^(J1NR:YR(J)y(" "H$(0)": ";J:LL1(I1NH(I" "H$(I)": "N$(Y,I)(LL1(I(:LL1(PF04620(LNH204660( J(PF0İ12200) "HIT FILE""'D$"WRITE"DB$" "F$"FILE"*'NR6'J1NRC'FF4390N'YR(J)Z'I1NHg'N$(Y,I)n'Ix'4400'&R$(J)'0J':D$"CLOSE"'DFF0'N'X*** SAVE REPORTNAMEFILE ***'bNRNN'lF$"RPTFMTNAME"(vI1NR:R$(I)RN$(I)ōōٍōԍԍō̠ҍРΠӍŠ׍ΠōΠ٠Š΍٠ӍΠǠ٠®ōΠҠύӠӍР ōǠ٠ΠӍϠ ̠ҍРΠӍύӠӍР ٠®ōΠҠŠ΍٠ӍΠǠŠ׍ΠōΠ٠ōǠ٠ΠӍϠ