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`:(9):(10):"RETURNING TO MENU":(4);"RUNMENU"EA(4)"RUN INDEX" XA(4)"RUN INDEX" J)"RUN INDEX" RY LOW CALORIE"9@" DIET OR DO ANY STRENUOUS EXERCISE"t@" YOU SHOULD CHECK WITH YOUR DOCTOR.":" ":" ":" "@" GOOD LUCK ON YOUR DIET! ":" ":" ":" "@" PRESS RETURN KEY TO RETURN TO"@" MAIN TABLE OF CONTENTS ";G$::9360AY INTAKE.":" ":" ":" ":" "8?" PRESS RETURN KEY"b?" TO CONTINUE ";G$:TECī1170?936:" 0603 XXXXXXXXXXXXXXXXXXXXXXXX"?" X WEIGHT LOSS ANALYSIS X"?" XXXXXXXXXXXXXXXXXXXXXXXX":" ":" "@" BEFORE YOU GO ON AN"&>" X WEIGHT LOSS ANALYSIS X"U>" XXXXXXXXXXXXXXXXXXXXXXX":" ":" "m>" IF YOU "V$(X,1)>" FOR "(MI(T))" MINUTES A DAY ADDED TO YOUR">" ALREADY "H$" SCHEDULE">" YOU CAN ADD "(TC(T))" CALORIES TO YOUR"?" DAILIN ORDER FOR YOU TO LOSE "(PL)" LBS. IN"]=""(TM)" DAYS YOU MUST KEEP YOUR CALORIES"=" COUNT AT "(CC)" CALORIES PER DAY.":" "=" PRESS RETURN KEY TO CONTINUE ";G$:T0:T0=936:TT1:X(EX(T))>" 0602 XXXXXXXXXXXXXXXXXXXXXXXX01 XXXXXXXXXXXXXXXXXXXXXXXX"B4" LEISURELY 5.5 MPH10 FISH"k4" 4 RIDE BICYCLE 11 PLAY FOOTBALL"4" RAPID 9.4 MPH 12 PLAY GOLF"4" 5 RIDE BICYCLE 13 GYMNASTICS"4" RACING 11.5 MPH 14 SLEEP 5" 6 BOWLING 15CHOOSE ONE AND ENTER SELECTION":" NUMBER.":" "a3" PRESS RETURN KEY TO CONTINUE ";G$:R$""3936:G$"":" 0501 ":" * EXERCISE VS. CALORIES *"3" ":" 1 PLAY BADMINTON 7 DANCE-FAST"3" 2 PLAY BASKETBALL 8 DANCE-SLOW"4" 3 RIDEFF CALORIES. THE">2|" MORE YOU EXERCISE, THE MORE CALORIES"k2}" YOU CAN ADD TO YOUR DAILY INTAKE AND"2~" STILL KEEP YOUR WEIGHT LOSS SCHEDULE."2" ":" ":" ON THE FOLLOWING TWO SCREENS YOU"2" WILL FIND A LIST OF 33 EXERCISES. "03" ERALS AND VITAMINS YOU NEED"F1g" FROM FOODS WHEN DIETS HAVE FEWER"_1h" CALORIES. ":" "1i" PRESS RETURN KEY TO RETURN TO "1j" TABLE OF CONTENTS ";G$:1p936:" 0500A"1z" * EXERCISE VS. CALORIES *":" "2{" EXERCISE BURNS ONTINUE ";G$:CC1200ıQ0R936:" 0404B":" * YOUR DAILY CALORIE COUNT *":" "0S" ":" ITS A GOOD IDEA NOT TO GO BELOW"0T" 1200 CALORIES PER DAY UNLESS YOU"0U" ARE UNDER A DOCTORS CARE.":""0\" IT IS DIFFICULT TO GET THE"1f" MIN * YOUR DAILY CALORIE COUNT *"Z/?" ":" ":" ":" YOU CAN CONSUME "(CC)" CALORIES"/@" A DAY AND STILL REACH YOUR"/A" GOAL OF LOSING "(PL)" POUNDS IN "/H" "(TM)" DAYS. ":" ":" ":" ":" "0I" PRESS RETURN KEY TO":" CO ",1.4:" SWIM THE BACKSTROKE ",11.5].+" SWIM THE BREASTSTROKE ",11.0:" PLAY TENNIS ",7.4.," TYPE-ELECTRIC TYPEWRITER ",1.8.-" TYPE-MANUAL TYPEWRITER ",2.1:" WALK ",5.4:" WRITE ",2.0.." PLAY CARDS ",1.3.4/>936:G$"":" 0403A":" 3- " PLAY THE DRUMS ",4.5:" PLAY THE FLUTE ",2.4f-!" PLAY THE HORN ",2.0:" PLAY THE PIANO ",2.7-"" PLAY THE TRUMPET ",2.1:" RUN CROSS-COUNTRY ", 11.1-#" RUN 8-MIN MILE ",14.2:" RUN 7-MIN MILE ",15.6-$" PLAY VOLLEYBALL ",3.4 $.*" SIT6.89, " RIDE A BICYCLE-11.5 MPH. ",11.5:" BOWL ", 4.1, " DANCE-FAST ",7.0:" DANCE-SLOW ",3.5:" DRIVE-AUTOMOBILE ",2.3," GO FISHING ",2.5:" PLAY FOOTBALL ",9.0," PLAY GOLF ",5.8:" DO GYMNASTICS ",4.5:" SLEEP ",1.5, " MARCH ",9.797,210,227"+ 0,0,0,201,214,231F+I13:J12:CF(I,J):::770b+ 12,14: 14,18: 16,25+I133:J12:V$(I,J):::820+" PLAY BADMINTON ",6.6:" PLAY BASKETBALL ",9.4 ," RIDE A BICYCLE 5.5 MPH ", 4.3:" RIDE A BICYCLE 9.4 MPH ", 71,158,171,188,* 149,160,176,162,175,192J* 153,164,181,165,178,195b* 0,0,0,169,182,199z* 0,0,0,173,186,203* 0,0,0,177,190,207* 0,0,0,181,194,211* 0,0,0,185,194,215* 0,0,0,189,202,219* 0,0,0,193,206,223 + 0,0,0,1) 116,125,135,126,137,149<) 120,129,139,130,142,155Z) 123,132,142,134,147,161x) 126,136,146,139,151,166) 130,140,150,143,155,170) 133,144,156,147,159,174) 137,148,161,150,163,178) 141,152,166,154,167,183* 145,156,1RETURN KEY ";TM+(TM1TM730R$J$:680R(CC((PCIC)2)((PL3500)TM):830X(|(I125:J16:W(I,J):::760( 100,109,118,0,0,0( 104,112,121,0,0,0( 107,115,125,0,0,0( 110,118,128,118,129,141) 113,122,132,122,133,145TS IN MIND,"4'" OVER WHAT PERIOD OF TIME DO YOU"h'" WANT TO LOSE THE "(PL)" POUNDS IN? ":" "'" ENTER IN DAYS ONLY":" (EXAMPLE: "'" 3 WEEKS":" ENTER AS 21)":R$(" ENTER NUMBER OF DAYS (1 TO 730":" THEN PRESS FOR EACH POUND YOU">&" WANT TO LOSE YOU HAVE TO CUT YOUR"f&" CALORIE COUNT BY 3500 CALORIES."&" ":" PRESS RETURN KEY TO CONTINUE ";G$:R$"":TM0&936:"0402 ":" * WEIGHT LOSS CALORIE COUNT *":" " '" ":" KEEPING THE PREVIOUS FAC" * WEIGHT LOSS CALORIE COUNT *"X%" ":" ":" THE AVERAGE DAILY ENERGY REQUIREMENT"%" IS 2100 CALORIES PER DAY FOR FEMALES"%" AND 2700 CALORIES PER DAY FOR MALES.":" ":" "%" IT TAKES 3500 CALORIES TO PRODUCE "&" ONE POUND OF FAT.L LOSE WEIGHT"D$" ENTER HOW MANY POUNDS YOU WANT TO":" LOSE."{$" ":" WEIGHT LOSS LIMITATIONS:":" 1 TO 200"$R$:" ENTER NUMBER OF POUNDS,"$" THEN PRESS RETURN KEY ";G$:PL(G$)$PL1PL200R$J$:640!%936:" 0401A":CONSUME "(IC)" CALORIES":" PER DAY. "e#m" ":" ":" ":" ":" PRESS TO CONTINUE ";G$u#vR$"":G$""#936:" 0400A":" * WEIGHT LOSS CALORIE COUNT *":" "#" ":" ":" TO FIND THE NUMBER OF CALORIES"$" YOU CAN EAT AND STIL" ":" ":" ":" "R"Z" PRESS RETURN KEY TO CONTINUE ";G$:ICCF(LS,SX)ID:936"["0305A":" * YOUR DAILY CALORIE NEEDS *":" ""b" ":" TO MAINTAIN YOUR WEIGHT AT""c" "(WT)" POUNDS WITH YOUR CURRENT":" "H$;" LIFESTYLE ")#l" YOU CAN " ":" TO MAINTAIN YOUR PRESENT WEIGHT"Y!1" AT "(PW)" POUNDS WITH YOUR CURRENT "q!2LS1H$"INACTIVE"!:LS2H$"MOD. ACTIVE"!DLA3H$"VERY ACTIVE"!N" "H$" LIFESTYLE"!X" YOU CAN CONSUME "(PC)" CALORIES":" PER DAY.""YESENT WEIGHT"8 " (EXAMPLE: ":" 150 POUNDS"` &" ENTER AS 150)":" ":" ":R$ '" ENTER PRESENT WEIGHT," (" THEN PRESS RETURN KEY ";G$:PW(G$):PCCF(LS,SX)PW:936 )" 0304B":" * YOUR DAILY CALORIE NEEDS *":" ")!0OR X, "H" THEN PRESS RETURN KEY ";K$:WT(K$):K$"X"İ180:490mSX2(WT118WT231)R$J$:490SX1(WT100WT181)R$J$:490IDWT:R$" ":936:" 0304B":" *YOUR DAILY CALORIE NEEDS *" " ":" ":" ":" ":" ENTER YOUR PRNEEDS *"4" ":" ":" ENTER YOUR IDEAL WEIGHT"k" (LIMITATIONS:":" FROM 100 TO 181-FEMALE"" FROM 118 TO 231-MALE)" ":" IF YOU DO NOT KNOW YOUR "" IDEAL WEIGHT, ENTER X":" ":R$:" "" ENTER IDEAL WEIGHT Y CALORIE NEEDS *"H" ":" ":" ":" ":" 1 MALE":" 2 FEMALE"d" ":" ":" ":" ":R$" ENTER 1 OR 2, THEN PRESS"" RETURN KEY ";K$:SX(K$):SX1SX2R$J$:450R$"":K$""936:" 0303B":" * YOUR DAILY CALORIE ":" ":" 1 INACTIVE":" 2 MODERATELY ACTIVE"[" 3 VERY ACTIVE":" ":" ":R$" ENTER 1, 2, OR 3, THEN PRESS":" RETURN KEY ";O$:LS(O$)LS1LS3R$J$:400R$""K$""G$""936:" 0303A":" * YOUR DAILCTIVITY, YOU WOULD FIT INTO AN"@" INACTIVE CATEGORY. ":" "w" PRESS RETURN KEY TO CONTINUE ";G$:R$"":O$""936:" 0302A":" * YOUR DAILY CALORIE NEEDS * "" ":" CHOOSE THE CATEGORY THAT MOST FITS"" YOUR LIFESTYLE."4"TION AND YOU ALSO PARTICIPATE"J}" IN PHYSICAL SPORTS DAILY, YOU WOULD"x~" FIT INTO A VERY ACTIVE CATEGORY.":" "" IF YOUR LIFESTYLE IS SLOWER PACED"" AND YOUR OCCUPATION HAS YOU SITTING"" AT A DESK WITHOUT MUCH PHYSICAL"" AIN YOUR OCCUPATION, YOU WOULD"Wi" FIT INTO A MODERATELY ACTIVE CATEGORY.":" ":" "j" ":" PRESS RETURN KEY TO CONTINUE ";G$:936k" 0301A":" * YOUR DAILY CALORIE NEEDS *":" "r" IF YOUR LIFESTYLE FITS THE PREVIOUS "|" DESCRIPLY CALORIE NEEDS * "EU" ":" THE AMOUNT OF DAILY ACTIVITY THAT "sV" YOU PARTICIPATE IN MAKES A DIFFERENCE"^" IN THE NUMBER OF CALORIES YOU CAN EAT"_" WITHOUT GAINING WEIGHT.":" "`" IF YOU DO A LOT OF BENDING, WALKING"h" ETC. DIVIDUALS 10% "5J" OVERWEIGHT, A 25% INCREASE IN"^K" INDIVIDUALS 20% OVERWEIGHT AND A"L" 40% INCREASE FOR THOSE 30% OVER "M" NORMAL WEIGHT.":" ":" ":" "N" PRESS RETURN KEY TO CONTINUE ";G$:T936:" 0300A":" * YOUR DAI" ** "(ID)" POUNDS ** ":" "V:" PRESS RETURN KEY TO CONTINUE ";G$:936@" 0203A":" ** YOUR IDEAL WEIGHT **":" "A" ":" THE AMERICAN MEDICAL ASSOCIATION"B" REPORTS THERE IS A 13% INCREASE "C" IN DEATH RATES FOR IN" THE INFORMATION YOU ENTERED AS"F." TO YOUR BONE STRUCTURE:"/" "P$:" AND HEIGHT:":" "(IN)" INCHES "6" HAS BEEN EVALUATED AND YOUR"7" IDEAL WEIGHT, WITHOUT CLOTHES,"8" HAS BEEN DETERMINED TO BE:":" "$9(G$):BS3(IN63IN84)R$J$:230HBS3(IN60IN75)R$J$:230IDW((IN59),BS):R$" ":BS1BS4P$"LIGHT FRAME"BS2BS5P$"MEDIUM FRAME""BS3BS6P$"HEAVY FRAME",936:" 0202A":" ** YOUR IDEAL WEIGHT **"$-" ":AREST INCH."8" LIMITATIONS: FROM 63 TO 84 FOR MALE"e" FROM 60 TO 75 FOR FEMALE":" "" (EXAMPLE: ":" 5 FT. 10 1/2 INCHES"" ENTER AS 71)":" ":R$:" ENTER YOUR HEIGHT, "" THEN PRESS RETURN KEY ";G$$IN FRAME-MALE":R$:" ENTER YOUR SELECTION,"k"THEN PRESS RETURN KEY ";G$:BS(G$):BS1BS6R$J$:190{R$"":G$""936:" 0201A":" **YOUR IDEAL WEIGHT **":" "" ENTER YOUR HEIGHT, WITHOUT SHOES, IN" " INCHES ROUNDED TO THE NE TO DETERMINE YOUR IDEAL WEIGHT"M" PLEASE CHOOSE ONE OF THE FOLLOWING"" BONE STRUCTURES. ":" 1 LIGHT FRAME-FEMALE"" 2 MEDIUM FRAME-FEMALE":" 3 HEAVY FRAME-FEMALE"" 4 LIGHT FRAME-MALE":" 5 MEDIUM FRAME-MALE"+" 6 HEAVYLOW CALORIE DIET";" OR DO ANY STRENUOUS EXERCISE YOU"c" SHOULD CHECK WITH YOUR DOCTOR."" PRESS RETURN KEY TO RETURN TO"" TABLE OF CONTENTS ";G$:R$"":G$""936:" 0200A":" ** YOUR IDEAL WEIGHT ** ":" "!" *":" "3" ALL FIGURES GIVEN IN THIS PROGRAM"S" ARE APPROXIMATES.":" "" THERE ARE MANY INDIVIDUAL DIFFERENCES"" IN PEOPLE AND THE AMOUNT OF CALORIES "" THEY NEED TO MAINTAIN GOOD HEALTH."" ":" BEFORE YOU GO ON ANY UPON SELECTION OF AN EXERCISE, IT"R" WILL DETERMINE THE NUMBER OF CALORIES"{" THAT CAN BE ADDED TO THE INTAKE"" WITHOUT CHANGING THE END RESULTS.":" "" PRESS RETURN KEY TO CONTINUE ";G$:936" 0102A":" * INSTRUCTIONS" * INSTRUCTIONS *":" "F " THIS PROGRAM WILL USE A PERSONS"v " HEIGHT AND BONE STRUCTURE TO DETERMINE" " IDEAL BODY WEIGHT AND BASIC CALORIE" " INTAKE NEEDS TO KEEP FROM GAINING" " WEIGHT AND TO LOSE WEIGHT. ":" "#" IONS YOU SHOULD HAVE NO":" PROBLEMS AT ALL. "_ o" ":" DON'T WORRY ABOUT BREAKING ME. AS" x" LONG AS YOU FOLLOW INSTRUCTIONS I" y" WILL GIVE YOU THE INFORMATION YOU":" SEEK." z" PRESS RETURN KEY TO CONTINUE ";G$:936:" 0101A" {,1300 R40O Z936:" 0100A ****************":" * INSTRUCTIONS *" [" ****************":"":" WELCOME TO POUNDS A-WEIGH!" \" ":" I AM A VERY EASY PROGRAM TO USE." d" IF YOU READ EACH SCREEN AND FOLLOW "/ n" INSTRUCT 3 YOUR DAILY CALORIE NEEDS"] <" 4 EXERCISE BURNS CALORIES":" 5 DISPLAY FINAL ANALYSIS" =" 6 END PROGRAM":" ":R$:" ENTER A SELECTION NUMBER, " >" THEN PRESS RETURN KEY ";A$:CH(A$) FCH1CH7R$J$:50 PCH90,180,340,880,1140" ":% " CAROL B HARSHBARGER"R W(25,6):CF(3,2):V$(33,2):TC(10):730l (R$"":A$"":H$"BUSY" 2936:" 0001A":" *MAIN TABLE OF CONTENTS *":" " 3" ":" 1 INSTRUCTIONS FOR USING PROGRAM" 4" 2 DETERMINE YOUR IDEAL WEIGHT":" G9* 936:" ######################"l " ## ##":" ## POUNDS A-WEIGH ! ##" " ## ##"J$" INVALID ENTRY, PLEASE REENTER"" ######################" " ":" ":" WRITTEN BY":                    SC(SC)SC0SC59060(%Z#8000:9000.%d# #(SC)SC0SC59060X%Z#8000:9000^%d# A:"TYPE 'CONT' FOR NEXT SCREEN ";SC$9$>!SC$"CONT"8520X$C!"INVALID ENTRY - REENTER"b$F!8500m$H!SC$""s$R!$(# SCREEN CONTROL$2#"(1) NEXT SCREEN"$<#"(2) CHANGE ENTRY"$>#"(3) DISPLAY BUDGET"$@#"(4) LEAVE INPUT MODE":$F#SC%P#BUDGETS# (6) STOP#B#X:"DO YOU REALLY WANT TO STOP "_#b"ENTER YES OR NO ";RC$p#lRC$"NO"30#vRC$"YES"7050#8000:7000#936:(4);"RUNINDEX"#@ ENTRY ERROR ERROR MESSAGE#J"INVALID ENTRY - REENTER "#T$$4!z HOME INS,PERSONAL,EDUCATION,RECREATION,GIFTSD"| MISCELLANEOUSa" BUDGET TYPE TITLESw"X16:BT$(X):X" (1) YOUR BUDGET" (2) YOUR BONUS BUDGET" (3) YOUR CRISIS BUDGET" (4) JOHN Q. PUBLIC BUDGET# (5) CLEAR ALL LE TABLE&!pT$(25):X125:T$(X):X[!r GROSS INCOME,FICA,FED WH,STATE WH,OTHER INCOME!t OTHER DEDUCTIONS,SAVINGS,FOOD,HOUSING,UTILITIES!v FURNISHINGS, MAINTENANCE,TRANSPORTATION,CLOTHING!x MEDICAL,EMERGENCY,AUTO INS,HEALTH INS,LIFE INS0"X13313 X53315! 3320? DA(DP)A(1,DP):TD0:3088Y DA(DP)DA(DP)A(X,DP)q TDTDA(X,DP):3088 DA(DP)DA(DP)A(X,DP):TDTDA(X,DP)  3088  CC0 X2530  936 CC7:3270:CC0 H X M 30 R !o BUILD TIT,4,23) 20)"AMOUNT":5 T$(X);18)"$";A(X,DP)A CC6ıc "$ AVAILABLE";18)"$";DA(DP)r CC73280~ CC6ı X1X53280 TDTDA(X,DP) "$ BUDGETED";18)"$";TD CC7ı ::9000 CC5 SC3350,3305,500,30 DP):3250v X53200=y X5DA(DP)(A(1,DP)A(5,DP)TD)Kz X53250q{ DA(DP)(A(1,DP)A(5,DP)TD):3250 A(X,DP)DA(DP)3240 "YOU ARE OUT OF MONEY !" "YOU HAVE $ ";DA(DP);" LEFT": 3090 DA(DP)DA(DP)A(X,DP) (BT$(DP)'X A(X,DP)((B$,((B$)1))):CC6ı1] 3188?_ X63170v` A(X,DP)(((B$,((B$)1))).01)(A(1,DP)A(5,DP))a 3173b A(X,DP)(((B$,((B$)1))).01)A(1,DP)e CC6ıg X13190l DA(DP)A(1,DP):3250t X13190 u DA(DP)A(1,NT AS 10% OR10.0% 8500, NN0:X1254 :C X13094h "ENTER ";T$(X);" AMOUNT ":3100 "ENTER ";T$(X);" RATE OR AMOUNT "; B$"" B$0 (B$,1)"$"(B$,1)"%"3150: (B$,1)"$"3160D (B$,1)"%"3167N 8000:3090F YOU ARE ENTERING A DOLLAR AMOUNT,"O "ENTER THE AMOUNT WITH A $ SIGN. FOR"~ "EXAMPLE, ENTER TEN THOUSAND DOLLARS AS," "$10000 OR $10000.00": "IF YOU ARE ENTERING A RATE, ENTER IT" "WITH A % SIGN. FOR EXAMPLE, ENTER TEN" "PERCEE INFORMATION BY TYPING"B "THE DATA DESIRED AND THEN PRESSING"\ "THE RETURN KEY":: "ARE YOU READY TO BEGIN - ENTER YES OR NO ";RC$ RC$"YES"RC$"NO"3058 8000:3055 RC$"YES"3065 EE1:E43055 30 936$ "I DECREASE AN EXPENSE BY $ ";W=^"BEFORE MAKING THIS ENTRY"KcA(X,DP)HUh1110[v PROMPT FOR INPUT X125:A(X,DP)0:X 936 TD0 "YOU ARE NOW IN THE INPUT MODE" "YOU WILL BE PROMPTED TO ENTER DATA" "ENTER TH(X,DP)1550'DA(DP)A(X,DP)H15705H01530TWA(X,DP)(HDA(DP)):1600oWA(X,DP)DA(DP):1600DA(DP)DA(DP)(HA(X,DP))1290"DA(DP)DA(DP)(A(X,DP)H),1290@ AMT MSGJ"YOU WILL HAVE TO INCREASE INCOME"T"ORX1X514001500/ CC6:3270:CC091110Nx INCOME ADJbHA(X,DP)1480}DA(DP)HA(X,DP)1490WHA(X,DP):1600DA(DP)DA(DP)A(X,DP)H1290DA(DP)DA(DP)(HA(X,DP))1290 EXPENSE ADJ HAT$(X)1210X="UNKNOWN FIELD NAME ENTERED!"::1170KHA(X,DP)x"OLD AMOUNT FOR ";T$(X);" = $ ";A(X,DP)"$ AVAILABLE TO BUDGET = $ ";DA(DP)"ENTER THE NEW AMOUNT OR PERCENTAGE":CC63090:3235:CC0HA(X,DP)1290 ";RC$RC$"NO"1110-RC$"YES"1166=8000:1161VX115:A(X,DP)0:XyDA(DP)0:"ALL FIELDS CLEARED""YOU ARE RETURNING TO THE INPUT MODE"3060:"ENTER THE NAME OF THE FIELD""TO BE UPDATED ";F$X125 F$"(1) CHANGE SELECTED FIELDS";j"(2) CHANGE ALL FIELDS"Qo"(3) END UPDATE"xt:"ENTER THE ACTIVITY NUMBER ";NN~NN(NN)NN0NN411568000:1110NN330NN11170"DO YOU WISH TO CLEAR ALL FIELDS? ""ENTER YES OR NO"*"CONTAINS DATA. YOU WILL LOSE WHAT"G"WAS PREVIOUSLY THERE."q:"DO YOU WANT TO CHANGE YOUR MIND "$"ENTER YES OR NO ";RC$)RC$"YES"30.RC$"NO"110088000:1060@:L936V:"SELECT THE TYPE OF UPDATE":NN0`RC$"YES"915RC$"NO"30.8000:908AY14:X125NA(X,Y)0UXaDA(Y)0hY:"ALL BUDGETS HAVE BEEN CLEARED !":Q11000:Q UPDATE CONTROLA(1,DP)0İ3005"YOU WILL BE UPDATING A BUDGET THATI)10000).5))100;" %"%>::85004HCC53250:S CLEAR ALL BUDGETS:"ARE YOU SURE YOU WANT TO CLEAR ALL BUDGETS?""IF YOU CLEAR ALL BUDGETS, YOU WILL LOSE""ALL DATA PREVIOUSLY ENTERED.""ENTER 'YES' OR 'NO' ";RC$OTHER DED ";18)"$ ";A(6,DP);L033)((((A(6,DP)TI)10000).5))100;" %"h1J725:TETEA(J,DP):4"TOT EXPENSE ";18)"$ ";TE;633)((((TETI)10000)5))100;" %"8DATITXA(6,DP)TE9"UNBUDGETED $ ";18);"$ ";DA;;33)((((DAT "SUMMARIES FOR ";(BT$(DP),4,23):"TIA(1,DP)A(5,DP)B#:U$CT1:528:CT0w%"TOTAL INCOME ";18)"$ ";TI;&33)(100TITI);" %"'J24:TXTXA(J,DP):*"TOTAL TAX DED ";18)"$ ";TX;,33)((((TXTI)10000).5))100;" %"/"T INCOME"18)"$";NI;N33)((((NI(A(1,DP)A(5,DP)))10000).5))100;" % "X8500b936uCT1:528:CT0J716CT2:550:CT0J8500936CT1:528:CT0J1725CT2:550:CT0J 8500936#1IAIAA(J,DP) DJ( IIAA(1,DP)IAJ N"INC AFTER TAX ";18)"$";IA;y X33)(((10000IAA(1,DP)).5))100:" % " bT$(5)18)"$";A(5,DP); l33)P(5,DP);" % " vT$(6)18)"$";A(6,DP); 33)P(6,DP);" % % NIIAA(5,DP)A(6,DP)"NE J125( J5DEA(1,DP)A(5,DP)U P(J,DP)((((A(J,DP)DE)10000).5))100\ J~ (BT$(DP),4,23);34)" % OF " 20)"AMOUNT";33)"INCOME": CT1ı J14 &T$(J);18)"$";19)A(J,DP); 033)P(J,DP);" %" 5CT2ı :JHE NUMBER OF THE BUDGET ACTIVITY ";BAA rBA(BA)BA0BA4380P w8000:360V |o  DISPLAY BUDGETy 936 A(1,DP)0520 (BT$(DP),4,23);" CONTAINS NO VALUES" J11000:J NP1  DEA(1,DP):NI0:IA0:TI0:TX0:TE0DGET ACTIVITY MENU 1936I 65)"** PERSONAL BUDGET PROGRAM **":BA0x @:"SELECT THE DESIRED BUDGET ACTIVITY ": E4)"(1) DISPLAY BUDGET" J4)"(2) UPDATE NEW/EXISTING BUDGET" T4)"(3) SELECT ANOTHER BUDGET TYPE" c:CC0% h"ENTER T9361 z5)"** PERSONAL BUDGET PROGRAM **":DP0^ :"SELECT THE BUDGET TO BE PROCESSED":i X16x 4)BT$(X) X :"ENTER THE NUMBER OF THE DESIRED PROCESS ";DP DP(DP)DP0DP7210 8000:190 DP67000  , BU0" 310 BROWNE CT.E NORMAL, IL 61761Kd SCREEN CONTROL yA(25,4),P(25,4)6000120!DP5İ900:30#305(BA500,1000,100*NP135-BA330230d BUDGET-TYPE MENU  x                   )"*****"ks@ Ij>(X$,H,1)"E"İ16200!j>H'jG?CjH?(X$,H1,1)"-"İ16300_jR?(X$,H1,1)"+"İ16400ej?j?Y$(X$,1,1)(X$,3,H3)j?R((X$,H2,2))1j?Y$"."S$(R)Y$"*****"j@j@Y$(X$,1,1)(X$,3,H3)j@R((X$,H2,2)) k$@Y$Y$S$(RH3M$(11)"LITERS"'i>M$(12)"DECALITERS"@i&>M$(13)"HECTOLITERS"Xi0>M$(14)"KILOLITERS"^i>ei> {i> ***************i> * HANDLE *i> * SCIENTIFIC *i> * NOTATION *i> ***************i> i>X$(NL)i>Y$X$j>H1(X$)M$(14): TABLE OF LIQUID-CAPACITY NAMES:h=M$(1)"MINIMS"Ph=M$(2)"FLUIDRAMS"hh=M$(3)"FLUIDOUNCES"zh=M$(4)"GILLS"h=M$(5)"PINTS"h=M$(6)"QUARTS"h=M$(7)"GALLONS"h=M$(8)"MILLILITERS"h=M$(9)"CENTILITERS"h>M$(10)"DECILITERS"i>APACITY NAMESg6=K$(1)"PINTS"2g@=K$(2)"QUARTS"DgJ=K$(3)"PECKS"XgT=K$(4)"BUSHELS"pg^=K$(5)"MILLILITERS"gh=K$(6)"CENTILITERS"gr=K$(7)"DECILITERS"g|=K$(8)"LITERS"g=K$(9)"DECALITERS"g=K$(10)"HECTOLITERS"g=K$(11)"KILOLITERS"'h=fen]t,L$(4)" TO WHICH UNIT OF MEASURE DO YOU"_]~,L$(5)" WISH TO CONVERT?"],L$(7)" 1 MINIM 6 QUART 11 LITER"],L$(8)" 2 FLUIDRAM 7 GALLON 12 DECALITER"],L$(9)" 3 FLUID OZ. 8 MILLILITER 13 HECTOLITER")^,L$(10)ENTER THE NUMBER OF "N$(1)&\$,L$(1)3\),L$(1)""R\.," TO BE CONVERTED ";E$u\8,(E$)0(E$)99999999ī11360\B,L$(12)" AMOUNT MUST BE 0 TO 99999999"\L,L$(13)" BUT YOU ENTERED "E$\V,11220\`,L$(1)"1103A"]j,L$(2)" *** LIQUTY ***"%[+L$(4)" HOW MANY "N$(1)M[+L$(5)" DO YOU WISH TO CONVERT?"x[+L$(7)" ENTER YOUR ANSWER AS EITHER:"[,L$(8)" A WHOLE NUMBER (EG. 7) OR"[,L$(9)" A DECIMAL (EG. 4.25 OR .75)"[,5000: DISPLAY LINES ON SCREEN\,L$(1)" $"8")(C$"9")(C$"10")(C$"11")(C$"12")(C$"13")(C$"14")ī11200tZ+L$(12)" VALID CHOICES ARE: 1 THRU 14"Z+L$(13)" BUT YOU ENTERED "C$Z+11050Z+SS(1)(C$)Z+N$(1)M$(SS(1))Z+L$(1)"1102A"[+L$(2)" *** LIQUID CAPACIZ. 8 MILLILITER 13 HECTOLITER"RYp+L$(10)" 4 GILL 9 CENTILITER 14 KILOLITER"xYz+L$(11)" 5 PINT 10 DECILITER"Y+5000: DISPLAY LINES ON SCREENY+" ENTER SELECTION ";C$HZ+(C$"1")(C$"2")(C$"3")(C$"4")(C$"5")(C$"6")(C$"7")(C1)"1101A"7X4+L$(2)" *** LIQUID CAPACITY ***"gX>+L$(4)" FROM WHICH UNIT OF MEASURE DO YOU"XH+L$(5)" WISH TO CONVERT?"XR+L$(7)" 1 MINIM 6 QUART 11 LITER"X\+L$(8)" 2 FLUIDRAM 7 GALLON 12 DECALITER"Yf+L$(9)" 3 FLUID OW^)5000: DISPLAY LINES ON SCREENIWh)" TO CONTINUE, PRESS RETURN ";G$OW*VW* uW+ ************************W + * LIQUID CAPACITY CONV *W+ ************************W + W%+CL(1,1)0ė::" CONVERSION TABLE BEING LOADED":1835: X*+L$()10360V)SS(2)(F$),V)N$(2)K$(SS(2))`V")NL(E$)CD(SS(1),SS(2)): CALCULATE CONVERSIONkV')16000}V,)L$(1)"1004A"V6)L$(2)" *** DRY CAPACITY ***"V@)L$(4)" "E$" "N$(1)VJ)L$(5)" ARE EQUAL TO"VT)L$(6)" "Y$" "N$(2)"5000: DISPLAY LINES ON SCREEN;U(" ENTER SELECTION ";F$U((F$"1")(F$"2")(F$"3")(F$"4")(F$"5")(F$"6")(F$"7")(F$"8")(F$"9")(F$"10")(F$"11")ī10510U(L$(12)" VALID CHOICES ARE: 1 THRU 11"U(L$(13)" BUT YOU ENTERED "F$VWHICH UNIT OF MEASURE DO YOU">T(L$(5)" WISH TO CONVERT?"qT(L$(7)" 1 PINT 5 MILLILITER 9 DECALITER"T(L$(8)" 2 QUART 6 CENTILITER 10 HECTOLITER"T(L$(9)" 3 PECK 7 DECILITER 11 KILOLITER"T(L$(10)" 4 BUSHEL 8 LITER"U(L$(1)SA(L$(1)""2SF(" TO BE CONVERTED ";E$USP((E$)0(E$)99999999ī10360SZ(L$(12)" AMOUNT MUST BE 0 TO 99999999"Sd(L$(13)" BUT YOU ENTERED "E$Sn(10220Sx(L$(1)"1003A"S(L$(2)" *** DRY CAPACITY ***"T(L$(4)" TO "N$(1)/R (L$(5)" DO YOU WISH TO CONVERT?"ZR(L$(7)" ENTER YOUR ANSWER AS EITHER:"R(L$(8)" A WHOLE NUMBER (G.7) OR"R((L$(9)" A DECIMAL (EG. 4.25 OR .75)"R2(5000: DISPLAY LINES ON SCREENR7(L$(1)" ENTER THE NUMBER OF "N$(1)S<($"8")(C$"9")(C$"10")(C$"11")ī10200VQ'L$(12)" VALID CHOICES ARE: 1 THRU 11"{Q'L$(13)" BUT YOU ENTERED "C$Q'10050Q'SS(1)(C$)Q'N$(1)K$(SS(1))Q'L$(1)"1002A"Q'L$(2)" *** DRY CAPACITY ***"R(L$(4)" HOW MANY QUART 6 CENTILITER 10 HECTOLITER"VP~'L$(9)" 3 PECK 7 DECILITER 11 KILOLITER"xP'L$(10)" 4 BUSHEL 8 LITER"P'5000: DISPLAY LINES ON SCREENP'" ENTER SELECTION ";C$*Q'(C$"1")(C$"2")(C$"3")(C$"4")(C$"5")(C$"6")(C$"7")(C::" CONVERSION TABLE BEING LOADED":1755:@OB'L$(1)"1001A"kOL'L$(2)" *** DRY CAPACITY ***"OV'L$(4)" FROM WHICH UNIT OF MEASURE DO YOU"O`'L$(5)" WISH TO CONVERT?"Oj'L$(7)" 1 PINT 5 MILLILITER 9 DECALITER"#Pt'L$(8)" 2$(1)!Nb%L$(5)" ARE EQUAL TO"=Nl%L$(6)" "Y$" "N$(2)aNv%5000: DISPLAY LINES ON SCREENN%" TO CONTINUE, PRESS RETURN ";G$N'N' N' *********************N$' * DRY CAPACITY CONV *N.' *********************N8' .O='CD(1,1)0ALID CHOICES ARE: 1 THRU 17"AM%L$(13)" BUT YOU ENTERED "F$KM%9360[M&%SS(2)(F$)oM0%N$(2)J$(SS(2))M:%NL(E$)WT(SS(1),SS(2)): CALCULATE CONVERSIONM?%16000MD%L$(1)"0904A"MN%L$(2)" *** WEIGHT ***"NX%L$(4)" "E$" "NAM"'L$5000: DISPLAY LINES ON SCREENDL$" ENTER SELECTION ";F$L$(F$"1")(F$"2")(F$"3")(F$"5")(F$"6")(F$"7")(F$"4")(F$"8")(F$"9")(F$"10")(F$"11")(F$"12")(F$"13")(F$"14")(F$"15")(F$"16")(F$"17")ī9510M%L$(12)" VS. TON 13 DECAGRAM"IK$L$(7)" 2 DRAM 8 L. TON 14 HECTOGRAM"{K$L$(8)" 3 OUNCE 9 MILLIGRAM 15 KILOGRAM"K$L$(9)" 4 POUND 10 CENTIGRAM 16 QUINTAL"K$L$(10)" 5 S. CWT 11 DECIGRAM 17 METRIC TON"L$L$(11)" 6 L. CWT 12 GR0-Jr$L$(12)" AMOUNT MUST BE 0 TO 99999999"RJ|$L$(13)" BUT YOU ENTERED "E$\J$9220nJ$L$(1)"0903A"J$L$(2)" *** WEIGHT ***"J$L$(4)" TO WHICH UNIT OF MEASURE DO YOU"J$L$(5)" WISH TO CONVERT?"K$L$(6)" 1 GRAIN 7 HER:"/I6$L$(8)" A WHOLE NUMBER (EG. 7) OR"[I@$L$(9)" A DECIMAL (EG. 4.25 OR .75)"IJ$5000: DISPLAY LINES ON SCREENIO$L$(1)" ENTER THE NUMBER OF "N$(1)IT$L$(1)IY$L$(1)""I^$" TO BE CONVERTED ";E$Jh$(E$)0(E$)99999999ī936HRU 17",H#L$(13)" BUT YOU ENTERED "C$6H#9050FH#SS(1)(C$)ZH#N$(1)J$(SS(1))lH$L$(1)"0902A"H$L$(2)" *** WEIGHT ***"H$L$(4)" HOW MANY "N$(1)H"$L$(5)" DO YOU WISH TO CONVERT?"I,$L$(7)" ENTER YOUR ANSWER AS EITAY LINES ON SCREEN/G#" ENTER SELECTION ";C$G#(C$"1")(C$"2")(C$"3")(C$"4")(C$"5")(C$"6")(C$"7")(C$"8")(C$"9")(C$"10")(C$"11")(C$"12")(C$"13")(C$"14")(C$"15")(C$"16")(C$"17")ī9200H#L$(12)" VALID CHOICES ARE: 1 T"4F#L$(7)" 2 DRAM 8 L. TON 14 HECTOGRAM"fF#L$(8)" 3 OUNCE 9 MILLIGRAM 15 KILOGRAM"F#L$(9)" 4 POUND 10 CENTIGRAM 16 QUINTAL"F#L$(10)" 5 S. CWT 11 DECIGRAM 17 METRIC TON"F#L$(11)" 6 L. CWT 12 GRAM"G#5000: DISPLEP# EEU#WT(1,1)0ė::" CONVERSION TABLE BEING LOADED":1540:WEZ#L$(1)"0901A"~Ed#L$(2)" *** WEIGHT ***"En#L$(4)" FROM WHICH UNIT OF MEASURE DO YOU"Ex#L$(5)" WISH TO CONVERT?"F#L$(6)" 1 GRAIN 7 S. TON 13 DECAGRAMDp!L$(4)" "E$" "N$(1)8Dz!L$(5)" ARE EQUAL TO"TD!L$(6)" "Y$" "N$(2)xD!5000: DISPLAY LINES ON SCREEND!" TO CONTINUE, PRESS RETURN ";G$D'#D(# D2# *********************D<# * WEIGHT CONVERSION *EF# *********************)ī85103C !L$(12)" VALID CHOICES ARE: 1 THRU 13"XC*!L$(13)" BUT YOU ENTERED "F$bC4!8360rC>!SS(2)(F$)CH!N$(2)I$(SS(2))CR!NL(E$)VM(SS(1),SS(2)): CALCULATE CONVERSIONCW!16000C\!L$(1)"0804A"Cf!L$(2)" *** VOLUME ***" L$(10)" 4 ROD 9 METER"BB L$(11)" 5 MILE 10 DECAMETER"fB!5000: DISPLAY LINES ON SCREENB !" ENTER SELECTION ";F$C!(F$"1")(F$"2")(F$"3")(F$"4")(F$"5")(F$"6")(F$"7")(F$"8")(F$"9")(F$"10")(F$"11")(F$"12")(F$"13"*** VOLUME ***"L$(12)" VALID CHOICES ARE: 1 THRU 13">L$(13)" BUT YOU ENTERED "C$>8050> SS(1)(C$)> N$(1)I$(SS(1))> L$(1)"0802A"?& L$(2)" CENTIMETER 12 KILOMETER"L=L$(9)" 3 YARD 8 DECIMETER 13 MYRIAMETER"m=L$(10)" 4 ROD 9 METER"=L$(11)" 5 MILE 10 DECAMETER"=5000: DISPLAY LINES ON SCREEN=" ENTER SELECTION ";C$W>(C$"1")(C$"2")(C$"3")(C$"4")(C$ONVERSION TABLE BEING LOADED":1486:7L$(2)" *** AREA ***" 6HL$(4)" HOW M)" 3 YARD 8 DECIMETER 13 MYRIAMETER"K4L$(10)" 4 ROD 9 METER"p4L$(11)" 5 MILE 10 DECAMETER"45000: DISPLAY LINES ON SCREEN4" ENTER SELECTION ";C$55(C$"1")(C$"2")(C$"3")(C$"4")(C$"5")(C$"6")(C$"7")(C$"8")(:3L$(1)"0701A":3L$(2)" *** AREA ***"j3L$(4)" FROM WHICH SQUARE UNIT OF MEASURE"3L$(5)" DO YOU WISH TO CONVERT?"3L$(7)" 1 INCH 6 MILLIMETER 11 HECTOMETER"3L$(8)" 2 FOOT 7 CENTIMETER 12 KILOMETER"*4L$(9" "Y$" "N$(2)625000: DISPLAY LINES ON SCREEN]2" TO CONTINUE, PRESS RETURN ";G$c2Wi2X2b *********************2l * AREA CONVERSION *2v *********************2 3AR(1,1)0ė::" CONVERSION TABLE BEING LOADED":1436 BUT YOU ENTERED "F$ 1d636001nSS(2)(F$)D1xN$(2)D$(SS(2))x1NL(E$)LT(SS(1),SS(2)): CALCULATE CONVERSION1160001L$(1)"0604A"1L$(2)" *** LENGTH ***"1L$(4)" "E$" "N$(1)1L$(5)" ARE EQUAL TO"2L$(6)$025000: DISPLAY LINES ON SCREENA0<" ENTER SELECTION ";F$0F(F$"1")(F$"2")(F$"3")(F$"4")(F$"5")(F$"6")(F$"7")(F$"8")(F$"9")(F$"10")(F$"11")(F$"12")(F$"13")ī65100PL$(12)" VALID CHOICES ARE: 1 THRU 13"1ZL$(13)" ""/L$(5)" WISH TO CONVERT?"U/L$(7)" 1 INCH 6 MILLIMETER 11 HECTOMETER"/ L$(8)" 2 FOOT 7 CENTIMETER 12 KILOMETER"/L$(9)" 3 YARD 8 DECIMETER 13 MYRIAMETER"/L$(10)" 4 ROD 9 METER"0(L$(11)" 5 MILE 10 DECAMETER" TO BE CONVERTED ";E$>.(((E$)0)((E$)99999999))ī6360j.L$(12)" AMOUNT MUST BE 0 TO 99999999".L$(13)" BUT YOU ENTERED "E$.6220.L$(1)"0603A".L$(2)" *** LENGTH ***"/L$(4)" TO WHICH UNIT OF MEASURE DO YOUWISH TO CONVERT?"<-tL$(7)" ENTER YOUR ANSWER AS EITHER:"f-~L$(8)" A WHOLE NUMBER (EG. 7) OR"-L$(9)" A DECIMAL (EG. 4.25 OR .75)"-5000: DISPLAY LINES ON SCREEN-L$(1)" ENTER THE NUMBER OF "N$(1)-L$(1)-L$(1)""." ")(C$"13")ī6200>,L$(12)" VALID CHOICES ARE: 1 THRU 13"c,$L$(13)" BUT YOU ENTERED "C$m,.6050},8SS(1)(C$),BN$(1)D$(SS(1)),LL$(1)"0602A",VL$(2)" *** LENGTH ***",`L$(4)" HOW MANY "N$(1)-jL$(5)" DO YOU AMETER"(+L$(10)" 4 ROD 9 METER"M+L$(11)" 5 MILE 10 DECAMETER"q+5000: DISPLAY LINES ON SCREEN+" ENTER SELECTION ";C$,(C$"1")(C$"2")(C$"3")(C$"4")(C$"5")(C$"6")(C$"7")(C$"8")(C$"9")(C$"10")(C$"11")(C$"12" *** LENGTH ***"N*L$(4)" FROM WHICH UNIT OF MEASURE DO YOU"o*L$(5)" WISH TO CONVERT?"*L$(7)" 1 INCH 6 MILLIMETER 11 HECTOMETER"*L$(8)" 2 FOOT 7 CENTIMETER 12 KILOMETER"+L$(9)" 3 YARD 8 DECIMETER 13 MYRI***** ) ))I113))L$(I)6)L$(I)""=)IC)oJ)p f)z *********************) * LENGTH CONVERSION *) *********************) )LT(1,1)0ė::" CONVERSION TABLE BEING LOADED":1260::)L$(1)"0601A"*L$(2)000: WEIGHT CONVERSIOND(B$"5"İ10000: DRY CAPACITY CONVERSIONt(B$"6"İ11000: LIQUID CAPACITY CONVERSIONz(( ( ***************( * DISPLAY AND *( * CLEAR THE *( * FIRST 13 *( * LINES *) **********(B$"4")(B$"5")(B$"6")ī4210R'TL$(12)" VALID CHOICES ARE: 1,2,3,4,5 OR 6"w'^L$(13)" BUT YOU ENTERED "B$'h4050'rB$"1"İ6000: LENGTH CONVERSION'|B$"2"İ7000: AREA CONVERSION'B$"3"İ8000: VOLUME CONVERSION(B$"4"İ9$(6)" 1 LENGTH"*&L$(7)" 2 AREA"C&L$(8)" 3 VOLUME"\&L$(9)" 4 WEIGHT"|&"L$(10)" 5 DRY CAPACITY"&,L$(11)" 6 LIQUID CAPACITY"&65000: DISPLAY LINES ON SCREEN&@" ENTER SELECTION ";B$!'J(B$"1")(B$"2")(B$"3")O CONTINUE, PRESS RETURN ";G$#%)%?% ***************U% * CONVERSIONS *k% ***************r% %L$(1)"0401A"%L$(2)" *** CONVERSION ***"%L$(4)" WITH WHICH TYPE OF MEASUREMENT"%L$(5)" ARE YOU WORKING?"&L IN SUCH CASES, I'LL ATTACH FIVE"O$L$(10)" ASTERISKS (*****) ON THE END{$L$(11)" OF MY ANSWER TO REMIND YOU"$L$(12)" THAT IT IS AN APPROXIMATION."$5000: DISPLAY LINES ON SCREEN$" ENOUGH INSTRUCTION...GOOD LUCK!"%" TG$#L$(1)"0308A"D#L$(3)" ONCE IN A WHILE THE ANSWER I GIVE"v#L$(4)" IS AN APPROXIMATION. THIS IS DUE"#L$(5)" TO THE MANNER IN WHICH THE COMPUTER"#L$(6)" STORES VERY LARGE AND VERY SMALL"#L$(7)" NUMBERS.""$L$(9)"L$(8)" ONCE YOU HAVE ABSORBED MY ANSWER,"Y"tL$(9)" YOU WILL NEED TO PRESS RETURN""~L$(10)" IN ORDER TO CONTINUE...IN""L$(11)" THIS CASE, BACK TO THE MAIN MENU.""5000: DISPLAY LINES ON SCREEN#" TO CONTINUE, PRESS RETURN ";CREEN,!." TO CONTINUE, PRESS RETURN ";G$>!8L$(1)"0307A"n!BL$(3)" AS SOON AS YOU PRESS RETURN AFTER"!LL$(4)" TELLING ME THAT YOU WANT TO"!VL$(5)" CONVERT TO METERS, I'LL TELL YOU"!`L$(6)" THE ANSWER (.412750825 METERS)."+"j L$(5)" YOU TO TELL ME TO WHICH UNIT OF"Z L$(6)" MEASURE YOU WOULD LIKE ME TO" L$(7)" CONVERT THE 16.25 INCHES..." L$(8)" SINCE WE WANT TO CONVERT TO " L$(9)" METERS, YOU SHOULD SELECT #9."!$5000: DISPLAY LINES ON S IS THE NUMBER OF INCHES YOU"A L$(12)" HAVE TO CONVERT."e 5000: DISPLAY LINES ON SCREEN " TO CONTINUE, PRESS RETURN ";G$ L$(1)"0306A" L$(3)" ONCE I KNOW THAT YOU WISH ME TO" L$(4)" WORK WITH 16.25 INCHES, I'LL ASK"- O CONVERT."<z L$(5)" SINCE YOU HAVE 16.25 INCHES, YOU"g L$(6)" SHOULD SELECT #1 (INCHES)." L$(8)" THEN I'LL ASK YOU HOW MANY INCHES" L$(9)" YOU WISH TO CONVERT. YOU" L$(10)" SHOULD ENTER 16.25 SINCE THAT" L$(11)" WORKING WITH LENGTHS, SELECT"M> L$(12)" #1 AT THE CONVERSIONS MENU."qH 5000: DISPLAY LINES ON SCREENR " TO CONTINUE, PRESS RETURN ";G$\ L$(1)"0305A"f L$(3)" NEXT, I'LL ASK YOU FROM WHICH UNIT" p L$(4)" OF MEASURE YOU WISH TSAMPLE PROBLEM SO I"E L$(4)" CAN TELL YOU HOW WE'LL SOLVE IT."u L$(6)" SUPPOSE YOU WISH TO CONVERT 16.25" L$(7)" INCHES TO METERS." L$(9)" AT THE MAIN MENU, SELECT #1 AND"* L$(10)" PRESS RETURN. SINCE WE ARE" 4 L$(11)" " TELL YOU WHAT I'D LIKE AND, ALSO,"T L$(5)" WHAT YOU TYPED. YOU CAN TRY" L$(6)" AGAIN...AS MANY TIMES AS NECESSARY!" 5000: DISPLAY LINES ON SCREEN " TO CONTINUE, PRESS RETURN ";G$ L$(1)"0304A" L$(3)" LET'S TAKE A U"4 L$(9)" A MENU, IS WHEN I'M EXPECTING YOU"f L$(10)" TO TYPE A QUANTITY. (EG. 12.75)" 5000: DISPLAY LINES ON SCREEN " TO CONTINUE, PRESS RETURN ";G$ L$(1)"0303A" L$(3)" IF I DON'T LIKE WHAT YOU TYPE, I'LL"' L$(4)RIVEN. I'LL ASK YOU WHAT"MN L$(4)" YOU WANT TO DO AND I'LL GIVE YOU A"X L$(5)" LIST (MENU) FROM WHICH TO CHOOSE."b L$(6)" JUST TYPE THE NUMBER CORRESPONDING"l L$(7)" TO YOUR CHOICE."v L$(8)" THE ONLY TIME THAT I WON'T GIVE YOL$(5)" PLEASE RELAX..."@ L$(6)" I AM VERY EASY TO USE!"d L$(8)" YOU CAN'T BREAK ME..." L$(9)" NO MATTER WHAT YOU TYPE."& 5000: PRINT LINES ON SCREEN0 " TO CONTINUE, PRESS RETURN ";G$: L$(1)"0302A"D L$(3)" I'M MENU D29990fL$(12)" VALID CHOICES ARE: 1,2, OR 3"UpL$(13)" BUT YOU ENTERED "A$_z2060e l  **************** * INSTRUCTIONS * ****************  L$(1)"0301A" L$(3)" WELCOME TO MEASUREMENT CONVERSION!" L$(4)" WHAT DO YOU WANT TO DO NOW?"M*L$(6)" 1 CONVERT A MEASUREMENT"z4L$(7)" 2 VIEW DETAILED INSTRUCTIONS">L$(8)" 3 END THIS PROGRAM"H5000: DISPLAY LINES ON SCREENR" ENTER SELECTION ";A$\(A$"1")(A$"2")(A$"3")ī0000000000000000000000":S$(24)"000000000000000000000000":S$(25)"0000000000000000000000000"bi } ************* * DISPLAY * * MAIN MENU * *************  L$(1)"0201A"L$(2)" *** MAIN MENU ***"% 000000000":S$(15)"000000000000000":S$(16)"0000000000000000"S$(17)"00000000000000000":S$(18)"000000000000000000":S$(19)"0000000000000000000":S$(20)"00000000000000000000":S$(21)"000000000000000000000"\S$(22)"0000000000000000000000":S$(23)"0I S$(25)S$(1)"0":S$(2)"00":S$(3)"000":S$(4)"0000":S$(5)"00000":S$(6)"000000":S$(7)"0000000":S$(8)"00000000":S$(9)"000000000":S$(10)"0000000000"=S$(11)"00000000000":S$(12)"000000000000":S$(13)"0000000000000":S$(14)"00000920?CL(1,5)7680&DCL(1,6)153608ICL(1,7)61440LNCL(1,8).061728_SCL(1,9).61728sXCL(1,10)6.1728]CL(1,11)61.728bCL(1,12)617.28gCL(1,13)6172.8lCL(1,14)61728qI114vJ214{CL(J,I)CL(1,I)CL(1,J)JCD(1,5).001816"CD(1,6).018164CD(1,7).1816FCD(1,8)1.816XCD(1,9)18.16kCD(1,10)181.6} CD(1,11)1816I111J211CD(J,I)CD(1,I)CD(1,J)!J&I)+CL(1,1)10CL(1,2)605CL(1,3)480:CL(1,4)1543rWT(1,12)15.43)|WT(1,13)154.3;WT(1,14)1543NWT(1,15)15430cWT(1,16)1543000yWT(1,17)15430000I117J217WT(J,I)WT(1,I)WT(1,J)JICD(1,1)1CD(1,2)2CD(1,3)16CD(1,4)64 J113"VM(I,J)LT(I,J)3)J0I6DWT(1,1)1WWT(1,2)27.343iWT(1,3)437.5z"WT(1,4)7000,WT(1,5)7000006WT(1,6)784000@WT(1,7)14000000JWT(1,8)15680000TWT(1,9).01543^WT(1,10).1543hWT(1,11)1.3937.2PLT(1,12)39372.ZLT(1,13)393720@dLT(1,5)63360LnI113XxJ213tLT(J,I)LT(1,I)LT(1,J){JILT(1,1)0İ1260I113J113AR(I,J)LT(I,J)2JILT(1,1)0İ1260I113 CL(1,1)08 SS(2): CONVERSION TABLE SUBSCRIPTS I I13000:IT 15000Z h LT(1,1)1w LT(1,2)12 LT(1,3)36 LT(1,4)198 LT(1,6).03937 LT(1,7).3937 (LT(1,8)3.937 2LT(1,9)39.37 <LT(1,10)393.72FLT(1,11)(1,1)07 VM(13,13): VOLUME CONVERSION FACTOR TABLEE VM(1,1)0u WT(17,17): WEIGHT CONVERSION FACTOR TABLE WT(1,1)0 CD(11,11): DRY CAPACITY CONVERSION FACTOR TABLE CD(1,1)0 CL(14,14): LIQUID CAPACITY CONVERSION FACTOR TABLE***************"2 L$(10)" BY"Z L$(12)" RANDY PHILLIPS"i L$(13)" " 5000: DISPLAY LINES ON SCREEN LT(13,13): LENGTH CONVERSION FACTOR TABLE LT(1,1)0 AR(13,13): AREA CONVERSION FACTOR TABLE ARI BL$(1)"0101A"> LL$(3)" *******************"h VL$(4)" *** ***" `L$(5)" *** MEASUREMENT ***" jL$(6)" *** CONVERSION ***" tL$(7)" *** ***" ~L$(8)" ****z#Xò    ӠҠ"ΠΠe ԠӠ;  ҮŠ""ұ!Ҳ Ǡ$Π ҠӠ Ҡ ҠҠ Ԡ͠Ӡ٠ Ϡ РίՠנŠӠ" ҠԠ" Π͠!ҠǠ͠! àĠ àĠڠ 936:12:"RETURNING TO INDEX"Y (5):(10):"RETURNING TO INDEX":(4);"RUN INDEX"_ u  ***************  * PGM WELCOME *  * AND INIT. *  ***************  1930 L$(13): SCREEN LINES $I113 .L$(I)"" 8c ******************3 * MEASUREMENT *L * CONVERSION *e( ******************l2 <1000: PGM WELCOME AND INITF2000: DISPLAY MAIN MENUPA$"2"İ3000:70: DISPLAY INSTRUCTIONSZA$"1"İ4000:70: DO CONVERSION"                                                $`;936$j;V113"$t;L$(V))$~;V/$;;$;V116H$;L$(V)""O$;VU$;PZ$"C"Z$"P"Z$""ı#2E1$#3X#3E1ĺM$:"** CORRECT ENTRY Q, P OR BLANK ":E0b#3Z$""#3" ENTER Q TO QUIT, P TO PRINT OR"#3" BLANK TO CONTINUE ";Z$#3Z$""Z$"P"Z$"Q"ı#3E1#3#:1:V114#:L$(V)#:V#:0$: ENTER NUMBER OF PAYMENTS PER YEAR ">"2" EXAMPLE 12 ";Z$J"2N(Z$)\"2N1N52E1b"2"2E1ĺM$:":: CORRECT ENTRY C,P OR BLANK":E0"2Z$"""2"ENTER C TO CHANGE INPUTS, P TO PRINT ""2" CALCULATIONS OR RETURN TO CONTINUE ";Z$#21I30E1!H0J!p0E1ĺM$:"** PRINCIPAL LIMITS 1000 THRU 900000":E0T!z0Z$""w!0" ENTER PRINCIPAL FOR LOAN "!0" EXAMPLE 76000 ";Z$!0P(Z$)!0P1000P900000E1!0!d2E1ĺM$:"** PAYMENT LIMITS 1 THRU 52":E0!n2Z$""$"x2" 1MO2MO3MO4MO5MO6MO7MO8MO9MO10MO11MO12ıO /MO0YR0ır /EY$" ** MONTHS 1 THRU 12":E1x / 0E1ĺM$:"**INTEREST LIMITS 1 THRU 30":E0 0" ENTER ANNUAL RATE OF INTEREST " *0" EXAMPLE 12.5 ";Z$ 40I(Z$) !>0I." EXAMPLE 231.47 ";Z$(.R(Z$)=/R1R90000E1C/Y/E1ĺM$:EY$:E0|/" ENTER NUMBER OF YEARS ";Z$/YR(Z$):Z$""/YR0YR40EY$" ** YEARS LIMITS 0 THRU 40 ":E1:/" ENTER NUMBER OF MONTHS ";Z$/MO(Z$)> /MOUAL RATE OF INTEREST "(I)"%"R)L$(9)" 5 NUMBER OF PAYMENTS PER YEAR "(N)X")`*H2k*15200v*13200*Z$"P"İ15000*E1ī10902*15300*.E1ĺM$:"** PAYMENT LIMITS 1 THRU 90000":E0." ENTER THE REGULAR PAYMENT" H O M E"4)L$(2)" LOAN ANALYSIS"\)L$(3)" AMORTIZATION TABLE " )L$(5)" 1 REGULAR PAYMENT $"(R) )L$(6)" 2 TERM IN YEARS "(YR)" AND MONTHS "(MO))L$(7)" 3 PRINCIPAL FOR LOAN $ "(P))L$(8)" 4 ANNTOTAL NUMBER OF PAYMENTS "(TN)N'L$(5)" TOTAL INTEREST PAYMENTS $"(TI)}'L$(7)" TOTAL PRINCIPAL PAYMENTS $"(TP)'L$(9)" TOTAL PAYMENTS $"(TT)'P0L$(11)"BALANCE OF LOAN $"(P):10900')L$(1)"10000 1)P1Pv'P(RI1)P1RI1:w'P1((P1.005)100)100G~'TPTPP1R'PPP1l'P((P.005)100)100v'HH1'L$(H)" "(J)F$(10((P)))(P)F$(9((I1)))(I1)F$(9((P1)))(P1)'J'10900'15300'TTTITP 'L$(3)" W'H2:IRI100:TI0:TP0%['J1TNe`'J11(J11)L$(1)"MONTH PRINCIPAL INTEREST PRINCIPAL "a'L$(2)" NO OWED PAYMENT PAYMENT":10900b'Z$"Q"ī10152j'I1P(IR)Nk'I1((I1.005)100)100t'TPTPP1u'P(RI) DISK FREE SPACE 48K DOS 3.2B I768801:B:I,B:l 32,247,175,169,0,133,6,133,7,160,56 185,187,179,162,7,10,144,6,230,6,208,2( 230,7,202,16,244,200,192,196,144,2342 96,63<768FFI(6)(7)256 P::FI;" SEC  )'L5İ129000'E1LL1$3'L=8'10500:15200:13200K9'Z$"Q"ı^B'Z$"P"İ15000nC'E1ī10040yG'15300L'L$(1)"MONTH PRINCIPAL INTEREST PRINCIPAL"N'L$(2)" NO OWED PAYMENT PAYMENT"V'TN(YRN)((MO12)N) YEARS "(YR)" AND MONTHS "(MO)W(%L$(8)" 4 ANNUAL RATE OF INTEREST "(I)"%"*%L$(9)" 5 NUMBER OF PAYMENTS PER YEAR "(N):%'200:15300'L15'10500:15200'L1İ12000'L2İ12200'L3İ12400$'L4İ12300Z$"P"İ15000Z#9040<%L$(1)"9000 H O M E"c%L$(2)" LOAN ANALYSIS" %L$(3)" LAST REGULAR PAYMENT ON LOAN""%L$(5)" 1 REGULAR PAYMENT $"(R)$%L$(6)" 2 PRINCIPAL ON LOAN $ "(P)#&%L$(7)" 3 TERM INALCULATED *****"D#LPP3E#TN(YRN)((MO12)N)?F#J1TNTH#A(LP(I100)N)^I#BRAjJ#LPLPBqK#JL#LP((RLP)1005)100N#L$(13)" LAST PAYMENT FOR LOAN $ "(LP)P#15200R#13000T#Z$"C"L$(13)"":9010V#Z$""ıX# NUMBER OF PAYMENTS PER YEAR "(N))9(#200:15300D2#L15U3#9500:15200e4#L1İ12000u6#L2İ124008#L3İ12200:#L4İ12300<#L5İ12900>#E1LL1@#LB#9500:15200C#" PLEASE WAIT THE LAST PAYMENT IS":" BEING CVL$(2)" LOAN ANALYSIS"R`L$(3)" REGULAR PAYMENT ON LOAN"~tL$(5)" 1 PRINCIPAL ON LOAN $"(P)~L$(7)" 2 TERM IN YEARS "(YR)" AND MONTHS "(MO)L$(9)" 3 ANNUAL RATE OF INTEREST "(I)"%"#L$(11)" 4YRN)((MO12)N)>R((I100)PN)(11((I100)N1)(TN))SR(R1005)100L$(13)" REGULAR PAYMENT FOR LOAN $ "(R)1520013000Z$"C"ī7020Z$""ıZ$"P"İ150007046LL$(1)"7000 H O M E "&NNUAL RATE OF INTEREST "(I)"%"WL$(11)" 4 NUMBER OF PAYMENTS PER YEAR "(N)]fX200qb15300|lL14n7500:15200pZ$""rL1İ12400tL2İ12200vL3İ12300xL4İ12900zE1LL1|L~7500TN(5000<51003|L$(1)"0300 H O M E"[L$(2)" LOAN ANALYSIS"L$(3)" PRINCIPAL ON LOAN"L$(5)" 1 REGULAR PAYMENT $"(R)L$(7)" 2 TERM IN YEARS "(YR)" AND MONTHS "(MO)!L$(9)" 3 AL2İ12200L3İ12300.L4İ12900=E1LL1DLN5500{PRN(11((I100)N1)(NYR))(I100)P(P1005)100L$(13)" PRINCIPAL FOR LOAN $"(P) 1520013000Z$"C"ī5020(Z$""ı2Z$"P"İ1N KEY ";Z$4CH(Z$)09CH1CH5E1:2000@CCH1İ5000PHCH2İ7000`MCH3İ9000qRCH4İ10000WCH5Č936:(5):(10):"RETURNING TO INDEX":(4);"RUN INDEX"\200020015300L145500:15200L1İ12000**" 7" 1 DETERMINE PRINCIPAL FOR LOAN"\" 2 DETERMINE REGULAR PAYMENT"~" 3 DETERMINE LAST PAYMENT"" 4 DISPLAY AMORTIZATION SCHEDULE"" 5 END OF PROGRAM"E1ĺM$:N$:E0  ::" ENTER CHOICE THEN PRESS RETURP):! B$;:198::K$:K(K$)128Z 16368,0:KK176:K1KT17K5K17B$"RUN":130 ,:CH1:CVSTK17:1000:C194(B$"RUN"B$"LOAD")B$"B"B$ 6D$;B$;:CH739:1000:(C);:CH::100 C1(CV8):C2CVC18:P1024128C240C1CH:C((A$,39);:A$(A$,2)(A$,1):K(16384):K128āK175:K:130m 16368,0:KK176:K1KT17K5K17130z K5300 1:868:"PRESS 'LETTER' YOU WISH TO ";:K1B$"LOAD" K2B$"LOCK" K3B$"UNLOCK" K4B$"DELETE": K5ĀTORS FREE!!!" cI12000:IP d::D$(4):D$"CATALOG":B(37)2:B22B22 nT0:CH4:CV023:1000:C160ĹP1,219:P,T193:P1,221:TT1:SCV xCV:24:A$"TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5....":B$"RUN"> 1:ON BEFORE THE RESULTS ARE"F ." USED IN ANY FINANCIAL DECISIONS."N 1:z 3" PRESS RETURN KEY TO CONTINUE ";Z$ ::::::N$"*** CHOICES ARE 1 THRU 7 ***" 936::::Z$"" "0200 H O M E"" *** LOAN ANALYSIS * A SPECIFIC": " LOAN, THE BALANCE FOR A LOAN AFTER"g " A SPECIFIC NUMBER OF PAYMENTS AND" " AMORTIZATION SCHEDULE FOR A LOAN." " THE RESULTS OF THE CALCULATIONS" $" SHOULD BE VERIFIED WITH A LENDING" )" INSTITUTIHOME"* " *** LOAN ANALYSIS ***"0 Z " WELCOME TO LOAN ANALYSIS THIS " " PROGRAM BASED ON YOUR INPUTS WILL" " CALCULATE INTEREST RATES ON A LOAN," " REGULAR PAYMENTS ON A SPECIFIC" " LOAN, LAST PAYMENT ON F$(10) "F$(1)" $"* $F$(2)" $ "; &F$(3)" $ "M (F$(4)" $ "` )F$(5)" $ "t ,F$(6)" $ " .F$(7)" $ " 0F$(8)" $ " 2F$(9)" $ " 4F$(10)" $ " 6B1500:B 936:::" ROBERT HARSHBARGER"% 200. 250F P0: * PRINCIPAL *N R0V I0^ N0g N10p YR0y MO0 CB0 LP0 E0 Z$"" M$"*** INVALID ENTRY, PLEASE REENTER" N$"" L$(16) CH0 L0 Z$""W 936:::"0000A"$(N2" ******************************"x<" ****** H O M E ******"F" ****** LOAN ANALYSIS ******"P" ******************************"Zd" WRITTEN BY"n x"         HER ROOM. "( " "( " ")( " "V( "WOULD YOU LIKE TO REVIEW INSTRUCTIONS"(( "AGAIN (ENTER 'Y' FOR YES, 'N' FOR NO) "(2 C$"":C$:C$"Y"ī1650(< I"COST OF EACH TYPE OF MATERIAL SELECTED"V' "AND THE TOTAL COST OF ALL MATERIALS. "' "MATERIALS NOT SELECTED WILL BE SHOWN "' "WITH A ZERO (0) AMOUNT. THE USER CAN "' "TERMINATE THE PROGRAM ON THIS SCREEN OR" ( "GO BACK AND CALCULATE ANOT WE ROUND UP TO 1 GALLON. THIS "N&~ "PROCEDURE IS USED FOR ALL MATERIALS & "~& "WILL RESULT IN SLIGHTLY LARGER AMOUNTS. "& "PRESS RETURN TO CONTINUE........";& C$& 936:::& "COST "& "THE COST SCREEN WILL DISPLAY THE TOTAL")' ER MAY ENTER THE UNIT "D%B "PRICE OF EACH TYPE OF MATERIAL TO BE "j%L "USED. THE MATERIALS SHOWN ARE "%V "ESTIMATES WHICH HAVE BEEN ROUNDED UP. "%` "FOR EXAMPLE THE PAINT FOR A SMALL ROOM "%j "WOULD REQUIRE LESS THAN 1 GALLON OF " &t "PAINT.S "1$ "THE MATERIALS SCREEN WILL DISPLAY THE"]$ "AMOUNT OF MATERIALS NEEDED FOR EACH "$ "TYPE OF DECORATING. THIS WILL INCLUDE "$$ "WALLPAPER, PAINT (FOR WALLS & CEILING),"$. "CARPET, CURTAINS, LIGHT FIXTURES, & WALL"%8 "OUTLETS. THE US ARE SATISFIED WITH THE SURFACE "N#"AREAS CALCULATED YOU SHOULD CONTINUE "x#"WITH THE NEXT SCREEN. IF YOU HAVE "#"MADE AN ERROR, YOU SHOULD START AGAIN. "#" "#"PRESS RETURN TO CONTINUE.......";#C$#936:::$"MATERIAL:."f"BOTH LIGHT FIXTURES & WALL OUTLETS "X"p"ARE ROUNDED UP TO A WHOLE NUMBER. ""z"ALL SURFACE AREAS ARE ALSO ROUNDED """TO ELIMINATE DECIMAL NUMBERS. """THIS HELPS SIMPLIFY THE FINAL COST """CALCULATION.""" "!#"IF YOUE (1) FOR EACH 75 SQ. FT. OF FLOOR "Q! "AREA. WALL OUTLETS ARE DETERMINED AS "|!*"ONE (1) FOR EACH 10 FT. OF RUNNING "!4"WALL (I.E. A WALL 10 FT IN LENGTH "!>"WOULD HAVE 1 OUTLET). "!H"PRESS RETURN TO CONTINUE......";!RC$"\936::ALLS. IT WILL ALSO "? "SHOW THE NUMBER OF DOORS & WINDOWS "l "PREVIOUSLY ENTERED. ADDITIONALLY THE " "NUMBER OF LIGHT FIXTURES & WALL OUTLETS" "WILL ALSO BE SHOWN. LIGHT FIXTURES ARE " "75 WATTS EACH, AND ARE CALCULATED AS "$!"ONX 57 INCHES "-"WILL BE USED FOR EACH. "8" "a"PRESS RETURN TO CONTINUE........";iC$y936:::"SURFACE AREA ""THE SURFACE AREA SCREEN WILL SHOW ""THE TOTAL CALCULATED SURFACE AREA FOR " "FLOOR, CEILING, & W"THE NUMBER OF DOORS (THE DEFAULT IS 1),"XX"AND THE NUMBER OF WINDOWS (THE DEFAULT"b"FOR WINDOWS IS 0). THE SIZE OF EACH "l"DOOR WILL BE CALCULATED AS 35 X 82 IN."v"THE SIZE OF EACH WINDOW CAN BE ENTERED" "OR A DEFAULT VALUE OF 43 THE FOLLOWING PAGES. """ "K"PRESS RETURN TO CONTINUE........";SC$c936:::u&"DIMENSIONS"0"THE DIMENSIONS SCREEN IS USED TO ENTER ":"DATA ABOUT ROOM IN QUESTION. THIS "D"INCLUDES THE LENGTH, WIDTH, & HEIGHT,"*N IN THIS PROCESS. THESE"/"INCLUDE: "M" 1) DIMENSIONS "o" 2) SURFACE AREAS "" 3) MATERIALS "" 4) COSTS "" ""AN EXPLANATION OF EACH OF THESE SCREENS ""IS PRESENTED ONTT4W4P4R4F4G4M4$^M4M2M3*h:r936:::b|"THIS PROGRAM WILL CALCULATE THE ""MATERIALS & COST OF DECORATING A ROOM.""THIS INFORMATION IS DETERMINED FROM ""DATA PROVIDED BY THE USER. FOUR DATA ""SCREENS ARE USEDK13M1(LY)36!M2M2M1'7M2(M2.5)=| ROUNDING ROUTINE - ALL VARIABLES GO THROUGH THIS ROUTINEX(X.5) COST CALCULATION ROUTINE"W4W2W3,P4(P2P3)(C2C3)6R4(R2R3)S@F4F2F3JG4G2G3W2W170:XW2:1530:W2X6PP2W1400:XP2:1530:P2XRZR2F19:XR2:1530:R2XsdC2C1400:XC2.5:1530:C2XnF2F:G2Gx THIS ROUTINE CALCULATES CURTAIN MATERIALI1DJ(2.5(W(I)))25KJ48K(K1)LKTYCALCULATION ROUTINE FOR SURFACE AREAS@F1AB:XF1:1530:F1Xi W1(2((AC)(BC))):XW1:1530:W1XW1W1(NP):C1F1FC175:FF.5:XF:1530:FX(G(((2A)(2B))10):XG:1530:GX2< THIS ROUTINE CALCULATES MATERIAL NEEDEDFTURNING TO INDEX":(4);"RUN INDEX"N~ DOOR AND WINDOW SURFACE AREA ROUTINEZN0:P0eI1E{NN((3582)144)IXN:1340:NXI1DR(W(I)H(I)):R0R(4357):W(I)43:H(I)57PPRIXP:1280:PX% ---------"=."TOTAL DECORATING COST==> $";T4H8" "tB"WOULD YOU LIKE TO CALCULATE ANOTHER "L"ROOM. ENTER Y FOR YES/N FOR NO ";:C$VC$"Y"C$"YES"ī190`936:::j"HAPPY DECORATING........."#t(5):(10):"RE-------------------"9" 1. WALLPAPER $";W4^" 2. PAINT $";P4" 3. CARPET $";R4" 4. CURTAINS $";M4" 5. LIGHT FIXTURES $";F4" 6. WALL OUTLETS $";G4$" UE==> ";:" ";C$15700 COST - SCREEN 4@936:::k" * * INTERIOR DECORATING * * "" MATERIALS AND COST ESTIMATE PROGRAM ""------------------------------------"" * COST * ""-----------------TALLATION COST=> ";:SB\"4.CURTAINS (LENGTH IN INCHES)=> ";:TLf1410~p" MATERIAL SQ YDS= ";M2;" /PER YD.=> ";:M3z"5.LIGHT FIXTURES= ";F2;" /PER LIGHT=> ";:F3"6.WALL OUTLETS= ";G2;" /PER OUTLET=> ";:G3"PRESS RETURN TO CONTIN"2.PAINT(WALLS) GALS= ";P2;" /PER GAL.=> ";:P3d*" (CEILING) GALS= ";C2;" /PER GAL.=> ";:C34"3.CARPET SQ YDS= ";R2;" /PER YD.=> ";:R3>" PAD & INSTALLATION EXTRA (Y OR N) ";:C$HC$"Y"C$"YES"ī850:ELSE860R" TOTAL PAD & INSAND COST ESTIMATE PROGRAM "H"------------------------------------"l" * MATERIALS * ""------------------------------------" "ENTER UNIT PRICE FOR MATERIALS NEEDED: ""1.WALLPAPER ROLLS= ";W2;" /PER ROLL=> ";:W3/ => ";E " 5. WINDOWS==> ";DA" 6. LIGHT FIXTURES==> ";F`" 7. WALL OUTLETS==> ";G"PRESS RETURN TO CONTINUE==> ";:" ";C$:C$""1340 MATERIALS - SCREEN 3936" * * INTERIOR DECORATING * * "" MATERIALS ACE AREAS * "<N"-------------------------------------"jX"THE FOLLOWING SURFACE AREAS HAVE BEEN "~b"CALCULATED: "l" 1. FLOOR==> ";F1;" SQ. FT. "v" 2. WALLS==> ";W1;" SQ. FT. "" 3. CEILING==> ";C1;" SQ. FT."" 4. DOORS= TO CONTINUE==> "; C$:C$""*115041270R SURFACE AREA - SCREEN 2b936:::&" * * INTERIOR DECORATING * * "0" MATERIALS AND COST ESTIMATE PROGRAM ":"-------------------------------------"D" * SURF SIZE) "* " NUMBER==> ";:C$< D(C$):C$""S D0ī430:ELSE490^ I1D " WIDTH==> ";:C$:C$""ID:490 W(I)(C$):C$"" " HEIGHT==> ";:C$:C$""ī460 H(I)(C$):C$"" "PRESS RETURN(C$):C$""9 J" HEIGHT==> ";:C$:C$""ī330S TC$""C(C$):C$"" ^"2. DOORS (ENTER NUMBER, DEFAULT IS 1)" h" NUMBER==> ";:C$:C$""C$"1" rE(C$):C$"" |"3. WINDOWS (ENTER NUMBER, DEFAULT IS 0," " ENTER-------------------------------"M "ENTER DIMENSIONS FOR THE ITEMS BELOW:"| "1. ROOM SIZE (LENGTH, WIDTH, & HEIGHT) " "" LENGTH==> ";:C$:C$""ī290 ,C$""A(C$):C$"" 6" WIDTH==> ";:C$:C$""ī310 @C$""B1650 W(9),H(9) M$""; DIMENSIONS - SCREEN 1E 936p " * * INTERIOR DECORATING * *" " MATERIALS AND COST ESTIMATE PROGRAM " "--------------------------------------" " * DIMENSIONS * " "-------, n" * * INTERIOR DECORATING * *"[ x" MATERIALS AND COST ESTIMATE PROGRAM " "--------------------------------------" " WOULD YOU LIKE INSTRUCTIONS " "ENTER Y OR N ==>":C$ C$"N"C$"NO"180:C$"Y"177 # INTERIOR DECORATING PROGRAMC WRITTEN BY MIKE CAPERELLI] 1421 KINGSRIDGE DR.u( NORMAL ILL. 617612 PHONE 454-2009< FEBRUARY 1981F TITLE ROUTINEP936:::ZI15::d"--------------------------------------"          ID"% 7)"2-INCOME REQUIRED IS A "C 9)"FACTOR OF RENT PAID"j :8)"PRESS RETURN TO CONTINUE ";r$ Z$z. 10 C-TOTALS EXPENSES"27)"5-INCOME REQUIRED IS A"U9)"FACTOR OF AMOUNT OF LOAN"z:8)"PRESS RETURN TO CONTINUE"Z$9365)"SELECTION #4 LIVE WITH PARENTS"4)"CONSIDERS/COMPUTES THE FOLLOWING:":7)"1-AMOUNT OF RENT PANG:":/f7)"1-PRICE OF MOBILE HOME, AMOUNT"Qp9)"OF LOAN, INTEREST RATE,"jz9)"LENGTH OF LOAN"7)"2-INSURANCE IS A FACTOR OF"9)"MOBILE HOME PRICE"7)"3-UTILITIES, MAINTENANCE &"9)"LOT RENT ARE GENERAL AVER."7)"4  9)"ARE A GENERAL AVERAGE"<7)"4-TOTALS EXPENSES"] 7)"5-INCOME REQUIRED IS A"~*9)"FACTOR OF LOAN PAYMENT"4:7)"PRESS RETURN TO CONTINUE">Z$H936R9)"SELECTION #3 MOBILE HOME"\4)"CONSIDERS/COMPUTES THE FOLLOWIOWNERSHIP "94)"CONSIDERS/COMPUTES THE FOLLOWING:":_7)"1-PRICE OF HOUSE, AMOUNT OF"9)"LOAN, INTEREST RATE, LENGTH"9)"OF LOAN"7)"2-INSURANCE & TAXES ARE A "9)"FACTOR OF HOUSE PRICE"7)"3-UTILITIES & MAINTENANCE" UTILITIES?")l8)"3- TOTALS EXPENSES"Kv8)"4- PRORATES EXPENSES IF"j11)"APARTMENT IS SHARED"8)"5- INCOME REQUIRED IS A"11)"FACTOR OF EXPENSES ":7)"PRESS RETURN TO CONTINUE "Z$936 7)"SELECTION #2 HOUSE &936=0"THIS PROGRAM WILL HELP YOU UNDERSTAND"f:"THE HOUSING OPTIONS AVAILABLE. ":D"SELECTION #1 APARTMENT/SHARE WITH OTHERS"N4)"CONSIDERS/COMPUTES THE FOLLOWING:":X8)"1- DO YOU SHARE APARTMENT?" b8)"2- DO YOU PAY7)"TOTAL ";(H100.5)100:1a8)"UTILITIES ";(PE100.5)100g8)"MONTHLY RENT ";(FE100.5)1008)"MONTHLY TOTAL ";(KE100.5)1007)"TAXES ";(E100.5)100"PRESS RETURN TO CONTINUE "#^Z$+h10Yr5)"INCOME REQUIRED = $";(N100.5)100_|7)"INSURANCE ";(C100.5)1007)"LOAN PAYMENT ";(R100.5)1007)"TAXES ";(E100.5)100+J 1730NR.15!1650+16205936W"HOW MUCH RENT DO YOU PAY ?"^Ph936"12)"LIVE WITH PARENTS ",8)"MONTHLY EXPENSES & INCOME ":69)"RENT ";P:@IP.5J9)"INCOME REQUIRED ";I:T7)ENSES & INCOME ":#ZCO.01412-d1670anR((I100)PN)(11((I100)N1)(NY)):1690nxE10012x1810F1007)"UTILITIES ";FG157)"MAINTENANCE ";GJ1007)"LOT RENT ";JHCREFGO9360"LENGTH OF LOAN IN YEARS ?"7YA936^"AMOUNT OF PRINCIPAL ?"ePo936 "ANNUAL INTEREST RATE ?"I936("NUMBER OF PAYMENTS PER YEAR ?"2N<936F15)"MOBILE HOME"P8)"MONTHLY EXPNCOME ":$1770".G1ī109018G2ī1110;B1750EL1120bV8)"UTILITIES ";Lq`G1KFPjG2KFLt1790:~G1QFP.44EG2QFL.44ENKE.44:16501620936"WHAT PRICE MOBILE HOME ?"!3)"DO YOU PAY UTILITIES ?";5)"ENTER 1 FOR YES"T5)"ENTER 2 FOR NO"r5)"ENTER SELECTION # ";yGG1G2ī930G1ī1010G2ī1020P125L093612)"SHARING APARTMENT" 8)"MONTHLY EXPENSES & I2:1710 F125.7)"UTILITIES ";F7 G25T*7)"MAINTENANCE ";Gl4HCDRFGE:1730~>NR.27:1650H1620R936\"HOW MANY SHARE APARTMENT ?"fEp936z"AMOUNT OF MONTHLY RENT ?"FOF1936 "ANNUAL INTEREST RATE ?"# I- 936R "NUMBER OF PAYMENTS PER YEAR ?"Y Nc 936~ 13)"HOUSE OWNERSHIP" 8)"MONTHLY EXPENSES & INCOME ": CB.00412:1670 R((I100)PN)(11((I100)N1)(NY)):1690EB.018751 D2MCL. 8)"MONTHLY TOTAL ";M:A D1NCK.44T D2NCL.44f &NM.44:1650p 01620z :936 D"PRICE OF HOUSE? " NB X936 b"LENGTH OF LOAN IN YEARS ?" lY v936 "AMOUNT OF LOAN ?" P 936 rD2ī390 |K125 L000* 936? 14)"APARTMENT"f 6)"MONTHLY EXPENSES & INCOME ": 8)"MONTHLY RENT ";C D1ī460 D2ī480 8)"UTILITIES ";K 500 D2ī490 8)"UTILITIES ";L D1MCK170 X1ī850 X2ī250* 936K "AMOUNT OF MONTHLY RENT? ";R C\ 936f "JC1 ,4)"DO YOU PAY UTILITIES?" 67)"ENTER 1 FOR YES" @7)"ENTER 2 FOR NO" J5)"ENTER SELECTION # "; TD ^D1D2ī300 hD1ī380 ī10 nA1ī160 xA2ī570/ A3ī1190> A4ī1530M A5ī1830m A6Č936:(4);"RUNINDEX"w 936 "DO YOU SHARE YOUR APARTMENT? " 7)"ENTER 1 IF YES" 7)"ENTER 2 IF NO" 5)"ENTER SELECTION # "; X X1X2|  936&12)"HOUSING OPTIONS"P:6)"1 APARTMENT/SHARE WITH OTHERS"f(6)"2 BUY HOUSE"~26)"3 MOBILE HOME"<6)"4 LIVE WITH PARENTS"F6)"5 INSTRUCTIONS"K6)"6 END PROGRAM"P11)"ENTER SELECTION # ";ZA dA1A6          (I1) \NI(R ** LOAD COST TABLE **4RI110IRCS(I,1),CS(I,2)P&RIV0R:R .10,.07,.13,.10,.025,.02,.025,.02,.08,.06,.06,.04,.04,.02,.02,.00,.06,.00,.00,.00  L$(11)" ENTRY AND IT'S ACCEPTED, YOU WILL"[ L$(12)" BE ABLE TO CORRECT IT LATER." L$(15)" " 300' N ** DIMENSION-INIT **%NCS(10,2)*NL$(16)4NIMP(10)>NNI$(10)HNI110RNNI$(I) QUESTIONS": L$(6)" PLEASE READ CAREFULLY AND ANSWER"m L$(7)" WITHIN THE LIMITS INDICATED. USUALLY" L$(8)" A RESPONSE OUTSIDE THE LIMITS WILL" L$(9)" RESULT IN THE QUESTION BEING ASKED" L$(10)" AGAIN. IF YOU MAKE AN INCORRECT"/GNED TO HELP"=: L$(7)" YOU ESTIMATE THE PRESENT VALUE OF"mD L$(8)" A HOME AND THE CAPITAL GAINS THAT"N L$(9)" WOULD BE RECEIVED FROM ITS SALE."X L$(15)" "b 300l 200 v L$(5)" YOU WILL BE ASKED SOME)" *** HOME OWNER'S CAPITAL GAINS ***"J L$(10)" BY"s L$(11)" THOMAS D CRAWFORD" L$(15)" " NL15:BL0:TL255:LP0 300 L$(1)L$(6)& 200 0 L$(6)" THIS PROGRAM IS DESIBL1:TL1:LP0 300' VL1ī23007( VL2ī1000G2 VL3ī2700Q< 2580a ** END **j 200t NL16 :(9):(10):"RETURNING TO INDEX":(4);"RUN INDEX"  **** INTRO **** 200 L$(3)" WELCOME TO"( L$(6BL0:TL255:LP0j 3000 ** GO WHERE ? **9 200X L$(3)" DO YOU WANT TO:" L$(5)" 1 REVIEW YOUR RESULTS" L$(6)" 2 DO ANOTHER HOUSE" L$(7)" 3 END THE PROGRAM" L$(9)" ENTER THE NUMBER OF YOUR CHOICE" NL10:APPROXIMATE IMPRV COSTS "IP$1. L$(8)" RETURN"\8 L$(9)" ADDED VALUE FROM IMPRV "NP$B L$(10)" PRESENT VALUE OF HOUSE "NB$L L$(12)" GAIN"V L$(13)" ESTIMATED CAPITAL GAINS"CG$[ L$(15)" "` NL15:L$VLIP:420:IP$VL$0VLNP:420:NP$VL$GVLNB:420:NB$VL$^VLCG:420:CG$VL$x ** PRINT RESULTS **200 L$(3)" INVESTMENT" L$(4)" ORIGINAL VALUE OF HOUSE"AMT$ L$(5)" APPROXIMATE LOAN COST "LC$$ L$(6)" I1YRS.NBNB(1CS(9,1)CS(9,1)(I100))5 IC*IP0:NP0N4I17j>IPIPIM(I)CS(I,1)AMTHNPNPIM(I)CS(I,2)NBRIWNBNBNP\LCCS(8,1)(AMTDPT)fCGNB(AMTIPLC)LP10VLAMT:420:AMT$VL$VLLC:420:LC$V T200=^L$(3)" DOWN PAYMENT LARGER THAN COST OF HOUSE"bhL$(5)"PRESS RETURN TO CONTINUE"|rNL6:BL0:TL255:LP0|3001500 **** CALCULATIONS ****200L$(8)" PLEASE EXCUSE ME, WHILE I CALCULATE"100NBAMT PL "IMP$(7)" REMODEL BATH "AL$(13)IMP$(4)" ADD BATH "UNL13:BL1:TL1^300s"VL5VL1ī1565'VL5ī1600,VL1İ11001VL2İ12006VL3İ1300;VL4İ1400=1500@ ** CHECK DOWN PAYMENT **JDPTAMTī2000)" 2 DOWN PAYMENT......."DPT$GL$(8)" 3 YEARS OWNED........"YRS$hL$(9)" 4 IMPROVEMENTS MADE"L$(10)IMP$(1)" ADD GARAGE "IMP$(5)" FINISH BASEMENT" L$(11)IMP$(2)" ADD ROOM "IMP$(6)" REMODEL KITCHEN"L$(12)IMP$(3)" ADD FIRENIJJ:J110::VLIMP(J):420:IMP$(J)VL$:J@F:c **** CHECK INPUTS ****l200L$(3)" PLEASE CHECK YOUR INPUTS. ENTER THE"L$(4)" NUMBER FOR A CHANGE OR 5 TO CONTINUE"L$(6)" 1 COST OF HOUSE......"AMT$L$(7L$(11)" 3 ADD FIREPLACE 7 REMODEL BATH"WL$(12)" 4 ADD BATH 8 NO MORE"pNL14:BL1:TL1:LP4J110:IMP(J)0:JJ110L$(14)NI$(J)" IMPROVEMENTS MADE"300VL1VL8ī1470VL8ī1496IMP(VL)IMP(VL)1T"5L$(5)" IF IT WAS MULTIPLE(EG.ADD TWO ROOMS)"iL$(6)" THEN ENTER ITS NUMBER THAT MANY TIMES"L$(7)" YOU CAN HAVE UP TO TEN IMPROVEMENTS"L$(9)" 1 ADD GARAGE 5 FINISH BASEMENT"L$(10)" 2 ADD ROOM 6 REMODEL KITCHEN"- OWNED.VALID ENTRIES"8 <L$(5)"ARE FROM 0 TO 99 YEARS"P FNL5:BL1:TL2:LP8Y P300m ZYRS$VL$:YRSVLs vy w: x **** IMPROVEMENTS **** }200 L$(3)" IF ANY OF THE FOLLOWING IMPROVEMENTS"L$(4)" WERE MADE, ENTER THE NUMBER BY I NL7:BL1:TL6:LP8 3004 DPT$VL$:DPTVLB L$(7)" "V DPTAMTī1298 L$(7)"A DOWN PAYMENT MORE THAN THE HOUSE COST":1225  :  **** YEARS OWNED **** 200 (L$(3)"ENTER THE NUMBER OF YEARS THE" 2L$(4)"HOUSE WASET VALUE AND THE"> L$(7)"SAME AMOUNT FOR THE DOWN PAYMENT"V NL7:BL4:TL6:LP8_ 300s AMT$VL$:AMTVLy  :  **** DOWN PAYMENT **** 200 L$(3)"ENTER THE DOWN PAYMENT MADE" L$(5)"VALID ENTRIES ARE 0 TO 999999 DOLLARS"1200 1300 1400% 1500+ K:F L **** HOUSE COST ****O V200x `L$(3)"ENTER THE PRICE OF THE HOUSE" jL$(4)"VALID ENTRIES ARE 1000 TO 999999 DOLLARS" tL$(5)"IF THE HOUSE COST NOTHING(EG.INHERITED)" ~L$(6)"THEN ENTER THE MARK EER0:BL0ī460C JI1LN:CK$(VL$,I,1):CK$"0"CK$"9"ER1J OIY TER1ī305y  *** PAD NUM STRING *** VL(VL$) VL(VL) VL$(VL) Y(VL$) K1LPY:VL$" "VL$:K  :  **** GET INPUTS **** 1100  200003000 1000&c:Dd **** PRINT ROUTINE ****Jn`xI1NL:L$(I):Ifl: ***** NEW SCREEN *****I216:L$(I)"":I+:, **** INPUT CHAR ****11006VL$;LN(VL$)@LNBLLNTLī305      |< |  | |   |Ѐ   |   ||  ~||L|ЪժժժժժժժժժժժժՂԊԊԂԊԂЀ((((((TTT*TT DTԊԊԂԊԂԨ |< |  | |   |Ѐ3>33 3>   |   ||  ~||L|ЪժժժժժժժժժժժժՂԊԊԂԊԂЀ((((((TTT*TT DTԊԊԂԊԂԨ  L L     Ѐ00;63363?336 33p?~?x?~?~|p?~pp|   L       LЀ@PPU UPP*PP***TĀĈЂՊՂԂЂЂЂՊԂЀԠԪԪԨDD *T*P**T*T*( *T  *(ĀĈ@pppp??~pp?~?~?~|ЂՊՂԂЂЂЂՊԂ  L L     Ѐ333333 33p?~?x?~?~|p?~pp|   L       LЀ@PPU UPP*PP***TĀĈЂՊՂԂЂЂЂՊԂЀԠԪԪԨDD *T*P**T*T*( *T  *(ĀĈ@pppp??~pp?~?~?~|ЂՊՂԂЂЂЂՊԂ 0  0<      Ѐ?33?3333333 333                        0<ЀЀ  (    0             0  0<      Ѐ33333                        0<ЀЪժժժժժժժժժժժժՂ  (    0            p@x?@|p?~pp?|Ѐ???  L       ?~pp?~ppp@x|ЀDЂՂԂЂЂЂԂĀЪժժժժժժժժժժժժՂ  P* *( *T  *(*PPU U*PUUPPU@(TЂՂԂЂЂЂԂ   L        ĀԠԠШp@x?@|p?~pp?|Ѐ  L       ?~pp?~ppp@x|ЀDЂՂԂЂЂЂԂĀ  P* *( *T  *(*PPU U*PUUPPU@(T ЂՂԂЂЂЂԂ   L        ĀԠԠШ          `) i )8jjjj)e jjjjjj)i'i'i'ee`'`'`` `i  ` P`Ѧ ` \`L`Lp` ``  $4000"# "BLOAD DROP IN/A$6000"8 24784:16368,0F 16299,0U I1800:l (16384)128ī10 16300,0:I1800: 1027 @F10:"PRESS ANY KEY TO OMIT PICTURE...QUICK!":I11000:I\(16384)1281014:8:"TOO LATE!!!":I1200:ID$(4)10001012,0 16368,0::D$(4):D$;"RUN MENU" :16302,0:D$;"BLOAD TMR.TITLE,A   ED";G$50D AND"2n"DISPLAYED ON YOUR TERMINAL. YOU WILL"ax"THEN BE ASKED TO SELECT THE FIBER GROUP""WHICH YOU FEEL MATCHES THE CARE""INFORMATION PROVIDED.":"* HINT * -- SOME OF THE ANSWERS ARE""THE SAME.":"PRESS PROCES."'2:"PRESS RETURN TO PROCEED";G$V<:"* FIBER CARE PROGRAM INSTRUCTIONS *":F"UNDER SELECTION C YOU CAN TEST YOUR"P"KNOWLEDGE OF FIBER CARE INFORMATION."Z"CARE INFORMATION FOR A SPECIFIC FIBER"d"GROUP WILL BE RANDOMLY SELECTEDONS FOR THE FIBER GROUP"E"THAT YOU WANT TO SEE. THE INFORMATION"o"DISPLAYED WILL BE CLEANING METHOD," "WATER TEMPERATURE, USAGE OF CHLORINE""BLEACH, DRYER TEMPERATURE, IRON""TEMPERATURE, AND ANY OTHER SPECIAL"("CONSIDERATION;"RUN MENU"?:A$"0":"* FIBER CARE PROGRAM INSTRUCTIONS *"m:"THE FIBER CARE PROGRAM WAS DEVELOPED""TO HELP YOU TO LEARN HOW TO CARE FOR""THE DIFFERENT FIBER GROUPS.":"UNDER SELECTION B YOU CAN DISPLAY THE""CARE INSTRUCTI LOW,--------- NONE -----------h` TRIACETATE,LAUNDER,WARM,YES,WARM,MEDIUM,--------- NONE -----------a WOOL,DRY CLEAN,WARM,NO,WARM,MEDIUM/STEAM,- DO NOT STORE IN PLASTIC BAGS -b * ENDS PROGRAM * 936:(5):(10):"RETURNING TO INDEX":(4)------K\ RAYON,LAUNDER,HOT,YES,HOT,HIGH,- STORE DRY TO PREVENT MILDEW -] RAYON HWM,LAUNDER,HOT,YES,HOT,HIGH,- STORE DRY TO PREVENT MILDEW -^ SILK,DRY CLEAN,WARM,NO,WARM,MEDIUM,---------- NONE ----------_ SPANDEX,LAUNDER,WARM,NO,WARM,VERYOT,YES,WARM,LOW,--------- NONE -----------qY OLEFIN,LAUNDER,WARM,YES,WARM,VERY LOW,--------- NONE -----------Z POLYESTER,LAUNDER,HOT,YES,WARM,LOW,--------- NONE -----------[ POLYESTER/COTTON DP,LAUNDER,HOT,YES,WARM,MEDIUM,--------- NONE -----EW -JU FLAX,LAUNDER,HOT,YES,HOT,HIGH,- DO NOT PRESS IN SHARP CREASES -V GLASS,HAND WASH ONLY,HOT,YES,LINE DRY,DO NOT IRON,- STORE AS FLAT AS POSSIBLE -W MODACRYLIC,LAUNDER,WARM,YES,LOW,VERY LOW,--------- NONE -----------*X NYLON,LAUNDER,HQ * INPUT DATA IS FOUND BELOW *xR ACETATE,DRY CLEAN,WARM,YES,LOW,VERY LOW,-AVOID CONTACT WITH NAIL POLISH REMOVER-S ACRYLIC,LAUNDER,WARM,YES,WARM,MEDIUM,--------- NONE -----------T COTTON,LAUNDER,HOT,YES,HOT,HIGH,- STORE DRY TO PREVENT MILDOTHER QUESTION"6P$"":"ELSE ENTER ANY LETTER ";P$EP$""400M50X936:"THE CORRECT ANSWER WAS --- ";D1$:305Y:"PRESS RETURN TO TRY ANOTHER QUESTION,"ZT$"":"ELSE ENTER ANY LETTER AND PRESS RETURN ";T$[T$""400\50!3465:490"R37R39465:490;R32R315465:490D490W:R2R3:405:hR2R3ī600 * PRINTS ANSWER TO TEST *936:"YOUR ANSWER WAS ABSOLUTELY CORRECT !""FIBER GROUP - * ";D1$;" *":305:"PRESS RETURN TO TRY AN"PRESS RETURN TO SELECT THE FIBER GROUP ";X$S200:R30:"AND PRESS RETURN ";R3 * ROUTINE TO HANDLE SIMILAR ANSWERS *R31750R317R31420R212R211R23445R27R29450R22R215455490 R312R311R3 RETURN,"ArA2$"":"ELSE ENTER A LETTER AND PRESS RETURN ";A2$RwA2$""ī150Zx50{ * MODE 2 SELF TEST BELOW *:R2(16):A$"0":405:415I1R2D1$,D2$,D3$,D4$,D5$,D6$,D7$:I:936:7)"** FIBER CARE QUIZ **":305-:D STRETCHING"4;"* WATER TEMPERATURE * ---- ";D3$[E"* CHLORINE BLEACH * ---- ";D4$O"* DRYER TEMPERATURE * ---- ";D5$Y"* IRON TEMPERATURE * ---- ";D6$c"* SPECIAL CONSIDERATIONS * "hD7$: m:"TO SEE ANOTHER FIBER GROUP PRESSD1$,D2$,D3$,D4$,D5$,D6$,D7$:R1C + * PRINT FIBER CARE ANSWER *j ,936:"THE FIBER GROUP IS - ";D1$z -305::365 1:"* CLEANING METHOD * --- ";D2$ 2D2$"DRY CLEAN"308 3315 4" OR HAND WASH, AVOIDING EXCESSIVE" 5" AGITATION ANTATE"% "7. NYLON";17);"16. WOOL"S "8. OLEFIN";17);"17. TO RETURN TO MAIN" "9. POLYESTER";17);" SELECTION MENU": "ENTER YOUR CHOICE OF FIBER GROUP": F10:"AND PRESS RETURN";F1 F117F11150 F11750 R11F1! BER GROUP SELECTION MENU **":O "1. ACETATE";17);"10. POLYESTER/COTTON DP"r "2. ACRYLIC";17);"11. RAYON" "3. COTTON";17);"12. RAYON HWM" "4. FLAX";17);"13. SILK" "5. GLASS";17);"14. SPANDEX" "6. MODACRYLIC";17);"15. TRIACE ":3 P:2)"ENTER YOUR LETTER CHOICE OF A TO D"V UA$"":" AND PRESS RETURN ";A$k YA$""A$" "50 Z(A$)68(A$)6550:95 _C((A$)64) aC954,150,400,900 :200 251 * PRINTS FIBER SELECTION MENU " 936:" ** FI* MAIN SELECTION MENU *":H 72)"A = TO SEE THE PROGRAM INSTRUCTIONS"r <2)"B = TO SELECT AND DISPLAY FIBER" A6)"GROUP CARE INFORMATION. " F2)"C = TO TEST YOUR KNOWLEDGE OF" H6)"FIBER CARE INFORMATION. " K2)"D = TO END THE PROGRAM, * FIBER CARE PROGRAM BY VIC RYBERG *Y * 704 BROADMOOR BLOOMINGTON IL 61701 * * 309-662-5059 OR 309-662-6057 * * SUBCONTRACTOR --- JACK MEANS *1 * PRINTS MAIN OPTION MENU *2936:8)"*** FIBER CARE PROGRAM ***": 39)"     TURN TO CONTINUE ";jS$""&tDA$0~S$""6@936R"E R R O R "Xt"YOUR ANSWER WAS: ";S$z"THIS ENTRY MUST BE BETWEEN ";LA;" AND ";HA" PRESS RETURN TO CONTINUE ";S$""DA$S$"" x,"NAME","TOTAL"IC" PRESS RETURN TO CONTINUE ";DA$K30[936:::n" E R R O R "t$."YOUR ANSWER WAS: ";S$8B"THIS ENTRY MUST BE AT LEAST 1 AND NOT"L"MORE THAN 15 POSITIONS LONG."V`" PRESS RENKING","NAME","TOTAL" pI1N5zI,NM$(I),A(I,E)NI10(I10)ī1000Ty" PRESS RETURN TO CONTINUE W;" ";DA$936:::INī30" D E C I S I O N A N A L Y S I S "" RANKINGS""RANKING"N G "I11N1  I2I1N;A(I1,E)A(I2,E)ī810 TA(I1,E):T$NM$(I1):A(I1,E)A(I2,E):NM$(I1)NM$(I2):A(I2,E)T:NM$(I2)T$*I24I1>936:::H" D E C I S I O N A N A L Y S I S"R" RANKINGS"\f"RAv"SCALE OF 1 TO 10 (1-LOW 10-HIGH)"? "ON ";F$(I2);" ";" "L "? ";S$X S(S$)k S0S11ī690 LA1:HA10:1170:600 A(I1,I2)SF(I2) A(I1,NF2)A(I1,NF2)A(I1,I2) I2 I1 ENF2  936:::" W O R K I O 10 (1=LOW 10=HIGH)"7 "HOW IMPORTANT IS ";F$(I);""D "? ";S$P S(S$)c S0S11ī550} LA1:HA10:1170:470 &F(I)S 0I :936::: DI11N NI21NF X936::: bS$"" l"HOW WOULD YOU RATE ";NM$(I1);" ON A"%  TLA1:HA20( ^S1S20İ1170:2801 hNFS= rI1NFM |936:::W S$"" "WHAT IS THE NAME OF FACTOR # ";I;" " "? ";S$ L(S$) L0L21ī460 1040 380 F$(I)S$ 936::: S$"" "ON A SCALE OF 1 T, "WHAT IS THE NAME OF ";NM$;" #";I;" "6 S$""C "? ";S$O L(S$)h L1L20İ1040:200v NM$(I)S$} I 936::: ""HOW MANY FACTORS ARE IMPORTANT TO YOU " ," IN SELECTING A ";NM$;" " 6S$"" @"? ";S$ JS(S$)":(4);"RUN INDEX" FL(S$)7 PL1L15İ1040:30B ZNM$S$L dS$""\ n936::: x"HOW MANY ";NM$;"S";" ARE YOU CONSIDERING " } "? ";S$ S(S$) LA1:HA20 S1S20İ1170:110 NS S$"" I1N 936::: $A(20,22),NM$(20),F$(20),F(20)4936:::_("WHAT IS IT YOU NEED TO DECIDE UPON "2" (I.E. COMPUTER, CAR, ETC.) ":7(20):" TYPE TO RETURN TO INDEX"<(7):"? ";S$ AS$"END"S$"STOP"ė:(5):(10):"RETURNING TO INDEX     "*"YOUR TERMINAL.":A*"PRESS TO PROCEED";G$:20 TOW TO USE CLOTHING TO"F)"EITHER CAMOUFLAGE A FIGURE PROBLEM OR TO"z)"EMPHASIZE A PARTICULARLY POSITIVE FEATURE.":)"SELECT YOUR HEIGHT AND THEN THE FIGURE")"FEATURE THAT YOU WISH TO REVIEW. THE"*"INFORMATION WILL THEN BE DISPLAYED ON,Y,Y,Y,Y,N,Y,Y,Y,Y,N,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,ZZ(:(6):5)"* PROGRAM INSTRUCTIONS *":("THE CLOTHING FIGURE ANALYSIS PROGRAM WAS"("DEVELOPED TO HELP WOMEN LEARN MORE ABOUT")"THEIR FIGURE AND H,Y,+,+,Y,+,Y,Y,Y,Y,ZZm' BL,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,+,Y,Y,N,Y,N,Y,Y,N,+,Y,N,Y,+,N,+,+,N,Y,Y,Y,Y,+,Y,ZZ' BM,Y,Y,+,Y,Y,Y,+,Y,N,+,+,Y,+,+,+,+,+,+,+,Y,+,+,+,+,+,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,ZZ[( BN,+,+,Y,N,Y,+,Y,Y,Y,+,Y,Y,Y,Y,+,N,Y,N,Y,N,Y,+,N,+,Y,+,Y,Y,N,Y,N,+,+,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,+,Y,N,Y,N,Y,Y,Y,Y,Y,Y,Y,+,Y,N,Y,ZZ& BI,+,Y,Y,Y,+,+,+,Y,+,Y,Y,+,Y,Y,Y,Y,+,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,+,Y,Y,+,ZZ& BJ,+,Y,+,Y,+,Y,+,Y,+,Y,Y,+,Y,Y,Y,Y,+,Y,Y,Y,Y,+,Y,Y,Y,Y,Y,Y,Y,Y,Y,ZZ' BK,+,+,+,+,+,Y,Y,Y,+,Y,+,Y,Y,Y,Y,Y,Y,Y,Y,Y,+,+,+,Y,ZZM% BE,+,+,+,N,Y,Y,+,Y,Y,+,Y,Y,Y,N,Y,Y,ZZy% BF,+,+,+,Y,Y,Y,+,Y,Y,N,Y,N,Y,Y,Y,Y,ZZ% BG,Y,Y,Y,Y,Y,Y,+,Y,Y,+,+,Y,+,Y,Y,+,Y,Y,+,+,Y,Y,+,+,Y,+,+,Y,Y,Y,+,Y,Y,Y,+,Y,Y,Y,Y,Y,Y,Y,Y,Y,+,Y,+,Y,ZZQ& BH,+,+,+,N,Y,Y,Y,+,+,Y,+,Y,+,Y,+,Y,Y,+,+,ZZ$ BC,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,+,Y,Y,N,Y,Y,+,Y,+,+,Y,Y,Y,+,Y,Y,Y,Y,Y,Y,+,Y,Y,+,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,+,Y,Y,N,+,Y,Y,ZZ!% BD,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,+,Y,N,Y,N,+,Y,Y,Y,Y,Y,Y,Y,Y,+,+,N,+,+,N,+,YAN,+,+,Y,N,N,+,Y,Y,Y,+,Y,Y,N,Y,+,N,Y,N,Y,N,Y,+,N,+,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,ZZ# BA,Y,Y,Y,+,Y,Y,Y,Y,+,Y,N,Y,Y,+,+,+,Y,Y,Y,+,N,N,N,Y,Y,N,N,Y,Y,+,N,Y,Y,N,Y,ZZ$ BB,+,Y,Y,Y,Y,+,Y,Y,Y,+,+,+,Y,Y,Y,Y,Y,Y,Y,Y,+,+,+,Y,Y,Y,+,Y,Y,Y,+,Y,+,+,+,Y,Y,Y,Y,+,Y,Y,Y,Y,Y,Y,Y,Y,Y,ZZc" AK,+,+,+,+,+,Y,Y,Y,+,Y,+,+,Y,+,Y,Y,Y,Y,ZZ" AL,Y,Y,+,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,+,Y,Y,N,Y,N,Y,Y,N,+,Y,Y,Y,+,N,+,+,Y,Y,Y,Y,Y,+,N,ZZ" AM,Y,Y,+,Y,Y,Y,+,Y,N,+,+,Y,+,+,+,+,+,+,+,Y,+,+,+,Y,+,ZZs# ,+,Y,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,+,Y,N,Y,N,Y,N,Y,Y,Y,Y,Y,+,Y,N,Y,ZZ! AI,+,Y,N,+,+,+,+,Y,+,Y,Y,Y,Y,Y,Y,+,Y,Y,Y,N,Y,Y,N,Y,Y,Y,Y,N,Y,N,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,+,Y,Y,Y,ZZ3" AJ,+,Y,Y,+,+,Y,+,Y,+,Y,Y,Y,Y,Y,Y,Y,Y,Y,+,Y,+,+,ZZ?  AE,Y,Y,Y,N,Y,+,Y,+,Y,Y,Y,Y,Y,N,Y,+,ZZk  AF,Y,Y,Y,N,Y,+,Y,+,Y,N,Y,N,Y,N,N,+,ZZ  AG,Y,Y,N,+,Y,Y,+,Y,Y,+,Y,Y,+,Y,+,+,Y,+,Y,+,Y,Y,+,+,Y,+,+,Y,Y,Y,+,Y,Y,Y,+,Y,Y,Y,N,Y,Y,Y,Y,Y,N,Y,+,Y,ZZc! AH,+,+,+,N,Y,Y,N,+,+,+,Y,Y,N,Y,N,+ AC,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,+,Y,Y,N,Y,Y,+,Y,+,+,Y,Y,Y,+,Y,Y,Y,Y,Y,Y,+,Y,Y,+,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,N,+,Y,Y,ZZ  AD,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,+,Y,N,Y,N,Y,Y,Y,Y,Y,Y,Y,Y,Y,+,+,N,+,+,N,Y,+,Y,+,Y,Y,Y,Y,Y180:245:445:495:600W:(12):" * * * RETURN TO INDEX * * *":(4);"RUN INDEX" AA,Y,Y,Y,+,Y,Y,Y,Y,+,Y,N,Y,Y,+,+,+,+,Y,Y,+,N,N,N,Y,Y,N,N,Y,Y,Y,N,Y,Y,N,Y,ZZ AB,+,Y,Y,Y,Y,+,Y,Y,Y,+,+,+,Y,Y,Y,Y,Y,Y,Y,Y,+,+,+,Y,Y,Y,+,Y,Y,+,+,Y,Y,+,Y,ZZ97:600)u770:180:345:390:297:600Az770:345:297:600^770:180:345:390:600770:180:345:390:495:297:600770:180:345:297:600770:180::345:390:245:445:495:600770:180:390:245:445:495:600770:15,920,870,870,875,875,905,905,890,885,885,910;I1128XA$(I1,1)FV$PI1:I128gI1:T11:\770:390:445:495:600a770:180:390:245:445:495:600f770:245:600k770:180:390:445:495:600p770:180:345:390:245:2O ":2"AND PRESS ";FG$:(FG$)1600JFG$""FG$" "600g(FG$)79(FG$)65600xFG$"O"ī20GG((FG$)64):FV$"A"FG$H12GGGG14:FV$"B"FG$.GG860,860,865,865,870,870,875,865,880,885,890,885,895,900,860,860,9l"D.BROAD SHOULDERS";20);" L.LARGE HIPS"Wq"E.THIN ARMS";20);" M.SKINNEY FRAME"v"F.HEAVY ARMS";20);" N.LARGE FRAME"{"G.SMALL BOSOM";20);" O.RETURN TO THE""H.LARGE BOSOM";20);"MAIN SELECTION MENU":"ENTER YOUR CHOICE OF A - "PURITAN-------- ";S$(8);20);"WING---------- ";S$(17)_"HIGH-BIAS ROLL- ";S$(9)::440:yX:(6):FG$" ":T1$:]"A.SHORT NECK";20);" I.SHORT WAISTED"b"B.LONG NECK";20);" J.LONG WAISTED"g"C.NARROW SHOULDERS";20);" K.SMALL HIPS",--- ";S$(12)H"JABOT---------- ";S$(4);20);"RUFF---------- ";S$(13)"MANDARIN------- ";S$(5);20);"SHAWL--------- ";S$(14) "MIDDY---------- ";S$(6);20);"TAILORED------ ";S$(15)"PETER PAN------ ";S$(7);20);"TIE----------- ";S$(16)8T1T1Y:T2T2CO:Y08TT1T2:YY1:S$(Y)A$(P,T):TX:(6):12)"* COLLARS *":"CHELSEA-------- ";S$(1);20);"LOW-BIAS ROLL- ";S$(10)"CONVERTIBLE---- ";S$(2);20);"HIGH-ROUND---- ";S$(11) "FUNNEL--------- ";S$(3);20);"LOW-ROUND--;"SCOOP-- ";S$(7)B"CARDIGAN---- ";S$(2);18);"SQUARE- ";S$(8)s"DRAPED COWL- ";S$(3);18);"U-NECK- ";S$(9)"HALTER------ ";S$(4);18);"V-NECK- ";S$(10)"KEYHOLE----- ";S$(5);18);"YOKE--- ";S$(11)"ROUND------- ";S$(6)::440:--- ";S$(6)5" VEST--------- ";S$(7)::440:["+ = GREAT, Y = YES, N = NEVER ""PRESS TO PROCEED ";G$:T1T1Y:T2T2NE:Y0TT1T2:YY1:S$(Y)A$(P,T):T:(6):9)"* NECKLINES *":"BATEAU------ ";S$(1);18)0&TT1T2:YY1:S$(Y)A$(P,T):TE:(6):8)"* JACKETS *":f" BLAZER------- ";S$(1)" BOLERO------- ";S$(2)" CAPE--------- ";S$(3)" CARDIGAN----- ";S$(4)" SHORT FITTED- ";S$(5) " TAILORED--NTS *":+c" BERMUDA SHORTS- ";S$(1)Nh" CULOTTES------- ";S$(2)qm" JUMPSUIT------- ";S$(3)r" PANTS---------- ";S$(4)w" SHORTS--------- ";S$(5)::440:T11T2JA1:T1T11:Y0:395T11T1T1Y:T2T2JA:Y"GORED--------- ";S$(5);18);"WRAP---------------- ";S$(12)O"PANEL--------- ";S$(6);18);"YOKE---------------- ";S$(13)::440:YT11T2PA1:T1T11:Y0:347ZT11T1T1Y:T2T2PA:Y0[TT1T2:YY1:S$(Y)A$(P,T):T^:(6):9)"* PA";S$(7)86"A-LINE";18);"DOUBLE FRONT PLEATED ";S$(8)x;"W/0 WAISTBAND- ";S$(2);18);"HIP STITCHED PLEAT-- ";S$(9)@"FLARED-------- ";S$(3);18);"SINGLE FRONT PLEAT- ";S$(10)E"GATHERED------ ";S$(4);18);"STRAIGHT------------ ";S$(11);JRT SLEEVES- ";S$(15)J""DOLMAN--- ";S$(7);15);"TRUMPET------- ";S$(16)k#"KIMONO--- ";S$(8)::440:)T1T1Y:T2T2SK:Y0+TT1T2:YY1:S$(Y)A$(P,T):T,:(6):15)"* SKIRTS *":1"A-LINE-------- ";S$(1);18);"PLEATED------------- TTON- ";S$(10)D "BISHOP--- ";S$(3);15);"LONG SLEEVES-- ";S$(11)z"CAP------ ";S$(4);15);"PUFFED-------- ";S$(12)"CIRCULAR";15);"RAGLAN-------- ";S$(13)"FLOUNCE-- ";S$(5);15);"SLEEVELESS---- ";S$(14)"CUFF----- ";S$(6);15);"SHOOKE--------- ";S$(13)::440:AT11T2SL1:T1T11:Y0:249`T11T1T1Y:T2T2SL:Y0TT1T2:YY1:S$(Y)A$(P,T):T:(6):9)"* SLEEVES *":"ANGEL---- ";S$(1);15);"3/4 LENGTH---- ";S$(9)"BELL----- ";S$(2);15);"LEG OF MUCLOSING ----- ";S$(2);18);"SHIFT-------- ";S$(9)j "BLOUSON------ ";S$(3);18);"SHIRTWAIST--- ";S$(10) "EMPIRE------- ";S$(4);18);"TENT--------- ";S$(11) "LOW WAIST---- ";S$(5);18);"TUNIC-------- ";S$(12)"PRINCESS----- ";S$(6);18);"YN> ";H1 wH11H12600' yH13200 }100H T2SI1:T1T11:Y0l TT1T2:YY1:S$(Y)A$(P,T):T :(6):8)" * SILHOUETTES *": "A-LINE------- ";S$(1);18);"RAISED WAIST- ";S$(7) "ASYMMETRICAL ";18);"SHEATH------- ";S$(8)1 "A1$"A"2000 ,20F d:H15:(8):7)"** HEIGHT SELECTION **"::r n"1. SHORT (5 FEET 5 INCHES OR UNDER)." s"2. TALL (5 FEET 6 INCHES OR OVER)." u"3. TO RETURN TO MAIN SELECTION MENU." v:"ENTER YOUR CHOICE OF 1 - 3":"AND PRESS ";A1$ )A1$"B"100 *A1$"C"950 +NOIS"::" YOUR ANALYSIS IS BEING PREPARED."k A$(28,71),S$(20):T1$" * CLOTHING FIGURE ANALYSIS *" SI13:SL16:SK13:PA5:JA7:NE11:CO17 I1128:I2171:A$(I1,I2) A$(I1,I2)"ZZ"I271 I2:I1 :A1$"0":(6):T1$:" " C"| * FIGURE ANALYSIS 3-27-81 BY VIC RYBERG 704 BROADMOOR DR BLOOMINGTON IL 61701 PH 662-5059 SUBCONTRACTOR JACK MEANS */ :(8):" *** CLOTHING FIGURE ANALYSIS ***"::" BY":" VICTOR E. RYBERG":" BLOOMINGTON ILLI             ONTINUE ";DA$,D:"COST","MARGIN","SALE"0CO,MA" %",S8:]"PRESS RETURN TO CONTINUE ";DA$e10o936"E R R O R""YOU ENTERED ";S$S$"""THIS ENTRY MUST BE BETWEEN ";LA;" AND ";HA ":"PRESS TO CFLA.01:HA100000/PCO.01CO100000ī1380FZ1050::936::1330kd::"ENTER THE SALES PRICE ";S$wnS(S$)xLA.01:HA100000S1S100000ī14301050:936:1380M(((SCO)CO)100).5M$(M)MA((M$,2)):"COST","MARGIN","SALE"+CO,MA,S3:Y "PRESS RETURN TO CONTINUE ";DA$a10936::::"THIS SELECTION CALCULATES THE PROFIT"("MARGIN GIVEN PURCHASE AND SALES PRICE."2:::"ENTER THE PURCHASE PRICE ";S$<CO(S$)"ENTER THE SALES PRICE ";S$(tS(S$)=~LA.01:HA100000WS.01S100000ī1180m1050:936:1130s"ENTER THE PROFIT MARGIN, IN % ";S$MA(S$)LA1:HA900MA1MA900ī12401490:936:1190CO(100MA)S1001490:936:990+SCO(1(MA100))M936:"COST","MARGIN","SALE"Z$CO,MA,Sb.:8:"PRESS TO CONTINUE ";DA$B10L936:"THIS SELECTION CALCULATES THE COST"V"GIVEN THE SALES PRICE AND PROFIT MARGIN."`j:E PRICE AND THE"."DESIRED PROFIT MARGIN."4X"ENTER THE PURCHASE PRICE ";S$eCO(S$)zLA.01:HA100000CO.01CO100000ī9901490:936:940"ENTER THE MARGIN, IN % ";S$MA(S$)LA1:HA900MA1MA900ī1040:936:790HIIRPY100BRT(1I)(PYY):TT1:TIT:RDFVTv\:"THE AMOUNT OF THE REGULAR DEPOSIT IS $ ";RD|fp:"PRESS TO CONTINUE ";DA$z10936:"THIS SELECTION WILL CALCULATE THE SALES""PRICE GIVEN THE PURCHASPY1PY365ī730+1490:936:680F"HOW MANY MONTHS ";S$RM(S$)bLA1:HA600vM1M600ī7801490:936:730 YM12"ENTER THE ANNUAL INTEREST RATE, IN % ";S$ IR(S$)*LA1:HA404IR1IR40ī840 >1490ONTHS?" X6b:"PRESS TO CONTINUE ";DA$@l936dv"WHAT IS THE FUTURE VALUE ";S$qFV(S$)LA1:HA100000FV1FV100000ī6801490:936:630"ENTER THE NUMBER OF DEPOSITS PER YEAR ";S$PY(S$)LA1:HA365AMOUNT OF "8"A REGULAR DEPOSIT REQUIRED TO PRODUCE"Z"A PARTICULAR FUTURE VALUE."`&"THIS IS AN EXAMPLE OF AN ANNUITY DUE.":0:"FOR EXAMPLE, HOW MUCH WOULD YOU "D"DEPOSIT EACH WEEK AT 6% INTEREST TO"N"SAVE $900 IN 12 MTE, IN % ";S$ IR(S$)) LA1:HA40> IR1IR40ī470S 1490:936:420c IIRPY100 T(1I)(PYY):TT1:TTI:FVRDT :"THE FUTURE VALUE IS $";FV :"PRESS TO CONTINUE ";DA$:10 936:"THIS PROGRAM COMPUTES THE S$) JRD1RD100000ī3501 T1490:936:300b ^"ENTER THE NUMBER OF DEPOSITS PER YEAR ";S$o hPY(S$) rLA1:HA365 |PY1PY365ī400 1490:936:350 "CALCULATE FOR HOW MANY MONTHS ";M YM12 "ENTER THE ANNUAL INTEREST RA, "INTEREST BEING PAID. THIS IS USUALLY"W "THE CASE WITH SAVINGS ACCOUNTS AND "w "LIFE INSURANCE POLICIES."}  :"PRESS TO CONTINUE ";DA$ "936 ,"ENTER THE AMOUNT OF THE REGULAR DEPOSIT ";S$ 6LA1:HA100000 @RD( DEPOSITS."8 "THE PROGRAM ASSUMES THAT EACH DEPOSIT"g "IS IDENTICAL AND INTEREST IS COMPOUNDED" "WITH THE SAME FREQUENCY THAT THE " "DEPOSITS ARE MADE." "THIS IS KNOWN AS AN ANNUITY DUE." "PAYMENTS ARE MADE IN ADVANCE OF " - END PROGRAM"3 Z:" ENTER SELECTION # ";S$? dF(S$)M nLA1:HA6^ xF0F7140l 1490:10 F150,510,900,1100,1310,145 936:(4);"RUNINDEX" 936::"THIS PROGRAM WILL GIVE YOU THE FUTURE" "VALUE OF A SERIES OF REGULAR  936," CONSUMER MATH II"2_(" 1 - FUTURE VALUE OF REGULAR DEPOSITS"2" 2 - REGULAR DEPOSITS FOR FUTURE VALUE"<" 3 - CALCULATE SELLING PRICE"F" 4 - CALCULATE BUYERS COST"P" 5 - CALCULATE PROFIT MARGIN" U" 6!!!!!        S::" PRESS RETURN TO CONTINUE ";DA$0 306 L " E R R O R"R n "YOUR ANSWER WAS: ";S$t  "THIS ENTRY MUST BE BETWEEN";LA;"AND";HA  "PRESS RETURN TO CONTINUE ";DA$ S$"":  A ";LA;" AND ";HA ! v1680BY((1(OA(IR100))(PYPT))((1(IR100)PY)PY))NNPYPY"FOR AN ORIGINAL LOAN AMOUNT OF $";OA;"PAYABLE""AT";IR;"% WITH";PY;"PAYMENTS PER YEAR, THE NUMBER OF"$";PT;" PAYMENTS NECESSARY TO PAY THE LOAN IS";NP;"."( "":1860&:LA1:HA30:1990::1830<D:IOOAIR100PYMNPTIOī1920X"E R R O R":"THE PAYMENT DOES NOT COVER THE INTEREST":"THE INTEREST FOR 1 PERIOD IS";IOb"THE PAYMENT MUST BE AT LEAST";IO1l::"PRESS RETURN TO CONTINUE ";DA$0001S$"":17802LA.01:HA10000:1990::1750@F21860e"HOW MANY PAYMENTS PER YEAR";S$PY(S$):PY1PY366S$"":1820LA1:HA365:1990::1790F31860&"WHAT IS THE ANNUAL INTEREST RATE";S$ 0IR(S$):IR1IR31S$. PLEASE PROVIDE THE "5"FOLLOWING INFORMATION."j:"WHAT WAS THE ORIGINAL AMOUNT OF THE LOAN";S$OA(S$):OA1OA100001S$"":1740LA1:HA100000:1990::1710F11860"HOW MUCH IS THE PAYMENT";S$PT(S$):PT.01PT1, WHERE THERE"<T"ARE";NY;"PAYMENTS PER YEAR, THE ANNUAL"V^"INTEREST RATE IS ";ahI;"%"krF0:|::"PRESS RETURN TO CONTINUE ";DA$30::"THIS SELECTION WILL DETERMINE THE LENGTH OF TIME NEEDED""TO PAY AN INSTALLMENT LOAN.01:HA10000:1990::1480)F41530@:"W O R K I N G"KI.008kI1PPV((1I)N1)(1I)N(II1).0000011580II1"1540,II1NY1006:@"FOR A LOAN WITH A PRESENT VALUE OF $";PVJ"AND";N;"PAYMENTS OF $";P;"HA365:1990::1400"F31530L"ENTER TOTAL NUMBER OF PAYMENTS ";S$rN(S$):N1N36501S$"":1470LA1:HA36500:1990::1440F21530"STATE THE AMOUNT OF EACH PAYMENT, IN $";S$P(S$):P.01P10001S$"":1510LATURN TO CONTINUE ";DA$<30(F:F0PP"ENTER THE AMOUNT OF THE LOAN ";S$zZPV(S$):PV1PV100001S$"":1390dLA1:HA100000:1990::1360nF11530x"HOW MANY PAYMENTS PER YEAR ";S$NY(S$):NY1NY366S$"":1430LA1:PD)1)100PYFOS:::"FOR A FUTURE SUM OF $";FV;"WITH A PRESENT VALUE" "OF $";PV;"WHERE THERE ARE";PY;"PERIODS PER YEAR,"OVER";Y;"YEARS,";M;"MONTHS AND";D;"DAYS, THE""ANNUAL INTEREST RATE IS ";:I;:" %"(:2"PRESS RE1190!LA0:HA50:1990::11609"ENTER MONTHS ";S$\M(S$):M0M13S$"":1220yLA0:HA12:1990::1190"ENTER DAYS ";S$D(S$):M0D365S$"":1250LA0:HA365:1990::1190PDYPYMPY12DPY365I((FVPV)(1DS PER YEAR ";S$1VPY(S$):PY1PY366ī1130O`LA1:HA365:1990::1100]jF31250t"STATE THE LENGTH OF TIME OF THE TOTAL FOR WHICH"~"INTEREST IS TO BE FIGURED, USING THE FOLLOWING""ENTER YEARS ";S$Y(S$):Y0Y50S$"":E VALUE, IN $";S$5FV(S$):FV1FV100001ī1050VLA1:HA100000:1990::1020dF21250$"STATE THE PRESENT VALUE, IN $";S$.PV(S$):PV1PV100001ī10908LA1:HA100000:1990::1060BF11250L"HOW MANY COMPOUNDING PERION""AN INVESTMENT."L"FOR EXAMPLE, A BANK SAYS THEY WILL PAY"x"YOU $1000 IN 36 MONTHS FOR A DEPOSIT""OF $800 TODAY. WHAT IS THE COMPOUNDED""INTEREST RATE."::"PRESS RETURN TO CONTINUE ";DA$"STATE THE FUTURR:"$f:"THE FUTURE VALUE IS $";FZp"THE INCREASE IS $";FP;", OR";(FP)100100;"%"z:"PRESS RETURN TO RETURN TO MENU.";A$30C0:P0:L0:R0:M0:F0"THIS SELECTION WILL CALCULATE WHAT""THE COMPOUND INTEREST RATE IS O0ī800%LA1:HA36500:1990::770A IRM:II100:TI1:ATO*N1ī830k4K1(N1):SAT:AS:Kw>FPA:H"FOR A PRESENT SUM OF $";P;"AT AN ANNUAL"R"INTEREST RATE OF";R;"%, FOR";N;"PERIODS, WHERE"\"THERE ARE";M;"PERIODS PER YEALA1:HA30:1990::690J:"ENTER COMPOUNDING PERIODS PER YEAR ";S$fM(S$):M0M366ī750LA1:HA366:1990::720:"HOW MANY COMPOUNDING PERIODS WILL"" THE DEPOSIT BE LEFT IN THE BANK ";" ";S$ N(S$):N1N3650T WAS COMPOUNDED DAILY?"vB"PRESS RETURN TO CONTINUE ";Z$Hv"ENTER THE DEPOSIT AMOUNT IN DOLLARS";S$P(S$):P1P100001ī690LA1:HA100000:1990::650:"ENTER INTEREST RATE (I.E. 6.25) ";S$R(S$):R1R30ī7200"VALUE OF A DEPOSIT EARNING COMPOUND":"INTEREST."b::"FOR INSTANCE, IF YOU INVESTED $100"D"AT 9.25% INTEREST COMPOUNDED QUARTERLY,"N"HOW MUCH WOULD IT BE WORTH IN TEN YEARS?"Xb"HOW MUCH MORE WOULD YOU HAVE IF THE"l"INTERES;"DAYS, THE INTEREST"* "AMOUNTS TO $";> IR100365DPP I327.68510f I(I100.5)100 12);I;"OR $";ID;"PER DAY."::: "PRESS RETURN TO RETURN.";A$:30  :P0:R0:M0:N0 &"THIS ROUTINE WILL CALCULATE THE FUTURE"6 |D1D36501ī4004 LA1:HA36500:1990::360^ "ENTER INTEREST RATE (I.E. 5.25)";S$j R(S$)~ R1R31ī440 LA1:HA30:1990::400 P(P$):P$"$"P$ :::"FOR A STARTING PRINCIPAL OF ";P$;" AT A" "RATE OF";R;"% FOR";DULD YOU EARN AFTER 1 YEAR?":A ,"PRESS RETURN TO CONTINUE ";Z$G 6v @"HOW MUCH IS THE DEPOSIT (IN DOLLARS)";S$ JP(S$):P$S$ TP1P100001ī360 ^LA1:HA100000:1990::310 h"HOW LONG WILL YOU LEAVE IT IN (IN DAYS)";S$ rD(S$)30 P0:D0:R0:S$""L ::"THIS ROUTINE CALCULATES SIMPLE INTEREST"v "FOR MONEY DEPOSITED FOR A SPECIFIC" "LENGTH OF TIME."  "FOR INSTANCE, IF YOU DEPOSITED $500 IN" "THE BANK AT 5.25% INTEREST, HOW MUCH " ""INTEREST WO"6 - TO RETURN TO MENU A n:" ENTER SELECTION NUMBER: ";S$[ xF(S$):F0F7ī140u LA1:HA6:1990::30 S$"" F1220 F2540 F3910 F41350 F51680 :(5):(10):"RETURNING TO INDEX":(4);"RUN INDEX"  A$(64)!::::D("C O N S U M E R M A T H I"J2e<"1 - SIMPLE INTEREST"F"2 - FUTURE VALUE OF A DEPOSIT"P"3 - COMPOUND INTEREST RATE"Z"4 - INTEREST ON INSTALLMENT LOANS"d"5 - TERM OF AN INSTALLMENT LOAN" i""" " " " " """""""""!!! ! ! ! ! !!!!