6,165,1(l2(2);"HELPFUL STUFF FOR HOMEOWNERS"<0,34,11,"AND OTHERF0,33,12,"OVERWORKEDP0,34,13,"ENTITIES"Z::"BROUGHT TO YOU IN THE PUBLIC INTEREST AND IN THE PUBLIC DOMAIN BY:"Nd: " ***====>VINCE STAYTER<====***"n:" WHO HAS GONE FISHING!!"x:::" PRESS ANY KEY TO CONTINUE...A$:A$"" 140"(2);"INSTRUCTIONS:(15);"FIRST";(143);"...DO AS I SAY NOT AS I DO!! READ ALL THE INSTRUCTIONS.:"THIS PROGRAM WILL HOPEFULLY BE HELPFUL IN A NUMBER OF AREAS. THEY ARE:&:">>>>>FIGURING THE COST OF ANYTHING THAT NEEDS TO BE SPREAD OVER AN AREAp" THINGS LIKE PAINT OR FERTILIZER (STARTING TO SOUND LIKE WORK?):">>>>>FIGURING THE COST OF THINGS LIKE FENCING AND CURTAINS :">>>>>BUYING BIG VOLUMES OF FUN STUFF LIKE CONCRETE,SAND,OR STONEZ :">>>>>ESTIMATING WEIGHT LOADS (SAND,SNOW,ETC.) FOR CREATIVE AND ACCURATE EXCUSES Z$"-------------------------------------------------------------------------------" Z$!"NOW IF YOU THINK ABOUT IT, YOU CAN FIGURE OUT THAT THIS PROGRAM IS GOING TO ASKk!"YOU TO DO SOME LEG WORK BEFORE YOU SIT DOWN AT THE KEYBOARD (BUT HONEY, I AM!"WORKING!!) SOME BASIC MEASUREMENTS WILL HAVE TO BE TAKEN BY YOU TO BEGIN.! Z$"":"I SUGGEST YOU RUN THROUGH THE PROGRAM MODULES AT LEAST ONCE TO GET FAMILIARf","WITH THE REQUIREMENTS OF EACH SECTION. GOOD LUCK! AND EASY WORK TO YOU."6:(15);"PRESS ANY KEY TO CONTINUE""@A$:A$"" 330"J"TA$"===*> ALL AMERICAN MENU <*==="#^A(A$): A2(A2) A$" "A$: 350+#h I1 A2I#r 39I);(A$,I);(A$,I)S#|"";j# Z1 50: Z: I#::"1)...BUYING PAINT FOR A GIVEN AREA (INSIDE OR OUTSIDE)#:"2)...BUYING FERTILIZER FOR A GIVEN AREA (HOPEFULLY OUTSIDE)2$" (DON'T INVITE ME OVER IF IT'S FOR";(2);" INSIDE!)"{$:"3)...BUYING ANYTHING BY LENGTH (WIRE, FENCING, CURTAINS, ETC.)$:"4)...BUYING BY VOLUME, SPECIFICALLY CONCRETE%:"5)...BUYING BY VOLUME, SPECIFICALLY FUN THINGS LIKE HELIUM BALLOONS"<%:"6)...HAULING AND HANDLING HEAVY THINGS IN VOLUMEa%:"7)...QUIT AND GO FISHING!!k%(7)%:"ENTER A NUMBER"%"";X & X 530,530,1820,2240,3210,2580,4000&&d&:"BUYING BY AREA-PAINT,FERTILZER, ETC."n&&(7)&0:::::"ENTER P FOR PAINT OR F FOR FERTILIZER";A$&:A$"P" &DA$"F" 1590&NN1 20 'X(27);"R":'b0,35,15,"THIS MEANS WORK, YOU KNOW!!": .35K'l(27);"N":Q'v'::"CHOOSE SHAPE OF AREA TO BE PAINTED"':">>>>>1) SQUARE OR RECTILINEAR(:">>>>>2) TRIANGULAR (PEAK OF A HOUSE TO SITE A LOUSY EXAMPLE)L(:">>>>>3) CIRCULAR (SILOS, LIGHTHOUSES, AND OTHER LOW PLACES)v(:">>>>>4) QUIT AND GO FISHING...(:">>>>>5) RETURN TO MAIN MENU( (7)::"IF YOU'RE SERIOUS ABOUT THIS, ENTER A NUMBER";X( X 730,1060,1340,4000,330<)************START OF RECTILINEAR MODULE*****************F)::)"PLEASE RESPOND WITH ACCUARCY TO THE FOLLOWING QUESTIONS"):"HOW MANY SIDES, WALLS, LARGE FLAT SPOTS DOES THIS JOB HAVE";S): N1 S#*"SIDE #";N;" ":"LENGTH OF SIDE";L(N)K* "WIDTH OR HEIGHTH OF SIDE";W(N)y*"HOW MANY WINDOWS IN THIS SIDE";WI(N)* "HOW MANY DOORS";D(N)** D(N) WI(N)0 3360*4 A(N)L(N)W(N)*6 WALL(A(N)281)2+>"AREA FOR SIDE ";N;"IS ";"";A(N);""e+@"THIS AREA COVERED WITH WALLPAPER WOULD USE ";"";WALL;"";" SINGLE ROLLS"+H"PAINTED AREA FOR SIDE ";N;"IS ";"";A(N)HOLES(N);""+R T(N)A(N)HOLES(N)+\"PRESS ANY KEY TO CONTINUE"+fA$:A$"" 880+p,z N1 S:T(0)T(0)T(N):\,"TOTAL AREA OF ALL SIDES TO BE PAINTED IS ";"";T(0);"",: "PRESS ANY KEY TO CONTINUE",A$: A$"" 930,,"PLEASE RESPOND WITH ACCUARCY TO THE FOLLOWING QUESTIONS"'-:"HOW MANY COATS OF PAINT ARE YOU PUTTING ON";Cn-:"WHAT COLOR? (IRRELEVANT, BUT I THOUGHT YOU SHOULD KNOW)"-:"WHAT IS THE AVERAGE PRICE PER GALLON FOR THE PAINT";P-3390(.:"YOU WILL NEED ";"";GALS;"";" GALLONS OF PAINT AND IT WILL COST YOU ";"$";PC;"";"TO DO THE JOB";b.". COVERAGE IS BASED ON 400 FEET PER GALLON AVERAGE.j.Z$." RETURN TO THE PAINT SUB-MENU IF YOU NEED TO PAINT A HOUSE PEAK AS WELL"/:(15);"PRESS ANY KEY TO CONTINUE"/A$:A$"" 1050!/590U/$:**********START OF TRIANGLE MODULE**********/.::"COVERAGE NEEDED FOR A TRIANGULAR AREA"/8:"THE PEAK OF YOUR HOUSE PROBABLY LOOKS TRIANGULAR. DRAW AN IMAGINARY LINE FROM";O0B" EAVE TO EAVE AND YOU HAVE THE BASE OF YOUR TRIANGLE. A LINE (IMAGINARY AGAIN)";0L" DRAWN FROM THE TIP TOP OF THE PEAK TO THIS BASE IS THE HEIGHT OF YOUR TRIANGLE"0V: (14);" PEAK";(142)0`" . . .1j" . . .]1t" . .";(14);"<<<<<<<<<...HEIGHT";(142)1~" 1(14);" BASE ";(142)1:"THE BASE OF THIS TRIANGLE SHOULD = THE LENGTH OF A PAINTED SIDE. 2:"ENTER THE LENGTH OF THE BASE";B^2:"ENTER THE HEIGHT OF THE PEAK (BASELINE TO APEX)";HP2:"HOW MANY COATS OF PAINT ON THIS AREA";C2:"COST OF A GALLON OF PAINT";P2AT.50(BHP)3:"DO YOU WISH THIS AREA TO BE ADDED TO YOUR PREVIOUS TOTALS";Y$r3: Y$"Y" "TOTAL AREA TO BE PAINTED (PEAK AND OTHER IF CALLED FOR) IS ";"";ATT(0);""3: Y$"Y" "TOTAL AREA TO BE PAINTED (PEAK AND OTHER IF CALLED FOR) IS ";"";AT;""3Y$"Y" T(0)033390^4:"YOU WILL NEED ";"";GALS;"";" GALLONS OF PAINT AND IT WILL COST YOU ";"$";PC;"";"TO DO THE JOB";4 :: "PRESS ANY KEY TO CONTINUE"4A$: A$"" 130043304( 52**************START OF CYLINDRICAL MODULE**********************5<l5F::"IF YOU LIVE,PLAY OR WORK IN A LIGHTHOUSE,BARN SILO, MISSLE SILO, OR USED ROCKET,"5P"YOU WILL FIND THIS MODULE HELPFUL WHEN IT COMES TIME TO PAINT SAME.6Z"PRESS ANY KEY TO CONTINUE":A$:A$"" 13806dN17366n0,N,5,"* * * * * [====]>>-"<6x6"PLEASE RESPOND INTELLIEGENTLY TO THE FOLLOWING PROMPTS"6:"WHAT IS THE HEIGHT OF YOUR CYLINDRICAL OBJECT";H6:"WHAT IS THE RADIUS OF SAME";R7:"HOW MANY COATS OF PAINT";C@7:"COST PER GALLON OF PAINT";Pn7 CL((2((RH))2((R2)))100)1007:"HOW MANY WINDOWS";WI7:"HOW MANY DOORS";D7HOLESD18(WI12)7CLCLHOLES48:"AREA OF CYLINDER IS";"";CLHOLES;"AREA TO BE PAINTED IS ";"";CL;""W8GALS(((CL400)C))1001001a834008:"YOU WILL NEED ";"";GALS;"";" GALLONS OF PAINT AND IT WILL COST YOU ";"$";PC;"";"TO DO THE JOB"9:(15);"PRESS ANY KEY TO CONTINUE"'9A$: A$"" 157009"59069,j96: *******START OF FERTILIZER MODULE**********9@::: (2);"THIS FUN SECTION CALCULATES FOR YOU (YOU LUCKY DEVIL) THE FOLLOWING:":J:">>>>> 1) THE AMOUNT OF FERTILIZER NEEDED FOR A GIVEN AREAR:T:">>>>> 2) HOW MANY 50 POUND BAGS YOU NEED TO HAUL HOME:^:">>>>> 3) HOW MUCH THIS FUN ACTIVITY WILL COST YOU:h::: (2);"PLEASE RESPOND TO THE FOLLOWING PROMPTS";r: "HOW LONG IS THE AREA TO BE FERTILIZED";L-;|:"HOW WIDE IS THIS AREA";W8;ALW;:" HOW MANY POUNDS OF FERTILIZER SHOULD BE APPLIED PER 1000 SQUARE FEET";"(THIS INFO SHOULD BE ON THE BAG OF FERTILIZER. IF YOU CAN'T FIND THE INFO USE";+<" A RATE OF 5 POUNDS PER 1000 SQUARE FEET)Z<:"POUNDS PER THOUSAND SQUARE FEET";PD<:"COST OF A 50 POUND BAG";CST<:::< PDS(A1000)5: BAGPDS50: BAG1 BAG1< TSTCSTBAG: TSTCST TSTCSTB="THE AREA TO BE FERTILIZED IS ";"";A;" SQ FT AND TOTAL POUNDS WILL BE ";"";PDS="YOU WILL NEED TO BUY ";"";BAG;"BAGS OF FERTILIZER AT A TOTAL COST OF ";"";"$ ";TST;""=: (2);"PRESS ANY KEY TO CONTINUE"> A$: A$""1790 >330>D>: *******START OF WIRE/FENCE MODULE**********>&::"BUYING BY LENGTH-FENCE, CURTAINS, ETC. ETC.">0:"CHOOSE SHAPE BY NUMBER">::">>>>> 1)SQUARE?D:">>>>> 2)RETANGULAR!?N:">>>>> 3)TRIANGULAR=?X:">>>>> 4)CIRCULARd?b:">>>>> 5)RETURN TO MAIN MENU?l:">>>>> 6)QUIT AND GO FISHING?v(7):X? X 2000,2050,2110,2180,330,1930?: N1 10::+@"*****=>> YOU WILL NOTE THAT I DO NOT ASK YOU EXACTLY WHAT YOU ARE PUTTING "@"AROUND WHAT PERIMETER. I COULD CARE LESS. MY WORK IS **DONE** AND I AM GOING "@"BACK TO G------- LAKE IN O----- COUNTY, STATE OF N.Y. WHERE LAST NIGHT I NETTED "5A"AND RELEASED A 4.5 POUND BUCKETMOUTH, ONE OF SEVERAL, ALBEIT SMALLER, LANDED.}A 12:(7);"BUT NOT THAT MUCH SMALLER!!"A 1:(7);"BYE": 3:: 4000A::: B"GIVE THE LENGHTH OF ONE SIDE OF THE SQUARE";LB P4L!B 3420+B18207B:::B "GIVE THE LENGTH OF THE FIRST SIDE OF THE RECTANGULAR AREA";LB:"GIVE THE LENGTH OF THE OTHER SIDE OF THE RECTANGULAR AREA";WB  P2L2WB*3420B41820B>:::5CH"GIVE THE LENGHT OF SIDE 1 OF THE TRIANGLE";AqCR:"GIVE THE LENGHT OF SIDE 2 OF THE TRIANGLE";BC\:"GIVE THE LENGHT OF SIDE 3 OF THE TRIANGLE";CCf PABCCp 3420Cz1820C:::D"WHAT IS THE RADIUS OF THE CIRCULAR AREA";R0D P((2(R))100)100:D3420DD1820JDD: *******START OF CONCRETE/VOLUME & WEIGHT MODULE***********D"THIS SECTION DEALS WITH BUYING BY VOLUME, ITEMS BOUGHT IN BULK AND OFTEN SOLD"1E" BY THE CUBIC YARD LIKE CONCRETE, SAND, OR CRUSHED STONE"EZ$"*******************************************************************************"EN17:5,N:Z$:E" HEAVY EXPENSIVE STUFF"+F"ENTER THE NUMBER OF THE SHAPE WHOSE VOLUME YOU WISH TO FILL"nF :">>>>> 1) A SQUARE VOLUME (SUPPORT PIERS, FOOTERS, ETC.)F :">>>>> 2) A RECTANGULAR VOLUME (PATIOS, SANDBOXES, & ABOVE NAMED)F :">>>>> 3) A CYLINDRICAL VOLUME (CONCRETE SUPPORT TUBES)$G$ :">>>>> 4) RETURN TO MAIN MENULG. :">>>>> 5) QUIT AND GO FISHINGG8 :">>>>> 6) FIND OUT HOW MUCH A CUBIC FOOT OF STUFF WEIGHSGB (7);(15);"****>>";""GL "";X"HV X 2400,2450,2520,330,4000,2580.H` :::eHj "ENTER ANY SIDE OF THE SQUARE TO BE FILLED";VrHt VLV3}H~ 3460H 2240H :::H "ENTER THE LENGTH OF THE RECTANGLE TO BE FILLED";LH "ENTER THE WIDTH OF THE RECTANGLE";W+I "ENTER THE DEPTH OF THE RECTANGLE";H:I VLLWHEI 3460PI 2240\I :::I "ENTER THE HEIGTH OF THE CYLINDER (TUBE) TO BE FILLED";HI "ENTER THE RADIUS OF THE CYLINDER (TUBE) TO BE FILLED";RJ VL(((R2)H)100)100 J 3460J 2240CJ :***********HOW HEAVY MODULE***********zJ " WEIGHTS OF"J( (2);"COMMON SUBSTANCES"J2 K< (2);" # SUBSTANCE WEIGHT IN LBS./CUBIC FT."5KF :: N1 17: H$,A: N,H$,,;"..........";A:KP :"ENTER  A ZERO TO PRINT A HARD COPY:A SUBSTANCE NUMBER TO CONTINUE";XKZ X0 2700Kd X0 4,4:4Kn (2);" # SUBSTANCE WEIGHT IN LBS./CUBIC FT.""Lx :: N1 17: H$,A: N,H$,,;"..........";A:4L 4:4,4:2580:L LL X1 Y 35^L X2 Y125oL X3 Y10L X4 Y145L X5 Y75L X6 Y1204L X7 Y57L X8 Y120L X9 Y100L X10 Y8L X11 Y30M X12 Y490#M X13 Y1607M X14 Y62.5IM" X15 Y45]M, X17 Y62.5M6 ::: (7);(2);"WHAT WOULD YOU LIKE TO DO WITH THIS HEAVY WEIGHT"M@ :">>>>> 1)FILL A SHAPE WITH IT...OR...NJ :">>>>> 2)MOVE A BUNCH OF IT IN A WHEELBARROWGNT :"WELL...";XZN^ X2 3100Nh X 1 " CHOOSE SHAPE TO BE FILLED"Nr :" 1) CYLINDRICALN| " 2) SQUARE OR RECTANGULARO "";S.O S2 3050^O :"WHAT IS THE RADIUS OF THE CYLINDER";RO "WHAT IS THE HEIGHT OF THE CYLINDER";HO VL(((R2)H)100)100O LBSVLY P :"CAN YOU CARRY IT?!! YOU JUST ADDED ";"";LBS;" POUNDS OF WEIGHT!!"UP :(15);"PRESS ANY KEY TO RETURN TO MAIN MENU": A$P :" ARE YOU SURE";Y$: Y$"Y" 2580P 330P :"GIVE LENGTH OF RECTANGULAR/SQUARE AREA";LP :"GIVE WIDTH OF SAME AREA";W!Q :"GIVE HEIGHTH OF SAME AREA";H=Q VL((LWH)100)100HQ 3000Q :"HOW MANY CUBIC FT OF THIS STUFF DO YOU WANT TO MOVE WITH YOUR WHEELBARROW?"Q& :"ASSUMPTIONS: AN AVERAGE HUMAN BEING IS PROBABLY IN BETTER SHAPE THAN YOU"IR0 "COMPUTERIZED COUCH POTATOES AND CAN MOVE AN AVERAGE OF 150 LBS. A TRIP IN THE"R: "AVERAGE WHEELBARROW. TO FIGURE CUBIC YDS OF STUFF LIKE CONCRETE AND SAND"RD "REMEMBER THAT THERE ARE 27 CUBIC FT IN A CUBIC YDSN :"HOW MANY CUBIC FT DO YOU WANT TO SCHLEP AROUND";FT#SX LBSFTYBSb TRP((LBS150)100)100Sl :"LUCKY YOU!! YOU JUST MADE ";"";TRP;" TRIPS WITH YOUR WHEELBARROW!"Sv 3020S S : *******START OF HELIUM MODULE**************.T ::::(2);"NOW THIS MODULE COULD ACTUALLY BE FUN!!"T :"INPUT THE RADIUS OF A BALLOON YOU WANT TO FILL WITH HELIUM AND THIS "T "MODULE TELLS YOU HOW MANY CUBIC FEET OF HELIUM YOU WILL NEED AND THE "U "APPROXIMATE COST OF THE HELIUM BASED ON CURRENT PRICES."kU " NOTE:USE FEET FOR ALL DIMENSIONS, NOT INCHES (.5 FEET IS O.K. HOWEVER)U :"WHAT IS THE RADIUS OF THE BALLOON TO BE FILLED (1/2 OF DIAMETER)";RU V((1.333(R3))100)100: C.29"V :"THERE ARE ";"";V;" CUBIC FEET IN THIS BALLOON."V :"AT TODAY'S PRICES, IT WILL COST YOU $";"";((VC)100)100;" TO GET THIS OFF THE GROUND"V :"THIS BALLOON CAN LIFT ";"";.053V;" POUNDS OF PAYLOAD"W (.053V)20 "(MORE THAN ENOUGH TO GET YOUR COMMODORE AIRBORNE!!)^W :(15);"PRESS ANY KEY TO RETURN TO MAIN MENU": A$W :" ARE YOU SURE";Y$: Y$"Y" 3210W 330W W HOLES(N)D(N)18(WI(N)12)W* W4 X> GALS((((T(0)AT)400)C))1001001*XH PC((GALSP100))100.010XR X\ "GIVE THE COST PER FOOT OF THE MATERIAL TO SURROUND THIS PERIMETER";CXf :"YOU HAVE A PERIMETER OF ";"";P;" FEET AND A TOTAL COST OF $";"";CP;" TO DO THIS JOB."$Yp :"PRESS ANY KEY TO RETURN TO THIS SUB MENU": A$*Yz lY "GIVE THE COST PER CUBIC YARD OF THE FILLER MATERIAL";CY YD((VL27)100)100Y :"YOUR OBJECT HAS A VOLUME OF ";"";YD;" CUBIC YARDS." Z :"IT WILL COST YOU $";"";((YDC)100)100;" TO FILL IT!"GZ :"PRESS ANY KEY TO RETURN TO THIS SUB MENU": A$MZ Z BOOKS,35,BRICK,125,CLOTHES,10,CONCRETE,145,WET EARTH,75,GOLD,1204,ICE,57,MUD,120,SAND,100,NEW SNOW,8,WET SNOW,30[ STEEL,490,STONE,160,WATER,62.5,HARD WOOD,45, SOFT WOOD,30,BEER,62.5[::::p["THIS PROGRAM IS THE SOLE PROPERTY OF THE AUTHOR AND MAY NOT BE SOLD WITHOUT"["HIS EXPRESS PERMISSION. IT IS OFFERED ";(15);"";"ONLY";(143);"";" TO THE PAID MEMBERSHIP OF THE"E\(2);"LEATHERSTOCKING COMMODORE USERS CLUB";(130);" AS FREEWARE. TO THE REST OF THE WORLD"\" IT IS SHAREWARE AND ";(15);"ANY";(143);" DONATION WOULD BE GRATEFULLY"]" RECEIVED, NO MATTER HOW ";(14);" SMALL.";(142);" ADDRESS AS FOLLOWS:"8]:" VINCE STAYTERi]" 29 EAST STREET]" ONEONTA, N.Y. 13820]:" SUGGESTIONS FOR IMPROVEMENTS HAPPILY RECEIVED"D^:"REMEMBER: ALLAH DOES NOT DEDUCT FROM A MAN'S ALLOTTED TIME THOSE HOURS SPENT INs^" FISHING"^::" PRESS ANY KEY TO QUIT"^" A$: A$"" 4140^, 57344