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`***" 7" PRESS TO CONTINUE..";Z$=ZH12:12:"LOADING INDEX"oR(4);"RUNINDEX"HALL";:39:"*"> "* *"t"*";:7:"WESTERN ILLINOIS UNIVERSITY";:39:"*""* *""*";:9:"MACOMB, ILLINOIS 61455";:39:"*""************************************z#??Xó     ŠӠ ؠŠoàҠ"Π̠" ӠSPRINGFIELD, ILLINOIS 62777";:39:"*"V"* *" "* *" "*CURRICULUM PUBLICATION CLEARING HOUSE*" "* *" "*";:12:"46 HORRABIN / "* *"a "*";:9:"AND TECHNICAL EDUCATION";:39:"*" "* *" "*";:9:"100 NORTH FIRST STREET";:39:"*" "* *"'"*";:6:"";Z$  > "EXCLUSIVE DISTRIBUTION RIGHTS RETAINED"D s "***************************************" "* ILLINOIS STATE BOARD OF EDUCATION *" "* *" "* DEPARTMENT OF ADULT, VOCATIONAL, *""* JACK MEANS - PROJECT COORDINATOR *"[ "* *" "***************************************" : " THIS DISK CONTAINS HOME ECONOMICS" " PROGRAMS" :: " PRESS TO CONTINUE";:" *"A x"*WILMA JEAN ALEXANDER,PROJECT DIRECTOR*"p }"* *" "* *" "* HOME ECONOMICS *" "* *", **************************************"V Z"* *" d"* MICROCOMPUTER SKILLS: CURRICULUM *" i"* *" n"*DEVELOPMENT AND DISSEMINATION PROJECT*" s"* q  D$""= ::THIS IS THE INDEX PROGRAM FOR THE DISKk IT IS DESIGNED TO ALLOW THE USER TO ( SIMPLIFY THE LOADING AND RUNNING OF- A PROGRAM.2 THIS DISK CONTAINS SEVERAL HOME ECONOMIC PROGRAMS 8 1982F:' P"*      vD$;"RUNUTILITIES"3 (4);"RUN STAIN REMOVAL" DF YOUR SELECTION.";:X$# X(X$)/ X110; X310A r ,X1ĺ::::::" LOADING RECIPE":620 6X2ĺ::::::" LOADING UTILITIES ANALYSIS PROGRAM":630 @X3Ė(9):(10):"LOADING STAIN REMOVAL ":640 lD$;"RUNRECIPE"5  D$"":F("SELECT DESIRED PROGRAM BY DEPRESSING"s2"THE NUMBER CORRESPONDING TO THE TITLE"{<:F3)" 1. RECIPE ANALYSIS"P4)"2. UTILITIES ANALYSIS"Z3)" 3. STAIN REMOVAL PROGRAM":: "ENTER THE NUMBER O  IS WHEN I'M EXPECTING YOU"LL$(10)" TO TYPE A QUANTITY. (EG. 12.75)"L$(12)" IF I DON'T LIKE WHAT YOU TYPE, I'LL"L$(13)" TELL YOU WHAT I'D LIKE AND WHAT"L$(14)" YOU TYPED. YOU CAN TRY AGAIN... AS"L$(15)" MANY TIMES3L$(3)" YOU WANT TO DO AND I'LL GIVE YOU A "eL$(4)" LIST (MENU) FROM WHICH TO CHOOSE."L$(5)" JUST TYPE THE NUMBER WHICH IS NEXT"L$(6)" TO YOUR CHOICE."L$(8)" THE ONLY TIME THAT I WON'T GIVE YOU"L$(9)" A MENU, E RELAX..."2L$(6)" I AM VERY EASY TO USE!"VL$(8)" YOU CAN'T BREAK ME..."L$(9)" NO MATTER WHAT YOU TYPE."10000" TO CONTINUE"" PRESS RETURN ";E$L$(1)"0402A"L$(2)" I'M MENU-DRIVEN. I'LL ASK YOU WHAT"E: 1,2,3,4,5 OR 6"8rL$(13)" BUT YOU ENTERED "C$AzLP1ILPP n *********************** * INSTRUCTIONS * *********************** L$(1)"0401A"L$(2)" WELCOME TO RECIPE ANALYSIS!" L$(5)" PLEAS END THIS PROGRAM"#10000S" ENTER SELECTION, THEN PRESS RETURN ";C$j>C$"1"İ4000:890HC$"2"İ6000:890RC$"3"İ5000:890\C$"4"İ7000:890fC$"5"İ8000:890pC$"6"İ31000:890qL$(12)" VALID SELECTIONS ARD YOU LIKE TO DO NOW?"CNL$(6)" 1 VIEW DETAILED INSTRUCTIONS"fXL$(7)" 2 ENTER NEW RECIPE"L$(8)" 3 ALTER RECIPE"L$(9)" 4 ENTER/ALTER PURCHASE PRICE/AMOUNT"L$(10)" 5 DISPLAY/PRINT RECIPE AND/OR COSTS"L$(11)" 6 BY"/L$(12)" ROBERT HARSHBARGER"QL$(13)" AND"zL$(14)" RANDY PHILLIPS"10000L$(15)16000LP120L$(1)"0201A":L$(2)" *** MAIN TABLE OF CONTENTS ***"DL$(4)" WHAT WOUL0001A"2|L$(4)" ***********************"^L$(5)" *** ***"L$(6)" *** RECIPE ANALYSIS ***"L$(7)" *** ***"L$(8)" ***********************"L$(10)" $(21)" "AqF$(22)" "frF$(23)" "sF$(24)" "t u ***********************v * MAIN PROGRAM LOGIC *w ***********************x {L$(1)" "! hF$(13)" "= iF$(14)" "Z jF$(15)" "x kF$(16)" " lF$(17)" " mF$(18)" " nF$(19)" " oF$(20)" "pF6)"GILL(S)" [F$(0)""' \F$(1)" "6 ]F$(2)" "F ^F$(3)" "W _F$(4)" "i `F$(5)" "| aF$(6)" " bF$(7)" " cF$(8)" " dF$(9)" " eF$(10)" " fF$(11)" " gF$(12)" 4)"TBSP(S)" OU$(5)"CUP(S)"0 PU$(6)"EACH"D QU$(7)"PINT(S)"Z RU$(8)"WET QT(S)"p SU$(9)"DRY QT(S)" TU$(10)"WET OZ(S)" UU$(11)"DRY OZ(S)" VU$(12)"POUND(S)" WU$(13)"PECK(S)" XU$(14)"BUSHEL(S)" YU$(15)"GALLON(S)" ZU$(1S CTRL-D CF(16,16)# I$(30). U(30)9 A(30)E C$(30)Q PU(30)] PA(30)i PP(30)u OC(30) TC(30) L$(16) VS(6) U$(16) F$(24) SA(30) KU$(1)"PINCH(S)" LU$(2)"DASH(S)" MU$(3)"TSP(S)" NU$(  d ***********************= n * DIMENSION STMTS. *[ x *********************** z * VARIABLE XX USED FOR NUMBER OF INGREDIENTS ENTERED ** {XX1 |M25: MAXIMUM NUMBER OF INGREDIENTS }PS1: DEFAULT PRINTER SLOT ~D$"": D$ Im  ************************? * RECIPE ANALYSIS *^ * BY *}( * ROBERT HARSHBARGER *2 * AND *< * RANDY PHILLIPS *F * 1981 *P ************************ Z                                    CC1:XXRI& Y11(&L$(1)"0505A"V&L$(2)" *** INGREDIENT MEASURES ***"&L$(4)" ACCEPTABLE UNITS OF MEASURES ARE:"&L$(6)" 1 PINCH 7 PINT 13 PECK"&L$(7)" 2 DASH 8 QUART-WET 14 BUSHEL"'L$(8)" 3 TSP 9 QUAR)" NAME BLANK AND JUST PRESS RETURN.)"N%L$(14)" 1234567890123456789*"Y%10000p%" ";N$:I$(RI)N$|%G(N$)%G20L$(12)" *** INGREDIENT NAME TOO LONG !!! ***":L$(13)" *** RE-ENTER INGREDIENT NAME ***":NI0% NI% N$""ı & T BE 1 - 20 ";$L$(5)" CHARACTERS, INCLUDING SPACES."n$L$(7)" ENTER NAME OF INGREDIENT #"(RI)"."$L$(8)" THEN PRESS RETURN."$L$(9)" (TO INDICATE THAT ALL INGREDIENTS"$L$(10)" HAVE BEEN ENTERED, LEAVE INGREDIENT"*%L$(11***************-# * RECIPE INGREDIENTS *K# ***********************#XXML$(12)" MAXIMUM INGREDIENTS ENTERED "(M):#RIXXM1#NI11#L$(1)"0504A"#L$(2)" *** RECIPE INGREDIENTS ***" $L$(4)" INGREDIENT NAMES MUS)" ENTER THE *SERVINGS* NUMBER,"-"10000N"" THEN PRESS RETURN ";N$"(N$)1(N$)999R0:L$(12)" VALID SELECTIONS ARE: 1 THRU 999":L$(13)" BUT YOU ENTERED "N$"R"(N$)RSCC1"RS(N$)"TS(N$)"# ********R11!L$(1)"0503A"F!L$(2)" *** NEW RECIPE SERVINGS **"w!L$(4)" HOW MANY SERVINGS CAN BE MADE FROM"!L$(5)" THIS RECIPE, AS ENTERED?"!L$(7)" ACCEPTABLE *SERVINGS* NUMBERS ARE"!L$(8)" 1 THRU 999 INCLUSIVE."""L$(1410000 4" ";T$ 6N$T$) :G(N$) <G35L$(12)A" *** RECIPE TITLE TOO LONG !!! ***":L$(13)" *** RE-ENTER RECIPE TITLE ***":RT0 zRT { | *********************** } *** NEW RECIPE SERVINGS *** ~ ***********************!1(L$(5)" LINE. MAXIMUM CHARACTERS ACCEPTED"c)L$(6)" IS 35. AN ASTERISK IS SHOWN ABOVE"*L$(7)" POSITION 35 BELOW.",L$(8)" PRESS RETURN AT THE END OF".L$(9)" THE LINE."0L$(14)" 1234567890123456789012345678901234*" 2(13)" BUT YOU ENTERED "N$&L0-L3O *********************k *** RECIPE TITLE *** *********************RT11"L$(1)"0502A"$L$(2)" ** RECIPE TITLE ***"&L$(4)" THE RECIPE TITLE IS LIMITED TO ONE"," _10000;d" THEN PRESS RETURN ";N$SnN$"1"İ5400:5280kxN$"2"İ5500:5280N$"3"İ5600:5280N$"4"İ5700:5280N$"5"İ5800:5280N$"6"ī5299L$(12)" VALID SELECTIONS ARE: 1,2,3,4,5 OR 6"L$"-2L$(7)" 2 ENTER RECIPE SERVE NUMBER"[<L$(8)" 3 ADD INGREDIENTS AND AMOUNTS"AL$(9)" 4 DELETE INGREDIENTS AND AMOUNTS"FL$(10)" 5 ENTER COMMENTS"PL$(11)" 6 RETURN TO MAIN TABLE OF CONTENTS"ZL$(14)" ENTER SELECTION PRESS RETURN ";E$6 ********************Q * RECIPE ENTRY *l ********************wL11 L$(1)"0501A"L$(2)" ** RECIPE ENTRY **"L$(4)" WHAT WOULD YOU LIKE TO DO NOW?"(L$(6)" 1 ENTER RECIPE TITLEN A MENU,"9 L$(8)" TO ANOTHER, IT IS NECESSARY TO"] L$(9)" RETURN TO THE MENU."L$(11)" WITH A LITTLE EXPERIENCE, YOU WILL BE"L$(12)" ABLE TO USE ME EASILY AND QUICKLY!"10000L$(15)" TO CONTINUE,"L$(15)"RN ";E$L$(1)"0404A"FL$(2)" I'M ORGANIZED SOMEWHAT LIKE AN"zL$(3)" OCTOPUS..THE MAIN TABLE OF CONTENTS"L$(4)" IS THE HEAD. EACH OF THE FUNCTIONS"L$(5)" IS A SEPARATE TENTACLE." L$(7)" TO MOVE FROM ONE FUNCTION, OPURCHASE PRICES, THEN"7L$(6)" 3 VIEW RESULTS"hL$(8)" WHEN YOU ASK TO VIEW RESULTS, I'LL"L$(9)" LET YOU ASK ME TO SCALE THE RECIPE"L$(10)" UP OR DOWN."10000L$(15)" TO CONTINUE,"L$(15)" PRESS RETU AS NECESSARY!"10000&L$(15)M" TO CONTINUE, PRESS RETURN ";E$_L$(1)"0403A"L$(2)" THE BASIC FLOW THAT I THINK YOU'LL"L$(3)" WANT TO FOLLOW TO USE ME IS:"L$(4)" 1 ENTER A RECIPE, THEN"L$(5)" 2 ENTER 4 RETURN TO MAIN TABLE OF CONTENTS".610000\6"ENTER SELECTION, THEN PRESS RETURN ";P$t6 P$"1"İ7400:72406P$"2"İ7700:72406 P$"3"ī73006*P$"4"CC1:64L$(12)" VALID SELECTIONS ARE: 1,2,3, OR 4"7>L$(13)" BUT YOU ENTER110:5L$(6)" FOR "(PA(X))" "U$(PU(X))g5L$(7)" WHAT WOULD YOU LIKE TO DO NOW?"5L$(8)" 1 CHANGE ABOVE PURCHASE PRICE"5L$(9)" 2 CHANGE ABOVE UNIT OF MEASURE"5L$(10)" 3 NO CHANGE TO ABOVE ITEM"#6L$(11)" X1(XX1)4Y12(4L$(1)"0701A"T4L$(2)" *** PURCHASE PRICE ***"4L$(4)" THE CURRENT PURCHASE PRICE FOR"4AMPP(X)4L74155004L$(5)" "I$(X)" IS "B$5U$(PU(X))"EACH"L$(6)" FOR "(PA(X)):7Z143C$(Z)""3Z$3XX1.3500043W:3XW3b **********************t3l * PRICE ENTRY *3v **********************33XX11L$(12)" PURCHASE PRICE ENTRY INVALID NOW.":L$(13)" NO RECIPE HAS BEEN ENTERED.": 4 2C$(CN)N$2CN30ī5899&2CN,2 H2p *********************d2q *** NEW RECIPE ****2r *********************2s2Z1(XX1)2I$(Z)""2U(Z)02A(Z)02PU(Z)02PA(Z)02PP(Z)02OC(Z)02TC(Z)02Z323456789012345678901234*"J1L$(9)" ENTER AN ASTERISK IN POSITION 1 OF"y1L$(10)" THE CURRENT LINE TO END ENTRY"110000:" ";N$1G(N$):G35CNCN1:L$(13)" COMMENT LINE TOO LONG !!! REENTER ":58401N$"*"CNCN1:58991O$N$PE COMMENTS ARE LIMITED TO THIRTY"V0L$(5)" LINES. MAXIMUM CHARACTERS ACCEPTED"0L$(6)" PER LINE IS 35. AN ASTERISK IS"0L$(7)" SHOWN ABOVE POSITION 35. PRESS"0L$(8)" RETURN AT THE END OF EACH LINE."1L$(14)" 12345678901I0 /DI/-/ *********************I/ * RECIPE COMMENTS *e/ *********************o/O$""{/Z130/C$(Z)""/Z/CN130/L$(11)" "O$/L$(1)"0507A"/L$(2)" *** RECIPE COMMENTS ***""0L$(4)" RECI "(D)" BUT YOU ENTERED "N$:DDY:5790=.XNS(XX1)1O.I$(X)I$(X1)_.U(X)U(X1)o.A(X)A(X1).PU(X)PU(X1).PA(X)PA(X1).PP(X)PP(X1).OC(X)OC(X1).TC(X)TC(X1).X.CC1.DNS1.XXXX1/(XX1)DD1E-fL$(5X)" "(D)" "I$(D)F$(20(I$(D)))(A(D))" "U$(U(D))L-hXW-j10000-l" CONTINUE, THEN PRESS ";N$-nN$""ī5790-oNS(N$)*.pNSDNS((D1)Y)L$(12)" VALID SELECTIONS ARE: BLANK AND ":L$(13)" "((D1)Y)" -11,RL$(1)"0602A"F,TL$(2)" *** DELETE INGREDIENT ENTRY ***"s,VL$(4)" INGREDIENT AMOUNT",XL$(5)" NO.",ZL$(14)" ENTER INGR NO. TO DELETE OR BLANK TO ",^(XX1)6Y6,`((XX1)D)6Y((XX1)D),bX1Y1-dDD13)" BUT YOU ENTERED "N$%+AY5+BXXXX1:RI;+CX+D **********************u+E * DELETE INGREDIENTS *+F **********************+N(XX1)1L$(12)" DELETE NOT VALID SELECTION ":L$(13)" NO INGREDIENTS TO DELETE.":+OD0,PDI.333 3/4=.75 5/8=.625"I*9L$(11)" 2/3=.667 1/8=.125 7/8=.875"x*:L$(14)" ENTER AMOUNT, THEN PRESS RETURN"*;10000*<" ****";N$*=(N$)0(N$)1000A(XX)(N$):5698*>Y0*?L$(12)" VALID SELECTIONS ARE .125 - 999.875"+@L$($(4)" ENTER THE NUMBER":5683L)2L$(4)" ENTER THE NUMBER OF "U$(U(XX))g)3L$(5)" OF "I$(XX))4L$(6)" AS A DECIMAL. EG. 4(2/3) AS 4.667")5L$(8)" ACCEPTABLE FRACTIONS ARE:")6L$(9)" 1/2=.5 1/4=.25 3/8=.375"*8L$(10)" 1/3=;N$8("(N$)17(N$)0U(XX)(N$):PU(XX)U(XX):5675@($Y0o(&L$(11)" VALID SELECTIONS ARE: 1 THRU 16"((L$(12)" BUT YOU ENTERED "N$(*Y(+Y12(.L$(1)"0506A"(0L$(2)" *** RECIPE AMOUNTS ***")1U$(U(XX))"EACH"LT-DRY 15 GALLON">'L$(9)" 4 TBSP 10 OUNCE-WET 16 GILL"c'L$(10)" 5 CUP 11 OUNCE-DRY"'L$(11)" 6 EACH 12 POUND"'L$(13)" ENTER THE UNITS OF MEASURE OF "'L$(14)" "I$(RI)'10000( " THEN PRESS RETURN TO CONTINUE "(2)" *** SCALED RECIPE COST ***"/F8!Y6?F:!X1(XX1)]F!L$(4)" COST 1 COST "(TS)F@!L$(5)" INGREDIENT SERVING/SERVINGS"FF!Q2:ANOC(X):15000:OC(X)AN GH!Q2:ANTC(X):1500UNT" E E 1E ************************PE * DISPLAY/PRINT SCALED *oE * RECIPE COST *E ************************E E RS0İ5500E 11000E 8700E!CC1İ13000:CC0E!PR1İ17200:8638E4!L$(1)"0805A"'F6!L$ ADDITIONAL INGREDIENTS,"$D 10000VD X(XX1)Ą" PRESS RETURN TO CONTINUE ";N$}D X(XX1)Ą" PRESS RETURN ";N$D L$(1)"0802A"D L$(2)" *** RECIPE AS ENTERED ***"D L$(3)F$((40(T$))2)T$E L$(4)" INGREDIENT AMO(21(I$(X)))(A(X))" "U$(U(X))?C> Y11X(XX1)İ8300:Y5IC@ YY1PCB XCD L$(4)" THIS RECIPE, AS ENTERED, SERVES "(RS)CF 10500: PRINT COMMENTSCT Cl X(XX1)L$(14)" END OF INGREDIENTS AS ENTERED."Dv X(XX1)L$(14)" TO VIEW * B ***********************'B 2B 11000IB PR1İ17000:8276[B0 L$(1)"0802A"B2 L$(2)" *** RECIPE AS ENTERED ***"B4 L$(3)F$((40(T$))2)T$B6 L$(4)" INGREDIENT AMOUNT"B8 Y6B: X1(XX1)"C< L$(Y)" "I$(X)F$8400:8170#AN$"4"İ9000:81705AN$"5"ī8199eAL$(12)" VALID SELECTIONS ARE: 1,2,3 OR 4"AL$(13)" BUT YOU ENTERED "N$APL1APLA A A ***********************A * DISPLAY/PRINT RECIPE*B * AS ENTERED )" 3 DISPLAY/PRINT RECIPE COSTS"T@L$(9)" 4 DISPLAY/PRINT AMOUNTS & COSTS"@L$(10)" 5 RETURN TO MAIN TABLE OF CONTENTS"@10000@" ENTER SELECTION, THEN PRESS RETURN ";N$@N$"1"İ8200:8170@N$"2"İ8900:8170 AN$"3"RED.":?IPL12%?JL$(1)"0801A"S?TL$(2)" *** DISPLAY/PRINT RECIPE ***"`?YL$(3)""?^L$(4)" WHAT DO YOU WANT TO DO NOW?"?cL$(5)""?hL$(6)" 1 DISPLAY/PRINT RECIPE AS ENTERED"?rL$(7)" 2 DISPLAY/PRINT SCALED RECIPE"$@|L$(8THRU 16":L$(12)" BUT YOU ENTERED "A$:7700?>PU(X)(A$)E>L>@ i>A **********************>B * DISPLAY RESULTS *>C **********************>D ?EXX11L$(12)" DISPLAY/PRINT INVALID NOW.":L$(13)" NO RECIPE HAS BEEN ENTE CUP 11 OUNCE-DRY"6=dL$(10)" 6 EACH 12 POUND"f=nL$(13)" ENTER # OF UNIT IN WHICH YOU BUY"~=xL$(14)" "I$(X)=L$(15)" THEN PRESS RETURN"=10000=L$(15)=" ";A$/>((A$)1(A$)16)L$(11)" VALID SELECTIONS ARE: 1 COST ***"9<(L$(4)" ACCEPTABLE UNITS OF MEASURE ARE:"f<2L$(5)" 1 PINCH 7 PINT 13 PECK"<<L$(6)" 2 DASH 8 QUART-WET 14 BUSHEL"#CC1İ13000:CC0P@#PR1İ9600:9098PB#9500Q#" TO VIEW ADDITIONAL INGREDIENTS,".O#10000`O#Z(XX1)Ą" PRESS RETURN TO CONTINUE ";N$O#Z(XX1)Ą" PRESS RETURN ";N$O#L$(1)"0812A"O #L$(2)" *** SCALED RECIPE ***O"#L$(3)F$((40(T$))2)T$P$#L$(4)" INGREDIENT 1)=N"L$(Y)" "I$(Z)F$(21(I$(Z)))(SA(Z))" "U$(U(Z))ZN"Y11Z(XX1)İ8980:Y5dN"YY1kN"ZN#L$(4)" THIS SCALED RECIPE SERVES "(TS)N#10500: PRINT COMMENTSN#N#Z(XX1)L$(14)" END OF INGREDIENTS."#O#Z(XX1)L$(14)*************M" %M"RS0İ55000M"11000:M"8700PM"CC1İ13000:CC0gM"PR1İ17100:8998yM"L$(1)"0812A"M"L$(2)" *** SCALED RECIPE ***"M"L$(3)F$((40(T$))2)T$M"L$(4)" INGREDIENT AMOUNT"M"Y6N"Z1(XX" VALID ENTRIES ARE: 1 TO 999"ELd"L$(13)" BUT YOU ENTERED "N$NLf"AG0VLg"AGsLh"TS(N$)(N$)0CC1Ll"(N$)0TS(N$)L"L"L" ***********************L" * DISPLAY/PRINT *L" * SCALED RECIPE * M" **********TOTAL NUMBER OF "CKV"L$(9)" SERVINGS FOR WHICH YOU WOULD LIKE"iKX"L$(10)" TO SCALE THE RECIPE."KZ"L$(14)" ENTER THE NUMBER OF SERVINGS,"K\"10000K^"" THEN PRESS RETURN ";N$K`"(((TS0)(N$)0)((N$)0(N$)1000))ī8808 Lb"L$(12)L$(2)" *** DISPLAY/PRINT RECIPE ***"YJ$"L$(4)" I AM PREPARED TO CALCULATE RECIPE"J."L$(5)" COSTS AND AMOUNTS FOR "(TS)" SERVINGS."J8"L$(6)" IF THAT IS WHAT YOU WISH,"JB"L$(7)" JUST PRESS RETURN."KL"L$(8)" IF NOT, ENTER THE I!L$(14)" END OF SCALED RECIPE COSTS"3I!10000[I!" PRESS RETURN TO CONTINUE ";N$aI!gI!nI! I! *******************I! * SECURE SCALE TO *I! * TARGET *I" *******************I" I"AG11I"L$(1)"0803A")J"ENTS,"H!10000-H!" PRESS RETURN ";N$7H!8638XH!Q2:ANOC(0):15000:OC(0)ANyH!Q2:ANTC(0):15000:TC(0)ANH!M$(OC(0))H!AMOC(0)H!L10H!15500H!X$B$H!AMTC(0)H!L11H!15500H!L$(12)" TOTALS "X$" "B$(0:TC(X)ANGJ!M$(OC(X))'GK!AMOC(X)/GL!L8:GM!15500DGN!X$B$QGO!AMTC(X)YGP!L9dGQ!15500GT!L$(Y)" "I$(X)F$(20(I$(X)))X$B$GV!Y11X(XX1)İ8600:Y5GX!YY1GZ!XG\!G!X(XX1)ī8620H!L$(14)" TO VIEW ADDITIONAL INGREDIFACTORS$f> **********************0f>H116G116Jf>CF(H,G)0Qf>GXf>Hff>CF(1,1)1tf>CF(1,2)1f>CF(1,3)16f>CF(1,4)48f>CF(1,5)768f>CF(1,7)1536f>CF(1,8)3072f>CF(1,9)3072f>CF(1,13)24576f>CF(1,14)98304g>< ee> **********************f> ASSIGN CONVERSION 080 d:Hd:H1(B$)8d:(B$,H,1)"."RH:H(B$)?d:HRd:W$(B$,1,RQ)_d:AN(W$)ed:d:(B$,H1,1)"-"AN.01d;(B$,H1,1)"+"AN999999999d;d< d< ******************d< * PAD WITH ZEROS *d< ****************** eD4RP0cI4RPcK4CF(0,0)1"cW4+" ENTER SELECTION, THEN PRESS RETURN ";N$ZH+N$"1"SC1:PR0:11140[R+N$"2"SC0:PR1:111Y)AY")(Y12XYCN)İ10000:" PRESS RETURN TO CONTINUE ";N$:Y1KY')YY1SY,)XYYY6)`Y* ~Y* ***********************Y* * SELECT OUTPUT DEVICE*Y* ***********************Y*Y+Z11Y+L$(1)"1101A"Z +L$(2)" *** VIEW OUTPUT 1ST 14 LINES*+X' *********************2X' 8X'DX'W114OX 'L$(W)\X$'L$(W)""cX.'WiX8'pX) X) **********************X) * PRINT COMMENTS *X) **********************X) X)L$(14)""X)Y6X)XY1CNY)L$(Y)C$(X:L13:15500*W%L$(1)F$(19)"COST = "B$5W%L$(1)BW%L$(1)""MW%L$(1)UW%PTnW%AMTC(0):L13:15500W%L$(1)F$(13)"TOTAL COST = "B$W%L$(1)W%PT1CN:C$(PT):PTW%D$;"PR#0":PR0W%W' W' *********************X' * PRINND, TYPE Y (OR YES)"uJy10000,uOy" ";N$FuTy(N$,1,1)"Y"ī31100LuYyru|y:(7):(7):"RETURNING TO INDEX"uy(4);"RUN INDEX" ING TO INDEX"uy(4);"RUN INDEX" "O DECIDE *'ty * NOT TO QUIT. *Dty **********************Kt"y ]t'yL$(1)"3101A"t,yL$(2)" *** END OF PROGRAM ***"t1yL$(4)" THIS RECIPE AND ALL CALCULATIONS WILL"t6yL$(5)" BE LOST ONCE THIS PROGRAM ENDS."u;yL$(7)" TO ERPT0 sqRPT!svR(N$)0ī21120.s{RPS(N$)BsRPS1G$"PR#1"VsRPS2G$"PR#2"jsRPS3G$"PR#3"~sRPS4G$"PR#4"sRPS5G$"PR#5"sRPS6G$"PR#6"sRsy sy **********************sy * LAST CHANCE BEFORE * ty * QUITTING TCONTAINS YOUR PRINTER "LrDRL$(10)" (1,2,3,4,5 OR 6) AND PRESS RETURN"ZrIRL$(11)""hrNRL$(14)""srSR10000rXR" ";N$r]R(((N$)0)((N$)1(N$)6))ī21105rbRL$(12)" VALID ENTRIES ARE: 1 THRU 6"rgRL$(13)" BUT YOU ENTERED "N$sl*qRL$(2)" *** PRINTED OUTPUT ***"7q!RL$(3)""mq&RL$(4)" I THINK YOUR PRINTER IS IN SLOT #"(PS)zq+RL$(5)""q0RL$(6)" IF SO, JUST PRESS RETURN!!!"q5RL$(7)""q:RL$(8)" IF NOT, ENTER THE NUMBER OF THE"r?RL$(9)" SLOT WHICH 0):L13:15500:X$B$:AMTC(0):L13:15500LpZCL$(1)" TOTALS "X$" "B$Wp[CL$(1)fp]CD$;"PR#0"op^CPR0upC{pRp R *****************p R * DIRECT OUTPUT *p R * TO PRINTER *p R *****************p RpRPT11pRL$(1)"2101A"" INGREDIENT SERVING/SERVINGS"8oHCL$(6)""DoJCPT17PoLCL$(PT)XoNCPTioPCPT1(XX1)oQCAMOC(PT):L8:15500:X$B$:AMTC(PT):L9:15500oRCL$(1)" "I$(PT)F$(20(I$(PT)))X$B$oSCL$(1)oTCPToVCL$(1)""oXCL$(1))pYCAMOC(***********$n2C * PRINT RECIPE *=n3C * COSTS *Vn4C ******************]n5C {n:C21000: GET PRINTER SLOTnCL$(1)""n@CL$(2)F$((40(T$))2)T$nBCL$(3)""nDCL$(4)" COST 1 COST "(TS)+oFCL$(5)IENT AMOUNT"#mBL$(7)""/mBPT17;mBL$(PT)CmBPTTmBPT1(XX1)mBL$(1)" "I$(PT)F$(21(I$(PT)))(SA(PT))" "U$(U(PT))mBL$(1)mBPTmBmBPT1CNmBC$(PT)mBPTmBD$;"PR#0"mBPR0m/Cm0C n1C *******lB lB ****************4lB * PRINT SCALED *KlB * RECIPE *blB ****************ilB tlB21000lBD$;G$lBL$(1)""lBL$(2)F$((40(T$))2)T$lBL$(3)""lBL$(4)" THIS RECIPE SERVES "(TS)lBL$(5)""mBL$(6)" INGRED6)" INGREDIENT AMOUNT"/kBL$(7)"";kBPT17GkBL$(PT)OkBPT`kBPT1(XX1)kBL$(1)" "I$(PT)F$(21(I$(PT)))(A(PT))" "U$(U(PT))kBL$(1)kBPTkBL$(1)""kBL$(1)kBPT1CNkBC$(PT)kBPTkBD$;"PR#0"kB********* jjB * PRINT RECIPE *7jkB * AS ENTERED *NjlB ****************UjmB sjrB21000: GET PRINTER SLOT~j|BD$;G$jBL$(1)""jBL$(2)F$((40(T$))2)T$jBL$(3)""jBL$(4)" THIS RECIPE, AS ENTERED, SERVES "(RS)jBL$(5)"""kBL$(i>CF(11,12)16$i>CF(12,11)1164i>CF(12,12)1@i>G116Yi>CF(13,G)(CF(9,G))8`i>Gli>G116i>CF(14,G)(CF(13,G))4i>Gi?G116i?CF(15,G)(CF(8,G))4i?Gi?G116i?CF(16,G)(CF(7,G))4i ?GigBihB jiB *******Gh>G116&h>CF(8,G)(CF(7,G))2-h>GCF(8,13)0Kh>CF(8,14)0Wh>G116kh>CF(9,G)CF(8,G)rh>Gh>CF(9,13)8h>CF(9,14)32h>CF(9,15)0h>CF(9,16)0h>CF(10,10)1:CF(10,5)8:CF(10,7)16:CF(10,8)32:CF(10,15)128i>CF(11,11)1CF(1,15)12288g>CF(1,16)384+g>G116?g>CF(2,G)CF(1,G)Fg>GRg>G116kg>CF(3,G)(CF(2,G))16rg>G~g>G116g>CF(4,G)(CF(3,G))3g>Gg>G116g>CF(5,G)(CF(4,G))16g>Gg>CF(6,6)1g>G116g>CF(7,G)(CF(5,G))2h>O RECORD EXISTS * FOR ";A1$;",";Y1$::550`:"* NO RECORD EXISTS * FOR ";A1$;",";Y2$::550&TT$""::"TO DO ANOTHER COMPARISON ENTER ANY":"LETTER AND PRESS RETURN OTHERWISE, ":"PRESS RETURN ";TT$'TT$""TT$" "350(1000P1$" ";U3$U2$466&U3$U1$:275:580-D4L=455R936:T5$;T1$:|"FOR THE MONTH OF - * ";A1$;" *"::"UTILTIY";T5$;T2$;"YEAR";T3$;O1$;T4$;T2$;T2$;"COST"::"YEAR ";T3$;O1$;T4$;T2$;T2$"COST "::*476::"* N,S1,C1U3$U1$4358U3$U1$:275:476:478:560?XFIO424| * RECORD #2 RECORD SELECTION ROUTINE *L1MCO$CO$"END"501C0$"*"467KM1$,Y$A1$M1$467Y2$Y$ī467D13U2$,S2,C2HE ENDING OR COMPARISON YEAR"G"SUCH AS 19XX AND PRESS RETURN ";Y2$b(Y2$)4(Y2$)4405 * RECORD #1 SELECTION ROUTINE *I1MCO$CO$"END"500CO$"*"450M1$,Y$A1$M1$450Y1$Y$450X13:U1$402) * SELECT YEARS TO COMPARE *n936::::T5$;T1$:T5$;T4$;"** YEAR SELECTION SCREEN**":::400:Y1$"":"ENTER THE STARTING OR BASE YEAR""SUCH AS 19XX AND PRESS RETURN ";Y1$(Y1$)4(Y1$)4402400:Y2$"":"ENTER TN";T5$;T5$;"DEC":Y~T5$;"ENTER THE MONTH YOU WANT TO SEE ":" AND PRESS RETURN ";A1$qA1$""A1$" "375A1$"JAN"A1$"FEB"A1$"MAR"A1$"APR"A1$"MAY"A1$"JUN"A1$"JUL"A1$"AUG"A1$"SEP"A1$"OCT"A1$"NOV"A1$"DEC"375ON *Aw936::::T5$;T1$:" ** TIME PERIOD SELECTION **":kx:A1$"":T5$;T5$;"JAN";T5$;T5$;"JUL"yT5$;T5$;"FEB";T5$;T5$;"AUG"zT5$;T5$;"MAR";T5$;T5$;"SEP"{T5$;T5$;"APR";T5$;T5$;"OCT"|T5$;T5$;"MAY";T5$;T5$;"NOV"}T5$;T5$;"JU;"3. WATER ":;10);"4. TO RETURN TO MAIN "Nb;10)" SELECTION MENU."::c" ENTER YOUR CHOICE OF 1-4 ":" THEN HIT RETURN ";ULdUL4UL1350:UL4100eUL1U3$"E"fUL3U3$"W"gUL2U3$"G"v * YEAR AND MONTH SELECTIE DISPLAY";A"ELSE, JUST PRESS RETURN";X1$:X1$""ī100FB300:o] * PRINT UTILITY SELECTION SCREEN *^:936::::T5$;T1$:T5$;T3$;"* UTILITY SELECTION SCREEN *"_::UL0:;10);"1. ELECTRICITY "`;10);"2. NATURAL GAS "+a;10)AR ";T4$;"USAGE ";T3$;T2$;"COST ") .:W 5 * PRINTS NOTE THAT ALL DATA WAS SHOWN * 6:"** ALL OF THE DATA HAS BEEN SHOWN. **" 7T2$;"PRESS RETURN TO RETURN TO THE MAIN " 8" SELECTION MENU. ";XX$:100 @X1$"":"ENTER ANY LETTER TO END TH"THERMS "6 U1$"W"P1$"WATER ":O1$"GALLONS"d U1$"E"U1$"G"U1$"W"P1$"*ERROR*"j  + * PRINTS DATA DISPLAY PAGE HEADINGS * ,936::::T2$;T1$:" * INFORMATION DISPLAY SCREEN *":! -N1:"UTILITY ";T5$;"MONTH ";T2$;"YE250 X 200 310E * PRINT ROUTINE FOR DATA DISPLAY *n P1$" ";M1$" "Y$" "S1" "A$;C1| N3İ320  * ROUTINE TO DETERMINE UTILITY CODE * U1$"E"P1$"ELECTRICITY":O1$"KWA/HRS" U1$"G"P1$"NATURAL GAS":O1$N ";CH$ CH$""CH$" "100< (CH$)68(CH$)65100L G(CH$)64c G190,350,600,800 * DISPLAY INFORMATION ROUTINE * N1:300 P1M CO$ CO$"END"310 CO$"*"220 M1$,Y$ X13 U1$,S1,C1 275:1$:T5$;" * MAIN SELECTION MENU *":1 i:CH$""Y n"A. TO DISPLAY THE UTILITY DATA. "} s"B. TO COMPARE UTILITY COSTS." }"C. TO SEE THE PROGRAM INSTRUCTIONS." "D. TO END THE PROGRAM. ":: "ENTER YOUR SELECTION OF A-D":"AND PRESS RETURvO * 704 BROADMOOR DR BLOOMINGTON IL 61701 309-662-5059 OR 309-662-6057t * SUBCONTRACTOR - JACK MEANS *(M2000)A$"$"*T2$" ":T3$" ":T4$" ":T5$" "+T1$"*** UTILITIES ANALYSIS PROGRAM ***",D$"+"$ d:936::::T         100,10 G,100,999.99) W,10,5.55: *,JAN,1981L E,4000,2000] G,100,1500j W,23,2t END M"RUN INDEX"0 ***** INPUT DATA FOLLOWS *****W * USE FORMAT OF DATA * MON,YEAR*w * DATA UTILITY,USAGE,COST ******************************** *,JAN,1979 E,300,10.10 G,100,14.15 W,1000,50.05 *,MAR,1980 E, TO COMPARE. THE RESULTS WILL"It"THEN BE PRINTED ON YOUR TERMINAL.":rv"IF YOU HAVE ANY QUESTIONS, PLEASE"y"CONTACT YOUR INSTRUCTOR.":650:100"PRESS RETURN TO PROCEED. ";OO$:100  :(5):(10):"RETURNING TO INDEX":(4);OGRAM, A DISPLAY FUNCTION HAS BEEN"Ff"PROVIDED. "::650:601:620ql"TO COMPARE A UTILITY FOR A SPECIFIC"n"MONTH FOR DIFFERENT YEARS, YOU WILL"o"BE ASKED TO SPECIFY THE MONTH, THE"q"STARTING OR BASE YEAR, AND THE YEAR"s"YOU WANT1$:T5$;" * PROGRAM INSTRUCTIONS *"::WZ"THE UTILITY ANALYSIS PROGRAM WILL ALLOW"\"YOU TO COMPARE THE MONTH'S USAGE AND"^"COST OF ELECTRICAL, NATURAL GAS, AND"`"WATER UTILITIES.":b"IN ORDER TO REVIEW THE DATA WITHIN THE"#d"PRY1$;T2$;S1,A$;C1::4558DP1$" ";Y$;T2$;S2,A$;C2zIC3C2C1:S3S2S1:"----------------------------------------"J"DIFFERENCE "S3K" ",D$;C3N550W * PROGRAM INSTRUCTIONS *X601:602(Y936::::TNEGAR AND RINSE.,2.APPLY THICK SOLUTION OF DETERGENT AND," WARM WATER THEN RINSE.",3.ADD AMMONIA TO SECOND DETERGENT," SOLUTION THEN RINSE.",4.APPLY A SODIUM PERBORATE BLEACH.,""4\ HAIR DYE,"",1.WASH IN SOLUTION OF DETERGENT AND WARM," WATER WITH VIEACH.","","",""sY GRASS,"",1.WASH IN SYNTHETIC DETERGENT.,2.BLEACH LAST TRACES WITH LAUNDRY BLEACH.,"","","",""Z GREASE/TAR,"",1.PLACE TOWEL UNDER STAIN.,2.POUR CLEANING FLUID THROUGH STAINED," AREA.","","",""[ HAIR COLORING,1.SPONGE WITH VIINS APPLY LAUNDRY," BLEACH.","","",""tW DEODORANTS,"",WASH IN SOLUTION OF DETERGENT AND WARM,WATER.,"","","",""X FRUIT AND BERRY,"",1.LAUNDER WITH A SYNTHETIC DETERGENT.,2.APPLY WHITE VINEGAR. RINSE THOROUGHLY.,"3.IF STAIN REMAINS, USE LAUNDRY BLAUNDER IN HEAVY SUDS.,4.USE LAUNDRY BLEACH IF COLOR OF CANDLE," REMAINS."U CHEWING GUM,"",1.REMOVE EXCESS WITH DULL KNIFE.,2.SOAK AFFECTED AREAS IN CLEANING FLUID.,"","","",""&V CHOCOLATE/COFFEE,"",1.RINSE IN LUKEWARM WATER.,2.IF BROWN STAIN REMAAK IN LUKEWARM WATER AND SYNTHETIC, DETERGENT. IF YELLOW STAIN REMAINS THEN,APPLY LAUNDRY BLEACH.,"","",""JT CANDLE WAX,1.REMOVE EXCESS WITH DULL KNIFE.,2.PLACE TOWEL UNDER STAIN AND WET," THOROUGHLY SEVERAL TIMES WITH CLEANING"," FLUID.",3.DRY AND LS FOUND BELOW *R BALLPOINT PEN INK,1.PLACE BLOTTER UNDER FABRIC.,2.DRIP HOME DRYCLEANING SOLVENT THROUGH," SPOT.",3.SOAK IN SOLUTION OF DETERGENT AND WARM," WATER.",4.RINSE IN COLD WATER.,"5.USE MILD BLEACH, BUT TEST FABRIC FIRST."jS BLOOD,"",SO"STAIN - * ";S1$;" *":I"------ STAIN REMOVAL INFORMATION -------"pS2$:S3$:S4$:S5$:S6$:S7$:S8$:"SELECT ANOTHER STAIN JUST PRESS RETURN""ELSE ENTER ANY LETTER AND PRESS RETURN ";R2$R2$""15050Q * INPUT DATA I22);"31.WATER EMULSION"I@"23.PANCAKE MAKE-UP";24);"OR SPRAY PAINTS"sB"24.PAINT";22);"32.TO SELECT AGAIN"C"25.PERFUME OR COLOGNE";22)"33.TO END PROGRAM"D"26.PERFUME (SOLID)"::::::5);"** STAIN REMOVAL INFORMATION ** ": SELECTION MENU **":A1"17.LIPSTICK";22);"27.LIPSTICK/ROUGE"u3"18.LIQUID SHOE POLISH";22);"28.PLASTIC GLUE"5"19.MERCUROCHROME";25);"OR LACQUERS"7"20.MILDEW";22);"29.SUN-TAN LOTION";"21.MUD";22);"30.TEA">"22.MAKE-UP LIQUID";300:2579 "ENTER YOUR SELECTION - PRESS RETURN";F1I F132ī150X F133ī50n F117F132ī255| 269:400 R11F1 S1$,S2$,S3$,S4$,S5$,S6$,S7$,S8$:R1: + * PRINTS STAIN SELECTION SCREEN 2 ,::::" ** STAIN REMOVALAND BERRY";21);"15.ICE CREAM,MILK,"D "8.GRASS";24);"AND CREAM"h "9.GREASE/TAR";21);"16.INK": "PRESS RETURN TO SEE MORE STAINS OR" "ENTER YOUR SELECTION - PRESS RETURN ";F$ F$""İ300:257 F1(F$):F116ī150 269:400 K";21);"10.HAIR COLORING"< "2.BLOOD";21);"11.HAIR DYE"f "3.CANDLE WAX";21);"12.HAIR SPRAYS" "4.CHEWING GUM";21);"13.HAND LOTIONS" "5.CHOCOLATE/COFFEE";22);"(SILICONE BASE)" "6.DEODORANTS";21);"14.HOME PERMANENTS"$ "7.FRUIT A$"":" AND PRESS RETURN ";A$4 YA$""A$" "50R Z(A$)67(A$)6550:95c _C((A$)64)v aC954,150,900 :200 251 * PRINTS SCREEN 1 OF STAINS ::::" ** STAIN REMOVAL SELECTION MENU **": "1.BALLPOINT PEN INRAM ***"::1 37)"* MAIN SELECTI ON MENU *":_ 72)"A = TO SEE THE PROGRAM INSTRUCTIONS" <2)"B = TO SELECT AND DISPLAY STAIN" A6)"REMOVAL INFORMATION" K2)"C = TO END THE PROGRAM": P:2)"ENTER YOUR LETTER CHOICE OF A - C" U> / * STAIN REMOVAL PROGRAM BY VIC RYBERG *\ * 704 BROADMOOR BLOOMINGTON IL 61701 * * 309-662-5059 OR 309-662-6057 * * SUBCONTRACTOR --- JACK MEANS *1 * PRINTS MAIN OPTION MENU * 2::::5)"*** STAIN REMOVAL PROG          NFORMATION ON WASHABLE FABRICS ONLY !"N&:::"PRESS RETURN TO PROCEED";G$&::::"* STAIN REMOVAL PROGRAM INSTRUCTIONS *":&"UNDER SELECTION B YOU CAN DISPLAY THE"&"STAIN REMOVAL INFORMATION BY ENTERING" '"THE NUMBER TO THE LEFT OFS PROGRAM WILL SUGGEST METHODS OF"O%"DEALING WITH THE MORE COMMON TYPES OF"z%"STAINS. IF THERE IS ANY DOUBT ABOUT"%"POSSIBLE SUCCESS -- CONSULT A"%"PROFESSIONALLY TRAINED INDIVIDUAL.":%"THIS PROGRAM WAS INTENDED TO PROVIDE"&&"IX":(4);"RUN INDEX"3$ * PROGRAM INSTRUCTIONS *p$::::A$"0":"* STAIN REMOVAL PROGRAM INSTRUCTIONS *"$:"THERE ARE MANY PROCEDURES USED IN"$"REMOVING STAINS. ALTHOUGH NOT ALL"$"PROCEDURES ARE APPLICABLE TO ALL FIBERS,""%"THIPAINTS,"",WASH IN SOLUTION OF DETERGENT AND WARM,"WATER WHILE PAINT IS WET. IF DRY,SOFTEN",WITH VASELINE THEN SOAK IN EQUAL PARTS,OF AMMONIA/WATER/TURPENTINE. RINSE IN,DETERGENT AND WARM WATER.,""# * ENDS PROGRAM *$:(5):(10):"RETURNING TO INDEING SOLVENT.,2.WASH IN SOLUTION OF DETERGENT AND WARM," WATER WITH VINEGAR ADDED(APPROXIMATELY"," 1/2 CUP TO ONE GALLON).","","""o TEA,"",1.RINSE IN LUKEWARM WATER.,2.IF BROWN STAIN REMAINS USE LAUNDRY," BLEACH.","","",""#p WATER EMULSION/SPRAY S,NITROCELLULOSE BASE-WASH IN SOLUTION OF,DETERGENT AND HOT WATER-APPLY BANANA OIL,THEN DRYCLEANING SOLVENT.,"",RESIN BASE-WASH IN SOLUTION OF DETERGENT,"AND HOT WATER THEN ACETONE, THEN USE",DRYCLEANING SOLVE"n SUN-TAN LOTION,"",1.SPONGE WITH DRYCLEANTERGENT," AND WARM WATER.",DO NOT USE ALCOHOL ON ACETATE AS IT WILL,AFFECT DYE AND DISSOLVE FABRIC. l LIPSTICK/ROUGE,"",SOFTEN SPOT WITH UNDILUTED LIQUID,DETERGENT THEN WASH IN SOLUTION OF,DETERGENT AND WARM WATER.,"","",""!m PLASTIC GLUES/LACQUERETERGENT AND HOT WATER-DO NOT LET"," THE STAIN AGE.",2.BLEACH WITH SODIUM PERBORATE OR," SUITABLE COMMERCIAL BLEACH.",""d k PERFUME (SOLID),1.STRETCH FABRIC OVER BOWL.,2.DROP WARM ALCOHOL FROM EYE DROPPER," OVER SPOT.",3.RINSE. WASH IN SOLUTION OF DE MAKE-UP,"",SPONGE WITH HOME DRYCLEANING SOLVENT.,WASH IN SOLUTION OF DETERGENT AND WARM,WATER AND RINSE.,"","",""i PAINT,"",SPONGE WITH CLEANING FLUID AS SOON AS,POSSIBLE.,"","","",""zj PERFUME OR COLOGNE,"",1.WASH IMMEDIATELY IN SOLUTION OF," DSE THOROUGHLY.,"","","",""wf MUD,"",ALLOW TO DRY. BRUSH LIGHTLY USING STIFF,BRISTLE BRUSH THEN LAUNDER.,"","","",""g MAKE-UP LIQUID,"",WASH IN THICK SOLUTION OF DETERGENT AND,"HOT WATER, THEN RINSE IN SUITABLE BLEACH",WATER.,"","",""rh PANCAKEd MERCUROCHROME,"",1.LAUNDER IN A SYNTHETIC DETERGENT,"SOLUTION.",2.APPLY HOUSEHOLD AMMONIA. RINSE.,3.REPEAT IF STAIN DOES NOT COME OUT.,4.BLEACH ANY REMAINING TRACES.,"" e MILDEW,"",LAUNDER AND USE CHLORINE BLEACH IF COLOR,AND FABRIC PERMIT. RINUNTIL BLEEDING STOPS."," DRY. LAUNDER IN HOT,SOAPY WATER.",""c LIQUID SHOE POLISH,"",WASH IN SOLUTION OF DETERGENT AND WARM,"WATER, SPONGE WITH DENATURED ALCOHOL",SOLUTION OR SPRINKLE SODIUM PERBORATE,BLEACH POWDER ON MOISTENED STAIN TO,BLEACH.,""D THEN DRY-TREAT,AREA AND THEN WET OUT WITH WATER.,APPLY SYNTHETIC DETERGENT AND WHITE,VINEGAR THEN RINSE.,"">b LIPSTICK,"",1.TURN GARMENT INSIDE OUT AND PLACE," STAINED AREA OVER ABSORBENT TOWEL.",2.POUR CLEANING FLUID SLOWLY THROUGH," STAINED AREA C) THEN RINSE.,"","",""` "ICE CREAM, MILK, AND CREAM","",SOAK IN LUKEWARM WATER AND DETERGENT,THEN RINSE AND LAUNDER IN USUAL MANNER.,"","","",""ma INK,POUR WATER THROUGH STAINED AREA AND,REPEAT IF BLEEDING OF INK CONTINUES.,IF STAIN DOES NOT BLEENT AND HOT"," WATER THEN RIN.",""^ HAND LOTIONS (SILICONE BASE),"",WASH IN SOLUTION OF DETERGENT AND HOT,"WATER, THEN RINSE.","","","",""_ HOME PERMANENTS,"",WASH IMMEDIATELY IN SOLUTION OF HOT,WATER AND DETERGENT (CHEMICALS BLEACH,DYES IN FABRINEGAR ADDED.",2.BLEACH WITH LAUNDRY BLEACH.,"","","""]HAIR SPRAYS,1.WASH IN SOLUTION OF DETERGENT AND HOT," WATER THEN RINSE IN CLEAR WATER.",2.SPRAYS WITH SHELLAC BASE-SPONGE WITH," (1 PART ALCOHOL/2 PARTS WATER) THEN"," WASH IN SOLUTION OF DETERGEINSTRUCTOR."4(:::"PRESS RETURN TO PROCEED";G$<(50 THE STAIN."8'"* NOTE * IF YOU ENTER INVALID INPUT,"`'"THE SCREEN WILL REPEAT ITSELF.":'"THE STAIN REMOVAL INFORMATON FOR THE"'"STAIN YOU CHOSE WILL THEN APPEAR ON"'"YOUR TERMINAL. IF YOU HAVE ANY" ("QUESTIONS, PLEASE SEE YOUR 2$"COST "::P476::"* NO RECORD EXISTS * FOR ";A1$;",";Y1$::550:"* NO RECORD EXISTS * FOR ";A1$;",";Y2$::550&TT$""::"TO DO ANOTHER COMPARISON ENTER ANY":"LETTER AND PRESS RETURN OTHERWISE, ":"PRESS RETURN ";TT$'TT$$Y$ī467D13$U2$,S2,C26U3$U2$466LU3$U1$:275:580SDZLc455x936:T5$;T1$:"FOR THE MONTH OF - * ";A1$;" *"::"UTILITY";T5$;T2$;"YEAR";T3$;O1$;T4$;T2$;T2$;"COST"::"YEAR ";T3$;O1$;T4$;T2$;T$450Y1$Y$450,X13:U1$,S1,C1>U3$U1$435^U3$U1$:275:476:478:560eXlIu424 * RECORD #2 RECORD SELECTION ROUTINE *L1MCO$CO$"END"501C0$"*"467M1$,Y$A1$M1$467 Y2(Y1$)4402C400:Y2$"":"ENTER THE ENDING OR COMPARISON YEAR"m"SUCH AS 19XX AND PRESS RETURN ";Y2$(Y2$)4(Y2$)4405 * RECORD #1 SELECTION ROUTINE *I1MCO$CO$"END"500CO$"*"450M1$,Y$A1$M1A1$"OCT"A1$"NOV"A1$"DEC"375-402O * SELECT YEARS TO COMPARE *936::::T5$;T1$:T5$;T4$;"** YEAR SELECTION SCREEN**":::400:Y1$"":"ENTER THE STARTING OR BASE YEAR""SUCH AS 19XX AND PRESS RETURN ";Y1$ (Y1$)4$;"MAY";T5$;T5$;"NOV"8}T5$;T5$;"JUN";T5$;T5$;"DEC":~T5$;"ENTER THE MONTH YOU WANT TO SEE ":" AND PRESS RETURN ";A1$A1$""A1$" "375$A1$"JAN"A1$"FEB"A1$"MAR"A1$"APR"A1$"MAY"A1$"JUN"A1$"JUL"A1$"AUG"A1$"SEP"U3$"G"*v * YEAR AND MONTH SELECTION *gw936::::T5$;T1$:" ** TIME PERIOD SELECTION **":x:A1$"":T5$;T5$;"JAN";T5$;T5$;"JUL"yT5$;T5$;"FEB";T5$;T5$;"AUG"zT5$;T5$;"MAR";T5$;T5$;"SEP"{T5$;T5$;"APR";T5$;T5$;"OCT"|T5$;T5;10);"2. NATURAL GAS "Ma;10);"3. WATER ":;10);"4. TO RETURN TO MAIN "pb;10)" SELECTION MENU."::c" ENTER YOUR CHOICE OF 1-4 ":" THEN PRESS ";ULdUL4UL1350:UL4100eUL1U3$"E"fUL3U3$"W"gUL21$"":"ENTER ANY LETTER TO END THE DISPLAY"]A"ELSE, JUST PRESS RETURN";X1$:X1$""ī100hB300:] * PRINT UTILITY SELECTION SCREEN *^:936::::T5$;T1$:T5$;T3$;"* UTILITY SELECTION SCREEN *"_::UL0:;10);"1. ELECTRICITY "`1:"UTILITY ";T5$;"MONTH ";T2$;"YEAR ";T4$;"USAGE ";T3$;T2$;"COST "K .:y 5 * PRINTS NOTE THAT ALL DATA WAS SHOWN * 6:"** ALL OF THE DATA HAS BEEN SHOWN. **" 7T2$;"PRESS RETURN TO RETURN TO THE MAIN " 8" SELECTION MENU. ";XX$:100,@X U1$"G"P1$"NATURAL GAS":O1$"THERMS "X U1$"W"P1$"WATER ":O1$"GALLONS" U1$"E"U1$"G"U1$"W"P1$"*ERROR*"  + * PRINTS DATA DISPLAY PAGE HEADINGS * ,936::::T2$;T1$:" * INFORMATION DISPLAY SCREEN *":C -N250 X 200 310E * PRINT ROUTINE FOR DATA DISPLAY *c 810:P1$" ";12)M1$" "; 16)" "Y$;25)" "S1;30)" "A$;31)" "LA N3İ320  * ROUTINE TO DETERMINE UTILITY CODE * U1$"E"P1$"ELECTRICITY":O1$"KWA/HRS"+N ";CH$ CH$""CH$" "100< (CH$)68(CH$)65100L G(CH$)64c G190,350,600,800 * DISPLAY INFORMATION ROUTINE * N1:300 P1M CO$ CO$"END"310 CO$"*"220 M1$,Y$ X13 U1$,S1,C1 275:1$:T5$;" * MAIN SELECTION MENU *":1 i:CH$""Y n"A. TO DISPLAY THE UTILITY DATA. "} s"B. TO COMPARE UTILITY COSTS." }"C. TO SEE THE PROGRAM INSTRUCTIONS." "D. TO END THE PROGRAM. ":: "ENTER YOUR SELECTION OF A-D":"AND PRESS RETURO * 704 BROADMOOR DR BLOOMINGTON IL 61701 309-662-5059 OR 309-662-6057t * SUBCONTRACTOR - JACK MEANS *(M2000)A$"$"*T2$" ":T3$" ":T4$" ":T5$" "+T1$"*** UTILITIES ANALYSIS PROGRAM ***",D$"+"$ d:936::::T          !!! ! ! !  E,300,10.10  G,100,14.153 W,1000,50.05D *,MAR,1980S E,100,10f G,100,999.99v W,10,5.55 *,JAN,1981 E,4000,2000 G,100,1500 W,23,2 END E(5):(10):"RETURNING TO INDEX":(4);"RUN INDEX"?*LW$(C1)R/LA((LW$,7))X4} ***** INPUT DATA FOLLOWS ***** * USE FORMAT OF DATA * MON,YEAR* * DATA UTILITY,USAGE,COST ******************************** *,JAN,1979ASE YEAR, AND THE YEAR"Ds"YOU WANT TO COMPARE. THE RESULTS WILL"ot"THEN BE PRINTED ON YOUR TERMINAL.":v"IF YOU HAVE ANY QUESTIONS, PLEASE"y"CONTACT YOUR INSTRUCTOR.":650:100"PRESS RETURN TO PROCEED. ";OO$:1001 :O REVIEW THE DATA WITHIN THE"Id"PROGRAM, A DISPLAY FUNCTION HAS BEEN"lf"PROVIDED. "::650:601:620l"TO COMPARE A UTILITY FOR A SPECIFIC"n"MONTH FOR DIFFERENT YEARS, YOU WILL"o"BE ASKED TO SPECIFY THE MONTH, THE"q"STARTING OR BONS *X601:602NY936::::T1$:T5$;" * PROGRAM INSTRUCTIONS *"::}Z"THE UTILITY ANALYSIS PROGRAM WILL ALLOW"\"YOU TO COMPARE THE MONTH'S USAGE AND"^"COST OF ELECTRICAL, NATURAL GAS, AND"`"WATER UTILITIES.":b"IN ORDER T""TT$" "350(10060P1$" ";Y1$;T2$;S1,A$;C1A::455^DP1$" ";Y$;T2$;S2,A$;C2IC3C2C1:S3S2S1:"----------------------------------------"J"DIFFERENCE "S3K" ",D$;C3N550W * PROGRAM INSTRUCTI" EL";:39:"*"; "* *"q "*";:7:"WESTERN ILLINOIS UNIVERSITY";:39:"*" "* *" "*";:9:"MACOMB, ILLINOIS 61455";:39:"*" "***************************************INGFIELD, ILLINOIS 62777";:39:"*"S "* *" "* *" "*CURRICULUM PUBLICATION CLEARING HOUSE*" "* *" "*";:12:"46 HORRABIN HAL"* *"^ "*";:9:"AND TECHNICAL EDUCATION";:39:"*" "* *" "*";:9:"100 NORTH FIRST STREET";:39:"*" "* *"$ "*";:6:"SPR ;"EXCLUSIVE DISTRIBUTION RIGHTS RETAINED"Ap"***************************************""* ILLINOIS STATE BOARD OF EDUCATION *""* *""* DEPARTMENT OF ADULT, VOCATIONAL, *", "" " " "