Category : Science and Education
Archive   : ENERGY.ZIP
Filename : SINSTALL.BAS

 
Output of file : SINSTALL.BAS contained in archive : ENERGY.ZIP
ÿz
:Ù²:Ù TeliSolar Installation Programê:Ù ------------------------------ò(:Ù2:Ù by#<:Ù[F:Ù Tesseract Enterprises Limited.cP:ÙªZ:Ù Builds the "INITVAL.SOL" file needed by the TeliSolar program.²d:Ùºn:ÙÂx:Ù䂆 SAVEVALUE(2),INSTRING$(2)ìŒ:Ùô–:Ù  „ 0 ,"0=GRAPHICS or 1=MONOCHROME"Cª „ 2233 ,"HEATING DEGREE-DAYS"g´ „ 1657 ,"COOLING DEGREE-DAYS"‡¾ „ 25 ,"Jan. sunny days"§È „ 25 ,"Feb. sunny days"ÇÒ „ 25 ,"Mar. sunny days"çÜ „ 25 ,"Apr. sunny days"æ „ 25 ,"May sunny days"'ð „ 25 ,"Jun. sunny days"Gú „ 25 ,"Jul. sunny days"g „ 25 ,"Aug. sunny days"‡ „ 25 ,"Sep. sunny days"§ „ 25 ,"Oct. sunny days"Ç" „ 25 ,"Nov. sunny days"ç, „ 25 ,"Dec. sunny days"6 „ 39 ,"Latitude of your location"<@ „ 104.5,"Longitude of your location"`J „ 15 ,"Gal./bath or shower"‚T „ 25 ,"Gal./laundry(hot)"¥^ „ 15 ,"Gal./laundry(warm)"Åh „ 15 ,"Gal./dishwasher"ér „ 4 ,"Gal./washing dishes" | „ 2 ,"Gal./h & f washing",† „ 3 ,"Gal./food prep."R „ 6 ,"Annual inflation rate"|š „ 9 ,"Average investment return"¨¤ „ 11 ,"Annual fuel escalation rate"È® „ 7.5 ,"Cost of heating"è³ „ 6.0 ,"Cost of cooling"¸ ‡ DUM,INSTRING$()Â:Ù,Ì:Ù ----- OPEN NECESSARY FILES4Ö:ÙVຠ"INITVAL.SOL" ‚ OUTPUT AS 1^ê:Ù„ô:Ù ----- REQUEST NECESSARY DATAŒþ:Ù’Àœ z¨Ê , ë&‘"This program generates the INITVAL.SOL file needed by the ";÷0Ê , 4:‘ "TeliSolar program by Tesseract Enterprises Limited.";JDÊ , : ‘ " ";VNÊ , ŸX‘ "To accept the current default value, simple press the ENTER key";ÓbÊ , : ‘ "when prompted for the new value.";lÊ , : … "Monochrome or Color Adapter Board (M or C)";BOARD$0vBOARD$ ç ÿ(BOARD$,)?€BOARD ç ê^Š‹ BOARD$ ç "M" Í BOARD ç }”‹ BOARD$ ç "C" Í BOARD ç ”ž‹ BOARD ç ê Í l¥¨‚ I ç  Ì À² ‡ VALUE,INSTRING$(I)ؼ Ê , : ‘ ÿ˜(<)Æ Ê , : ‘ "The current value for ";INSTRING$(I);" is ";VALUE4Ð Ê , : ‘ ÿ˜(<)oÚ Ê , : ‘ "Enter your new value for ";INSTRING$(I);€ä … NEWVALUE¿î ‹ NEWVALUE ç  Í USEVALUE ç VALUE :¡ USEVALUE ç NEWVALUEÝø SAVEVALUE(I) ç USEVALUEåƒ Ií :Ù :Ù ----- WRITE NEW FILE :Ù*À24SAVEVALUE() ç BOARDC>‚ I ç  Ì qH ‘#, SAVEVALUE(I)," '";INSTRING$(I)“R ‘ SAVEVALUE(I),INSTRING$(I)›\ƒ I¡f»¨pþƒ°z:ÙØ„:Ù ----- SUBROUTINE TO DRAW A BOXàŽ:Ùì˜ROW ç ø¢Ê ROW,¬‘ ÿ–(É);Ö(E,Í);ÿ–(»)&¶‚ J ç  Ì 
6À Ê ROWéJ,SÊ ‘ ÿ–(º);ÿ˜(E);ÿ–(º)[Ôƒ JjÞÊ ROWé ,‡è‘ ÿ–(Ç);Ö(E,Ä);ÿ–(¶)—ò‚ J ç  Ì ªü Ê ROWé éJ,Ç ‘ ÿ–(º);ÿ˜(E);ÿ–(º)σ JÞÊ ROWé,û$‘ ÿ–(È);Ö(E,Í);ÿ–(¼).Ž)—ò‚ J ç  Ì ªü Ê ROWé éJ,Ç ‘ ÿ–(º);ÿ˜(E);ÿ–(º)σ JÞÊ ROWé,û$‘ ÿ–(È);Ö(E,

  3 Responses to “Category : Science and Education
Archive   : ENERGY.ZIP
Filename : SINSTALL.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/