DOS  BASIC - REPORT $ PEMBROOK3 NAME3 C FUEL3 D TOLLS3 E LODGE3 F MEALS3 G PARK3 H PARTS3 I MISC3 J 5 ð))'))×"F$#å#b&y"q"U*1c >2 >!"c 5 ['yg> gy?O  2&{2& ͮ!{¥ : >!! ~Y(!(!*&~}OG<=͗!:5 0"!@{!: ! >wG#7wG# ! >!Wr!0O>!/!×!:{!:>! ::!:Ù!͗!:!0:&!͙!!: y2 :&_͙! ͗!:@!>!@{!: "!!+"G#+"G# " #!>!::3":;"::&R":I~_G#~_G# T"X*& >?1&&1c :&+"6& RE-BOOT">T1&01&&>D1&y?01&&>S1&%v"", V$, >2&!&+6 "T]t&7 ",7 , #7w#t&"A&t& 7:/ !&O:&o&'>" , {@#×!:+ ;#:&2&> >"d##Gy@O:&c 2&x2&6#:&҄#=S#*&:&!&h&)T]))o|g:& !9"&#/$#_#y?##x##7#!$!$g} W /2&h"&"&M\N#*&*&|E.#} W\MN#yW:4 6$>FD"&2&~ ""د2&>2/ !"&~$:& h$7*&y2&* !%" !/ :&O:&o&'>" "  :/ $!':&%$# $~ $,&N#F !&̈́&$"&¸$<"  :/ 2/ Ã$~ $:&Q%:&Q%=N%%6& , 8%&:3 =2&F&# Q%,&%&,&~r%)%&Sʃ%D&o&%~£%&#,&%& $, PRESS RETURN TO CONTINUE"0%%%0%%%/"U*%*U*x&:&G& :&  & &s#r#^#V#G "1&6&t&]& A&0, , , Oy2&S&}2&:3 2&>W$*&~ ʂ&#"&#z+{"O,&,&~怱O~#, {,&z*ڸ&-Ҹ&2&" *&> W*TEST NORTH STAR DOS 5.1DQ "COPYRIGHT NORTH STAR COMPUTERS, INC., 1979>!)c ['2&>! 6Y#=u'͗!>=„':'z2& :0 +'6&y")>0x>07>@!|;)gN)~w,;)$N)|;)0)>A>>>7>7>0>`>ʀ)xʊ)> xxx!U*  *@*!*@&v"__4*4*@*&v"+*wG&  &#*q"GO BASIC t& u*!͖*, ))))ot& €*0:ҡ*0AG?7t&7 ʫ*!:, 0, T])))_t& ,ø*ͫ*, |, }t&D+ *S+, t&, !"" !q""- 2&+&*!W*"&*U*!H+ ̈́&##?+##.+q",&( CR*,DEt+GO&JGO BASIC +IN,LI,TY+LF+SF+"++6 |+ u**&> "*, G~怰w·+u*#'&+ +":&O,&,&z, ~怱O{u*+" , +ͫ*,  ,,, A&u***xO}%,<+"V$, "V$, ͫ*, *&~Aܫ**x2&f,#|g}o:&O/$DM+ , , '&q#p#:&w#q&+w, A&*xOx/G!'6 #6 #¯,/$!> '" ,  =¿,*&~# ,#>,~#"&oA&b&-7!_!-@Y-__^1][>2[#"["[>2[!yY"YX>2Y>2yY2Yң-*[~ʀ-h-*U![eHP-*[:[u-*[6 2%0."[:[ʝ-*[#PE*[eH.. 2-!-6-2!YzY:-6# »-HͧHD> 2YX:[*[62yYXQXgM>2Y!o>SHlM*Y!"["[2[:YP.*YZ͘K> !ZNH*Y*Y5"YZ IͮMOYKS.KlM:Z 5 .0x.:~Z5tT7 .5 2ͅ.-!Z"Y#H>!77#H !Y././././././.*["[6/././.*[+"Y.0.0:Y/*["Y*[KE 2[&/:Y&/:[SH:Y-*[DM^!YeHF/ o g{/!>SHZ͘K> !ZNH-3J*[ͪG:[o&3J*[ͪG2[*Y*Y"[*[###"Y6ARG"DIMENSION"FUNCTION DEF"OUT OF BOUNDS"TYPE"FORMAT"LINE NUMBER"FILE"HARD DISK"DIVIDE ZERO"SYNTAX"CONTINUE"TOO LARGE OR NO PROGRAM"DOUBLE DEF"CONTROL STACK"MISSING NEXT"READ"INTERNAL STACK OV"INPUT"MEMORY FULL"ARG MISMATCH"ILLEGAL DIRECT"LENGTH"NUMERIC OV"STOP" BLOCKS"!Z"YLK"Z*YZʹ1~]06);06,:06\?G 1#1>110~ ʫ1 #"0~ ʫ1 #"0,1x ,1,1,1,1{1{1{1{1{1{10ʹ1"YLK>D}*Y0  x ʹ1,0# {1> !~Zq+ # ~ ʷ1#mH͘K##~11 1!?#1~1#11#mH͘K1*[6"[*[6+"[*[#"Y!4G2YLKک.~4wʩ.![eHڻ." -7-͙MIJ|».}һ. ڻ.ͮM}*[w*[~~2I*["[>Â2*[2[>2[#H> ک.OPE##~.~怱O#~.*[62| 2" .73-#H> ҩ.5o&*Y#"Y~ 3 2LKک.>2[-3:[O:[*[" "YÝ3!/ 2[A3xGyO! a3.W_:4 X3.z!< .KE"[KE:[!/ w  ,  w#Ç352H[#H> ک.OPEPE~怱O~.#z:H[3 3=һ.w 3*[" .#H .́K.#H .Y1-g4> . HIJ9H>D4IJz»..2[!H[-3g4> .+6 ]4 ! "[!H[7 E> ! "["[LKڡ4"[9H¡4LKک.|ʻ."[#H ©.I*[~4###"Y+H ʲ4oKھ4Iھ4¾4*[*Y++KEþ4*[DM*[*[~#KE*U 4͙MLK>5}!:"- *yY% ͙M:-2[#H *[*[O5́K9HO5#H *[O5́K#"H[#H ©.lM~:yY‰5:[ʉ5=†5!u>SHKlM:-=2[Z1#NHvMlM!H[eH_5! "Y"YLK5"Y9H5LKک.|ʩ."Y H>2Y-2Y5o&Z͘K> NH!0SH*[*[ I#} 6$|LKک.)J HLKک.)J"[ H![eHҩ.*[~*U*[ I#DM U-:Y0.2Y2Y"["Y6!yY"ÝK.lM 2*[~20.+"Y"Y6 2Y2Y2[DXF6ʵ.HFG=0.!GHKEFè6###"YHͧHvM!9"Y*["Y7~F6:> 2Y2Y#H"Y/7.>+Ho&mHwEH> Ë́=êGIwE.Ḧ́=ͪGḦ́=>;Hz7!B͕G}7̈́=͸G*Y~F=r+s+r+s+6"Y"[GFV0*[.ʤ7¥77I2H[*[#~=#ͶF7}EeH=N#F:H[N~mH 8DM,A8"[mH~F"Y6HT8̈́=ͧGH:Yʻ8>2YoKE97*[RD+H..c>#mH###*[RDxʛ8zʶ8~++ ʃ8á8zʡ87!8!Y6A>"[88<á8#H"8+H#H ."8+H8 \oKһ8+Hʺ8»8»8>2YK8I*[#~="[oK.I)J### 8IJz».HoK. E9 H39I)Jq9I͸GoK.)J~FDMp+q+6###%8I*[#~=ʕ9ʦ9~9#^#V"[~ 8:#~Gy_>YWw#³9"[#~9RD~F9*[U"[+#̈́=~F9͕G#^#V"Y#~"[#^#V"[ͪG*[9I %:\oK#H ȸ+H%:>:F]:Gү.HIJʯ.H=E9H;:y OGү.H!GIJ!GKE9Hڕ:IJKw:HeEV:I~F:>2Y*Y*[!9"Y2yYgM!0SH#;HVIG9H:FGd0.wEG;H:ͪG;>" EG9H:oK*[)J+"YʹH͙M@;ͨFlMͨF,<%ʝ;Hx;̈́=ͧG*[0R;MGͮMlMSH9H@;lM*[RD"[zo;ͮMG;MlMFDM+Ä;H+HLK;D;![Z;@C; ;$;#<~wà;ʹHà;|.}!.2[+HI1;H͙M>";H<?DMK2[lMZwEʟ<2Sڸ<9Hڰ E"Y Æ2[i< INPUT ERROR-RETYPE " IF: IH0.IJ9HIJz».{>!=H[!H[wz».#s#6IJ9HIJsIͨF>o=oK.)J"[ HwE."[ HwE."[>2[ɯ2[QX*[g4Î2!@!9i0.2Y:Y=ͶFگ=}E.͕G==H='I=#HAʪAAYBʋB!@U>#H=H>:Y.*Y->>>.+HÖ=> c>+H͇=~ͅG?>"[ DM!=#mH+H*Y-.c>Ḧ́=H/>O!@ READY"PRESS RETURN TO CONTINUE" ERROR" IN LINE "o65%225~2R6d2{423( 3655/7J71;7,8:L<:9O9w9;:::";6:<<1;%9=0=8VYWIU.s=D2P44==LETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONOUTFILLEXITOPENCLOSEWRITECHAINLINEDESTROYCREATEERRSETRUNLISTMEMSETSCRAUTOLOADCONTAPPENDRENNSAVESAVEBYEEDITDELPSIZECATSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARKINCHAR$FILE([*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTATNFREEINPEXAMABSCOSLOGEXPTYPA XC MNBNA O AA&^qA}AC&AAA_AAA A AAB0BQBA^1][B.Aw.Aw>Aw.Aw.Aw.Aw.Aw>?A ?APYDMg dAdA! dA# YA$wG> PYwG xAxABKxAwG!>zGHIJ9HºAIJ!A3JH=HwE.ÿAHHAwE.zʻ.n&ÿAABGx&BO&B$ "BB$ B%BK>NLJ>!=H[o&3JͧG*Y*[ I3JLJn ҢB!>͕GA~o&ÿALJͯX.W!3J#3J3J#3J0BP@ACBH@.@B)D>y[zGy[t[Oy[t[NBy[Mt[y[N=C!t[zGwTB@TBA hCPY!BzGJ CBC,AڠC͕GLJt[zGt[MÑC͕G1]!YͪGM[CCͅGBK(DMLJ+"n[C:-W0!G#C"n[ͧG*n[}-D?|g}oC"n[#3JͅGBK(DO!"n[eS`E"[zGM*["[N=4DŷH҆D.#HʻDDD>'IҨDwE.zʨD*[DM IG"[*[~ #zD¹D>;HYDHIJ͸GsHèDHIJ{ _D:-ʮ:DḦ́=HͧGʹH*[0RX"[ÆD*[SD*["[!9eH)EKE*[z~+2E! GKEs#r#^#V#!G## KEKKE##GͶF.FE#H>;HʝEGE!GE> OGUE##IJeHһ.##N#FxEK+ HðEH#HHG =EPE"[PE"["[>;H?SF_F![eHF».*[+"[9H>F_F![eH:F»."[H*[ I.#"["[7*[*[>=*[*[*[IJʻ."["["[+H\ ʘF!Y.:~F~?ڤF###"Y#H \!Y[GGhG?OͶF.>$;HyOFy@O:~F+H 7ȸȹF#H G+HFF/.ʵ.HxA*[#*UT]mH|=G~#*G##!G"["[KEq###>2Y7#HA[?rG#H0:?#"Y!B~+ |G*[ T]ͅGBK͸GzG<2Y!Y*[ "[zG*[G"[*Y*Y"Y"Y*YG"YvH!YeHG![eH0*[+"[.,H+HH)+H.+H+"Y*Y~# .H"Y>,+H+"Y7 HH UH"~G .DM#UH#z+{~#fop#zvH#H+H[GڔHhG+H"Y"$*["[*["[*["[*["[!#"[#H!Y2S"Y!YÕGH>""H;H*Y"[G~#I .H"Y*[:Y =:Y0.}o|gW>;HIF.Gڵ.PEH͸G6IwEIʋI͕G͸Gr+s+6̈́=ͪG+H,“II9HIUI> EwI).I>);HI͸Gr+s+w!9͸GxYS w +¾Ir+61yY>;H6w9I0."Y"Y*Y"Y*Y*Y*["[*[Ny7#"[eH+?*[*[ڻ."[ JI..\[͘K> !Y2SÕG̈́=ͅGAͧG~.O #~Jڻ. J~Jڻ. hJz̈́=ͅGBK(D,AҟJLJ{Z*[ͅG͕GJOͅGAͅG͕GLJͅGBKJMͅG DMNͧGLJ{%`C"[bk)))*[_zWYzGA,Ax5Kz».{Y:KX:K|».}gû.By K!T)FK @K#H"[.T?Jڻ..TZK*[+"Y>;H7#^#V#"Y#H *[LKک.I.ɯͽKͽKͽKͽKͽK>0"[ K*[BѰ>0:yY G KK:-x*Y"Y~MY!Z6 ;MOͮMO2Y2YK )L6 !ZY~# L!LʠLʩLLLL_LLʶL MM@M L:Y{L {Lw#6 GDM ͮMOZ!Yw# L6 0. LsL͠L sLìLK LDMºLsLGL L%DML:-G:YL+6 :YDM DMDM:Y<2YDM>DM!ZY#~ "M@DMlM:[K*[SHK:yY \M ;M*[4;M*[6;M DM DM:- 2Y:Y½::02[:[&/é:>#;H>ڪMIJ9H{2yY!zY:yY*U"[~!YòM M![>6+=M![cN>![ NON>w MN[ON N+=M[͇N[ͲNG~@ZNTN>ZN0.G怰[zGO+wgN+w!~ʝNP+>æN>'w+ >¦N !T]bNշ'w+N![w+ N[ Oo`iN/< OzGV[+~ O![1OO+ *O=O#T]cN~P+ԖNF+O7>'+ UOOx'w+ ?qOT]#w…O#~žO O¦O xwO6¼OcN+|G'+OO|G>~͝NxNNpbN. ! "[![w+P6![cN![w+(P w+0P6[![͕PG![͕P*[w#"[ ?P͇NͲNgoAʓPP>PNNW{怲 7>'+ŸPژPNy"[G!i[6":[P+60.=P+6."["["[P+6 P"[+6!*[~cQAQ0Q QH RQQARQ#Q+~.-Q,-Q"JQ1Q!h[:[#uQ:[Q~0Q6 +uQ:[#Q#6"+~"[.®Q+~ ʩQ!®Q##60îQ>0Q*[~>-Q*[/G"Q>0QQ:[@Q![5Q6>,Q*[+W~!."[r*[#W~"R"[rz5cQ-Q>W>0x=_*[~+R0>2[>2[:[IʻR#ʋRER:[ͺP:[ dR~>+Q>$Q*[:[#~R#~ vR+T]"ÂR!"[~ʻRIRG+~®R~ʠRxARJMRJ.2[:[<ͺP>"2h[SR~2[RAw:[ͺP*[~.R#6E#:[+ SA S-/"SR2[2[2[>2[+[S[SVS-\S>2["[>+6=aS"["[.TڛS.€S.TډS7![5.TʂSSESS.TʘSکS.ʆSÔSDT![4.TکS.SES![@S![*[w*[:[G.TSDTSESS.TT+ T T- T€S2[.TҀS_.T!TJ.T:[{S/%;HgU͆JaX H>;H>&;HUHʵU͑Ẍ́=ͧG!Y~•U6~͘W#—U9HjU͑X>nWRD|##U͑X>͘W|͘WU͑X>͘W}͘W*["[zʤU~͘W+U͑XIJ».{͘WäUIJͯX.>%;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{ Hg4> .2H[PE###KEPE~.~!H[w4W)KEKEr:H[w9H3JwE.êG#HIJͯX?X~w/X*[~ wWw~#PE NW++~G nW q*[~怰?X PEKEW͛W/X*[W~~O#PEPEPEeHڻ.ʻ.PE!X" yWzW{_>" !." .!." .6 #6 #=$X*[~@~@wW~@~G~p WͯX?XTX*[~ eHʄXx„X{_eH?XKEw*[ ##F#~#N+ W\eHһ.z».{». KY~"[ͯX6X!."- !." COPYRIGHT NORTH STAR COMPUTERS, INC., 1978GZYM ZZ(.7.PPPPPPPP yYZZ_BPBYE 11539,15 Z 11539,15 BYE 11539,15 ##BYYZYY__!BzG],A!BzG],Aڻ.͕G͏G]M͏GBNͅGAͅG͕GͅGt[zGy[zGy[Ay[Nt[ ]My[t[Ny[N͏G]MͅGNͧGt[zGt[Mt[y[!!]>)Dt[~[!0]>)Dy[M~[N~[OBNBOͅG~wLJ{\/<{\]OM\<wPbCseQA)%FI=1b'vA$8C 2BDCA<]BOʻ..>@BK],A\]=ʻ.4t[zGBNBNt[BNt[Ot[zGt[M>y[!^)D>~[!^)Dy[M~[O]Nt[Mo&3J͏G]NͅGNçGdB1b'v@@)h1cIAg5`iBABK^N2[͕G͏G^O͏GBNͅGAͅG͕GLJ{d^:[2[ͅGt[zGy[zGy[Ay[Nt[^My[t[Ny[N͏G_MͅGNͧG͕G͏GM͏Gt[!_>)DͅGt[Mt[Mt[NͧG:[wpycA1AY&A1AAY&SX=ffW3Q>t&0;A@_!Bt[zGt[O!t[zGt[zGt[M> t[y[!_)Dy[Mz_y[ t_^N!y[_~ʉ_wzG@333#@'YE@w&g?D5u3"'C?q@IT>XIJ».{͘WäUIJͯX.>%;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{ A$25)\ B$25)  R10535)\ Z1 6\\ Z  "FILE NUMBER : ",C$ ( C$C$",2" 32 M1$"FUEL"\N1$"TOLLS"\O1$"LODGE"\P1$"MEALS" 1< Q1$"PARK"\R1$"PARTS"\S1$"MISC"\D1$"NAME" 6F M$M1$C$\N$N1$C$\O$O1$C$\P$P1$C$\Q$Q1$C$ "P R$R1$C$\S$S1$C$\D$D1$C$ Z "IS THIS A NEW FILE? ",F$ 'd F$"YES" \ F$"NO" n n \\T0 s 75 ;x "* * EXPENSE REPORT-Mid-America Ent. Mgmnt. Inc. * *"  \ " " (1) = ENTER DATA" # " (2) = REPORT DATA"  " (3) = QUIT"  T  T1   T1  T2 \  T3  T3   R10535) 5 "* * * * * * * * DATA ENTRIES * * * * * * * * " \S0 $ "SELECT CATAGORY: (1) = FUEL" % " (2) = TOLLS" ' " (3) = LODGING" %" " (4) = MEALS" ', " (5) = PARKING" %6 " (6) = PARTS" %@ " (7) = MISC." J T S ^ S1 "h S1 M$,1\ S1  !r S2 N$,1\ S2  !| S3 O$,1\ S3 0 ! S4 P$,1\ S4 l ! S5 Q$,1\ S5  ! S6 R$,1\ S6  ! S7 S$,1\ S7   S7  #1,M$  "FUEL............"  "AMOUNT $ ",A  #1,A,  A0 #1\ A0    #2,N$  "TOLLS............"  "AMOUNT $ ",B  #2,B,  B0 #2\ B0 &  0 #3,O$ : "LODGING.........." D "AMOUNT $ ",C N #3,C, X C0 #3\ C0 b D l #4,P$ v "MEALS............."  "AMOUNT $ ",D  #4,D,  D0 #4\ D0    #5,Q$  "PARKING..........."  "AMOUNT $ ",E  #5,E,  E0 #5\ E0    #6,R$  "PARTS.............."  "AMOUNT $ ",F  #6,F,   F0 #6\ F0    #7,S$ * "MISCELLANEOUS......" 4 "AMOUNT $ ",G > #7,G, H G0 #7\ G0 R 4 \ R10535)\C$"0" $f "DO YOU WANT A PRINTOUT ? ",E$ p E$"NO" 8206,176 z E$"YES" 8206,128  E$"YES" 27),"M", E "* * * * * * * * * * * EXPENSE REPORT * * * * * * * * * * * *"  E "* * * * * Mid-America Entertainment Management Inc. * * * * *"  #0,D$  #0,A$,B$,C$  \"FOR: ",A$  \"DATE: ",B$  #0  \   E "FUEL TOLLS LODGING MEALS PARKING PARTS MISC"  5 #1,M$\#2,N$\#3,O$\#4,P$\#5,Q$\#6,R$\#7,S$  #1,A  #2,B $ #3,C . #4,D 8 #5,E B #6,F L #7,G V A0  >`"$ ",%6F2,A," ",%6F2,B," ",%6F2,C," ",%6F2,D," ", %j%6F2,E," ",%6F2,F," ",%6F2,G   T4 ! \"Enter File Number : ",J$ 1 "Enter your rate per kilowatt-hour: $ ",A9 $ "Do you want a printout ? ",V$  V$"YES" 10639,50  V$"NO" 10639,00  T1  T1  T2   T4  R10592) < "* * * * * * * * * * DATA ENTRIES * * * * * * * * * *"  / "Select Catagory : (1) Exterior Lighting" / " (2) Interior Lighting" . " (3) Interior Heating" 9" " (4) Main Building Miscellaneous" 4, " (5) Pool Lighting Exterior" 46 " (6) Pool Lighting Interior" (@ " (7) Pool Pumps" 0J " (8) Pool Miscellaneous" *T " (9) Quit Entries" ^ h Z r Z1 (| Z1 "EXTL"J$,1\ Z1  ( Z2 "INTL"J$,1\ Z2 & ( Z3 "INHT"J$,1\ Z3 b ( Z4 "MBM"J$,1\ Z4  ) Z5 "PEXTL"J$,1\ Z5  ) Z6 "PINTL"J$,1\ Z6  ) Z7 "PPMP"J$,1\ Z7 R ' Z8 "PM"J$,1\ Z8   Z9   Z9   "Exterior Lighting..."  #0,"EXTL"J$ 5 "# Bulbs : ",A1\"Wattage : ",A2\"Usage : ",A3  #0,A1,A2,A3, ! A10 #0\ A10   & "Interior Lighting..." 0 #1,"INTL"J$ 5: "# Bulbs : ",B1\"Wattage : ",B2\"Usage : ",B3 D #1,B1,B2,B3, !N B10 #1\ B10 X : b "Interior Heating..." l #2,"INHT"J$ 7v "# Heaters : ",C1\"Wattage : ",C2\"Usage : ",C3  #2,C1,C2,C3, ! C10 #2\ C10  v : "Main Building Misc.(including hotwater heaters)..."  #3,"MBM"J$ 5 "# Units : ",D1\"Wattage : ",D2\"Usage : ",D3  #3,D1,D2,D3, ! D10 #3\ D10   ! "Pool Lighting Exterior..."  #4,"PEXTL"J$ 5 "# Bulbs : ",E1\"Wattage : ",E2\"Usage : ",E3  #4,E1,E2,E3, ! E10 #4\ E10   ! "Pool Lighting Interior..."   #5,"PINTL"J$ 5* "# Bulbs : ",F1\"Wattage : ",F2\"Usage : ",F3 4 #5,F1,F2,F3, !> F10 #5\ F10 H * R "Pool Pumps..." \ #6,"PPMP"J$ 6f "# Pumps : ",G1\"Amperage : ",G2\"Usage : ",G3 p #6,G1,G2,G3, !z G10 #6\ G10  f F "Pool Miscellaneous (including saunas, heater fan, fridge, etc)"  #7,"PM"J$ 5 "# Units : ",H1\"Wattage : ",H2\"Usage : ",H3  #7,H1,H2,H3, ! H10 #7\ H10     R10592) D "* * * * * POWER REQUIREMENTS-PEMBROOK APARTMENTS * * * * * *"  ?"# UNITS WATTS EA TOTAL KW COST/DAY COST/MONTH" B"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"  "Exterior Lighting..."   A$"EXTL"J$  #0,A$ $ #0,A1,A2,A3 !. A10 #0\ A10 ~ 08 A4A1A2A3\A6A4100024\A7A6A9\A8A730 ` Z0Z0A7\Y0Y0A8 Lj %3I,A1,%10I,A2," ",%7F2,A6," ",%$7F2,A7," ",%$9F2,A8 t $ A~ " - - - - - - - - - - -" 6 24),"subtotal :",%$7F2,Z0," ",%$9F2,Y0\  "Interior Lighting..."   B$"INTL"J$  #1,B$  #1,B1,B2,B3 ! B10 #1\ B10  0 B4B1B2B3\B6B4100024\B7B6A9\B8B730  B8B730  Z1Z1B7\Y1Y1B8 L %3I,B1,%10I,B2," ",%7F2,B6," ",%$7F2,B7," ",%$9F2,B8   A " - - - - - - - - - - -" 6  24),"subtotal :",%$7F2,Z1," ",%$9F2,Y1\  "Interior Heating..."  ( C$"INHT"J$ 2 #2,C$ < #2,C1,C2,C3 !F C10 #2\ C10 x 0P C4C1C2C3\C6C4100024\C7C6A9\C8C730 Z Z2Z2C7\Y2Y2C8 Ld %3I,C1,%10I,C2," ",%7F2,C6," ",%$7F2,C7," ",%$9F2,C8 n < Ax " - - - - - - - - - - -" 6 24),"subtotal :",%$7F2,Z2," ",%$9F2,Y2\ & "Main Building Miscellaneous..."   D$"MBM"J$  #3,D$  #3,D1,D2,D3 ! D10 #3\ D10  0 D4D1D2D3\D6D4100024\D7D6A9\D8D730  Z3Z3D7\Y3Y3D8 L %3I,D1,%10I,D2," ",%7F2,D6," ",%$7F2,D7," ",%$9F2,D8   A " - - - - - - - - - - -" 6 24),"subtotal :",%$7F2,Z3," ",%$9F2,Y3\ ! "Pool Lighting Exterior..."   E$"PEXTL"J$ " #4,E$ , #4,E1,E2,E3 !6 E10 #4\ E10 h 0@ E4E1E2E3\E6E4100024\E7E6A9\E8E730 J Z4Z4E7\Y4Y4E8 LT %3I,E1,%10I,E2," ",%7F2,E6," ",%$7F2,E7," ",%$9F2,E8 ^ , Ah " - - - - - - - - - - -" 6r 24),"subtotal :",%$7F2,Z4," ",%$9F2,Y4\ !| "Pool Lighting Interior..."   F$"PINTL"J$  #5,F$  #5,F1,F2,F3 ! F10 #5\ F10  0 F4F1F2F3\F6F4100024\F7F6A9\F8F730  Z5Z5F7\Y5Y5F8 L %3I,F1,%10I,F2," ",%7F2,F6," ",%$7F2,F7," ",%$9F2,F8   A " - - - - - - - - - - -" 6 24),"subtotal :",%$7F2,Z5," ",%$9F2,Y5\  "Pool Pumps..."   G$"PPMP"J$  #6,G$  #6,G1,G2,G3 !& G10 #6\ G10 X 40 G4G1G2G3110\G6G4100024\G7G6A9\G8G730 : Z6Z6G7\Y6Y6G8 LD %3I,G1,%10I,G2," ",%7F2,G6," ",%$7F2,G7," ",%$9F2,G8 N  AX " - - - - - - - - - - -" 6b 24),"subtotal :",%$7F2,Z6," ",%$9F2,Y6\ l "Pool Miscellaneous..." v  H$"PM"J$  #7,H$  #7,H1,H2,H3  H10 #7  H10  0 H4H1H2H3\H6H4100024\H7H6A9\H8H730  Z7Z7H7\Y7Y7H8 L %3I,H1,%10I,H2," ",%7F2,H6," ",%$7F2,H7," ",%$9F2,H8   A " - - - - - - - - - - -" 6 24),"subtotal :",%$7F2,Z7," ",%$9F2,Y7\  \  Z8Z1Z2Z3Z4Z5Z6Z7  Y8Y1Y2Y3Y4Y5Y6Y7 A  " - - - - - - - - - - -" 6 24),"TOTALS :",%$7F2,Z8," ",%$9F2,Y8\   \ * "File Number : ",J$ D/ "These calculations are based on $",A9,"00 per kilowatt hour." 4  > R10592) #H "File Destruction Routine..." 0R \"Enter File Number to be destroyed :",J$ (\ "EXTL"J$\ "INTL"J$\ "INHT"J$ )f "MBM"J$\ "PEXTL"J$\ "PINTL"J$ p "PPMP"J$\ "PM"J$ z \ 0 "File Number", J$," has been DESTROYED ! "  \ ) "Press 'CR' to return to menu...",O   dQ E!Byyyyyyyyyyyyyy@A 3 K*[BѰ>0:yY G KK:-x*Y"Y~MY!Z6 ;MOͮMO2Y2YK )L6 !ZY~# L!LʠLʩLLLL_LLʶL MM@M L:Y{L {Lw#6 GDM ͮMOZ!Yw# L6 0. LsL͠L sLìLK LDMºLsLGL L%DML:-G:YL+6 :YDM DMDM:Y<2YDM>DM!ZY#~ "M@DMlM:[K*[SHK:yY \M ;M*[4;M*[6;M DM DM:- 2Y:Y½::02[:[&/é:>#;H>ڪMIJ9H{2yY!zY:yY*U"[~!YòM M![>6+=M![cN>![ NON>w MN[ON N+=M[͇N[ͲNG~@ZNTN>ZN0.G怰[zGO+wgN+w!~ʝNP+>æN>'w+ >¦N !T]bNշ'w+N![w+ N[ Oo`iN/< OzGV[+~ O![1OO+ *O=O#T]cN~P+ԖNF+O7>'+ UOOx'w+ ?qOT]#w…O#~žO O¦O xwO6¼OcN+|G MIKE ANDERSONMARCH 18, 19843 BBBB`APA     1`AA9BCAq`A PA@A0B