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` ŠύˠύΠύĤΤϢ̠נӠ΢ΠנӠ΢ȠӠ΢ΠȠӠ΢٠ԢΠ٠Ԣˠ ЂY:XSAVX:YSAVY:9060*#I1FC%:I$(I)E$D$"CLOSE MATURITY";I$L$IT$21:"LONG TERM MATURITY GRAPH"::"HIT ANY KEY TO RETURN TO MENU";:KEY$::00F#D$"READ MATURITY";P$4K#J110:B(F%,J):JIZ#B(F%,1)0ī9200m_#P%1YSAV4.18B(F%,W%)167.2yd#W%W%1n#W%10P%FC%P%P%1:P$(P%):W%0:9030x#W%10ī9014}#B(F%,W%)0ī9014#Y4.18B(F%,W%)167.2:XXSAV5:XSAV,YSAVX,"READ FILE-COUNT",#FC%4.#D$"CLOSE FILE-COUNT"I0#I1FC%:I$(I)c1#D$"OPEN MATURITY";I$j2#I3#:CSAV7:F%0:CSAV4#0,00,159279,1596#X(0):F%F%1:P%1:P$(P%):W%1:XSAV0:CSAVCSAV1:CSAV<#CSAV4CSAV3:CSAVA#F%10ī92)0ī8014+Y15.9A(F%,W%)318:XXSAV5>XSAV,YSAVX,YVXSAVX:YSAVY:8060k I1FC%:I$(I) D$"CLOSE YIELD";I$& Il 21:"LONG TERM YIELD GRAPH"::"HIT ANY KEY TO RETURN TO MENU";:KEY$::(#)#D$"OPEN FILE-COUNT"*#D$XSAV0:CSAVCSAV1:CSAV1TCSAV4CSAV3:CSAVBYF%10ī8200Y^D$"READ YIELD";P$qcJ110:A(F%,J):JrA(F%,1)0ī8200wP%1YSAV15.9A(F%,W%)318|W%W%1W%10P%FC%P%P%1:P$(P%):W%0:8030W%10ī8014 A(F%,W%O RETURN TO MENU";:KEY$: &@?AD$"OPEN FILE-COUNT"XBD$"READ FILE-COUNT"aDFC%{FD$"CLOSE FILE-COUNT"HI1FC%:I$(I)ID$"OPEN YIELD";I$JIL:CSAV7:F%0:CSAV:0,00,159279,159NX(0):F%F%1:P%1:P$(P%):W%1:"WRITE YIELD";FC$) ZERO OUT NEW FILEGI110:J110:Z1:J:I`D$"CLOSE YIELD";FC${D$"OPEN MATURITY";FC$D$"WRITE MATURITY";FC$I110:J110:Z1:J:ID$"CLOSE MATURITY";FC$ "NEW FILES CREATED":"HIT ANY KEY TLES INITIALIZED"::73001D$"OPEN FILE-COUNT"JD$"READ FILE-COUNT"SFC%mD$"CLOSE FILE-COUNT"D$"OPEN FILE-COUNT"FC%FC%1D$"WRITE FILE-COUNT"FC%D$"CLOSE FILE-COUNT"FC$(FC%)D$"OPEN YIELD";FC$D$hI110:J110:Z1:J:I3iD$"CLOSE YIELD1"KjD$"OPEN MATURITY1"dkD$"WRITE MATURITY1"lI110:J110:Z1:J:ImD$"CLOSE MATURITY1"nD$"OPEN FILE-COUNT"pD$"WRITE FILE-COUNT"rFC%1:FC%tD$"CLOSE FILE-COUNT"v"FISHORT TERM FILES":KEY$:.ZKEY$"2"ī7050G\D$"OPEN FILE-COUNT"`]D$"READ FILE-COUNT"i^FC%_D$"CLOSE FILE-COUNT"`I1FC%:I$(I)aD$"DELETE YIELD";I$bD$"DELETE MATURITY";I$dIfD$"OPEN YIELD1"gD$"WRITE YIELD1"0XSAV,YSAVX,Y&XSAVX:YSAVY06100{821:9:"MATURITY GRAPH"::"HIT ANY KEY TO RETURN TO MENU";:KEY$::X::4:"NEW SHORT TERM FILE ROUTINE"::"ENTER NUMBER OF DESIRED FUNCTION"::"1-ADD NEW SHORT TERM PERIOD"::"2-REINITIALIZE AV7:F%0:CSAV:0,00,159279,159DW%1:XSAV0:CSAVCSAV1:CSAV]CSAV4CSAV3:CSAVvF%F%1:F%10ī6200B(F%,1)0ī6200YSAV4.18B(F%,W%)167.2W%W%1:W%10ī6050B(F%,W%)0ī6050Y4.18B(F%,W%)167.2XXSAV2F%,1)0ī5200)YSAV15.9A(F%,W%)318BW%W%1:W%10ī5050XA(F%,W%)0ī5050q Y15.9A(F%,W%)318XXSAV20XSAV,YSAVX,Y(XSAVX:YSAVY25100P21:10:"YIELD GRAPH"::"HIT ANY KEY TO RETURN TO MENU";:KEY$::"p:CS10:B(I,J):J:I.D$;"CLOSE MATURITY";FC$I"MATURITY FILE SAVED"y:"HIT ANY KEY TO RETURN TO MENU";:KEY$::CSAV7:F%0:CSAV:0,00,159279,159W%1:XSAV0:CSAVCSAV1:CSAVCSAV4CSAV3:CSAVF%F%1:F%10ī5200 A(TES(Y/N)";:Q$:Q$"Y"ī4020R:"SAVE UPDATED FILE(Y/N)";:Q$::Q$"Y"ī4500ktD$"OPEN FILE-COUNT"vD$"READ FILE-COUNT"xFC%zD$"CLOSE FILE-COUNT"{FC$(FC%)|D$;"OPEN MATURITY";FC$D$;"WRITE MATURITY";FC$I110:J1:K:"ENTER FUND # ";F%:F%10ĺ"ONLY 10 FUND NUMBERS PERMITTED":4020"ENTER WEEK # ";W%:W%10ĺ"ONLY 10 WEEKS PERMITTED":4030"ENTER NEW MATURITY ";M:M2M40ĺ"INVALID MATURITY":4040B(F%,W%)M:"UPDATE APPLIED":"ANY FURTHER UPDA D$"CLOSE FILE-COUNT"% FC$(FC%)> D$;"OPEN YIELD";FC$W D$"WRITE YIELD";FC$y I110:J110:A(I,J):J:I D$"CLOSE YIELD";FC$ "YIELD FILE SAVED" :"HIT ANY KEY TO RETURN TO MENU";:KEY$:::9:"MATURITY UPDATE ROUTINE"";Y:Y10Y20ĺ"INVALID YIELD":30404 A(F%,W%)Yy "UPDATE APPLIED":"ANY FURTHER UPDATES(Y/N)";:Q$:Q$"Y"ī3020 Q$"Y"ī3020 :"SAVE UPDATED FILE(Y/N)";:Q$::Q$"Y"ī3500 D$"OPEN FILE-COUNT" D$"READ FILE-COUNT" FC%ABLE COMPLETE":"HIT ANY KEY TO RETURN TO MENU";:KEY$::` ::10:"YIELD UPDATE ROUTINE": :"ENTER FUND # ";F%:F%10ĺ"ONLY 10 FUND NUMBERS PERMITTED":3020 "ENTER WEEK # ";W%:W%10ĺ"ONLY 10 WEEKS PERMITTED":3030% "ENTER NEW YIELD HT6:J:IV ::"YIELD TABLE COMPLETE":"HIT ANY KEY TO RETURN TO MENU";:KEY$:: :5:"MATURITY TABLE"::"WK# FUND1 FUND2 FUND3 FUND4 FUND5" I110::I;:HT7 J15 HT:B(J,I)0ĺB(J,I);: HTHT6:J:I: ::"MATURITY TKEY$"9"ĺ"INVALID KEY":I1200:I:3009 KEY$"0"Āx 4(KEY$)1000,2000,3000,4000,5000,6000,7000,8000,9000:300 :7:"YIELD TABLE"::"WK# FUND1 FUND2 FUND3 FUND4 FUND5" I110::I;:HT7 J15 HT:A(J,I)0ĺA(J,I);: HTE":4:"4-UPDATE MATURITY FILE"::4:"5-PRODUCE YIELD GRAPH":4:"6-PRODUCE MATURITY GRAPH": 4:"7-BEGIN NEW SHORT TERM FILE":4:"8-PRODUCE LONG TERM YIELD GRAPH":4:"9-PRODUCE LONG TERM MATURITY GRAPH"::4:"0-END PROGRAM") X4:KEY$:KEY$"0" D$"OPEN YIELD";FC$. D$"READ YIELD";FC$P I110:J110:A(I,J):J:Ii D$"CLOSE YIELD";FC$ ,:18:"MENU":::"PRESS KEY FOR INDICATED FUNCTION :": ^4:"1-PRINT YIELD TABLE":4:"2-PRINT MATURITY TABLE":^ 4:"3-UPDATE YIELD FIL&216384:A(10,10),B(10,10):D$""?pD$"OPEN FILE-COUNT"XrD$"READ FILE-COUNT"atFC%{vD$"CLOSE FILE-COUNT"xFC$(FC%)zD$"OPEN MATURITY";FC$|D$"READ MATURITY";FC$~I110:J110:B(I,J):J:ID$"CLOSE MATURITY";FC$       *$#/************************#2GYOU WANT ANOTHER COPY, Y/N ";G$1"p+G$"Y"ī7200K"z+G$"N"ĺ(7):11110Q"|.:W".:t".***********************".* *".* C.E.WALKER/JUNE '82 * ".* *"/* LINCOLN,NE *#/* K1DA(H,I,J)5SC!)"*";#!,)K)!6)7!@)24);"!">!J)JE!T)IL!^)Hu!)24);:I0505:36,I23:"!";:I:!)25);:I150:"-";:I:!0*I0102!:*36,(23I5):ISC;!D*I!N*!*(12)!*:!*:!*(4);"PR#0"!\+:"f+"DO  ((PN$(I),22);# (36,23:"!"; ("---------------";K (36,23:"!"W <(J1PAn x(5);(PA$(J),18); (36,23:"!"; (DA(H,I,J)1ī10550 (36,24 ) ASSUMING VALUES OF HEDONICS BETWEEN 0 AND 10, W/ 50 SPACES AVAILABLE TO PRINT ON.!) "":":%T$49(HE$)2);HE$3$I0102K$36,(23I5):ISC;R$IX$v%25);:I150:"-";:I:0%24);:I0505:36,I23:"!";:I:': ':t'H1NL'NL$(H);:36,23:"!"'"===============";:36,23:"!" 'I1PNh40(L3$)2);L3$r" "I|25);"GRAPHIC OF TASTE PANEL RESULTS"R" "n30);"KEY NUMBER ";KN$"REPORT FOR: ";RF$"TEST DATE: ";DA$;:36,39:"PRODUCT NAME: ";PT$"PLACE TESTED: ";PC$;:36,39:"CITY TESTED: ";CC$" ":" ::*l"NOW READY TO START PRINTING!":[v"BE SURE PRINTER IS READY;PRESS RETURN.";G$c:"NOW PRINTING YOUR GRAPH!":: (4);"PR#1":(9);"80N"? PRINT HEADINGS@" "J40(L1$)2);L1$^40(L2$)2);L2$LLOWED IS ";SC10:6220j$J+I2dHS PROVIDE CORRECTION FEATUREz"DO YOU NEED TO CHANGE THE DATA?"" Y OR N ";G$G$"Y"Ĭ2000G$"N"ĺ(7):6610N:S:WBEGIN PRINTOUT ROUTINESX:b16::"WARNING":1NL "FOR ";NL$(H)5"^^^^^^^^^^^^^^^";GI1PNb"FOR PRODUCT ";PN$(I)y"---------------"8J1PAL"FOR ATTRIBUTE ";PA$(J)`" RESPONSE SCORE = ";DA(H,I,J)eDA(H,I,J)SC10ĺ(7);"THE MAXIMUM VALUE A PRODUCT NAME= ";PN$(I)I$*~:0:LPA$()=PROD. ATTRIBUTESw"HOW MANY ATTRIBUTES TESTED FOR? ";PAPA$(PA)PJ1PAZd"FOR ATTRIBUTE # ";Jx" ATTRIBUTE NAME= ";PA$(J)Jf:k:pDA(NL,PN,PA)zH ";NL NL$(NL)H1NL$$=8"FOR LOCATION # ";H`L" LOCATION NAME= ";NL$(H)g`Hmts:y:PN$() = PRODUCT NAMES"HOW MANY PRODUCTS WERE TESTED? ";PNPN$(PN)hI1PNr|"FOR PRODUCT # ";I" DUCT TESTED?"+2 "16 SPACES MAXIMUM ";PT$F< (PT$)16ĺ(7):2610LF y "DO YOU WISH TO CHANGE THESE HEADINGS?" "ANSWER Y OR N ";G$ G$"Y"ī2000 G$"N"ī2710  NL$() = LOCATION NAMES "HOW MANY LOCATIONS WERE TESTED?" 1...0 TO 10, OR:"2t " 2...0 TO 100"O~ "CHOOSE '1' OR '2' ";G$` G$"1"SC1r G$"2"SC10 G$"1"G$"2"ĺ(7):2400  "WHAT WAS THE TEST DATE? " "ENTER IN FORM DD/MM/YY ";DA$ ( "WHAT IS THE TYPE OF PRO THE PANEL CONDUCTED?"5 "12 SPACES MAXIMUM: ";CC$P (CC$)12ĺ(7):2310V $ "WHAT HEADING DO YOU WANT AT THE TOP OF THE GRAPH?". "25 SPACES MAXIMUM: ";HE$8 (HE$)25ĺ(7):2350B ` "WHICH HORIZONTAL SCALE DO YOU WISH?"j 9ĺ(7):2010;4"WHO IS THIS REPORT PREPARED FOR?"Z>"25 SPACES MAXIMUM: ";RF$uH(RF$)25ĺ(7):2110{R"IN WHAT PLACE WAS THIS TEST CONDUCTED?""12 SPACES MAXIMUM: ";PC$(PC$)12ĺ(7):2210"IN WHAT CITY WAS";L1$F:"WHAT IS THE SECOND LINE AT THE TOP OF THE PAPER? ";L2$&:"WHAT IS THE THIRD LINE AT THE TOP OF THEPAPER? ";L3$ INPUT HEADING INFORMATION::"WHAT IS THE KEY NUMBER FOR THIS PANEL?""9 SPACES MAXIMUM: ";KN$ (KN$)Ϻ" FLAVOR !*********"G" ----------------------------"k:" TO CONTINUE ";G$: INPUT REPORT TOP LINES::"LIMIT THE FOLLOWING THREE ANSWERS TO ";::"80 SPACES":"WHAT IS THE FIRST LINE AT THE TOP OF THEPAPER? CT B !".h" COLOR !*******************"Wr" FLAVOR !*********************"k|"PLACE II !"" PRODUCT A !"" COLOR !****************"" FLAVOR !*************************"" PRODUCT B !"" COLOR !***"" GRAPH TITLE"P"" 0 2 4 6 8 10"," ---------------------------"6"PLACE I !"@" PRODUCT A !"J" COLOR !****************"T" FLAVOR !********************"^" PRODUMPLE EXAMPLE PRINTED ON THE SCREEN.";G$I SAMPLE CHART (TEXT SCREEN)Oq" HEADING LINES"" MORE HEADING LINES""DATE PRODUCT""PLACE CITY"!HEDONIC SCORES, AND THE '100' SCALE FOR % PREFERENCE.";R"YOU CANNOT USE BOTH""SCALES ON THE SAME GRAPH, SO IF YOU MIX HEDONIC SCORES WITH % DATA, YOU WILL NEED TO DIVIDE THE % VALUES BY 10 BEFOREENTERING."(23:"PRESS TO SEE A SIALSO"Gr"BE ASKED FOR THE NUMBER OF AND NAMES OF ATTRIBUTES TESTED."U~G$:G$:7" YOU MAY USE ANY REASONABLE NUMBER OF EACH OF THESE 3 VARIABLES. ALSO, THE DATA MAY BE IN THE RANGE OF 1 TO 10,OR 1 TO 100. YOU MAY USE THE '10' SCALEFOR THE TYPEOF PRODUCT TESTED.";6 j" YOU WILL ALSO BE"o"ASKED FOR THE TEST DATE & CITY AND THE PLACE TESTED. AFTER ASKING FOR THE TITLE OF THE GRAPH, YOU WILL BE ASKED FOR THE NUMBER OF LOCATIONS YOU HAVE DATA FROM, AND THE NAMES. YOU WILL SEDTO PRINT A HORIZONTAL BARGRAPH, AS OF TASTE PANEL SURVEY DATA. IT ASSUMES AN 80 COLUMN PRINTER WITH INTERFACE CARD INSLOT #1." V `" YOU WILL BE ASKED FOR HEADING IN- FORMATION, INCLUDING THE PANEL KEY CODE NUMBER, WHO THE REPORT IS FOR &@" 1 *** 3"E T" 11111 *** 33333"Y 24:39:G$:G$p  INSTRUCTION BOOKx : "DO YOU WANT INSTRUCTIONS? Y/N ";G$ G$"N"ī2000 G$"Y"ĺ(7):1010 : L" THIS PROGRAM IS INTENDED TO BE U0000 T T EEEEE R R"$ :I " 111 33333 "m " 1 3" " 1 3" " 1 3333" " 1 3" ," 1 *** 3"! r"P P L O O T T E R R";` t"PPPPP L O O T T EEE RRRRR"; v"P L O O T T E R R" x"P L O O T T E R R" "P L O O T T E R R" "P LLLL 0+ >>>>>>>>><<<<<<<<<2 >> PLOTTER 1.3 << J>> C.E.WALKER <<b>> JUNE82 <<{>>>>>>>>><<<<<<<<< c BIG SCREEN TITLEd::n"PPPPP L OOOOO TTTTT TTTTT EEEEE RRRRR";p"P P L O O T T E R R";/               :u:(10):(15):"NORMAL EOJ":(23): PQ):(HT):SM$(Q):QQQ:10550#O)-T)6100PX)EN(222):LN(218)(219)256mY)EN255ĺ(7);:16368,0^)LN10540ī10540c)LN10555ī10555 N:(10):"ERROR NO. "EN:"IN LINE NO. "LN:/u ***********0u *** END ***1u ***********%I;". ";SM$(I):I.))::(20(SEL$)2):SEL$K,)Q(16384):Q12710540y1)16368,0:QQ176:Q1QSMĺ(7);:105406)(VQ):(HT)::SM$(Q);):QQ(16384):QQ12710555@)16368,0:QQ14110575E)QQQQ176:QQ1QQSMĺ(7):10550J)(VENU110515)10506-)X140:X$;:X:: ):10504] )X221:(X):X$;:(40):X$:Xn)(22):10504)(3):(20(MN$)2):MN$)MENU110525):10504)(7):(4):"YOUR SELECTIONS ARE:"")V9:HH11:HT14:I1SM')(VI):(HH)::(11):"INSERT ANOTHER DISK"::(19):"THEN"=P#RT12:6200SZ#D$;"VERIFY ";PN$d#:(10):(9):"THIS IS THE SAME DISK!!":RT12:6200:216,0:5000n#D$;"PR#6") ********************) *** MENU ROUTINE ***) ******************** )M|SM$(4)"PRINT LABELS")SM$(5)"QUIT"4X$"X"XSEL$"< ENTER YOUR SELECTION >"cMENU1n10500Q1000,1000,2000,4000,5000'# **************(# *** REBOOT ***)# **************2#D$(13)(4):ERR(222)<#9070-F#:(8)&SIZE3LOWER17:CHARS36:VT2:I? ****************************l@ *** INITIALIZE MAIN MENU ***A ****************************JSM5TMN$"LABEL PRINTER"^SM$(1)"ENTER COPY"hSM$(2)"EDIT COPY"rSM$(3)"PRINT TEST LABEL"EDIT1ıVMN$"LABEL SIZE"(`SM3CjSM$(1)"15/16 X 3-1/2"[tSM$(2)"1-7/16 X 4"v~SM$(3)"2-7/8 X 3-7/8"SEL$"WHAT SIZE ARE YOUR LABELS?"MENU2:10500SIZEQSIZE1LOWER5:CHARS34:VT9:SIZE2LOWER8:CHARS37:VT7:bLABELSTARTFINISH,lLINEUPPERLOWERCvCOLUMNLEFTRIGHTcIN$(LINE);Y(IN$(LINE)))qCOLUMN:}LINE:(FINISHLABEL)ROWSRIGHTRIGHT1LABEL:K ******************L *** LABEL SIZE ***M ****************** QRETURN ROUTINE ***69 **************************** B16368,0:(RT):958:(8):"PRESS ";::"";::" TO CONTINUE"L(16384)1416220V16368,0:W: ********************X: *** PRINT LABELS ***Y: ********************0.:(8):"ALIGN PAPER FOR PRINTOUT":IDS1>RT17:6200Q(4);"PR#";SLWv ************************ *** TURN PRINTER OFF *** ************************ (4);"PR#0"7 ****************************8 *** PRESS OF PROGRAM ":X$"X":105002Q8000,9000,30000So **************************tp *** INITIALIZE PRINTER ***q **************************zIDS16040:(10):"WHICH SLOT IS PRINTER CARD IN? ";A$:SLOT(A$)SLOT1SLOT7ĺ(7):602TROWS)6000:7000:6100:TEST0:8000K ***************************m *** ENDING ROUTINE MENU *** ***************************10580SM3SM$(1)"RESTART PROGRAM"SM$(2)"BOOT ANOTHER DISK"SM$(3)"QUIT"MN$" END**** *** PRINT LABELS ***: ********************HYCHARS3:(10):"HOW MANY LABELS ACROSS PAGE? ";A$:ROWS(A$)TEST1FINISH1:4060:"HOW MANY LABELS WOULD YOU LIKE? ";A$:FINISH(A$)FINISH((FINISHROWS).5)RIGH******************2 *** EDIT COPY ROUTINE ***R *************************\ (VT)r LINEUPPERLOWER (39CHARS):IN$(LINE) LINE (21):(11):"ENTER NEW LINE OR"::(6):"PRESS FOR NEXT LINE"  ****************31150 jIN$IN$(X), tIN$(LINE)IN$:If ~(VTLINE1):(39CHARS):IN$(LINE);:(39):"!":LINE RT21:6200:EDIT0:8000  ************************  *** PRINT TEST LABEL ***  ************************ TEST1:4000 *******EUPPERLOWER:(VTLINE1):(38CHARS):"!";:(39):"!":LINEg $(39CHARS):DASH1CHARS:"-";:DASHy )EDIT1İ3000 .(VT):LINEUPPERLOWER:EDIT1IN$(LINE)" " 8(39):"!";:(38CHARS) BIN$"":662 LI512767 VX(I)128 `X1N$(20) 8000*  ******************C  *** ENTER COPY ***\  ******************w START1:UPPER1:LEFT1 :MENU1Q2EDIT1 7500:51,161 :(VT1):(39CHARS):DASH1CHARS:"-";:DASH (VT1):(39(CHARS2)):"+"= LINSED 1/20/82, APPLESOFT, PARSHALL, N.D., 58770J qPN$"LABEL PRINTER V1.1"[ s(4);"PR#0"u xA768798:B:A,B:A 169,16,141,242,3,169,3,141,243,3,73,165,141,244,3,96,104,168,104,166,214,154,72,152,72,32,234,3,76,18,212 10580 SM$(20),I' *****************3 * *L * LABEL PRINTER *e( * *~2 * BY *< * *F * RON FOLDEN *P * *Z *****************d- n VERSION 1.1, REVI             10):X$* x(4);"RUN LABEL PRINTER V1.1"J,  X$"*********************"@SX$"* *"U:(8):(10):X$d((10):SX$2(10):"* LABEL PRINTER *<(10):SX$F(10):"* BY *"P(10):SX$Z(10):"* RON FOLDEN *"d(10):SX$ n( ES"( "IN INCREMENTS OF 1/4 PERCENT."I .:"HIT RETURN TO START ";W$O 8 WNE IS SET FOR EPSON."4.:"HIT RETURN TO START ";W$48 (Y2Y1)23):YR(4)Y2 K "THIS PROGRAM WILL CALCULATE PAYMENTS ON"y "LOANS OF VARIOUS RATES AND MATURITIES." " THE PROGRAM WILL CALCULATE THE LOAN" "PAYMENTS TO THE NEAREST DOLLAR FOR FOUR" "YEARLY PERIODS AND FOR INTEREST RATY)12 P(Y)(AA(S)) YT ,SA100;10);P(1);18);P(2);26);P(3);34);P(4)\ 6SAk W$"Y"Ċ0 :"ANOTHER PROBLEM (Y/N) ";W$ (W$,1)"Y"ī100  "NUMBER OF YEARS (MIN,MAX) ";Y1,Y2 YR(1)Y1:YR(2)(Y1(Y2Y1)3):YR(3)(Y1 "PRINTER OUTPUT?";W$ - W$"Y"Ċ1F "FOR LOAN OF $";A:[ :20)"YEARS": "RATE";10);YR(1);18);YR(2);26);YR(3);34);YR(4) W$"Y"ĺ"---------------------------------------" SAXX1.25 SSA1200 Y14 NUMYR(Q"PROG: PAYMENT CALCULATOR L2 FROM ALAN PETERMAN 721-3295XF:1000vPA(W)(1(1W)(NUM))Wd:"AMOUNT ";Ai500n"LOWEST INTEREST RATE ";Xx"HIGHEST INTEREST RATE ";X1}X1ĺ"INPUT RATES IN PERCENTAGES":110     INPUT ERROR HANDLERN# D$;"CLOSE ";ZA$:768:(222)5ĺ"ABNORMAL ERROR":g# IN1A1$ZA$:1630# IN1ĺD$;"DELETE ";ZA$# I211630# ZA$F$" MAIL LIST":I21:1580BH TIME THRU LIST"!"6 IN111B"@ ZC(N%(I))ZC(N%(I1))2910h"J T%N%(I):N%(I)N%(I1):N%(I1)T%r"T CC1y"^ I"h JJ1:12:868:"THERE ARE ";C;" ITEMS OUT OF ORDER""r C02850"| " EXCHANGE DISK DRIVE" D1D2:" D1:# II1I1I11! T%N%(I)$! 730.! NN1=! JNI11O! N%(J)N%(J1)V! Jd! N%(I1)T%j! ! ZIP CODE NUMERICAL ORDER ROUTINE! :M$"RW"! I1N! ZC(N%(I))((N$(N%(I),2),5))! I! J0!" C0", 10:"WORKING ON ";J;"T2580 J%  A$(N1$(N%(I)),J1)M  N1$(N%(I))(N1$(N%(I)),LJ)" "A$T ( IZ 2 m < MOVE AN ITEM{ F :M$"RW" P "MOVE WHICH NAME ?"::34,3: Z 1040:JI d 34,2::"BEFORE WHICH NAME ?"::34,3: n 1040:I1I x 34,2: IJ!%(I1)T% CC1 IP JJ1:868:"THERE ARE ";C;" ITEMS OUT OF ORDER"^ C02410d  "LAST NAMES LISTED FIRST ?";A$::(A$,1)"Y"ī2610 I1N N1$(N%(I))N$(N%(I),0) L(N1$(N%(I))) JL11 (N1$(N%(I)),J,1)" "TER (E/C) ?":DF$:DF$"C"CC$(27)"Q":CD$(27)"N":A= ::[B ALPHABETIZE ROUTINEiL :M$"RW"sV 2510{` J0j C0t 10:"WORKING ON ";J;"TH TIME THRU LIST"~ IN111 N1$(N%(I))N1$(N%(I1))2470  T%N%(I):N%(I)N%(I1):NERMINE RANGE OF PRINTINGI CC$(15):CD$(18): SHIFT IN AND SHIFT OUTl "A)LL, O)NE OR R)ANGE ?";A$: (A$,1)"O"İ1040:KI:LI:2360$ (A$,1)"R"ĺ"LOW LIMIT":1040:LI:"UPPER LIMIT":1040:KI:2360. L1:KN88 "EPSON OR C. ITOH PRINC$=(ZC$)5Ğ:"ZIPCODE MUST HAVE FIVE DIGITS"::2170_:"ADDRESS AS TYPED IN:"::jA$(0)uA$(1)A$(2);" ";ST$;" ";ZC$:"MAILING LIST NO. = ";I22:"IS IT OK (YES OR NO) ?";:B$:B$"N"1980 SUB TO DET7:7:868:A$(2):+H9:"STATE ";ST$9R9:7:C$L\C$""ST$C$f(ST$)2Ģ10::"USE TWO DIGIT CODE FOR STATE"::2120p9:8:868:ST$:z11:"ZIPCODE ";ZC$11:9:"";C$(C$)3ZC$"55"C$:2220C$""2220ZC$ CHANGE SUBROUTINE/3:"NAME ";A$(0)=3:6:C$RC$""A$(0)C$k3:7:868:A$(0):5:"ADDRESS ";A$(1)5:9:C$ C$""A$(1)C$5:10:868:A$(1): 7:"CITY ";A$(2)*7:6:C$4C$""A$(2)C$> SET UP ?";A$$&(A$,1)"N"İ168000:2310L:"NUMBER OF TIMES ?";I2[DD$;"PR#1"hNI11I2sXMLK~bI02l(N$(N%(M),I))33ĺCC$;:N$(N%(M),I);:CD$:1920vN$(N%(M),I)I::MI1D$;"PR#0""LABELS IN AND PRINTER ON ?";:A$:6:D$;"PR#1"G"DANA LONN"a"1600 NOKOMIS COURT"}"MINNEAPOLIS MN 55417"::D$;"PR#0"23:"IS THAT OK (YES OR NO) ?";A$(A$,1)"N"1710 PRINT LABELS "PRINTERNTINUE";A$::1540ZA$F$(2980<"D$;"MON C,I,O"W,D$;"OPEN ";ZA$;",D";Dk6D$;"READ ";ZA$z@IN1400JN$(I,0):N$(I,1):N$(I,2):N%(I)IT^216,0hD$;"NOMON C,I,O"rNI1:N1N1150 SET UP LABELS%I2I21%I216ĺ(12):I20,MDCD$: NORMAL PRINTSD$;"PR#0"Yq READ IN DATA FILE:I20:N0Ą"START NEW FILE ?";A$:(A$,1)"Y"N0"FILE NAME (C/R FOR CATALOG) ?";F$ (F$)0ĺD$"CATALOG":"PRESS RETURN TO CO(I),0)A$(0)"(N$(N%(I),1)A$(1)H2N$(N%(I),2)A$(2)" "ST$" "ZC$N<aF: PRINT LISTkZ2310zdD$;"PR#1"nCC$: COMPRESSEDxI20MLK3I102N$(N%(M),I1);:36,44:N$(N%(M1),I1);:36,88:N$(N%(M2),I1)I1 CHANGE ROUTINE!:M$"RW"+1040AA$(0)N$(N%(I),0)WA$(1)N$(N%(I),1)lL(N$(N%(I),2))L8A$(2)"":ST$"MN":ZC$"55417":1300ZC$(N$(N%(I),2),5)ST$(N$(N%(I),2),L7,2) A$(2)(N$(N%(I),2),L9)1980 N$(N%IT ?";A$$(A$,1)"E"1503.(A$,1)"N"1120L8:"PRINT LIST ?";A$bB(A$,1)"Y"İ960~L:"NUMBER OF NAME ?";IV1180`:"NAME ?";A$jL(A$)tI1N~A$(N$(N%(I),0),L)1180"NAME NOT FOUND":1050;A1$K2İ2950:820.D$;"NOMON C,I,O"8::S LIST NAMES ON SCREENYdI1N}I;".) ";N$(N%(I),0)(I20)(I20)ľB$::A$"L"Ģ23:B$: NAME OR NUMBER SEARCH ROUTINE"N)AME, L)IST NUMBER OR E)X$,1)"Y"930 HM$"RW"ī880ORD$;"OPEN ";A1$;" , D";D:D$;"DELETE ";A1$t\D$;"OPEN ";A1$:D$;"WRITE ";A1$fN11:890pD$;"APPEND ";ZA$;" , D";D:D$;"WRITE ";ZA$zIN1NN$(N%(I),0):N$(N%(I),1):N$(N%(I),2)D$;"CLOSE ")A$(2)" "ST$" "ZC$%N%(N)N:9 DELETE A NAMEG:M$"RW"Q1040^JIN1pN%(J)N%(J1)vNN1  EXIT ROUTINED$;"MON C,I,O" :K0*M$"Y"M$"RW"9404KK1 >K2ė:"BACK UP DISC ?";B$:(BM$"RW"M$"Y"&N0570O0"FILE NAME ?";F$:M$"RW":A1$F$" MAIL LIST"[:NN1:pD DEFAULT VALUES}NA$(0)""XA$(1)""bA$(2)"MINNEAPOLIS"lST$"MN"vZC$"55417"IN1980N$(N,0)A$(0)N$(N,1)A$(1)N$(N,20A$"D"İ700#A$"E"ī7804A$"L"İ960FA$"M"İ2620XA$"N"İ2790jA$"O"İ2370|A$"P"İ1800A$"R"ī1520A$"S"İ1680A$"X"İ2950A$"W"İ1350A$"Z"C(0)150 ADD A NAME ROUTINE:ABETICAL ORDER)"% ""P)RINT LABELS"? ,"R)EAD IN NAME LIST"a 6"S)ET UP PRINTER FOR LABELS"} @"W)RITE LIST ON PAPER" J"X)CHANGE DISK DRIVE" T"Z)AP STRINGS" ^32,0 h23:"WHAT IS YOUR CHOICE ?";:A$: rA$"A"İ530|A$"C"İ120T":" :F$;::30);N;" NAMES", 32,2F 28);"DISK DRIVE ";DY "A)DD A NAME"o "C)HANGE A NAME" "D)ELETE A NAME" "E)XIT" "L)IST NAMES ON SCREEN" "M)OVE A NAME" "N)UMERICAL ORDER BY ZIP CODES" "O)RDER LIST (ALPH d MAILING LIST PROGRAM8 n BY DAN LONN 12/26/81T xT%0:D$(4):D(47082) N%(400),N$(400,2),A$(2),N1$(400),ZC(400),Z$(100) 768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 ::14);"MAILING LIS               ΠŠ΍Ӡ̍Š٠ΠΠƍԠŠōΠΠΠ̮΍ĠōŠΠΠˮ΍ȠŮϮӠΠȠ΍Šˠō  ;"$";((DOBCOB1.005)100)100P"***************************************"cPRT$"Y"ĺ" "}PRT$"Y"ĺDD$;"PR#0"PRT$"Y"ĺ"NOW DO YOU WANT PRINTED RESULTS (Y/N)?":Z$:PRT$"Y"Z$"Y"PRT$"Y"::380MT";30);"$";COvC"=======================================""BALANCE EXPECTED IN CHECKBOOK";30);"$";((DOBCO.005)100)100"BALANCE IN CHECKBOOK";30);"$";B1"***************************************"!" DIFFERENCE ";30)"TOTAL";30);"$";DOB[ !PRT$"Y"ĺ:"PRESS ANY KEY FOR OUTSANDING CHECKS";:Z$:::a &{ 0"CHECKS OUTSTANDING" :18);"CHK";30);"AMOUNT" DI1M2 N18);C1$(I);30);"$";C(I) XI b25);"------------"l" SUBTOTAL CHECKS OUA$   18);DA$# L "BALANCE FROM STATEMENT";30);"$";BR s "RECENT DEPOSITS NOT SHOWN" I1M1 30);"$";D(I) I 25);"-------------" " SUBTOTAL DEPOSITS";30);"$";DO  25);"=============" GET OTHER ADDS AND SUBTRACTS "[ @"SUCH AS AUTOMATIC WITHDRAWALS, CHECK CHARGES, ETC."f JM2I1l T ^"ENTER BALANCE SHOWN IN CHECKBOOK $";B1 r *** PRINT OF RESULTS *** | PRT$"Y"ĺDD$;"PR#1":395 "PRESS ANY KEY FOR BALANCE";:WHEN DONE." M1I1" I1M21 C1$(I)" "< C(I)0d "CK NBR. ";C1$(I):(C1$(I))0300 "CK AMOUNT $";C$(I):(C$(I))0300 C(I)(C$(I)) COCOC(I) "I ,"SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.":"DON'T FORER BALANCE FROM BANK STAT. $";Bc :"ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)"o I1M1z D(I)0 "AMOUNT $ ";D$ (D$)0200 D(I)(D$) DODOD(I) I "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN $ CHECKBOOK BALANCING PROGRAM G *** DATA INITIALIZATION *** Q(M120\2M2100<D(20),C1$(100),C(100),C$(100)F::5PDD$""Z:"ENTER DATE OF THE STATEMENT ";DA$d:"WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$ n:"ENT         TL$::TL$::Q$) Q$"X"ĺ:2304 :215? I1NW A$:B$:C$:D$::] u ,(15):(4)"PR# 0"{  CY LABELS DO YOU WISH TO PRINT?";Nu :"TEST PATTERN WILL PRINT NEXT"::"WHEN ALIGNED, TYPE 'X' ELSE PRESS RETURN"{ PRINTER SLOT LINE 200 PRINTER SETUP PARMETERS LINE 210 (4)"PR#1" I$;"40N";(26);(30);(14)} LABEL PRINTER PROGRAM = WITH LABEL SETUP ROUTINECO I$(9)fA$"LINE 1 - NAME"B$"LINE 2 - ADDRESS LINE 1" C$"LINE 3 - ADDRESS LINE 2"!D$"LINE 4 - CITY, STATE, ZIP"2TL$"* * * * * * * * * * * * * **"! "HOW MAN Šɍ "WILL PRINT OUT ON THE SCREEN OR":"PRINTER IF YOU SAID YES TO THE LAST":"QUESTION."':"THE PRINTER IS SETUP TO SLOT 1 IN LINE":"19, WHICH CAN BE CHANGED TO SUIT YOUR":"NEEDS."'60::"NEEDS."'60:SICES ACCORDING":"TO THE CRITERIA PRESENTED."':" THE PROGRAM WILL THEN CALCULATE YOUR":"BEST CHOICE BASED UPON THE ANSWERS":"YOU GAVE. YOU WILL BE ASKED IF YOU":"WANT A HARD COPY OF THE RESULTS."'60V'" AT THIS TIME A LIST OF THE RESULTS":'" NEXT, EACH CRITERIA WILL BE PRESENTED":"AND YOU WILL BE ASKED TO GIVE EACH A":"WEIGHTING VALUE TO SHOW HOW IMPORTANT":"EACH ONE IS TO YOU."-':" THEN THE CRITERIA WILL BE PRESENTED":"AGAIN, BUT THIS TIME YOU WILL BE":"JUDGING EACH OF THE CHOPLACED ABOVE":"THE RESULTS. THIS SHOULD DESCRIBE THE":"CHOICE."t':" THEN A SERIES OF QUESTIONS WILL ASK":"HOW MANY CHOICES AND CRITERIA YOU":"WANT TO USE. YOU WILL ALSO BE ASKED":"TO GIVE THEM A NAME SO YOU CAN REMEMBER":"THEM EASIER."~'60 AND":"48."V':" THE WEIGHTING VALUES WILL DETERMINE":"THE RESULTS OF YOUR DECISION SO IT IS":"VERY IMPORTANT THAT YOU THINK ABOUT":"THE RELATIVE VALUES VERY CAREFULLY."`'60Aj'" WHEN THE PROGRAM BEGINS YOU WILL BE":"ASKED FOR A TITLE TO BE THEMSELVES ARE IRRELEVENT,":"IT IS THE RELATIONSHIP TO THE OTHERS":"THAT IS IMPORTANT." L':" FOR EXAMPLE: IF YOU HAD THREE CHOICES":"AND YOU ASSIGN WEIGHT VALUES OF 20, 30":"AND 40; IT WOULD BE THE SAME AS THOUGH":"YOU ASSIGNED 2,3 AND 4 OR 24,36,:" CRITERIA IS ONE OF THE THINGS YOU ARE":"GOING TO BASE THE DECISION UPON":"FOR EXAMPLE: COST, STYLE, DURABILITY."~8'60YB'" WEIGHT VALUE IS A NUMBER WHICH":"INDICATES THE RELATIVE VALUE THAT YOU":"PLACE UPON A CERTAIN ITEM. THESE":"NUMBERS IN TEN CHOICES BY AS MANY":"AS TEN CRITERIA (THESE VALUES MAY BE":"CHANGED TO SUIT YOUR NEEDS)."$':" CHOICE IN THIS PROGRAM IS ONE OF THE":"SEVERAL OPTIONS YOU ARE DECIDING":"BETWEEN. FOR EXAMPLE: TYPE OF CAR -":"CHEVY, FORD, TOYOTA, DATSUN."v.'l"THE FINAL SCORES ARE:":PvI1NC:" ";I;" - ";R(CV(I)):R$"N"ĺY{I:i"GOOD-BYE"R$"Y"ĺ(4);"PR#0"' INSTRUCTIONS`':" THIS PROGRAM WILL HELP YOU MAKE":"DECISIONS. IT IS DESIGNED TO ALLOW YOU":"TO JUDGE UP TO0I1NC:" ";I;" - ";CH$(I):R$"N"ĺ45I:D:R$"N"İ60}D"AND THE FOLLOWING CRITERIA FOR JUDGING THEM:"::NI1NW:" ";I;" - ";CR$(I):R$"N"ĺSI:XR$"N"İ60b:"YOUR BEST CHOICE IS :"::" ";MN;" - ";CH$(MN)::MV:Io5:" "::::"DO YOU WANT A HARD-COPY OF THE RESULTS":R$:R$(R$,1)R$"N":::540R$"Y"500(4);"PR#";SLOT36,13:"DECISION MAKER RESULTS":::&"GIVEN THE FOLLOWING CHOICES:"::+ER THAN ZERO ]":::390J?TV0:K1NC:TVTVCH(K):KhK1NC:CH(K)(10CH(K)CR(I))TV:KK1NC:CV(K)CV(K)CH(K):KII1NW:CV(I)CV(I)NW:IMV0:MN0:I1NW:CV(I)MVMVCV(I):MNII1NW:CV(I)(100CV(I)):I&h5:12:"CHOICE JUDGEMENT "4rI1NW:B|J1NC::"FOR CRITERIA # ";I;" :":" ";CR$(I)::"JUDGE CHOICE # ";J;" :":" ";CH$(J)::"IN RELATION TO THE OTHER CHOICES -":W$:CH(J)(W$):CH(J)0ė:::"[ VALUE MUST BE GREAT" :"::" ";CR$(I)::"WHAT VALUE DO YOU PLACE ON THIS":"CRITERIA IN RELATION TO THE OTHERS -":6W$:CR(I)(W$):CR(I)0ė:::"[ VALUE MUST BE GREATER THAN ZERO ]":::300@ITTW0:I1NW:TWTWCR(I):I^I1NW:CR(I)(10CR(I))TW::210 I. 5:12:"CRITERIA INPUT "< I1NW:j :"NAME OF CRITERIA # ";I;" :"::CR$(I) (CR$(I))30ğ:::"[ LESS THAN 30 CHAR. PLEASE ]":::250 I 5:12:"CRITERIA WEIGHTING " "I1NW:e,:"CRITERIA # ";I;0180o :"HOW MANY CRITERIA DO YOU WANT TO JUDGE THESE CHOICES ON [2-10] ";:NW$:NW(NW$):NW2NW10190 5:14:"CHOICE INPUT" I1NC: :"NAME OF CHOICE # ";I;" :"::CH$(I) (CH$(I))30::::"[ LESS THAN 30 CHAR. PLEASE ]":150 R$"Y"ī110 10000o :"TYPE IN A NAME FOR YOUR DECISION :":" (LESS THAN 30 CHAR. PLEASE)"} ": ";TI$ (TI$)30(TI$)0140 3:(20(TI$)2):TI$:6 :"HOW MANY CHOICES DO YOU HAVE [2-10] ";:NC$:NC(NC$):NC2NC1I120:I:1:" ":I:22H 2" ";:R$:: <24:1::"";::X$::: d::40:::13:"DECISION MAKER"::: n34,5: x6:"DO YOU WANT INSTRUCTIONS (Y/N) ";:R$:R$(R$,1) R$"N" VALUE J., CR(I) = CRITERIA. J  CH$(I) = CHOICE NAMES. j  CR$(I) = CRITERIA NAMES.  CHANGE IF PRINTER  IS IN ANOTHER SLOT SLOT1:PRINTER SLOT R(X)(10X.5)10 I110:CV(I)0:I 100 (0,9: DECISION MAKER , A PROGRAM TO> AID YOU INQ MAKING HARDe DECISIONS. y WRITTEN BY:  DALE SALYER, THORNTON, CO.  FEB 25, 1982  CH(10),CH$(10),CR(10),CR$(10),CV(10) CH(I,J) = CHOICE I,      Ȱ؍°ȍưذ΍ŠҍȰ؍ŠŠӍ°ȍ٠Š٠̍ưذ΍v ߅ȱHȱh ߅ ȱHȱ h 8 ` ک RIAL,UTILITY,VIDEO,WAVES>0% WEATHER,WORD PROCESSING,Z-80,0CIENCE,SEARCH,SECURITY,SHAPE,SIMULATION,SOFTWARE,SORT,SOUND/v% SOURCE,SPEECH,SPORTS,STATISTICS,STOCK MARKET,STRATEGY,STRING,STRUCTURE/{% STRUCTURE,SUBROUTINE,TAXES,TEXT,TEXT EDITING,THEORY,THREE-DEE,TIME0% TOKEN,TRAJECTORY,TREND,TRIGONOMETRY,TUTOP.b% MUSIC,NAVIGATION,NUMERICAL,ORGANIZATION,PASCAL,PATTERN RECOGNITION,PAYROLL.g% PERSONAL,PHYSICS,PLOTTER,PLOTTING,PREDICTIONS,PRINTER,PROBABILITY,PROBLEM.l% PROBLEM SOLVING,PROGRAM,PROGRAMMING,PUZZLE,QUEUING,REAL ESTATE,RETRIEVAL,ROBOTICS;/q% SAPHS,HARDWARE,HASHING,HEALTH,HIRES,HOMEs-S% HOUSEHOLD,HUMOR,I/O,INDEXING,INTEGER,INTELLIGENCE,INVENTORY,INVENTORY-X% LANGUAGE,LISP,LOGIC,LORES,MACHINE,MAILING LIST,MANAGEMENT,MAPPING-]% MASS STORAGE,MATH,MATRIX,MEDICAL,MODEL,MODEM,MONITOR,MULTIPLYDIFFERENTIAL,DIGITIZER,DISK,DIVIDE,DOS,ECONOMICS,EDITING,EDUCATION,D% ENGINEERING,EQUATIONS,ERROR,EVALUATION,FILES,FINANCE,FLIGHT,FORECASTING,I% FORTRAN,FREQUENCY,GAMBLING,GAME,GENEALOGY,GENERAL LEDGER,GENETICS,GEOMETRY'-N% GRAPHICS,GRAPHICS PAD,GRP+0% CAI,CALCULATION,CALCULUS,CALENDAR,CARTOGRAPHY,CHARTS,CHEMISTRY,CHESS,CODES+5% COLOR,COMMUNICATION,CONTROL,CONVERSION,CP/M,CROSS-INDEXING,CRYPTOGRAPHY,CURVE+:% CYBERNETICS,DATA,DATA BASE,DATES,DEBUGGING,DECISION MAKING,DEPRECIATION,DESIGNB,?% RESS,ALGEBRA,ALGORITHMa*!%AMORTIZATION,AMPERSAND,ANALYSIS,APPLE,APPLESOFT,APPLICATION,ARRAY,ART*&%ARTICLE,ARTIFICIAL INTELLIGENCE,ASSEMBLY,ASTROLOGY,ASTRONOMY,AUDIO,BALLISTICS*+% BASIC,BIOFEEDBACK,BIOLOGY,BIORYTHM,BOARD,BOOKKEEPING,BUDGET,BUSINESS,KILOBAUD,INTERFACE AGE,MICRO,CALL APPLE,CREATIVE COMPUTING,PERSONAL COMPUTING,CONTACT,NIBBLE,SOFTSIDE,ORCHARD,SYSTEMS,TALK,0)#JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY)#AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER*%*STAR*,3D,6502,ACCOUNTING,ADD---------------------------------------"::::J((#D$;"OPEN";DL$;",L58"e(*#D$;"WRITE";DL$;",R";J(,#MG$:DA$:PA$:TI$:KY$(.#D$;"CLOSE"(2#D$;"OPEN";IL$;",L";2MK1(4#D$;"WRITE";IL$;",R";J(6#IN$(J)(8#D$;"CLOSE"(<#70(F#})#BYTE:7400'"S2(S2$)64&'SNS1S2:L'LL1(TI$):(TI$,L,1)"^"7600'NTL$(TI$,L1):TR$(TI$,((TI$)L)):TI$TL$"/"TR$'L:'@936:4'B"---------------------------------------"'D"! COMPUTER MAGAZINE RETRIEVAL SYSTEM !"0(F"6,20&:JO$(I);:(I2)I2ĺ7&=(I42)I42İ6500>&BIQ&G(I3)I3ĺb&L:6500:350q&dPF$"Y"ı&n"TYPE TO CONTINUE ";A$::&XS1$(KY$,2II1,1):S2$(KY$,2II,1):S1$"0"S10:7200&ZS1((S1$)64)26' S2$"0"S206:4:"DO YOU WANT A LIST OF KEYS OR JOURNALS ";A$T%r936:A$(A$,1):A$"J"6200e%tA$"K"350s%uD$"PR#1"%vI1NK:I2(I2)Ĺ36,20%wKE$(I);:(I2)I2ĺ%z%|(I2)I2ĺ%}D$"PR#0"%~:6500:350&8I1NM:I2(I2)Ĺ3MG$:DA$:PA$:TI$:DU$)$D$;"CLOSE"@$"M;".";:36,7:TI$W$$36,7:JO$((MG$))$&36,7:MO$(((DA$,2)));" 19";(DA$,2);$(36,25:"PAGE ";PA$::M5(M5)İ6500$*$|(16384)128ı$16368,0:5090:PF$"Y"5070$AF1:2%p930:5500:AF1Ą"LISTING ABORTED- TO CONTINUE ";A$:5200u#HJEXĄ"THAT'S ALL-HIT TO CONTINUE ";A$|#KJ#PPF$"Y"ĺ"":PF$"N":D$;"PR#0"#ZNSM1:#I1EX:SP(I)0::#D$;"OPEN";DL$;",L58"#D$;"READ";DL$;",R";J$$,1)"N"ĺD$;"PR#0""3505"DA39:PF$"Y"DA76M"I1DA:"-";:::["M1:5300"SK((KY$)2):J1EX:IN$(J)"0"5190"SK05160" I1SK" BB$(KY$,2I1,2)" IN$(J),BB$"(26)05190"I"(SP(M)J:5400:MM1@#FAF50506!"LIBRARY SEARCH FOR ARTICLES RELATED TO:":o!II1((KY$)2):36,8:"-";:36,10:7000:KE$(SN):!:5100:NS0ĺ"NO SUCH ARTICLES IN LIBRARY"!:5090::!PF$"Y"400!::::""TYPE 'NO' TO TURN PRINTER OFF":AA$:(AA EK0:1400:EK15010  1100:"IF YOU WANT HARDCOPY TYPE 'YES' ":"OTHERWISE HIT ";PF$:PF$(PF$,1):936:"HIT ANY KEY TO ABORT LISTING" PF$"Y"ĺD$;"PR#1":1785,0 5090::KY$""5040!"COMPLETE LISTING OF ALL ENTRIES":",L";MK21I1EX2D$;"WRITE";IL$;",R";I>IN$(I)DT"D$;"CLOSE"Z'936:"FOR LISTING OF ALL RECORDS, INPUT '0'.":"'0' ALSO ENDS KEY INPUT.":J1MK:K$(J)""::J1MK"KEY: ";K$(J):(K$(J),1)"0"K$(J)"":5030X3120@" :"IS THIS THE CORRECT ENTRY?":::M1:5400:KY$DU$]$ N$:N$(N$,1):N$"Y"ı0 :"CONDUCT ANOTHER SEARCH AND REPEAT"::IS1:936:4:" THIS SESSION IS TERMINATED....BYE!":"SAVING UPDATED INDEX FILE"::  D$;"OPEN";IL$; IN$(J)"0":NUNU1:KY$"0":9000V 936:4:"ENTRY DELETED FROM LIBRARY":::350 936:4:"WHAT IS THE NUMBER OF ENTRY TO BE ":A$;" (OBTAINED FROM MOST ":"RECENT SEARCH) ";I:I0400 INSĺ::"INVALID ENTRY NUMBER":3120 JSP(I):JEKY$,2I1,2)K$(J)2370 R. :"THIS KEY NOT APPLICABLE TO THIS ENTRY":2040oB 2I(KY$)K2$"":2380D K2$(KY$,(KY$)2I)L I1K1$"":2385N K1$(KY$,2I2)Q KY$K1$K2$:IN$(JJ)KY$:2040 IS0:A$"DELETED":3100:IS1ī350"z#Xα ıٱIJٲ ԠҠ ̮Ϡ ̠Ҡֱ Ҡ٠Ԡ ŭԠŠ ԮؠήҠ ɮŠ ̠͠ ˠҠ  Ӡ̠Ԡ ̠Ӡ ̠Ӡ( Ӡ Π͠ ԠĮΠ !î٠* ЭӲԮ ͠ŠŠŠĠΠĠàˠΠԠԠ Ġ̠Ҡ ˠΠ Šˠ ̠Ϡ ̠Ϯà!ȯ٠Ԡ5٠̮Π5 ٠ ̠̠@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp\.......................................l\.......................................\.......................................\.......................................\.......................................$\...\.......................................X\.......................................\.......................................\.......................................\.......................................\.............................................D\.......................................r\.......................................\.......................................\.......................................\.......................................*..0 \.......................................^ \....................................... \....................................... \....................................... \.......................................\................. - 'ESC' FOR MENU ";:T$/,(T$(27)ġ:25000P,2T$(13)Ģ3:1:958:VT3:`,<(7):1300f, , LIST EVERYTHING , 3000, 1012, :Z, VT2:FO0:I1NR, NA$:(NA$,1)(92)INR2540, 1100, VT22VT2:3:958- İ1300+PFO1Ģ12:868'+QPRİ7007+VVT:1:NA$D+`PRİ750Q+tINRıw+PRİ700:" ":" ":" ":" ":750+22:868:"THAT'S ALL OF THEM! - PRESS 'RETURN' ";:"";S$:25000++ GOT A FULL PAGE ,22:958:"ENTER 'RTN' TO CONT(NA$,(S$))S$1075&*II1(NA$)R*$(NA$,II,(S$))S$FOFO1:1100:1075Z*.IIj*3I:FO1200*812:868:12::"<< NOT FOUND >>"::PRİ700:S14:" "::750*B(7):I11500:I:25000*K*L GOT ONE! +NVTVT1:VT21PR10:" ":" "m):1:"MTH (X) NAME DAY MTH YEAR";:"----------------------------------------"z)PRİ750)S22510)12:868:12::"<< SEARCHING >>"::VT2):Z)FO0:I1NR)NA$:(NA$,1)(92)1040*SK0SK1ĭ10`(:9:5:"WOULD YOU LIKE TO SEARCH BY"::10:"1 WORD (FAST)":7:"OR 2 CHARACTER (SLOW)"(14:868:20:"WHICH: ";SK$:SK(SK$):SK1SK2(SK$)1ĺ"":1007(:11:5:"PLEASE ENTER THE SEARCH KEY:":13:5:"";S$:S$""25000 )PRİ70ET";:"ON RECORD, AND PRESS 'RETURN' ";:"";S$N'HI11500:::I12000::'R:12:"THE PROGRAM AND DATA HAVE BEEN SAVED!!":22:'z::10:"BIRTH/ANNIVERSARY LIST ENDED!":11:"................THANK YOU...":' SEARCH (3000:OP110:&  END ROUTINE %&*MF0890R&/DISKĢ21:5::"SAVING MODIFICATIONS":&4DISKĺ(4)"SAVE BIRTH/ANNIVERSARY LIST"::10:"BIRTH/ANNIVERSARY LIST ENDED!":11:"................THANK YOU...":.'>:11:"INSERT A NEW TAPE INTO THE RECORDER, S)(1001)192DISK13%DISKĺ(4)"NOMON C,I,O":`% GET ADDRESS OF FIRST DATA STATEMENT %START((103)(104)256458)%& SET FAST/SLOW SEARCH %0OP0%:25000% ACTIVATE PRINTER %SL:% DE-ACTIVATE PRINTER &0..0$[\.......................................^$\\.......................................$]\.......................................$^\.......................................$ SET PRINTER SLOT $SL1$ DISK SYSTEM?? %(994............................J#V\.......................................x#W\.......................................#X\.......................................#Y\.......................................$Z\.............................................6"P\.......................................d"Q\......................................."R\......................................."S\......................................."T\.......................................#U\.............................................P!K\.......................................~!L\.......................................!M\.......................................!N\......................................."O\.............................................< E\.......................................j F\....................................... G\....................................... H\....................................... I\......................................."!J\.....\.......................................V@\.......................................A\.......................................B\.......................................C\....................................... D\.............................................B:\.......................................p;\.......................................<\.......................................=\.......................................>\.......................................(?.4\.......................................\5\.......................................6\.......................................7\.......................................8\.......................................9\...................                 "WHICH: ";S$:S(S$)/;4bS1S7ĺ(7):25130Y;>bS1000,2500,4000,5000,6000,24000,800_;Hbh; ;MARTIN.PIERCEY, INC.; APPLE.CAN..TORONTOLIST THE ENTIRE FILE"I:b"3 ENTER NEW LISTINGS":"4 DELETE A LISTING"w: b"5 EDIT A LISTING":"6 PRINTER ON/OFF":b"7 EXIT THIS PROGRAM":32,0::b"(A)=ANNIVERSARY,(B)=BIRTHDAY":"(G)=GRADUATION,(X)=YOUR CHOICE": b32,0:;*b22:20:868:9a"ROOM FOR "(150NR)" ADDITIONAL LISTINGS"V9a8:"THE PRINTER IS";:PRĺ" OFF";9aPRĢ9:" ":250709a" ";::" ON ":9a9:"YOU MAY CHOOSE FROM THE FOLLOWING:":32,5::a"1 SEARCH FOR A LISTING":"2 --------------------------------";:W8aQQ$" THE PIERCEY'S BIRTH/ANNIVERSARY LIST "b8a:QQ$8a:3:"----------------------------------------"8a4:5:"<<>>"8a"PROGRAM CURRENTLY CONTAINS "NR" LISTING";:NR1ĺ"S"-$:4020:436072500087 REMOVE CONTROL CHARS. B7B$""P7(A$)ı_7I1(A$)7((A$,I,1))26B$B$(A$,I,1)7I77] PRINTER ON/OFF 7]PRPR:250507]7a MAIN MENU 7a:NR:NRNR1000$8a::1:"-------- OF THE PARTY WHOSE";:"LISTING YOU WISH TO EDIT AND PRESS":"'RETURN'.":5020613:868:"DO YOU WISH TO EDIT THIS DATA (Y/N) ";S$:S$""250006(S$,1)"Y"NN$NA$:60506(S$,1)"N"İ50706"":60206 GO EDIT THE LINE 7:8:NNIS DATA (Y/N) ";S$:(S$,1)"Y"5200A5(S$,1)"N"ĺ"":5130K55081g5P OK THEN, KILL IT! x5ZUD1:42505dCU(START((LN201)46))5nCU,((92))5x4450:250005p EDIT A DATA LINE 5z:3000N6|:10:"PLEASE ENTER THE NAME AN EXACT MATCH 4:Z:UU1>4NA$:(NA$,(K$))K$5100^4(NA$,1)(92)UUNR5070j4UUUU1{4UUNR50704:250004 FOUND A MATCH 4LN(123)(124)256:UUUU14:11:NA$:S5ı$5 13:868:"DO YOU WISH TO DELETE TH3 DELETE DATA CONTENTS (3:30003:10:"PLEASE ENTER THE NAME OF THE PARTY YOU":"WISH DELETED FROM THE DIRECTORY AND":"PRESS 'RETURN'."314:4:"MTH (?) -----------------":14:1:"-> ";K$:K$""S5ġ:250003K$""250004 FIND LINE $2T$:(T$,1)(92)4310>2LN(123)(124)256X2 CALCULATE OFFSET v2CU(START((LN201)46))20 POKE DATA LINE 2:ICU(CU39)2DI,((NN$,I1CU,1)):2b SET UPDATE FLAG 2lMFMF1:S4S5ı2v250002S542001^UD111h PAD TO 40 CHARACTERS Y1rI(NN$)(39(NP$)):NN$NN$".":q1|NN$NN$NP$:S5ı1 UPDATE DATA NUMBER 1:T:TTUD:CU(START11)1T$(T):I1(T$)1(CUI),((T$,I,1)):1S4ı2 FIND EMPTY DATATHE ";::"NAME";::" ENTRY:":10:14:NN$g012:"AND THE ";::"PHONE NUMBER";::":":14:14:NP$0,18:8:868:"ARE THEY CORRECT (Y/N) ";S$:(S$,1)"Y"418006(S$,1)"Y"S5ġ:60000@(S$,1)"N"ĺ"":41000J40000OS54200 1TTER NEW NUMBER THEN PRESS 'RETURN'.":"(USE THE FORMAT: XXX XXX YYYY)"a/13:4:"DDD MMM 19YY"/13:"-> ";A$:6100:NP$B$:NP$""S5Ĺ32,0::25000/NP$""Ĺ32,0:25000/(NP$)12ĺ"":4050/ IS ENTRY CORRECT? +0::8:"HERE IS 'RETURN'.":"(USE NO COMMAS, COLONS OR QUOTES.":"TWENTY-FIVE CHARACTERS, MAXIMUM.)"}.14:4:"MTH (?) -----------------".14:1:"-> ";A$:6100:NN$B$:NN$""S5Ĺ32,0::25000.NN$""Ĺ32,0:25000.(NN$)25ĺ"":4020F/10:958:"ENI - 1200)- IS DATA FILE EMPTY? t- ::NR0Ģ12:9::"<< NO NAMES ON FILE >>"::I12000:I::25000z- - ENTER LISTINGS -:NR150Ģ12:12:"DATA TABLE FULL!":I12000::25000U.32,3:10:958:"ENTER NEW NAME AND PRESS:WTAW.164.2::F AW240.01AWAW171:WTAW.221.64:eP AW325.01AWAW240:WTAW.2435.44:Z AW433.01AWAW325:WTAW.355.84:d AW535.01AWAW433:WTAW.3488.24:n AWAW535:WTAM.37122.92:x AW46.01WT0: AW117.01AM$ AMGW:180:GW$AM$2 AMGU:180:GU$AM$I AMGA:180:GA$AM$` AMGD:180:GD$AM$w AMGC:180:GC$AM$ 500' ROUTINE TO CALCULATE F.I.T. WITHHOLDINGS( AW27.01WT0:2 AW62.01AWAW27:WTAW.12:< AW171.01AWAW62(AD$(I))7L DE(SS$(I))(WT$(I))(UN$(I))(AD$(I))QV AMDE:180:DE$(I)AM$e` GDGD(DE$(I))j CK(GP$(I))(DE$(I))t AMCK:180:CK$(I)AM$~ GCGC(CK$(I)) I 34,0 AMGH:180:GH$AM$ AMGG:180:GG$AM$ AMGS:180:GS$GSGS(SS$(I))%GHGH(TH$(I))9GGGG(GP$(I))PEXEMPTWT0:2330iWA19.23YY:AWGPWA ST$(I)"S"İ2600 ST$(I)"M"İ2680 AMWT:180:WT$(I)AM$$ GWGW(WT$(I)). AMUN(I):180:UN$(I)AM$8 GUGU(UN$(I))B GAGA240$(37):17:"";OT$:OT(OT$)E(37):32:"";DT$:DT(DT$)OTHR(RA$(I)):GPHR1.5OTHR2DT:AMGP:180:GP(GP$(I))(AM$):AMGP:180:GP$(I)AM$:TH(TH$(I))OTDT:AMTH:180:TH$(I)AM$SS(GP$(I))FICAAMSS:180:SS$(I)AM$29:"";TH$:TH$"S"RA$(I)"0.00":(37):2140kpTH(TH$):AMTH:180:TH$(I)AM$:GP(RA$(I))(TH$(I))zAMGP:180:GP$(I)AM$(GP$(I))02440"ADVANCE","O/T HOURS D/T HOURS":"";AD$:AD(AD$):AMAD:180:AD$(I)AM$(RA$(I))02-- ------------" 34,6L* ROUTINE TO CALCULATE PAYROLL FOR EMPLOYEESX4I1NE>NAME$(I),RA,ST$(I),YY,UN(I),EXEMPTHAMRA:180:RA$(I)AM$RNAME$(I);21(NAME$(I)));5(RA$(I)));RA$(I);\(RA$(I))0Ė35:"";GP$:GP(GP$):21700fC BLACK,7.5,S,1,0,02j JOHN T STUDENT,5,S,1,0,1Rt DAVID L MANAGER,0,M,4,0,0X^lFICA.067GH0:GG0:GS0:GW0:GU0:GA0:GD0:GC0"ENTER PAYROLL DATE -> ";D$ "NAME";15);"RATE/HR HOURS/SALARY""----";15);"-----ARRIED,DEPENDENTS,UNIFORMS,EXEMPT (FIT W/H --> 0 = NONEXEMPT/1 = EXEMPT)~ UNIFORMS CAN BE CHANGED TO MISC(ELLANEOUS),ETC. IF SALARIED EMPLOYEE THEN ENTER 0 FOR HOURLY WAGESL TOM E WHITE,10,M,4,0,0V JOE D BROWN,5.5,M,2,6,0` DONALD "CONSULT MANUAL"A:"ERROR IN STATEMENT ";(218)(219)256:K SL:TR0:dPRPR:500 CHANGE LINE 90 NE=** TO REFLECT NUMBER OF EMPLOYEES **NAME MUST NOT EXCEED 20 CHARACTERS**H DATA LAYOUT --> NAME,HOURLY WAGES,(S)INGLE/(M)0000,900,630 v'  ERROR ROUTINE 8 CD$;"CLOSE"B (7)\ X(222):24:1:958 X5ĺ"END OF DATA ENCOUNTERED":"NEW FILE NEEDS TO BE CREATED":"PRESS 'RETURN' TO CONTINUE";IC$:500 :"** UNABLE TO PROCEED**""ERROR CODE = ";X: EMPLOYEE FILES":"8. PRINT QTD/YTD TOTAL FILES":32,0e 018:6:"9. PRINTER IS ";:PRĺ"OFF":580y ::"ON";::" " D" 10. EXIT" N22:20:868:"WHICH: ";A$:A(A$) XA1A10ĺ(7):590 b lA2000,3000,5000,4000,6000,7000,9000,17:6:"CHOOSE FROM THE FOLLOWING:":32,5:: "1. COMPUTE WEEKLY PAYROLL":"2. PRINT PAYROLL RESULTS":"3. UPDATE ALL QTD/YTD FILES":"4. PRINT CHECKS" "5. CREATE/EDIT EMPLOYEE FILES":"6. CREATE/EDIT QTD/YTD TOTAL FILES"6 &"7. PRINT QTD/YTDDO$(X)::CD$;"CLOSE MONEY"% 500: DOLLAR ROUTINE\ AM(AM100.5)100:AM$(AM)x AM(AM)AM$AM$".00" (AM$,(AM$)1,1)"."AM$AM$"0"  MENU DISPLAY :1:10:"WEEKLY PAYROLL PROGRAM" 4:(40(PPS$))2);PPS$/ -----------------------------------------------------------"E ZNE5\ dNAME$(NE),SN$(NE)p nST$(NE),UN(NE) xRA$(NE),TH$(NE),GP$(NE),SS$(NE) WT$(NE),UN$(NE),AD$(NE),DE$(NE),CK$(NE) DO$(28) CD$;"OPEN MONEY":CD$;"READ MONEY":X228:n3 PAYROLL PROGRAM WRITTEN7 BY DAVID QUINTANAJ 214-234-8266T700](SL1|2 PPS$="YOUR COMPANY NAME"<PPS$"CHANGE LINE 60 TO YOUR COMPANY NAME"FCD$(4)< PDASH$"------------------------------------------------------------. INSERT/EDIT/DELETE DATA STATEMENTS"R'" BETWEEN LINES 1000-2000 AND CHANGE"'" LINE 90 TO INDICATE # OF EMPLOYEES"'" SEE LINE #1020 FOR FORMAT TO USE"':"2. TO CREATE/EDIT YTD AND QTD EMPLOYEE" (" DISK FILES, PRESS 'RETURN' W"READ QTOTAL"&C1:C2:C35&CD$;"CLOSE QTOTAL"F&D1C1(GG$)W&D2C2(GS$)h&D3C3(GW$)&"CD$;"OPEN QTOTAL"&,CD$;"WRITE QTOTAL"&6D1:D2:D3&@CD$;"CLOSE QTOTAL"&J500&p:"TO CREATE/EDIT/DELETE EMPLOYEE FILES":%'z"1%nCD$;"OPEN YTOTAL"-%xCD$;"READ YTOTAL"=%A1:A2:A3U%CD$;"CLOSE YTOTAL"f%B1A1(GG$)w%B2A2(GS$)%B3A3(GW$)%CD$;"OPEN YTOTAL"%CD$;"WRITE YTOTAL"%B1:B2:B3%CD$;"CLOSE YTOTAL"%CD$;"OPEN QTOTAL" &CD$;))$Q6Q1(GP$(I))*$ Q7Q2(SS$(I))>$Q8Q3(WT$(I))Y$CD$;"OPEN Y";NAME$(I)u$(CD$;"WRITE Y";NAME$(I)$2Y6:Y7:Y8:SN$(I)$<Q6:Q7:Q8$FCD$;"CLOSE Y";NAME$(I)$PI$Z ROUTINES TO UPDATE YTD/QTD TOTAL FILES$d(GG$)0500**UPDATING EMPLOYEE YTD AND QTD FILES**":6#I1NEL#(GP$(I))05200g#CD$;"OPEN Y";NAME$(I)#CD$;"READ Y";NAME$(I)#Y1:Y2:Y3:SN$(I)#Q1:Q2:Q3#CD$;"CLOSE Y";NAME$(I)#Y6Y1(GP$(I))#Y7Y2(SS$(I))$Y8Y3(WT$(I1000):4360:MO$MO$" THOUSAND ":AMXXl"AM99XYAM:AM(AM100):4360:MO$MO$" HUNDRED ":AMXYAM100"AM19MO$MO$DO$((AM10))" ":AMAM10(AM10)"&AMMO$MO$DO$(AM9)"0" ROUTINE TO UPDATE ALL YTD AND QTD FILES*#:12::"I)!!7);MO$/!PRĺ(27)"H":(12);6!Ia!PRĺ(27)"C"(66);:PQ$" I":PQ$:850j!500! ROUTINE TO CONVERT DOLLARS FROM NUMERALS TO LETTERS!MO$"":AM((CK$(I)))!AM1MO$"ZERO":'"AM999XXAM(AM1000)1000:AM(AM$(I)));GP$(I);10(SS$(I)));SS$(I); T11(WT$(I)));WT$(I);12(UN$(I)));UN$(I);12(AD$(I)));AD$(I);13(DE$(I)));DE$(I);13(CK$(I)));CK$(I) ^PRĺ(18):(27)"G" cPRĺ(11) h60(D$));D$;15(CK$(I)));CK$(I) r:!|7);NAME$(ADVANCE";5);"DEDUCTIONS";5);" NET "@"----";16);"-------";5);"-----";5);" -----";5);" ----";5);" --- ";5);"-------";5);"-------";5);"----------";5);" --- "$ JNAME$(I);20(NAME$(I)));7(RA$(I)));RA$(I);10(TH$(I)));TH$(I);11(GP(GP$(I))042704340BMO$MO$" AND "(CK$(I),2)"/100 "TPRĺ(27)"G"""PAY PERIOD ENDING: ";PD$;25);"SSN ";SN$(I),PRĺ(27)"H":(15)&6"NAME";16);"RATE/HR";5);"HOURS";5);" GROSS";5);" FICA";5);" FIT ";5);"UNIFORM";5);"IC$"N"500 (7):4000P:"ENTER PAY PERIOD ENDING DATE -> ";PD$:"INSERT CHECKS--PRESS 'RETURN' WHEN READY";A$ USE NEBS COMPUTER FORM 9024PRİ800:PQ$" 80N":PQ$:(27)"C"(42);PRĺ(27)"B"(20)(0);I1NE;10(GS$));GS$;fN 11(GW$));GW$;12(GU$));GU$;12(GA$));GA$;13(GD$));GD$;13(GC$));GC$qX (18)b PRPQ$" I":PQ$:850 500 ROUTINE TO PRINT CHECKS:"HAVE ALL YTD AND QTD FILES BEEN UPDATED (Y/N) ? ";IC$:IC$"Y"4030;RA$(I);10(TH$(I)));TH$(I);11(GP$(I)));GP$(I);10(SS$(I)));SS$(I);& 11(WT$(I)));WT$(I);12(UN$(I)));UN$(I);12(AD$(I)));AD$(I);13(DE$(I)));DE$(I);13(CK$(I)));CK$(I)0 DASH$: ID ::"TOTAL";32(GH$));GH$;11(GG$));GG$5);"ADVANCE";5);"DEDUCTIONS";5);" NET " "----";16);"-------";5);"-----";5);" -----";5);" ----";5);" --- ";5);"-------";5);"-------";5);"----------";5);" --- " I1NE (GP$(I))03130J NAME$(I);20(NAME$(I)));7(RA$(I)))7134.24:1 ROUTINE TO PRINT PAYROLL RESULTSb "PRESS 'RETURN' WHEN READY FOR PRINTOUT";A$ PRİ800:PQ$" 80N":PQ$ D$;:(25):PPS$:: (15)* "NAME";16);"RATE/HR";5);"HOURS";5);" GROSS";5);" FICA";5);" FIT ";5);"UNIFORM";AWAW46:WTAW.12:> AW230.01AWAW117:WTAW.168.52:h AW356.01AWAW230:WTAW.1926.6: AW454.01AWAW356:WTAW.2450.54: AW556.01AWAW454:WTAW.2774.06: AW658.01AWAW556:WTAW.32101.6:  AWAW658:WTAW.381017YAA1:YBA2:YCA3:QAC1:QBC2:QCC3:7130X7'# PRINT QTD AND YTD EMPLOYEE FILES7(#:"ENTER EMPLOYEE'S NAME -> ";NAME$:NAME$""ī50072#CD$;"OPEN Y";NAME$7<#CD$;"READ Y";NAME$7F#YT:YU:YV:SS$:QT:QU:QV7P#CD$;"CLOSE Y";NAME$8Z#;JJ$:JJ$""Ģ12:25:A1:7770,6PA1(JJ$)Z6Z14:25:"";JJ$:JJ$""Ģ14:25:A2:7790h6dA2(JJ$)6n16:25:"";JJ$:JJ$""Ģ16:25:A3:78106xA3(JJ$)621:8:"INFORMATION CORRECT (Y/N) ? ";IC$:IC$"Y"78406IC$"N"76907(7):7:"YTD FICA W/H = ";A265:"YTD FIT W/H = ";A3@532,0l5 6:25:"";JJ$:JJ$""Ģ6:25:C1:7710z5C1(JJ$)58:25:"";JJ$:JJ$""Ģ8:25:C2:77305(C2(JJ$)5210:25:"";JJ$:JJ$""Ģ10:25:C3:77505<C3(JJ$)6F12:25:""CD$;"OPEN QTOTAL"+4CD$;"READ QTOTAL";4C1:C2:C3S4CD$;"CLOSE QTOTAL"~4:2:9);"**QTD AND YTD TOTALS**"::432,8:4"QTD GROSS PAY = ";C14:"QTD FICA W/H = ";C24:"QTD FIT W/H = ";C34:"YTD GROSS PAY = ";A15;"OPEN QTOTAL"&34CD$;"WRITE QTOTAL"63>QA:QB:QCN3HCD$;"CLOSE QTOTAL"W3R500z3L EDIT QTD AND YTD TOTAL FILES3V:"**EDITING QTD AND YTD TOTAL FILES**"3`CD$;"OPEN YTOTAL"3jCD$;"READ YTOTAL"3tA1:A2:A33~CD$;"CLOSE YTOTAL"4RECT (Y/N) ? ";IC$:IC$"Y"713022IC$"N"7020B2(7):7100Y2CD$;"OPEN YTOTAL"q2CD$;"CLOSE YTOTAL"2CD$;"OPEN YTOTAL"2CD$;"WRITE YTOTAL"2YA:YB:YC2 CD$;"CLOSE YTOTAL"2CD$;"OPEN QTOTAL"2 CD$;"CLOSE QTOTAL"3*CD$)/1:"TOTAL QTD FICA W/H -> ";QB$:QB(QB$)\1:"TOTAL QTD FIT W/H -> ";QC$:QC(QC$)1:"TOTAL YTD GROSS PAY -> ";YA$:YA(YA$)1:"TOTAL YTD FICA W/H -> ";YB$:YB(YB$)1:"TOTAL YTD FIT W/H -> ";YC$:YC(YC$) 219:"INFORMATION COR0X:8:" 1. CREATE QTD AND YTD TOTAL FILES":" 2. EDIT QTD AND YTD TOTAL FILES":12:20:"WHICH: ";A$:A(A$):A1A2ĺ(7):70000bA7020,75000l:"**CREATING QTD AND YTD TOTAL FILES**"0v1:"TOTAL QTD GROSS PAY -> ";QA$:QA(QA$(QT$)3/h17:21:"";QU$:QU$""Ģ17:21:QU:6780A/rQU(QU$)o/|19:21:"";QV$:QV$""Ģ19:21:QV:6800}/QV(QV$)/22:"INFORMATION CORRECT (Y/N) ? ";IC$:IC$"Y"6260/IC$"N"6560/(7):6800/W CREATE/EDIT QTD/YTD TOTAL FILES:SS$:6680.SS$JJ$C.9:21:"";YT$:YT$""Ģ9:21:YT:6700Q."YT(YT$).,11:21:"";YU$:YU$""Ģ11:21:YU:6720.6YU(YU$).@13:21:"";YV$:YV$""Ģ13:21:YV:6740.JYV(YV$).T15:21:"";QT$:QT$""Ģ15:21:QT:6760/^QT:"YTD FICA W/H ";YU>-:"YTD FIT W/H ";YV_-:"QTD GROSS PAY ";QT-:"QTD FICA W/H ";QU-:"QTD FIT W/H ";QV-5:21:"";JJ$:JJ$""Ģ5:21:NAME$:6660-NAME$JJ$ .7:21:"";JJ$:JJ$""Ģ7:21S NAME -> ";NAME$:NAME$""ī5008,xCD$;"OPEN Y";NAME$P,CD$;"READ Y";NAME$q,YT:YU:YV:SS$:QT:QU:QV,CD$;"CLOSE Y";NAME$,3:958:::"EMPLOYEE'S NAME ";NAME$,:"SOCIAL SECURITY # ";SS$,:"YTD GROSS PAY ";YT-140+j(7):6230++tCD$;"OPEN Y";NAME$E+~CD$;"DELETE Y";NAME$]+CD$;"OPEN Y";NAME$v+CD$;"WRITE Y";NAME$+YT:YU:YV:SS$+QT:QU:QV+CD$;"CLOSE Y";NAME$+500+d:" **EDITING EMPLOYEE'S FILE**" ,n:"ENTER EMPLOYEE'A W/H -> ";YU$:YU(YU$)?*.:"YTD FIT W/H -> ";YV$:YV(YV$)h*8:"QTD GROSS PAY -> ";QT$:QT(QT$)*B:"QTD FICA W/H -> ";QU$:QU(QU$)*L:"QTD FIT W/H -> ";QV$:QV(QV$)*V21:"INFORMATION CORRECT (Y/N) ? ";IC$:IC$"Y"6260+`IC$"N"6WHICH: ";A$:A(A$):A1A2ĺ(7):61209)A6140,6500l):"**CREATING QTD AND YTD EMPLOYEE FILES**":):"ENTER EMPLOYEE'S NAME -> ";NAME$:NAME$""ī500):"SOCIAL SECURITY # -> ";SS$):"YTD GROSS PAY -> ";YT$:YT(YT$)*$:"YTD FICHEN READY"5("** ENTER EMPLOYEE'S NAME EXACTLY AS"Z(" ENTERED ON DATA STATEMENTS"`((" EMPLOYEE'S NAME MUST NOT":" EXCEED 20 CHARACTERS"("";IC$():8:" 1. CREATE EMPLOYEE'S FILE":" 2. EDIT EMPLOYEE'S FILE":12:20:"ٍٍٍٍٍٍٍٍōύōҍō؍΍ԍō΍΍ō΍΍΍΍΍΍΍ ;A2 ;':"YTD FIT W/H = ";A3*;'32,07;'PRİ850m;'20:" PRESS 'RETURN' TO CONTINUE ";IC$:500S QTOTAL":V'C1:C2:C30:`'CD$;"CLOSE QTOTAL"=:j'PRİ800h:t':2:9);"**QTD AND YTD TOTALS**"::t:~'32,8::'"QTD GROSS PAY = ";C1:':"QTD FICA W/H = ";C2:':"QTD FIT W/H = ";C3:':"YTD GROSS PAY = ";A1;':"YTD FICA W/H = ";QU$9#:"QTD FIT W/H ";QV19#PRİ850`9#::"PRESS 'RETURN' WHEN READY ";IC$:5009' PRINT QTD AND YTD TOTAL FILES9'CD$;"OPEN YTOTAL"9$'CD$;"READ YTOTAL"9.'A1:A2:A398'CD$;"CLOSE YTOTAL"9B'CD$;"OPEN QTOTAL":L'CD$;"READ 8d#PRİ800<8n#3:958:::"EMPLOYEE'S NAME ";NAME$^8x#:"SOCIAL SECURITY # ";SS$8#:"YTD GROSS PAY ";YT8#:"YTD FICA W/H ";YU8#:"YTD FIT W/H ";YV8#:"QTD GROSS PAY ";QT9#:"QTD FICA W/H "AL FILE. IF YOU HAVE AL- READY USED THIS PROGRAM, THEN USE"1"THE SAME FILE NAME YOU USED BEFORE.":11:" C O M M A N D S":" ***************":n2"'S' SWITCH SIDE'1'TO'2' OR'2'TO'1'":"'L' LAST PAGE IN CHEQUE BOOK":"'N' N 0 :0(S1)0FD$(4):A$(1000,5)s0d" I N S T R U C T I O N S":" ***********************"?14:" THIS PROGRAM SIMULATES AN ACTUAL CHEQUE BOOK. YOU WILL BE ASKED TO INPUT A FILE NAME. THIS WILL OPEN YOUR PERSON     CHECK , LISTED ON STATEMENT...# ";B$1(140);H,(27)"F";:(147)W@D$;"PR#0"]TCORRECT,THEN:":>x:"ADD $ ";I;" TO Y O U R BALANCE AND"Q"DEDUCT $ ";SWnB(B1000.5)100}BADIS"UNLESS THE BANK MADE A MISTAKE, YOUR""CHECK BOOK BALANCE SHOULD NOW BE":18)::(14)"$ ";B$::::"LAST I B(B1000.5)100J "CHECK BOOK BALANCE SHOULD BE ";::"$";BP s "CHECK BOOK BALANCE IS $";A~ DBA D(D1000.5)100 (D01400 <(7);(7);(7)::"DISCREPANCY IS"::18::(14)"$ ";D: P:d"TRACK DOWN AND TATEMENT CLOSING DATE ? ";Z& \Y1Z4 pZ11000I "DEPOSIT $";DT BBDk B(B1000.5)100r Yx  "BALANCE $";B  "SERVICE CHARGES $";S $BBS 8 L"BALANCE $";B ` t"INTEREST $";I  BB D:* X"BANK STATEMENT BALANCE $";BA lB(B1000.5)100G o "HOW MANY OUTSTANDING CHECKS ? ";Nz K1N N1840 "CHECK #";B$:20):"$";C BBC K  "BALANCE $";B 4 H"HOW MANY DEPOSITS AFTER" M"S::"TURN ON YOUR PRINTER !!!"& |: D$"": CTRL-DI D$;"PR#1"Q :W  (27)"E":"ATTACH TO YOUR BANK STATEMENT FOR EASY REFERENCE, NEXT MONTH." : 15):(14)"CHECK BOOK RECONCILIATION"  15):"DATE...";A$ 0ETURN>."8 :"IF A PROMPT DOES NOT APPLY, INPUT '0'." :"IN 'PRINT-OUT' MODE, CORRECT ERRORS AF- TER TYPING CTRL-X.": "CHOOSE :" :9)"<1> CRT ONLY" ,:9)"<2> PRINT-OUT" @:"WHICH : 1 OR 2 ? ";G TG1560:G2360 h^( CHECK BOOK BALANCING PRO GRAM1( BYC< LOUIS REENSbP-------------------------jd:x13)"CHECK CHECK"34,4:5"I N S T R U C T I O N S" :" IN 'CRT ONLY' MODE, YOU MAY IGNORE THE 'CHECK#' PROMPT BY TYPING (A$(B,2))0A$(B,4)"-"A$(B,4)8\X(A$(B,4))(A$(B1,5)):X1A$(B,5)(X):2170$9fX(X100.5):J$( (4-12-80)"7*7"CHEQUE #, 'RETURN'C7"KEY IF DEPOSIT OR"_7" '00' IF OTHER DEBIT"e7x70"PARTICULARS"7N:7l"AMOUNT "7BB17R147R3:22:A$(B,R):R7:"ERRORS????";:H$:H$"Y"BB1:13008(A$(B,4))1206---------------"76"COMMAND ";:C$:(C$)0C(C$)H62C$"E"2320[6PC$"S"SS1r6nC$"B"ĭC1CC16C$"N"ĭC50CC16C$"L"5506Z1506A$(Z171,1)""15706CZ:5806"Z6@:6^ZZ16|: 7"ENTER DATE;A$(D,4);":";38(A$(D,5)));A$(D,5).5B12105`2);S$;7);":";18(A$(D,4)));(A$(D,4),2,(A$(D,4))1);":";27);":";38(A$(D,5)));A$(D,5)5~12105A$(D,1);9);":";11);S$;16);":";18);A$(D,3)5D534,226:"-----------------------O. : CHECK : DEPOSIT :"G4"--------------------------------------"Q4434,4\4REC18j4pDE17E4A$(D,1)""12404A$(D,2)"00"S$" ":10004S$A$(D,2)4S111804(A$(D,4))01120$5$2);S$;7);":";17);":";27(A$(D,4)))216,03BB1!3D$;"CLOSE"+31300<3&C$"I"1600J3DS1730v3b::" DATE :CHEQUE: PARTICULARS"3" : NO. :"3"--------------------------------------"38203::"CHEQUE:AMOUNT OF:AMOUNT OF: BALANCE "4" NEXT PAGE (1) AT A TIME":"'B' BACK PAGE (1) AT A TIME":"'I' INPUT A NEW CHEQUE OR DEPOSIT ENTRY":"'E' END":2" ENTER YOUR 'CHEQUE BOOK' FILE NAME ";AA$2D$;"OPEN";AA$243026D$;"READ";AA$2TB12rC15:A$(B,C):C2BB1:3703TE OF ";I;"%":"WILL GENERATE PROCEEDS OF $";P$:"IF DISCOUNTED BY ";D;"%":MM;" MONTHS BEFORE MATURITY."tE#20000E'EXACT SIMPLE INTERESTE'::" ***";::"INCOME FROM INVESTMENT";::"***"E$'::"INVESTMENT: ";PE.'DMP:100:P$DM$F8':Z#:"TERM OF NOTE (IN MONTHS): ";M>Dd#:"DISCOUNT RATE: ";DpDn#:"MONTHS TO MATURITY ON DISCOUNT DATE: ";MMDx#PF(1IM1200)(1DMM1200)D#DMP:100:P$DM$iE#:"A ";M;"-MONTH NOTE HAVING A":"FACE VALUE OF $";F$:"AND BEARING AN INTEREST RA$";F$C20000=C(#PROCEEDS OF DISCOUNTED COMMERCIAL PAPERC2#::" ***";::"PROCEEDS OF DISCOUNTED";::"***":" ***";::" COMMERCIAL PAPER ";::"***"C<#::"FACE VALUE OF NOTE: ";FCF#DMF:100:F$DM$CP#:"INTEREST RATE: ";I#D NOTE (IN MONTHS): ";M1B|:"DISCOUNT RATE: ";DUBFP((1IM1200)(1DM1200))jBDMF:100:F$DM$C:"A ";M;"-MONTH NOTE BEARING":I;"% INTEREST WILL YIELD $";P$:"WHEN DISCOUNTED BY ";D;"% ON THE":"DAY OF MAKING IF IT HAS":"A FACE VALUE OF @PROCEEDS OF DISCOUNTED COMMERCIAL PAPERAJ::" ***";::"FACE VALUE OF DISCOUNTED";::"***":" ***";::" COMMERCIAL PAPER ";::"***"AT::"PROCEEDS AT MATURITY: ";PA^DMP:100:P$DM$Ah:"INTEREST RATE: ";IBr:"TERM OFNTS PER YEAR: ";NP>@N(R(RPI(NP100)))(1I(NP100))V@DMNNP:100:N$DM$@:"AN ANNUITY OF $";R$;" PAID ";NP;" TIMES":"PER YEAR AT AN INTEREST RATE OF ";I;"%":"WILL RETIRE A DEBT OF $";P$:"AFTER A PERIOD OF ";N$;" YEARS."@20000*A0000)?XTERM OF ANNUITY TO PAY OFF DEBTg?b::"***";::"TERM REQUIRED TO RETIRE A DEBT";::"***"?l::"AMOUNT OF DEBT: ";P?vDMP:100:P$DM$?:"PERIODIC PAYMENT: ";R?DMR:100:R$DM$?:"INTEREST RATE: ";I@:"NUMBER OF PAYME"NUMBER OF PAYMENTS PER YEAR: ";NPL>N(SI(RNP100)1)(1I(NP100))d>DMNNP:100:N$DM$>:"AN ANNUITY OF $";R$;" PAID ";NP;" TIMES":"PER YEAR AT AN INTEREST RATE OF ";I;"%":"WILL AMOUNT TO $";S$:"AFTER A PERIOD OF ";N$;" YEARS."?2I;"%."=200008=pTERM OF ANNUITY FROM FUTURE VALUEy=z::"***";::"TERM OF ANNUITY FROM FUTURE VALUE";::"***"=::"FUTURE VALUE: ";S=DMS:100:S$DM$=:"PERIODIC PAYMENT: ";R=DMR:100:R$DM$=:"INTEREST RATE: ";I">:PER YEAR: ";NP;<RSI(NP100)((1I(NP100))(NPN)1)P<DMR:100:R$DM$=:"AN ANNUITY HAVING A FUTURE":"VALUE OF $";S$;" CAN BE CREATED":"BY MAKING PAYMENTS OF $";R$:NP;" TIMES PER YEAR FOR ";N;" YEARS":"INVESTED AT AN INTEREST RATE OF ";LUE{;::" ***";::"PERIODIC PAYMENTS REQUIRED TO";::"***":" ***";::" PRODUCE A FUTURE VALUE ";::"***";::"FUTURE VALUE: ";S;DMS:100:S$DM$;:"INTEREST RATE: ";I;:"NUMBER OF YEARS: ";N<:"NUMBER OF PAYMENTS NP100)(1(1I(NP100))(NPN))7:DMR:100:R$DM$::"A DEBT OF $";P$;" CAN BE RETIRED":"BY MAKING PAYMENTS OF $";R$:NP;" TIMES PER YEAR FOR ";N;" YEARS":"INVESTED AT AN INTEREST RATE OF ";I;"%.":20000;PERIODIC PAYMENTS FOR FUTURE VAERIODIC PAYMENTS REQUIRED TO";::"***":" ***";::" RETIRE A DEBT ";::"***"}9::"AMOUNT OF DEBT: ";P9DMP:100:P$DM$9:"INTEREST RATE: ";I9:"NUMBER OF YEARS: ";N9:"NUMBER OF PAYMENTS PER YEAR: ";NP":RPI(P:100:P$DM$8 :"THE PRESENT VALUE FOR AN ANNUITY":"WITH A PERIODIC PAYMENT OF $";R$:"MADE ";NP;" TIMES PER YEAR FOR ";N;" YEARS":"AT AN INTEREST RATE OF ";I;"%":"IS $";P$8 200008PERIODIC PAYMENTS TO PAY OFF DEBT_9::" ***";::"P"*";::"PRESENT VALUE OF AN ORDINARY ANNUITY";::"*"V7 ::"PERIODIC PAYMENT: ";Rk7 DMR:100:R$DM$7 :"INTEREST RATE: ";I7 :"NUMBER OF YEARS: ";N7 :"NUMBER OF PAYMENTS PER YEAR: ";NP7 PR(1(1I(NP100))(NNP))INP1008 DMI(NP100))(NPN)1)I(NP100)56*DMS:100:S$DM$64:"PAYMENTS OF $";R$;" MADE":NP;" TIMES PER YEAR FOR ";N;" YEARS":"HAVE A FUTURE VALUE OF $";S$:"IF INVESTED AT AN INTEREST":"RATE OF ";I;"%."6>200006 PRESENT VALUE OF ANNUITY67 ::REACH AMOUNT"7UN"15. DECLINING-BALANCE DEPRECIATION"TUN"16. <<>>"UN22:958:"WHAT NUMBER ?";A$:I(A$):I1I1620180UNI1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000UN:V(C) COPYRIGH"8. FACE VALUE OF DISCOUNTED PAPER"MTN"9. PROCEEDS OF DISCOUNTED PAPER"oTN"10. INCOME FROM INVESTMENT"TN"11. EFFECTIVE ANNUAL INTEREST RATE"TN"12. INTEREST ON INVESTMENT"TN"13. PRESENT VALUE OF A FIXED DEBT" UN"14. TERM REQUIRED TO RE VALUE OF ORDINARY ANNUITY"JSHN"3. PRESENT VALUE OF ORDINARY ANNUITY"wSRN"4. PAYMENTS REQUIRED TO PAY OFF DEBT"S\N"5. PAYMENTS REQUIRED FOR FUTURE VALUE"SfN"6. TERM OF ANNUITY FOR FUTURE VALUE"SpN"7. TERM OF ANNUITY TO RETIRE DEBT"%TzNNUE":"(OR ENTER 'S' TO STOP): ";A$5R;A$"S"20010;R;FR;15160R N:"<<>>":"PRESS 'RETURN' TO SEE THE MENU: ";A$R*N::10);::"FINANCIAL PROGRAMS"::" BY GARY B. LITTLE":5R4N"1. AMORTIZATION SCHEDULE"S>N"2. FUTU,5Q.;J0:DF0:DC0:BVC.Q8;JJ1:JN20000>QB;DCIBV100KQL;BVBVDCXQV;DFDFDCQ`;DMDC:100:DC$DM$:DMBV:100:BV$DM$:DMDF:100:DF$DM$Qj;J;16(BV$));BV$;27(DC$));DC$;38(DF$));DF$Qt;(37)2015160#R~;:"PRESS 'RETURN' TO CONTI"PRESS 'RETURN' TO SEE":"THE DEPRECIATION TABLE":"(OR ENTER 'S' TO STOP): ";A$cP;A$"S"20010P;:"DEPRECIATION RATE = ";D$;"%":"PURCHASE PRICE = $";C$:P;" BOOK DEPREC DEPREC":"YEAR VALUE CHARGE FUND"Q$;34ON";::"***"*O:::"ORIGINAL COST: ";C?O:DMC:100:C$DM$YO::"SCRAP VALUE: ";SVpO:DMSV:100:SV$DM$O::"DEPRECIATION PERIOD (IN YEARS): ";NO:D1(SVC)(1N):D100DO:DMD:100:D$DM$O::"THE DEPRECIATION RATE IS ";D$;"%."QP::NNP:100:N$DM$N7:"A SUM OF $";P$;" WHICH IS":"INVESTED AT ";I;"% INTEREST":"COMPOUNDED ";NP;" TIMES PER YEAR":"WILL BE WORTH $";S$:"IN ";N$;" YEARS."N720000N:DECLINING-BALANCE DEPRECIATION O:::"***";::"DECLINING-BALANCE DEPRECIATI**";::" TO REACH A CERTAIN AMOUNT ";::"***"JM6::"INVESTMENT: ";P_M6DMP:100:P$DM$yM6:"FINAL AMOUNT: ";SM6DMS:100:S$DM$M6:"INTEREST RATE: ";IM6:"COMPOUNDING PERIODS PER YEAR: ";NPM7N((S)(P))((1I(NP100)))N 7DM0:P$DM$L"3:"THE PRESENT VALUE OF A DEBT":"OF $";S$;" PAYABLE IN ";N;" YEARS":"AT ";I;"% INTEREST COMPOUNDED":NP;" TIMES PER YEAR IS $";P$L,320000L6TIME TO ACCUMULATE VALUE0M6::" ***";::"TERM REQUIRED FOR INVESTMENT";::"***":" *K2::" ***";::"PRESENT VALUE OF A FIXED DEBT";::"***"[K2::"AMOUNT OF DEBT: ";SpK2DMS:100:S$DM$K2:"INTEREST RATE: ";IK2:"NUMBER OF YEARS: ";NK3:"COMPOUNDING PERIODS PER YEAR: ";NPK3PS((1I(NP100))(NPN))L3DMP:10(NNP))1)4J0/DMI:100:I$DM$:DMFVP:100:PR$DM$J:/:"A PROFIT OF $";PR$;" AFTER ";N;" YEARS":"ON AN INVESTMENT OF $";P$;" IS":"EQUIVALENT TO AN INTEREST":"RATE OF ";I$;"% COMPOUNDED":NP;" TIMES ANNUALLY."JD/20000J2PRESENT VALUE OF DEBT=**";::"INTEREST ON INVESTMENT";::"***"LI.::"INITIAL INVESTMENT: ";PaI.DMP:100:P$DM$I/:"FINAL VALUE OF INVESTMENT: ";FVI/:"LENGTH OF INVESTMENT (IN YEARS): ";NI/:"COMPOUNDING PERIODS PER YEAR: ";NP J&/I100NP((1(FVP)P)(1H +EF(1I(NP100))NP14H*+DMEF100:100:EF$DM$H4+:"A NOMINAL INTEREST RATE OF ";I;"%":"COMPOUNDED ";NP;" TIMES PER YEAR":"CORRESPONDS TO AN EFFECTIVE ANNUAL":"RATE OF ";EF$;"%."H>+20000H.EFFECTIVE INTEREST ON INVESTMENT*I.::" *RATE OF ";I;"%":"COMPOUNDED ";NP;" TIMES ANNUALLY":"IS $";ID$JGt'20000nG*EFFECTIVE ANNUAL INTEREST RATEG+::" ***";::"EFFECTIVE ANNUAL INTEREST RATE";::"***"G +::"NOMINAL INTEREST RATE: ";IG+:"COMPOUND