L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`8I 8LL1!8:PF0Č768'8E@8AC(I)AC(I)(N$(J,K(I)))SJ8TF(0)1:dr8PF0İ31000w8I139((21)38):"-";:I:|8I1RH8AC(I)014490836,T(I):AC(I);8I8:PF0Č76888:PF0İ310008PF0Ĺ36,30:"AVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$F7L$"Y"160007:"MORE REPORTS USING THE "RF$" FORMAT":"(Y/N) ";L$7L$"Y"E2:I0NH1:AC(I)0:I:140307250007PF0İ310007I1RH736,T(I):N$(J,K(I));7TF(I)14400J1NR7N$(J,0)(J))7Q$"@"14224I7(N$(J,S),(Q$))Q$14225[7X$"@"14224{7(N$(J,X),(X$))X$142257143007PF0142307L18İ7180:145007J7TF(0)144507PF0Č7687E14244,1424747:"DO YOU WANT TO S27"SELECT RECORDS BY WHICH HEADER # ";S$:S(S$)m77:"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":14150<7:"ENTER # OF 'AND' HEADER ";X$:X(X$)F7:"SELECT RECORDS FOR "R$(S)"= ";:"";Q$:P7L$"Y"ĺ"AND "R$(X)"= ";:"";X$x7145007139"bu"-";"luX"vu""#"u)"uN9!iP1HDG$"NAMES OF LISTS"%!i30000T!i"EACH LIST IS PRECEDED BY THE LETTER 'T'"!i"YOU MUST ENTER THE FULL NAME EXACTLY AS IT APPEARS"!i!i"CATALOG"!i!i!0u!1u PRINT HEADING!2u!:u!Du(40(P1HDG$))2!NuP1HDG$"XuXЂY fX f; f"THE END OF THE LIST HAS BEEN REACHED"A fG fR g25000X g g"TO CONTINUE SEARCHING, PRESS RETURN" g"TO END, ENTER 'E'"; gR$ g(R$)0ı gASTARTRCD1 g26090 xi yi DISPLAY A CATALOG LISTING zie"FIELD OR PRESS RETURN FOR A FIELD.":eX1N1FLDNBRce"ENTER A VALUE FOR ";N7FLDNAME$(X);we":";N2SEL$(X)~eXeA1eXAA2NXTRECeY1N1FLDNBRe(N2SEL$(Y))0ĭN2SEL$(Y)(WRKSPACE$(X,Y),(N2SEL$(Y)))STARTRCDX:26500 fTRCD1ıaSTARTRCD;a50aX1N1FLDNBR6a=a5UbN7FLDNAME$(X);":";[ bvbWRKSPACE$(STARTRCD,X)} bX*bbee FIND A RECORDeeP1HDG$"FIND A RECORD"e30000e"ENTER THE VALUE(S) TO BE FOUND FOR EACH"(xhxDhxhxhxhSRxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxhxh{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|kxh|l{hxh|hSTING SESSION";IR"F - FIND RECORD(S) WITH SPECIFIC DATA"^NR"G - GET A LIST FROM STORAGE"SR"H - PRINT THE COMMAND MENU (HELP)"bR"N - DISPLAY NAMES OF LISTS IN STORAGE"lR"P - PUT A LIST INTO STORAGE"vR"R - REMOVE A RECORD FROM THE LIST"ECNBR,N1FLDNBR).OA2NXTREC1$R5 R PRINT MENU; R]RP1HDG$"*** COMMAND MENU ***"hR300000R"A - ADD RECORDS FROM KEYBOARD"5R"B - BEGIN A NEW LIST":R"C - CORRECT A RECORD"DR"D - DISPLAY A RECORD IN DETAIL"GR"E - END THE LIHEN RE-"4fN"QUESTED. WHEN YOU HAVE NAMED ALL THE"VpN"FIELDS, JUST PRESS RETURN."\zNhNX116N"ENTER A NAME FOR FIELD ";X;:":";N7FLDNAME$(X)N(N7FLDNAME$(X))020200NN1FLDNBRN1FLDNBR1NXNNN$OWRKSPACE$(A1R+"DELETE MADE"+ |.&.,.E. SORT THE WORKSPACEK.s.:"SORT IS NOT IMPLEMENTED YET.":y2 N !N INITIALIZE WORKSPACE"N%N1000*NP1HDG$"BEGIN A NEW LIST"4N30000RN\N"ENTER THE TITLE OF EACH FIELD WRM REMOVE, PRESS RETURN."=R+"TO CANCEL REMOVE, ENTER 'E'."E\+R$pa+NA2NXTRECA2NXTRECA2NXTREC1:11900f+(R$)0ĭ(R$,1)"E"ıp+XNA2NXTRECz+Y1N1FLDNBR+WRKSPACE$(X,Y)WRKSPACE$(X1,Y)+Y+X+A2NXTRECA2NXTREC1+RECORDS PUT TO STORAGE."*$***@* REMOVE A RECORDF*c+P1HDG$"REMOVE A RECORD"n +30000+"ENTER THE RECORD NUMBER:";N +N1NA2NXTRECĺ"THIS RECORD IS NOT PRESENT":11030*+STARTRCDN4+>+25000C+H+"TO CONFI"DB$" "F$"FILE"BFF0B6PF*** SAVE FILES ***LUFF$"INDEX"FF1hZFD$"OPEN"DB$" "F$"FILE"dFD$"WRITE"DB$" "F$"FILE"nFNRFJ1NRFFF18090FI1NHFN$(J,I)FIFFF18100FR$(J)FJFD$"CLOSE"DB$" "F$"FD$"CLOSE"RF$" REPORTFORMATFILE"*>14247BhB*** READ FILES ***XmBF$"INDEX"FF1trBD$"OPEN"DB$" "F$"FILE"|BD$"READ"DB$" "F$"FILE"BNRBJ1NRBFF17090BI1NHBN$(J,I)BIBFF17100BR$(J)BJBD$"CLOSET(I):TF(I):I4:D$"CLOSE"RF$" REPORTFORMATFILE"?:14030`>***SAVE REPORTFORMATFILE***>:"ENTER THE REPORT FORMAT NAME ";RF$>D$"OPEN"RF$" REPORTFORMATFILE">D$"WRITE"RF$" REPORTFORMATFILE">RH:I1RH:K(I):T(I):TF(I):I>X)": "X$:145208" "$8I1RH<836,T(I):R$(K(I));C8IK8:U8L4:v:***READ REPORTFORMATFILE***::"ENTER THE REPORT FORMAT NAME ";RF$:D$"OPEN"RF$" REPORTFORMATFILE":D$"READ"RF$" REPORTFORMATFILE":RH:I1RH:K(I):C(I)AC(I)(N$(J,K(I)))&J8TF(0)1::r8PF31000,32000]w8I139((PF1)39):"-";:I:i|8I1RH|8AC(I)014490836,T(I):AC(I);8I8:D$"PR#0":8:PF31000,320008"REPORT FOR "R$(S)":"Q$;8X$"@"145188" AND "R$(FOR THIS REPORT TO DISK (Y/N) ";L$47L$"Y"16000n7:"MORE REPORTS USING THE "RF$" FORMAT":"(Y/N) ";L$7L$"Y"E2:140307250007PF31000,32000:I1RH736,T(I):N$(J,K(I));7TF(I)144008I 8LL18:D$"PR#0":@8A1NR7N$(J,0)(J)(7Q$"@"14224H7(N$(J,S),(Q$))Q$14225Z7X$"@"14224z7(N$(J,X),(X$))X$142257143007L18İ7180:145007J7TF(0)144507D$"PR#0"7E14244,14247"7:"DO YOU WANT TO SAVE THE FORMAT":"27"SELECT RECORDS BY WHICH HEADER # ";S$:S(S$)l77:"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":14150<7:"ENTER # OF 'AND' HEADER ";X$:X(X$)F7:"SELECT RECORDS FOR "R$(S)"= ";:"";Q$:P7L$"Y"ĺ"AND "R$(X)"= ";:"";X$x7145007JPF0:25000"0u"$w***ROUTINE TO CORRECTONERR ROUTINE IN APPLESOFT II-&: MUST PRECEDE EACH STATEMENT AT ONERR GOTO LINE #***".wI10131022:PP:I,PP:I"3wI0"8w"Bw104,168,104,166,223,154,72,152,72,96"y875""y"RDS"!a"5 REPORT""!a"6 SORT";!a"7 TURN ON PRINTER"U!a"8 TURN OFF PRINTER"c!b"9 QUIT"i!b! b"WHICH ";S$:S(S$)!bS1S925000! bS10,7000,6000,11000,14000,500,25200,25300,30000!pb!zbD$"BLOAD DRIVER"!bPF2!b25000 "bURRENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS"H ax aPF1ĺ"THE PRINTER IS ";::"ON"::25037 a"THE PRINTER IS OFF" a a"1 SELECT DATA BASE" a"2 SEARCH AND/OR CHANGE DATA" a"3 ENTER RECORDS"!a"4 DELETE RECOFIFFF118100#FR$(J)*FJGFD$"CLOSE"DB$" "F$"FILE"PFFF0VFpa *** MAIN MENU *** ~a:30000a"******* DATA BASE MANAGEMENT I *******"a:" APPLE COMPUTER INC"aa"CURRENT DATA BASE: "BN$:B a"CN$(J,I)BI BFF117100+BR$(J)2BJOBD$"CLOSE"DB$" "F$"FILE"XBFF0^BvPF*** SAVE FILES ***UFF$"INDEX"FF1ZFD$"OPEN"DB$" "F$"FILE"dFD$"WRITE"DB$" "F$"FILE"nFNRFJ1NRFFF18090FI1NHFN$(J,I)REPORTFORMATFILE"7>RH:I1RH:K(I):T(I):TF(I):I\>D$"CLOSE"RF$" REPORTFORMATFILE"g>14247hB*** READ FILES ***mBF$"INDEX"FF1rBD$"OPEN"DB$" "F$"FILE"|BD$"READ"DB$" "F$"FILE"BNRBJ1NRBFF17090BI1NHBE"&:D$"READ"RF$" REPORTFORMATFILE"L:RH:I1RH:K(I):T(I):TF(I):Iq:D$"CLOSE"RF$" REPORTFORMATFILE"|:14030>***SAVE REPORTFORMATFILE***>:"ENTER THE REPORT FORMAT NAME ";RF$>D$"OPEN"RF$" REPORTFORMATFILE">D$"WRITE"RF$" "DB$"":14515810:DB$-8X$"@"14518L8" AND "R$(X)": "X$:14520U8" "a8I1RHy836,T(I):R$(K(I));8I8:8L4::***READ REPORTFORMATFILE***::"ENTER THE REPORT FORMAT NAME ";RF$:D$"OPEN"RF$" REPORTFORMATFIL !NR3RH2*!I1NR:R$(I)(K(I)):I>!R$(I2)(K(0))N!4280:4440T!{!*** SET-UP TO READ RPTFMTFILE ***!F$RN$(NN)" RPTFMT"!4110!RH(NR2)3:I1NR:K(I)(R$(I)):I! K(0)(R$(I2))!NRNS!3880::3160 "(***AND "H$(X)":"X$:3660 B" "* LI1RHJ V36,K(3I1):H$(K(3I2));Q `It jK(0)1Ĺ36,K(3I1):"TOTAL";| t: ~L4: *** SET-UP TO SAVE RPTFMTFILE *** NSNR :"ENTER THE REPORT FORMAT NAME ";RN$(NN) F$RN$(NN)" RPTFMT"3I2/ V(N$(J,K(N))):AC(I)AC(I)V:HCHCV5 X I139((PF1)39):"-";:I:d I1RHv AC(I)03580 36,K(3I1):AC(I); IGT0Ĺ36,K(3I1):GT;:$RN$(NN)" REPORT FOR "H$(S)":"Q$;.X$"@"3650 8" E1:3720HR :"MORE REPORTS USING THE "RN$(NN)" FORMAT":"(Y/N) ";L$d\ L$"Y"İ3880:E1:2980nf 4810zp I1RHz 36,K(3I1):N$(J,K(3I2)); K(3I)3510 I K(0)1ĭHC0Ĺ36,K(3I1):HC;:GTGTHC:HC0 LL1 : NJ,S),(Q$))Q$3330% X$"@"3320D (N$(J,X),(X$))X$3330N 3440j PF1ĭL18İ2060:3610y L0İ3610 J T93540* D$"PR#0"4 E3410> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$ H L$"Y"X$:X(X$). :"@ WILL SELECT ALL RECORDS."^ :"SELECT RECORDS FOR "H$(S)"= ";:"";Q$: L$"Y"ĺ"AND "H$(X)"= ";:"";X$ I1RH1:K(3I1)35PF2 I PF5230,5250,5280:3610 J1NR N$(J,0)(J) Q$"@"3320 (N$()0K(0)0:T91:3150OD K(I1)(A$):K(I1)0K(I1)131ĺ"":(37)1:3120UN X "SELECT RECORDS BY WHICH HEADER # ";S$:S(S$)b (S$)0Q$"@":3230l :"'AND' 2ND HEADER (Y/N) ";L$:L$"Y"X$"@":3200 v :"ENTER # OF 'AND' HEADER ";K$:K(I)(K$)& K(I)0K(I)NH3040\ "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$)z K(I1)0K(I1)2553060 "TOTAL ON "H$(K(I))" (Y/N) ";:L$ L$"Y"K(I2)1:K(0)1 I& K(0)131500 "ENTER TAB FOR TOTAL: ";A$: (A$:E0 I03NH2:K(I)0:I@ I0NH:AC(I)0:I:HC0:GT0L E3150V 3940 :"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH13010 E0RN$(NN)"PRESENT" I1RH33  "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";$" RPTFMTNAMEFILE"1 D$"DELETE"DB$" INDEXFILE"Q" D$"DELETE"DB$" HEADERFILE"\, DB$""t6 F$"BASENAME":4110@ NR1ĺD$"DELETE BASENAMEFILE":1000J ISNR1T R$(I)R$(I1)^ Ih NRNR1:4280r 2470| ***REPORT*** T90 IT? (Y/N) ";:"";S$& S$"Y"2470V :12:11::(91);" DELETING DATABASE ]":a 2830o DB$R$(S) F$"RPTFMTNAME" 4110 D$;"DELETE"DB$" "F$"FILE" I1NR D$;"DELETE"DB$" "R$(I)" RPTFMTFILE" I 1013:D$"DELETE"DB:#}D$"PR#1"# }" K 80N"%#}D0 "b25000"bPF0:25000""0u"$w***ROUTINE TO CORRECTONERR ROUTINE IN APPLESOFT II-&: MUST PRECEDE EACH STATEMENT AT ONERR GOTO LINE #***".wI10131022:PP:I,PP:I"3wI0"8w"Bw104,168,104,166,223,154,72,152,72,96"yD$"PR#1"#"y" K" TURN OFF PRINTER" !b"9 QUIT"&!b?! b"WHICH ";S$:S(S$)R!bS1S925000! bS10,7000,6000,11000,14000,500,25200,25300,30000!pb!zb"PRINTER OPTIONS:"!b"1 40 COLUMNS"!b"2 80 COLUMNS"!b:"WHICH ";PF$:PF(PF$)"bPF1PF22524 a5 aPF1ĺ"THE PRINTER IS ";::"ON"::25037O a"THE PRINTER IS OFF"U ao a"1 SELECT DATA BASE" a"2 SEARCH AND/OR CHANGE DATA" a"3 ENTER RECORDS" a"4 DELETE RECORDS" a"5 REPORT" a"6 SORT" a"7 TURN ON PRINTER"!a"8ILE" FFF0F-a: *** MAIN MENU ***;a:30000ia"******* DATA BASE MANAGEMENT I *******"a:" APPLE COMPUTER INC"aa"CURRENT DATA BASE: "BN$:a"CURRENTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS"K(0)0:T91:3143LD K(I1)(A$):K(I1)0K(I1)131ĺ"":(37)1:3120G "DO YOU WANT A SUMMARY REPORT?";S$:S$"Y"K(0)2K LL0:"DO YOU WANT THIS REPORT SORTED? ";S$:S$"Y"LL1:K(I2)1N X "SELECT RECORDS BY WHICH HEADER # ";S$:S(K(I)(K$)# K(I)0K(I)NH3040Y "ENTER TAB FOR "H$(K(I))" ";:"";K$:K(I1)(K$)w K(I1)0K(I1)2553060 "TOTAL ON "H$(K(I))" (Y/N) ";:L$ L$"Y"K(I2)1:K(0)1 I& K(0)131470 "ENTER TAB FOR TOTAL: ";A$: (A$)00 I03NH3:K(I)0:I= I0NH:AC(I)0:I:HC0:GT0I E3150S 3940 :"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH13010 E0RN$(NN)"PRESENT" I1RH33  "ENTER # OF HEADER YOU WANT IN":"POSITION #"(I2)3" ";:"";K$:RPTFMTNAMEFILE". D$"DELETE"DB$" INDEXFILE"N" D$"DELETE"DB$" HEADERFILE"Y, DB$""q6 F$"BASENAME":4110@ NR1ĺD$"DELETE BASENAMEFILE":4810J ISNR1T R$(I)R$(I1)^ Ih NRNR1:4280r 2470| ***REPORT*** T90 :E? (Y/N) ";:"";S$# S$"Y"2470S :12:11::(91);" DELETING DATABASE ]":^ 2830l DB$R$(S) F$"RPTFMTNAME" 4110 D$;"DELETE"DB$" "F$"FILE" I1NR D$;"DELETE"DB$" "R$(I)" RPTFMTFILE" I 1013:D$"DELETE"DB$" 130 ,4810,(PF0:4810",2F,<*** APPLESOFT ONERR CORRECTIONd,FI10131022:PP:I,PP:Il,PI0r,Z,d104,168,104,166,223,154,72,152,72,96,nD$"PR#1",x" K":,D$"PR#1"," K 80N",,D$"PR#1"," K132N", "10 QUIT"+*+"WHICH ";S$:S(S$)=+S1S104810v+S1050,1780,1620,2340,2940,1440,5080,5160,4500,5170|++"PRINTER OPTIONS:"+"1 40 COLUMNS"+"2 80 COLUMNS"+"3 132 COLUMNS"+ :"WHICH ";PF$:PF(PF$),PF1PF35 DATA BASE"/*V"2 SEARCH AND/OR CHANGE DATA"G*`"3 ENTER RECORDS"`*j"4 DELETE RECORDS"q*t"5 REPORT"*~"6 SORT (TAKES APPROX. "(.0005NR2.03NR)" MIN.)"*"7 TURN ON PRINTER"*"8 TURN OFF PRINTER"*"9 LIST ALL RECORDS" +****"+):" APPLE COMPUTER INC"1)Q)"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 SELECT0,5250,5280(\4620(f;(p *** INPUT ROUTINES ***E(zI$""_(COMMA$"NO"Ą"";I$:g(A$v(A$(3)ij(A$;(A$(13)ı(I$I$A$(4750(*** MAIN MENU ***(4840(1013()"******* DATA BASE MANAGEMENT I ***$(J,I)'LL1'I#':LL15'LNH204660<' JJ'D$"PR#0"k' "HIT RETURN FOR MENU...";L$u'*4810'4D$"PR#0"'>"PRESS RETURN TO CONTINUE, ESC FOR MENU";'@L$'B(L$)274810'D(L$)134680'F4672'H:L0 (RPF523" &DFF0&N1&X*** SAVE REPORTNAMEFILE ***;&bNRNNO&lF$"RPTFMTNAME"k&vI1NR:R$(I)RN$(I):Iu&4280&NRNS:& *** LIST ***&L0&&J1NR&PF5230,5250,5280&" "H$(0)": ";J:LL1&I1NH'I" "H$(I)": "N%R$(J)%J%D$"CLOSE"(%FF0.%F%*** SAVE FILES ***\%F$"INDEX"FF1x%D$"OPEN"DB$" "F$"FILE"%D$"WRITE"DB$" "F$"FILE"%NR%J1NR%FF4390%I1NH%N$(J,I)%I%4400%&R$(J)%0J&:D$"CLOSEANT TO CREATE ONE (Y/N) ?";L$:L$"Y"4810A$3880:NRNS:3010Y$*** READ FILES ***o$F$"INDEX"FF1$"D$"OPEN"DB$" "F$"FILE"$,D$"READ"DB$" "F$"FILE"$6NR$@J1NR$JFF4230$TI1NH$^4720$hN$(J,I)I$$rI$|4240 #:"SELECT FROM:":3#I1NR:I" "R$(I):I:Y#I" CREATE A NEW REPORT FORMAT":#"WHICH ";S$:S(S$):S1SI4030#NNS#SIRN$(S)R$(S):E1:NRNS:3810#4100#1013::"NO REPORT FORMATS ON DISK...":#NN1+$"DO YOU W SUB MENU ***%"2:"SELECT FROM:"::"<MF0ĺ"0 "H$(0)V"FI1NH:I" "H$(I):I:_"PMF0e"Z"d*** READ REPORTNAMEFILE & SELECT REPORT ***"nNN0:I021:RN$(I)"":I:NSNR"xF$"RPTFMTNAME""4070"4110"I1NR:RN$(I)R$(I):INTLY CONTAINS: "NR" RECORDS"::"ROOM FOR "BNR" MORE RECORDS"D+$s+.PF1ĺ"THE PRINTER IS ";::"ON"::4930+8"THE PRINTER IS OFF"+B+L"1 SELECT DATA BASE"+V"2 SEARCH AND/OR CHANGE DATA"+`"3 ENTER RECORDS",j"4 DELETE RECOR*A$(13)ı*I$I$A$'*4750>**** MAIN MENU ***H*4840R*1013X**"******* DATA BASE MANAGEMENT II ******"*:" APPLE COMPUTER INC"*" MODIFIED BY GARY A. FOOTE"*"CURRENT DATA BASE: "DB$:>+"CURRE53103)>"PRESS RETURN TO CONTINUE, ESC FOR MENU";;)@L$N)B(L$)274810a)D(L$)134680k)F4672u)H:L0)RPF5230,5250,5280)\4620)f)p *** INPUT ROUTINES ***)zI$"")COMMA$"NO"Ą"";I$:)A$)A$(3)ij*A$;S:( *** LIST ***(L0$(7(J1NR:YR(J)N(PF5230,5250,5280i(" "H$(0)": ";J:LL1u(I1NH(I" "H$(I)": "N$(Y,I)(LL1(I(:LL1(LNH204660( J(5310( "HIT RETURN FOR MENU...";L$(*4810)4$" "F$"FILE"'NR 'J1NR-'FF43908'YR(J)D'I1NHQ'N$(Y,I)X'Ib'4400m'&R$(J)t'0J':D$"CLOSE"'DFF0'N'X*** SAVE REPORTNAMEFILE ***'bNRNN'lF$"RPTFMTNAME"'vI1NR:R$(I)RN$(I):I'4280(NRNREAD"DB$" "F$"FILE"&6NR'&@J1NR4&JFF4230@&TI1NHJ&^4720Y&hN$(J,I)I$`&rIk&wR(J)Ju&|4240&R$(J)&J&D$"CLOSE"&FF0&&*** SAVE FILES ***&F$"INDEX"FF1&D$"OPEN"DB$" "F$"FILE" 'D$"WRITE"DBRN$(S)R$(S):E1:NRNS:3810&%4100T%1013::"NO REPORT FORMATS ON DISK...":]%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$"**&$nNN0:I021:RN$(I)"":I:NSNR:$xF$"RPTFMTNAME"E$4070O$4110k$I1NR:RN$(I)R$(I):I$:"SELECT FROM:":$I1NR:I" "R$(I):I:$I" CREATE A NEW REPORT FORMAT":$"WHICH ";S$:S(S$):S1SI4030$NNS%SIRH(NR3)3:I1NR:K(I)(R$(I)):IG# K(0)(R$(I3)):LL(R$(I1))Q#NRNSc#3880::3160y#(*** SUB MENU ***#2:"SELECT FROM:":#<MF0ĺ"0 "H$(0)#FI1NH:I" "H$(I):I:#PMF0#Z$d*** READ REPORTNAMEFILE & SELECT REPORT *FMTFILE ***"NSNRD":"ENTER THE REPORT FORMAT NAME ";RN$(NN)]"F$RN$(NN)" RPTFMT"k"NR3RH3"I1NR:R$(I)(K(I)):I"R$(I3)(K(0))"4280:4440""*** SET-UP TO READ RPTFMTFILE ***"F$RN$(NN)" RPTFMT""4110%#RN$(NN)" REPORT FOR "H$(S)":"Q$;1!.X$"@"3650N!8" AND "H$(X)":"X$:3660W!B" "c!LI1RH!V36,K(3I1):H$(K(3I2));![K(3I)XK(3I1)!`I!jK(0)0ĭXK(3I1)Ĺ36,K(3I1):"TOTAL";!t:!~L4: "*** SET-UP TO SAVE RPT2)); I RR1* K(0)2LL1:0 < N3I2f V(N$(Y,K(N))):AC(I)AC(I)V:HCHCVl :I139((PF1)39):"-";:I: I1RH AC(I)03580 36,K(3I1):AC(I); I GT0Ĺ36,K(3I1):GT; :  !$AT":"(Y/N) ";L$,\ L$"Y"İ3880:E1:29806f 4810k K(0)0ĭN$(Y,S)Z$Ĺ36,K(3I1):HC:GTGTHC:HC0:RR0:LL1:L18İ2060:3610m RR0ĭK(0)1ĺp I1RHu K(3I)İ3510:K(0)23470w K(0)2ĭRR03470 z 36,K(3I1):N$(Y,K(3I L0İ3610 JF K(0)0Ĺ36,K(3I1):HC:GTGTHC:HC0:3540L Y T93540c* 5310o4 E3410> :"DO YOU WANT TO SAVE THE FORMAT":"FOR THIS REPORT TO DISK (Y/N) ";L$H L$"Y"E1:3720R :"MORE REPORTS USING THE "RN$(NN)" FORM LL0LLL:1240 I PF5230,5250,5280:3610:Z$N$(R(1),S):RR0\ J1NR:YR(J)m N$(Y,0)(J)~ Q$"@"3320 (N$(Y,S),(Q$))Q$3330 X$"@"3320 (N$(Y,X),(X$))X$3330 3435:Z$N$(Y,S) PF1ĭL18İ2060:3610 S$)b (S$)0Q$"@":3230Wl :"'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$(X)"= ";:"";X$7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢ168,104,166,223,154,72,152,72,96..nD$"PR#1":.x" K":H.D$"PR#1"V." K 80N"\.j.D$"PR#1"y." K 132N"..PF0ı.D$"PR#0".R OPTIONS:"-"1 40 COLUMNS"3-"2 80 COLUMNS"H-"3 132 COLUMNS"f- :"WHICH ";PF$:PF(PF$)z-PF1PF35130-4810-(PF0:4810-2"MAXFILES3":-<*** APPLESOFT ONERR CORRECTION-FI10131022:PP:I,PP:I-PI0-Z .d104,DS",t"5 REPORT"#,~"6 SORT"=,"7 TURN ON PRINTER"X,"8 TURN OFF PRINTER"s,"9 LIST ALL RECORDS","10 QUIT",,"WHICH ";S$:S(S$),S1S104810,S1050,1780,1620,2340,2940,1415,5080,5160,4500,5170, -"PRINTEٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER   :(4);"BRUNMENU"180: 23! D$;"BRUN MENU"' > CENTER STRING A$^ B(20((A$)2)):B0B1k B:A$: from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 x20:"PRESS ANY KEY TO CONTINUE" zA$ } D$(4): CTRL-D 12 C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":l  ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as"("Public Domain. If any person has proof"2"that any program is not Public Domain,"<"please contact us and we will delete" F"the program   $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4  J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*SERT BACK UP DISK - THEN HIT RETURN";X$9 Z$;"CATALOG"R :Z$;"OPEN COMPANY"j Z$;"WRITE COMPANY"u N1L L$(N) N Z$;"CLOSE COMPANY" Z$;"OPEN REC" Z$;"WRITE REC" N1R:R$(N):N Z$;"CLOSE REC"O  WRITE0R2000:L300:L$(300),R$(2000);Z$""RZ$;"OPEN COMPANY"jZ$;"WRITE COMPANY"uN1LL$(N)NZ$;"CLOSE COMPANY"Z$;"OPEN REC"Z$;"WRITE REC"N1RR$(N)NZ$;"CLOSE REC"' "IN  b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4} N1500Z$"",Z$;"OPEN PFILE"BZ$;"WRITE PFILE"ME0NZP$(E)""eP$(E){Z$;"CLOSE PFILE" N 2":" 30N"::5H" S T A T E M E N T"::>RTY0I\S1WZfXAM(S):680p"LOT # ";L$(S);" = ";X$:"# S ";LI$(S)zTYAM(S)TY:SXTY:680:TY$X$"TOTAL = $ ";TY$D$;"PR#0"J2(X$)ī7800J1(X$)X$X$"0":780PJ1(X$)X$X$".00":780l I(X$)9:X$" "X$:IuN10 X(X$)*4::::"FOR HARD COPY PRINTOUT PLUG IN PRINTER"::"IS PRINTER ON";:PO$:(PO$,1)"N"ė::::840>:D$;"PR#D$;"PR#0"<::"ANOTHER COPY ";Y$:(Y$,1)"Y"450Bz SUBROUTINE TO FORMAT NUMBERS INTO 7 DIGIT STRINGSXX.009X$(X)J1(X$)(X$,J,1)"."ĂJ J = LOCATION OF DECIMAL POINTJ2(X$)X$(X$,J2):780(LI$(S))115ĺ(LI$(S),116,30)E:(LI$(S))145ĺ(LI$(S),146,30)jD(LI$(S))175ĺ(LI$(S),176,30)N(LI$(S))205ĺ(LI$(S),206,30)X(LI$(S))235ĺ(LI$(S),236,30)bTYAM(S)TYl:SvXTY:680:TY$X$"TOTAL = $ ";TY$:820" :D$;"PR#2":" 80N"::6 SS$" - ";SM$:? TY0J S1W[ XAM(S):680x "LOT # ";L$(S);" = ";X$ "# S ";(LI$(S),25) (LI$(S))25ĺ(LI$(S),26,30) (LI$(S))55ĺ(LI$(S),56,30) &(LI$(S))85ĺ(LI$(S),86,30) 08:XIZ:DIX:37,CV:AXX:XD:680:958:"DISCOUNT ";X$:XAXO 680:SUM$X$| ::::"TOTAL AFTER DISCOUNT ";(X$,N) SUM((X$,N))SUM 140 ::::"FOR CHECK STUB PRINTOUT PLUG IN PRINTER"::"AND TYPE Y ";:PO$:(PO$,1)"N"ė:::INPUT # OF ITEMS ";NI$:NI$""NI(NI$):"PRICE PER PIECE";PI$:PI(PI$):LTPINI:ILTI:(NM)::NI;" @ ";PI;" = ";LT:958:NMNM1:360 r390 |:"INVOICE TOTAL ";I$:I(I$): :CV(37)3:"DISCOUNT ";DI$:DI$""D(DI$):XID:410> Z.9TINE TO COMBINE INVOICES FOR EACH LOT2 W1ī90= AQW1I N1AQ_ L$(N)L$(W)ī280f Nz LI$(N)INV$:90 AM(N)AM(N)AM(W) "LI$(N)LI$(N)"-"INV$ ,WW1 690 @958 J:"INVOICE # ";INV$ TPC0380 ^NM5 h:"VOICES ":(3)$ n" LOT # ";L$(W)> xL$(W)"Q"WW1:450G 320g WAIT UNTIL KEY IS PUNCHED (21):"PRESS ANY KEY TO CONTINUE" Y(16384):Y127Ĺ16368,0:190 160 .3337 AM(W)SUM:SUM0:X0:X$"" LI$(W)INV$% ROU  :&D$"":D$;"NOMON I,O,C"CL$(20):AM(20):LI$(20)M(::i2"WHOSE STATEMENT ";SS$}<:"MONTH ";SM$F:"1 IF YOU WANT PIECE PRICES ";PC$:PC(PC$)PW0ZWW1 d:(15):"ENTER A Q"::"IF THERE ARE NO MORE IN        B$"."3060 BB % BBBB39 BB(AA$)3050M BB$(AA$,BB,1)[ CC(BB$)o CC4AAAA.01}& AA$(AA)0 CC$(AA$,BB1): AA(CC$)D 70 936-"PROPERTY HAS ";N1;" ACRES"8I1Jw"MORTGAGE ";I;"=";M(I);" OVER ";N(I);" MOS AT ";O(I);"%"~ I  :"HIT RETURN TO CONTINUE";:Q$:1860$ "THANK YOU".  AA$(AA) BB1(AA$) BB$(AA$,BB,1)  BM"]"4 END OF PROCESS"3b:"ENTER CHOICE ";:gKBlYKPvK42340\K350jK21970xK121801860936"1 PURCHASE PRICE""2 MORTGAGE INFORMATION":"ENTER CHOICE";:Z*Z13104Z2340R190:P5AA U"PURCHASE PRICE=";P1;" LOAN AMOUNT=";L;" EQUITY =";P5l"PRICE/ACRE= ";P3&P0P912:AAP0:3000:P0AA0" MONTHLY PAYMENT= ";P0D:N"1 DISPLAY CURRENT VALUES"S"2 CHANGE A VALUE"X"3 RERUN PROGRA40((V(I))));V(I)I:3AAP7:3000:P7AAIAAP8:3000:P8AA_AAP9:3000:P9AA"INTEREST ";40((P7)));P7"PRINCIPAL";40((P8)));P8"TOTAL ";40((P9)));P9AAP1:3000:P1AAAAP3:3000:P3AAAAP5:300 PP9P9V(I) ZI4 ,"HIT RETURN TO CONTINUE";B 1Q$:936u @:"MTG # INTEREST PRINCIPAL TOTAL ": JI1J TAAT(I):3000:T(I)AA ^AAU(I):3000:U(I)AA hAAV(I):3000:V(I)AAI;14((T(I))));T(I);27((U(I))));U(I); I I1J T10% T3M(I)1 K112@ T2T3Q(I)Q T(I)T(I)T2e T3T3(R(I)T2)l Ks I P70:P80:P90 I1J V(I)R(I)12 U(I)V(I)T(I) CCV(I) (N(I)9001340 2U(I)0 <P7P7T(I) FP8P8U(I)(I) I6O " ";I;" ";" ";M(I);" ";N(I);" ";O(I);" "\ LLM(I)c Ip Y2800z !936 P2(G3100)P1 *P3P1N1 >P5P1L `I1J jQ(I)O(I)1200 tT(I)(1Q(I))N(I) ~R(I)(M(I)Q(I)T(I))(T(I)1)I)0:N(I)0:O(I)0:T(I)0:U(I)0:V(I)0:IY "MTG # AMOUNT ($) TERM (MOS) INT RATE"_ o I1J:I6 " ";I;" ";:M(I):I6 " ";I;" ";" ";M(I);" ";:N(I) I6 " ";I;" ";" ";M(I);" ";N(I);" ";:O JY2800- T"HOW MANY MORTGAGES WILL"I W"THERE BE AGAINST THE"m Z"PROPERTY ";~ ^Z5:J:L0: h"HIT RETURN TO CONTINUE ";:C$:936 |"FOR BALOON OR INTEREST ONLY MORTGAGES" "SET TERM TO 10000"::* I14:M(  DIGITS2:LINE0)M(5),N(5),O(5)GQ(5),R(5),T(5),U(5),V(5)d(AA$(10),BB$(10),CC$(10)n2936"HOW MANY ACRES DOES""THIS PARCEL HAVE ";N1:6"WHAT IS THE PROPOSED";"PURCHASE PRICE "; @P1:     "WHAT # ACCOUNT";A$@ 1:E0NN:(P$(E),9,3)A$ĺE:P$(E)G EP 180 XR MON GOES HERE) S$(100),B$(50)Sd:"INSERT PFILE DISK AND HIT RETURN"[eX$ffNN450pgLF28|iP$(NN)nZ$""oZ$;"CATALOG"pxZ$;"OPEN PFILE"Z$;"READ PFILE"E0NNP$(E)EZ$;"CLOSE PFILE"  /z #????1,aaaX±   ԠŠ ٠ϠŠˠŠ ٠Š٠ˠϠ  נ!̠ԠŠ"٠ ŠԠ̠ӠҠ٠Š à  ŠŠԠɠŠԠɠŠԠɠ&ŠԠ֠(̠ӠˠX±] ՠ Ϡ̠Ӡ Ӡ ΠР٠D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    F81V$"-"V$)(V$)106050=V$" "V$:6040HF81:  ";" CURRENT ";" TOTAL "$Fp SUB FOR ROUND AND 10 PLACES\qV0F81:VV1zuV(V102.5)(102.5)zV(V)6021V$(V)".00":6040V1V(V)V1(V1100.5)100V$(V1)(V$)2V$V$"0"V$((V))V$))3040  ) TBTB((P$(E),46,10))/ A FOR CURRENT_CD((P$(E),71,2))4040eCBCB((P$(E),46,10)) PRINTS HEADS"TODAYS DATE-";C1$"ACCOUNT # NAME ";" 90 DAYS+ ";" 60 DAYS ";" 30 DAYS ,2))1050$ SX((P$(E),71,2))ı? TR((P$(E),71,2))ıZ CD((P$(E),71,2))ıv NBNB((P$(E),46,10))| $  FOR 60 DAY SX((P$(E),71,2))2040  SBSB((P$(E),46,10))  SUB FOR 30 DAYS TR((P$(E),71,2CB$V$* fTBTBCBNBSB:VTB:6000:T$V$B gTB0:CB0:NB0:SB0f hN$:A$;10);" $";NB$;" $";SB$; i" $";TB$;" $";CB$;" $";T$ jA l0 n pX110:(7): "END OF PROGRAM THANK YOU":999  PRINT FOR 90&OVER NT((P$(E),71),9,3)İ2000 OE cV$""/  FOR 30 DAYS; E0NNV A$(P$(E),9,3)İ3000] Ek  CURRENTw E0NN A$(P$(E),9,3)İ4000 E XX180:"-";:X bVNB:6000:NB$V$ cVSB:6000:SB$V$ dVTB:6000:TB$V$ eVCB:6000:00 A$(A) (A$)32352 A$"0"A$:233> E0NNW A$(P$(E),9,3)241^ Ee At ENNENN N$(P$(E),12,25) 90 AND OVER E0NN A$(P$(E),9,3)İ1000 E %V$"" , FOR 60 DAY @E0NN JA$(P$(ELING DATE ";CD$:C1$CD$' M$(CD$,2)F (CD$,2,1)"/"M$(M$,1)S CD(M$)o TRCD1:SXCD2:NTCD3 CD1TRTR12:SXSX12:NTNT12 CD2SXSX12:NTNT12 CD3NTNT12 CD$(CD) 1 ALL ACCOUNTS 5000 A12J S$(200)8d:"INSERT PFILE DISK AND HIT RETURN"@eX$KfNN450WiP$(NN)bnZ$""toZ$;"CATALOG"xZ$;"OPEN PFILE"Z$;"READ PFILE"E0NNP$(E)EZ$;"CLOSE PFILE" STATEMENT "WHAT IS THE CURRENT BIL     $Z$;"CATALOG"(Z$;"OPEN PFILE">Z$;"WRITE PFILE"JE0NNUP$(E)\ErZ$;"CLOSE PFILE""END OF DISK WRITE ROUTINE""THANK YOU" ,JOURNAL (Y/N) ":X$#X$"N"900,200F WRITE TO DISK TWICEXZ$;"CATALOG"^sZ$;"OPEN PFILE"Z$;"WRITE PFILE"E0NNP$(E)EZ$;"CLOSE PFILE""INSERT BACKUP DISK"" AND HIT RETURN WHEN READY"XP$(E)P$(E)C$$P$(E)P$(E)D$6 ALL DATA IN<w"TYPE IN A 'Y' IF THERE IS ANOTHER ":"ENTRY FOR ";N$"OTHERWISE HIT RETURN"X$ X$"Y"D$"":I$"":AM$"":C$""::A$:N$:230:"ARE THERE ANY MORE ENTRY'S FOR THE":" N$N$" ":440" P$(E)P$(E)N$0  INVOICEA (I$)9475T I$" "I$:471g P$(E)P$(E)I$t  AMOUNT (AM$)10485 AM$" "AM$:481 P$(E)P$(E)AM$  COMMENTS (C$)15C$(C$,15) (C$)15495 C$C$" ":492CB$V$* fTBTBCBNBSB:VTB:6000:T$V$B gTB0:CB0:NB0:SB0f hN$:A$;10);" $";NB$;" $";SB$; i" $";TB$;" $";CB$;" $";T$ jA l0 n pX110:(7): "END OF PROGRAM THANK YOU":999  PRINT FOR 90&OVER NT((P$(E),71 "ANY COMMENTS-";C$= :"THIS IS TO CHECK YOUR INPUT" "ACCOUNT #";A$:"COMPANY ";N$:"INVOICE #";I$:"DATE ";D$:"AMOUNT $";AM$:"COMMENTS-";C$ "IF THIS INFORMATION IS CORRECT " " HIT RETURN" "IF THERE ARE CHANGES OR CORRECTI/"DY$(D$,4,1):245H DA$(D$,4,1):DA$"/"DY$"0"DY$:DA$"":246Z DA$"/"246 DA$(D$,5,1):DA$"/"DY$"0"DY$:248 DY$DY$DA$ YR$(D$,2) D$M$"/"DY$"/"YR$ "ENTER AMOUNT":"CREDITS ARE ENTERED AS NEGATIVE":"$";AM$ IS THE COMPANY ACCOUNT # ";A$[ "WHAT IS THE COMPANY NAME ";N$q "INVOICE # ":I$ "ENTER DATE IN THE FORM MONTH/DAY/YR":" E.G 1/17/80" D$ M$(D$,2) (D$,2,1)"/"M$"0"(D$,1) DY$(D$,3,1):DY$" MON GOES HERE?d:"INSERT PFILE DISK AND HIT RETURN"GeX$RfNN450^iP$(NN)inZ$""}sZ$;"CATALOG":xZ$;"OPEN PFILE"Z$;"READ PFILE"E0NNP$(E)EZ$;"CLOSE PFILE" INPUT OF INFO( "WHAT      PFILE" E0NN P$(E)% X; Z$;"CLOSE PFILE"\ "END OF DISK WRITE ROUTINE"m "THANK YOU"s  TO DISK TWICE Z$;"CATALOG"% : Z$;"OPEN PFILE"P Z$;"WRITE PFILE"\ E0NNg P$(E)n E Z$;"CLOSE PFILE" "INSERT BACKUP DISK" " AND HIT RETURN WHEN READY" X$ Z$;"CATALOG": Z$;"OPEN PFILE" Z$;"WRITE 7 "DO YOU WISH TO DELETE ANY ENTRIES (Y/N)":A$G A$"N"900W A$"Y"300` 202 ,"WHAT # ENTRY DO YOU WISH TO DELETE ":N:P$(N)"" ^"TO CONTINUE PRESS RETURN - TO END TYPE END":A$ hA$"END"900 r300 |350  WRITE u MON GOES HERE* S$(200),B$(100)Td:"INSERT PFILE DISK AND HIT RETURN"\eX$gfNN500qgLF28}iP$(NN)nZ$""oZ$;"CATALOG"pxZ$;"OPEN PFILE"Z$;"READ PFILE"E0NNP$(E)EZ$;"CLOSE PFILE"    N C,I,O"!8'"OPEN ";N8FILNAME$;B'"WRITE ";N8FILNAME$IL'A1RECNBRWV'A2NXTRECe`'N1FLDNBRwj'X1N1FLDNBRt'N7FLDNAME$(X)~'X'X1A2NXTREC1'Y1N1FLDNBR'WRKSPACE$(X,Y)'Y'X*"CLOSE"**A2NXTREC1;" ' PUT TO STORAGE'>'P1HDG$"PUT A LIST TO STORAGE"I$'30000&'"ENTER A NEW LIST NAME OR PRESS RETURN":"TO REWRITE THE LIST UNDER THE OLD NAME":)'"ENTER A LIST NAME:";A$.'(A$)0ĺN8FILNAME$/'(A$)0N8FILNAME$A$3'"NOMO1Y1N1FLDNBR(WRKSPACE$(X,Y)/Y6XP""CLOSE ";N8FILNAME$V""A2NXTREC1;" RECORDS GOTTEN FROM STORAGE""#(#)# LIST 1 RECORD PER LINE*#2#"LIST IS NOT IMPLEMENTED YET."% COMMAND DRIVER ''NAME$;",L32"%r"READ ";N8FILNAME$4|A1RECNBR$NA1RECNBR(A1RECNBR$)]A2NXTREC$wA2NXTREC(A2NXTREC$)N1FLDNBR$N1FLDNBR(N1FLDNBR$)X1N1FLDNBRN7FLDNAME$(X)XWRKSPACE$(A1RECNBR,N1FLDNBR)X1A2NXTREC00$(R$)0STARTRCD(R$)%;FIRSTRCDSTARTRCDE7072KxQ@gA ENTER FROM DISKmBJP1HDG$"GET A LIST FROM STORAGE"T30000Y"CATALOG"[^"ENTER A LIST NAME:";N8FILNAME$c"NOMON C,I,O" h"OPEN ";N8FILEC1ĺ:7800'*STARTRCD1STARTRCD1CR25000: DISPLAY 1 RCD[\STARTRCDSTARTRCD1n(37)207200vR$(R$,1)"-"STARTRCDFIRSTRCD((R$,(R$)1)):7600(R$,1)"+"STARTRCDSTARTRCD((R$,(R$)1))1:7600(R$,1)"E"78^FIRSTRCDSTARTRCD2bP1HDG$"DISPLAY A RECORD"=l30000iv"ENTER THE NUMBER OF THE FIRST RECORD""TO BE DISPLAYED.""ENTER A NUMBER:";START$(START$)0STARTRCD(START$)STARTRCD0STARTRCD1  STARTRCDA2NXTR+"ENTER A NEW FIELD OR PRESS RETURN"1>CV(37)PX1N1FLDNBRXCVlN7FLDNAME$(X);868: CLEAR LINE"";F$(F$)0WRKSPACE$(N,X)F$XNXY DISPLAY RECORDZ]STARTRCD0XA2NXTRECA2NXTREC1$. 50504pKq CORRECT A RECORDQrozP1HDG$"CORRECT A RECORD"z30000"ENTER THE NUMBER OF THE RECORD:";NN1NA2NXTREC1ĺ"THE NUMBER IS TOO LOW OR TOO HIGH!":6030STARTRCDN:25000E":"FIRST FIELD.":& X1N1FLDNBRO "ENTER A VALUE FOR ";N7FLDNAME$(X);o ":";WRKSPACE$(A2NXTREC,X) X1ĭ(WRKSPACE$(A2NXTREC,X))0ı (WRKSPACE$(A2NXTREC,X),1)"/"WRKSPACE$(A2NXTREC,X)WRKSPACE$(A2NXTREC1,X):WRKSPACE$(A2NXTREC,X) ENDIF  $ OPEN FILE * F <:"NOT IMPLEMENTED.":L R q  ADD RECORD FROM KEYBOARDw  P1HDG$"ADD A RECORD" 30000 "YOU HAVE ";A1RECNBRA2NXTREC1;" RECORDS REMAINING."  "TO EXIT, PRESS RETURN FOR THA2NXTREC1  ,  DEFINE NEW LIST2 8 @ 12W "CREATE NEW LIST"p X139:"-";:X:""v  "HOW MANY FIELDS WITHIN EACH ENTRY";N1FLDNBR N1FLDNBR0N1FLDNBR172080 "ENTER A NUMBER BETWEEN 1 AND 16" 2060 PLY$,1)"R"İ11000. *(REPLY$,1)"S"İ120007 700= C T  INITIALIZEZ ` nf }  DEFINE VARIABLES  N9MAXNBRFLDS16 N3FLDLN(N9MAXNBRFLDS) N2SEL$(N9MAXNBRFLDS) N7FLDNAME$(N9MAXNBRFLDS) A1RECNBR500 00 (REPLY$,1)"B"İ200009 (REPLY$,1)"C"İ6000T (REPLY$,1)"D"İ7000k (REPLY$,1)"E"Ā (REPLY$,1)"F"İ26000 (REPLY$,1)"G"İ8000 (REPLY$,1)"H"İ21000 (REPLY$,1)"N"İ27000 (REPLY$,1)"P"İ10000 (RE,RESTART700% LISTS PROGRAM-10G(21000: COMMAND LISTMcfd TABLE OF VARIABLESle}n N1FLDNBR x N2HDG(FLDNBR1000X1A1RECNBR COMMAND DRIVER"ENTER A COMMAND:";REPLY$ (REPLY$,1)"A"İ50          WANT IN":"POSITION #"I" ";:"";K$:K(I)(K$)G7K(I)0K(I)NH14080{ 7"ENTER TAB FOR "R$(K(I))" ";:"";T$:T(I)(T$)7T(I)0T(I)255140907"TOTAL ON "R$(K(I))" (Y/N) ";:L$7L$"Y"TF(I)1(7I-7:"@ WILL SELECT ALL RECORDS.":2"::"WHICH ";E$:E(E$)+6E1E214025>6E14030,15000V6:"SELECT FROM:":b6I0NHq6I" "R$(I)x6I6E14065,141256:"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH1140656RF$"THIS"6I1RH-7"ENTER # OF HEADER YOU :BN R$(S)3SJ403,3:J0J1V3"ENTER NAME OF NEW DATA BASE ";R$(J)f3NRJ:18000z3BN$R$(J1):406***REPORT***66I0NH1:AC(I)0:T(I)0:TF(I)0:K(I)0:I6"1 CREATE A NEW REPORT":"2 USE A REPORT FORMAT FROM DISKY"110205f+NRNR1:DB$BN$:F$"INDEX":18000:25000X2*** BASENAMEFILE ROUTINES ***^63r@3"SELECT FROM:"xJ3T3J1NR^3J" "R$(J)h3Jr3|3J" CREATE A NEW DATA BASE"33"WHICH ";S$:S(S$)3S1SJ13200 3DB$R$(S)768 8'#****DELETE RECORDS***)+d +"ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)z+DR1DRNR11020+JDRNR1 +I1NH*+N$(J,I)N$(J1,I)4+I>+JH+:"RECORD NUMBER "DR" DELETED!":R+"MORE (Y/N) ";L$\+L$"O "R$(S)": ";:"";N$(J,S)d#>n#" MORE CHANGES (Y/N) ";L$Ox#L$"Y"9000t#DB$BN$:F$"INDEX":18000:25000'***PRINT A RECORD***'PF0İ31000'" "R$(0)": ";J'I1NH$'I" "R$(I)": "N$(J,I).'I3'4'LLNH25'PF0Č***CHANGE DATA***8-#" ENTER THE NUMBER OF THE RECORD"^.#"YOU WANT TO CHANGE ";J$:J(J$)k/#:100002#" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";<#"";S$:S(S$)>#S1SNH9020A#F#"FROM "R$(S)": "N$(J,S)P#Z#"TT'S ALL OF THEM. ";'"NOW YOU MAY:"A"1 DO MORE SEARCHES"W"2 MAKE CHANGES"x"3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S37173S7010,9000,25000 PF7190,7190:" HIT RETURN TO CONTINUE...";L$L0::(#MAKE CHANGES","WHICH ";S$:S(S$)AS0SNH17080RSNH19000X"PLEASE ENTER THE "R$(S):"YOU WANT TO FIND....... ":"";Q$J1NRN$(J,0)(J)(N$(J,S),(Q$))Q$İ10000LNH20İ7180J"THAR$(I)":";:"";N$(NR,I) I& < "MORE (Y/N) ";L$M L$"Y"6030X 18000c 25000| X***SEARCH/CHANGE*** ]L0 b l"YOU MAY SEARCH BY ANY OF THE FOLLOWING:" v I0NH I" "R$(I) I :"OR YOU MAY": I" NUMBER "NR" ";:"";R$(NR)4 R$(NR)""NR204065@ NRNR1J 4030V NRNR1e 18000:45~ p***ENTER RECORDS*** z "THERE ARE "NR" RECORDS" "IN THE "BN$" FILE" NRNR1 "YOU ARE ENTERING RECORD # "NR  I1NH FOR SORT ";S$:S(S$):S1SNH520C :"DO YOU WANT TO SORT:":[ "1 ALPHABETICALLY"p &"2 NUMERICALLY"v + 0"WHICH ";L$:L(L$) :110 :*** CREATE HEADERFILE *** NR1 :"ENTER 'RTN' TO EXIT TO MENU"  "ENTER HEADER SF110 ] :"WANT TO SAVE THE SORTED FILE TO DISK--":"Y/N) ?";L$:L$"Y"İ18000h 25000t I1NH Z$N$(J,I):N$(J,I)N$(J1,I):N$(J1,I)Z$ I:SF1 :"SELECT FROM:": I1NH:I" "R$(I):I:# "ENTER # OF FIELD  -NHNR:NR0:MEM(0)- .B(MEM(13NH)); /N$(B,NH)R 2F$"INDEX":25000] 717000h <25000z d*** SORT *** nSF0 xJ1NR1 }L130,135 N$(J1,S)N$(J,S)İ170 140 (N$(J1,S))(N$(J,S))İ170 J "SORTING ";D$"":CTRL D)D$"NOMON I,C,O"<D$"MAXFILES1"D:O30500U { R$(21),AC(21),T(21),TF(21),K(21)D$"":CTRL DR$(0)"REC#"DB$"":F$"BASENAME":132401700013000(DB$BN$:F$"HEADER":4000 *17000          ANT IN":"POSITION #"I" ";:"";K$:K(I)(K$)F7K(I)0K(I)NH14080z 7"ENTER TAB FOR "R$(K(I))" ";:"";T$:T(I)(T$)7T(I)0T(I)255140907"TOTAL ON "R$(K(I))" (Y/N) ";:L$7L$"Y"TF(I)1(7I-7:"@ WILL SELECT ALL RECORDS.":1::"WHICH ";E$:E(E$)*6E1E214025=6E14030,15000U6:"SELECT FROM:":a6I0NHp6I" "R$(I)w6I6E14065,141256:"HOW MANY HEADERS ";RH$:RH(RH$):RH1RHNH1140656RF$"THIS"6I1RH,7"ENTER # OF HEADER YOU W):BN$R$(S)3SJ403-3:J0J1W3"ENTER NAME OF NEW DATA BASE ";R$(J)g3NRJ:18000{3BN$R$(J1):406***REPORT***66I0NH:AC(I)0:T(I)0:TF(I)0:K(I)0:I6"1 CREATE A NEW REPORT":"2 USE A REPORT FORMAT FROM DISK""Y"110206f+NRNR1:DB$BN$:F$"INDEX":18000:25000Y2*** BASENAMEFILE ROUTINES ***_63s@3"SELECT FROM:"yJ3T3J1NR^3J" "R$(J)h3Jr3|3J" CREATE A NEW DATA BASE"33"WHICH ";S$:S(S$)3S1SJ13200 3DB$R$(SR#0" 8'$****DELETE RECORDS****+e +"ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$){+DR1DRNR11020+JDRNR1 +I1NH*+N$(J,I)N$(J1,I)4+I>+JH+:"RECORD NUMBER "DR" DELETED!":R+"MORE (Y/N) ";L$ \+L$ "R$(S)": ";:"";N$(J,S)d#=n#" MORE CHANGES (Y/N) ";L$Nx#L$"Y"9000s#DB$BN$:F$"INDEX":18000:25000'***PRINT A RECORD***'PF31000,32000'" "R$(0)": ";J'I1NH$'I" "R$(I)": "N$(J,I).'I3'4'LLNH25'D$"P**CHANGE DATA***7-#" ENTER THE NUMBER OF THE RECORD"].#"YOU WANT TO CHANGE ";J$:J(J$)j/#:100002#" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";<#"";S$:S(S$)>#S1SNH9020A#F#"FROM "R$(S)": "N$(J,S)P#Z#"TO'S ALL OF THEM. ";&"NOW YOU MAY:"@"1 DO MORE SEARCHES"V"2 MAKE CHANGES"w"3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S37173S7010,9000,25000 PF7190,7190:" HIT RETURN TO CONTINUE...";L$L0::(#*AKE CHANGES"+"WHICH ";S$:S(S$)@S0SNH17080QSNH19000W"PLEASE ENTER THE "R$(S):"YOU WANT TO FIND....... ":"";Q$J1NRN$(J,0)(J)(N$(J,S),(Q$))Q$İ10000LNH20İ7180J"THATR$(I)":";:"";N$(NR,I) I% ; "MORE (Y/N) ";L$L L$"Y"6030W 18000b 25000{ X***SEARCH/CHANGE*** ]L0 b l"YOU MAY SEARCH BY ANY OF THE FOLLOWING:" v I0NH I" "R$(I) I :"OR YOU MAY": I" MNUMBER "NR" ";:"";R$(NR)3 R$(NR)""NR204065? NRNR1I 4030U NRNR1d 18000:45} p***ENTER RECORDS*** z "THERE ARE "NR" RECORDS" "IN THE "BN$" FILE" NRNR1 "YOU ARE ENTERING RECORD # "NR  I1NH OR SORT ";S$:S(S$):S1SNH520B :"DO YOU WANT TO SORT:":Z "1 ALPHABETICALLY"o &"2 NUMERICALLY"u + 0"WHICH ";L$:L(L$) :110 :*** CREATE HEADERFILE *** NR1 :"ENTER 'RTN' TO EXIT TO MENU"  "ENTER HEADER SF110 \ :"WANT TO SAVE THE SORTED FILE TO DISK--":"Y/N) ?";L$:L$"Y"İ18000g 25000s I1NH Z$N$(J,I):N$(J,I)N$(J1,I):N$(J1,I)Z$ I:SF1 :"SELECT FROM:": I1NH:I" "R$(I):I:" "ENTER # OF FIELD F -NHNR:NR0:MEM(0), .B(MEM(13NH)): /N$(B,NH)Q 2F$"INDEX":25000\ 717000g <25000y d*** SORT *** nSF0 xJ1NR1 }L130,135 N$(J1,S)N$(J,S)İ170 140 (N$(J1,S))(N$(J,S))İ170 J "SORTING "; 'D$"":CTRL D(D$"NOMONI,O,C";D$"MAXFILES1"C:N30500T z R$(21),AC(21),T(21),TF(21),K(21)D$"":CTRL DR$(0)"REC#"DB$"":F$"BASENAME":132401700013000(DB$BN$:F$"HEADER":4000*17000        LETE A DATA BASE ***8n :"DELETE WHICH : ";S$:S(S$)cx S1SJ1ĺ(7);:(37)1:868:2670 :(9):"READY TO DELETE "(34);R$(S);(34);".": "ONCE DELETED, THIS DATA CANNOT BE" "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE BASE"  % "WHICH ";S$:S(S$)5 SJ12660\ S1SJĺ(7);:(37):868:2540j DB$R$(S)y SJ1140 ( 26202 1013< J0J1F "NAME FOR NEW DATA BASE FILE :";R$(J)P NRJ:4280Z DB$R$(J1):1140d *** DERECORD NUMBER "DR" DELETED!":4 "MORE (Y/N) ";L$E L$"Y"2360h NRNR1:F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:": J1NR:J" "R$(J):J: J" CREATE A NEW DATA BASE" J1ĺJ1" DELETE A DATAI" "H$(I)": "N$(J,I)!I'4 LLNH2B D$"PR#0"H b$ ***DELETE RECORDS***h. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDRNR1V I1NH` N$(J,I)N$(J1,I)j It J~ :"1SNH2130f/p"FROM "H$(S)": "N$(J,S)5zV"TO "H$(S)": ";:"";N$(J,S)b:2240h" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810***PRINT A RECORD***PF5230,5250" "H$(0)": ";JI1NHL$(L$)274810,(L$)1320648L0::O ***CHANGE DATA***v*" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$)>:2240H" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";R"";S$:S(S$) \S"THAT'S ALL OF THEM. ";+"NOW YOU MAY:"E"1 DO MORE SEARCHES"["2 MAKE CHANGES"|"3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF02070"PRESS RETURN TO CONTINUE, ESC FOR MENU";I" MAKE CHANGES"D1N"WHICH ";S$:S(S$)FXS0SNH11870WbSNH12080]lv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NRN$(J,0)(J)(N$(J,S),(Q$))Q$İ2240LNH20İ2060JI1NH)H$(I)":";:4720:N$(NR,I)I$0I6L"MORE (Y/N) ";L$]L$"Y"1640lF$"INDEX"v42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"&38800:"OR YOU MAY"::OR COLUMN NUMBER "NR": ";:"";R$(NR)> "R$(NR)""NR201600J ,NRNR1T 61560` @NRNR1p J4280:1160 T***ENTER RECORDS*** ^ h"THERE ARE "NR" RECORDS" r"IN THE "DB$" FILE" |NRNR1 "YOU ARE ENTERING RECORD # "NR ):S1SNH14500 :"DO YOU WANT TO SORT:":H "1 ALPHABETICALLY"] "2 NUMERICALLY"c | "WHICH ";L$:L(L$) :"SORTING ";:1240 1013:*** CREATE HEADERFILE *** NR1 :"PRESS 'RETURN' TO EXIT TO MENU" $ "HEADER F$(R(J),I)N$(J,I):N$(J,I)Z$(I):ID xZR(R(J)):R(R(J))R(J):R(J)ZN 1370 "":"WANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";:"Y/N) ?";L$:L$"Y"F$"INDEX":4280 4810 MF1:3880 "ENTER # OF FIELD FOR SORT ";S$:S(S$,S)R(I)R(I)1 1300A (N$(I,S))(N$(J,S))R(I)R(I)1K J:I\ "SORTING ";v (INR11:JNR11 2IJĭR(I)R(J)R(J)R(J)1 <J:I F"SORTING " PJ1 ZR(J)JJJ1:1370 dJNR1420" nI1NH:Z$(I)N$(R(J),I):N$"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 *** I1NR:R(I)0:I I1NR:J1NR L1270,1290 N$(I,S)N$(J$ 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            E A DATA BASE ***5n :"DELETE WHICH : ";S$:S(S$)`x S1SJ1ĺ(7);:(37)1:868:2670 :(9):"READY TO DELETE "(34);R$(S);(34);".": "ONCE DELETED, THIS DATA CANNOT BE" "RECOVERED. ARE YOU SURE THAT YOU" "WANT TO DELETE ITSE"  " "WHICH ";S$:S(S$)2 SJ12660Y S1SJĺ(7);:(37):868:2540g DB$R$(S)v SJ1140| ( 26202 1013< J0J1F "NAME FOR NEW DATA BASE FILE :";R$(J)P NRJ:4280Z DB$R$(J1):1140d *** DELET :"RECORD NUMBER "DR" DELETED!":9 "MORE (Y/N) ";L$J L$"Y"2360e F$"INDEX":4280:4810 *** BASENAMEFILE ROUTINES ***  "SELECT FROM:": J1NR:J" "R$(J):J: J" CREATE A NEW DATA BASE" J1ĺJ1" DELETE A DATA BA "H$(0)": ";JI1NH4I" "H$(I)": "N$(Y,I);IAN LLNH2X 5310^ x$ ***DELETE RECORDS***~. 8 "ENTER RECORD NUMBER YOU WANT DELETED ";DR$:DR(DR$)B DR1DRNR2360L JDRNR1V R(J)R(J1)t J:NRNR1#~R"";S$:S(S$)&\S1SNH2130,fIp"FROM "H$(S)": "N$(Y,S)Ozp"TO "H$(S)": ";:"";N$(Y,S)|:2240" MORE CHANGES (Y/N) ";L$L$"Y"2080F$"INDEX":4280:4810***PRINT A RECORD***PF5230,5250", ESC FOR MENU";L$+(L$)274810?(L$)132064KL0::b ***CHANGE DATA****" ENTER THE NUMBER OF THE RECORD"4"YOU WANT TO CHANGE ";J$:J(J$):YR(J)>:2240H" ENTER THE NUMBER OF THE FIELD YOU WANT":"TO CHANGE ";2060 J("THAT'S ALL OF THEM. ";<"NOW YOU MAY:"V"1 DO MORE SEARCHES"l"2 MAKE CHANGES""3 RETURN TO THE MAIN MENU"" WHICH ";S$:S(S$)S1S32030S1800,2080,4810 PF02070:"PRESS RETURN TO CONTINUEMAY"::I" MAKE CHANGES""D;N"WHICH ";S$:S(S$)PXS0SNH11870abSNH12080glv"PLEASE ENTER THE "H$(S):"YOU WANT TO FIND....... ":"";Q$J1NR:YR(J)N$(Y,0)(J)(N$(Y,S),(Q$))Q$İ2240LNH20İ(NR,I)I$)I$"/"N$(NR,I)N$(NR1,I)0I6L"MORE (Y/N) ";L$]L$"N"1750g1640vF$"INDEX"42804810***SEARCH/CHANGE***L0"YOU MAY SEARCH BY ANY OF THE FOLLOWING:"&38800:"OR YOU RAGE RECORD SIZE ";R$(NR):(R$(NR))0R$(NR)(NR1)10G J4280:1160` T***ENTER RECORDS***f ^ h"THERE ARE "NR" RECORDS" r"IN THE "DB$" FILE" |NRNR1:R(NR)NR "YOU ARE ENTERING RECORD # "NR  I1NH H$(I)":";:4720:N$LY" " "WHICH ";L$:L(L$)7 :"SORTING ";:\ 1013:*** CREATE HEADERFILE ***e NR1 :"PRESS 'RETURN' TO EXIT TO MENU"  "HEADER FOR COLUMN NUMBER "NR": ";:"";R$(NR) "R$(NR)""NR201600 ,NRNR1 615607 @"AVEWANT TO SAVE THE "DB$" FILE":"SORTED BY "H$(S)" TO DISK ";:"Y/N) ?";L$:L$"Y"F$"INDEX":4280k 4810z MF1:3880 "ENTER # OF FIELD FOR SORT ";S$:S(S$):S1SNH1450 :"DO YOU WANT TO SORT:": "1 ALPHABETICALLY" "2 NUMERICALNM:J1:"SORTING ";:M0ĺ"DONE":- IJp LLIM:I2R(I):L2R(LL):L1290:(N$(I2,S))(N$(L2,S))1300z 1295 N$(I2,S)N$(L2,S)1300 YR(I):R(I)R(LL):R(LL)Y:IIM:I11270 JJ1:JK1250 1260 1440:1240a "":"ME":2610 `4110 j24705 tF$"HEADER":1520? ~4110Z I1NR:H$(I)R$(I):It NHNR1:NR0:MEM(0) B(MEM(3NH(H$(NH1)))) N$(B,NH),R(B) F$"INDEX":4830 4110 4810 *** SORT *** NNR:MN% M(M2):KР& 216,00MODIFIED BY GARY FOOTE 5/16/79B"MAXFILES1"UD$"":CTRL DjD$"NOMON,I,O,C"r:|5180$R$(65),AC(21),K(65),H$(21),RN$(21).Z$(21)8COMMA$"NO"BD$"":CTRL DLH$(0)"REC#" VDB$"":F$"BASENA           "V$:6040F81: ROUND AND 10 PLACES*qV0VV1:F81HuV(V102.5)(102.5)ZzV(V)6021rV$(V)".00":6040V1V(V)V1(V1100.5)100V$(V1)(V$)2V$V$"0"V$((V))V$F81V$"-"V$(V$)106050 V$"9,3)5040EA1:::"TODAY'S DATE ";C1$:"ACCOUNT # ";A$`"COMPANY ";(P$(E),12,25)uX180:"-";:X"DATE INV OR CHK# COMMENTS";6);"90+DAYS";7);"60 DAYS";7);"30 DAYS";7);"CURRENT"X180:"-";:Xp SUB FOR$(E),71,2))40203D((S$(E),74,2))40309~(S$(E),8);(S$(E),37,9);(S$(E),56,15);36);"$";(S$(E),46,10)CBCB((S$(E),46,10))LFLF1 PRINTS HEADSE0NNENNĺ"NO SUCH ACCOUNT ":F1: A$(P$(E),LFLF1& SUB FOR 30 DAYSD TR((S$(E),71,2))3020J g D((S$(E),74,2))3030m  (S$(E),8);(S$(E),37,9);(S$(E),56,15);24);"$";(S$(E),46,10) TBTB((S$(E),46,10)) LFLF1  FOR CURRENTCD((S,15);"$";(S$(E),46,10)3NBNB((S$(E),46,10))?LFLF1EV FOR 60 DAYtSX((S$(E),71,2))2020zD((S$(E),74,2))2030(S$(E),8);(S$(E),37,9);(S$(E),56,15);12);"$";(S$(E),46,10)SBSB((S$(E),46,10)) "END OF PROGRAM THANK YOU":9998 PRINT FOR 90&OVERVNT((S$(E),71,2))1020qSX((S$(E),71,2))ıTR((S$(E),71,2))ıCD((S$(E),71,2))ı RETURND((S$(E),74,2))1030(S$(E),8);(S$(E),37,9);(S$(E),56NB:6000:TB$V$:" *TOTAL $";TB$9gTB0:CB0:NB0:SB0MhX180:"-";:]iLF0LF2njX1LF::X}kLF28:225l0v"TO END TYPE 'END' -":X$X$"END"ĺ"DONE AND THANKS ":X02000:X:Z$;"RUN HELLO"N0200  CURRENT D131 E0N: A$(S$(E),9,3)İ4000A EH &D_ 068);"**********" :VCB:6000:CB$V$:68);"$";CB$ XX180:"-";:X b"90 DAYS+ $";NB$ c"60 DAYS $";SB$ d"30 DAYS $";TB$ e"CURRENT $";CB$!fVCBTBSB0N JA$(S$(E),9,3)İ2000( OE:D? T44);"**********"c ^VSB:6000:SB$V$:44);"$";SB$m cV$""  FOR 30 DAYS D131 E0N A$(S$(E),9,3)İ3000 E D 56);"**********" VTB:6000:TB$V$:56);"$";TB$ A$(P$(E),9,3)S$(N)P$(E):NN1) E3 NN1E F1F0:225W 90 AND OVERc D131n E0N A$(S$(E),9,3)İ1000 E "D #33);"*********" $VNB:6000:NB$V$:33);"$";NB$ %V$"" , FOR 60 DAY 6D131 @EYR((C1$,2)) INDIVIDUALQ "WHAT ACCOUNT # OR #'S DO YOU WISH TO SEE "j B$(Q):B$(Q)""225y QQ1:222 QQ1:Q0620 A$B$(Q) (A$)3230 A$"0"A$:227 HEADING 5000 MASTER SORT N0 E0NN" STATEMENTB "WHAT IS THE CURRENT BILLING DATE ";CD$:C1$CD$R M$(CD$,2)q (CD$,2,1)"/"M$(M$,1)~ CD(M$) TRCD1:SXCD2:NTCD3 CD1TRTR12:SXSX12:NTNT12 CD2SXSX12:NTNT12 CD3NTNT12 CD$(CD)   MON GOES HERE) S$(100),B$(50)Sd:"INSERT PFILE DISK AND HIT RETURN"[eX$ffNN450pgLF28|iP$(NN)nZ$""oZ$;"CATALOG"pxZ$;"OPEN PFILE"Z$;"READ PFILE"E0NNP$(E)EZ$;"CLOSE PFILE"