—53280,1:—53281,4:™Ç(5)&™"“"V™" THIS PROGRAM WILL RUN ON A C64 OR C128"†(™" ******* C U B I C Y A R D S *******"µ2™" * THIS PROGRAM WAS WRITTEN 06/01/87 *"ä<™" ******* BY-------JACK DUNHAM *******"F™" * P.O.BOX 0485 KENT, WA. 98035-0485 *"BP™" ********* JACKD10 ON Q-LINK *********"qZ™" * PLEASE SHARE ANY COMMENTS WITH ME *"¡d™" ***** DO YOU WANT INSTRUCTIONS ******"Ðn™" ***** AND PRINTER INFORMATION? ******"ÿx™" ******** (Y)ES--(N)O--(Q)UIT ********"‚¡M$:‹ M$²""§130&Œ‹ M$²Ç(89)§1809–‹ M$²Ç(78)§960O ‹ M$²Ç(81)§™"“":€Xª‰130‹´™"“ THIS PROGRAM WAS WRITTEN TO CALCULATE"¹¾™" THE AMOUT OF MATERIAL NEEDED FOR HOME"èÈ™" PROJECTS THAT REQUIRE KNOWING HOW MANY"Ò™" CUBIC YARDS OF CONCRETE OR BEAUTY BARK"BÜ™" OR DIRT OR WHAT EVER YOU WILL NEED"næ™" TO DO A PARTICULAR JOB AND TO PRINT"–ð™" OUT A HARD COPY OF THE RESULTS."Åú™" THE FOLLOWING ARE THE INSTRUCTIONS ON "ë™" HOW TO USE IT TO ITS FULLEST." ™" YOU WILL BE ASKED THE DIMENSIONS"@ ™" OF YOUR PROJECT IN FEET AND INCHES"k "™" IF YOU ENTER A LETTER INSTEAD OF A"— ,™" NUMBER OR ENTER A WRONG NUMBER JUST"À 6™" HIT RETURN UNTIL THE --ARE THESE"æ @™" NUMBERS CORRECT-- PROMPT THEN"!J™" SELECT (N)O AND ENTER THE CORRECT ONES"D!T™" HIT ANY KEY FOR MORE INSTRUCTIONS"W!^¡M$:‹M$²""§350`!h™"“"Ž!r™" IF YOUR DIMENSIONS ARE IN EVEN FEET"º!|™" AND NO INCHES THE (RETURN KEY) WILL"ä!†™" ENTER 0 (NULL) FOR THAT DIMENSION""™" OR YOU CAN ENTER (RETURN KEY) (NULL)")"š™" AND JUST INCHES"Y"¤™" AFTER YOU ENTER ALL DIMENSIONS YOU NEED"…"®™" IT WILL ASK YOU IF WHAT YOU ENTERED"´"¸™" IS CORRECT IF SO ENTER (Y) IF NOT (N)"Ý"™" AND THEN ENTER CORRECTED NUMBERS" #Ì™" THIS PROGRAM WILL LET YOU KEEP RUNNING":#Ö™" TOTALS AND GRAND TOTALS OF DIFFERENT"S#à™" PARTS OF THE JOB"„#ê™" ---------------EXAMPLE-----------------"´#ô™" IF YOU ARE WORKING ON BUILDING A GARAGE"ã#þ™" YOU COULD ENTER THE DIMENSIONS FOR THE"$™" NORTH,SOUTH,EAST AND WEST FOOTINGS"9$™" HIT ANY KEY FOR MORE INSTRUCTIONS"L$¡M$:‹M$²""§540W$&™"“"†$0™" ONE AT A TIME AND THEN GET A TOTAL FOR"³$:™" ALL THE FOOTINGS BY LOOKING AT TOTAL"à$D™" YOU CAN SEND EACH CALCULATION TO THE"%N™" PRINTER AND GET A HARD COPY"-%X™" AFTER YOU PRINT THE LAST FOOTING"Q%b™" CALCULATION PRINT THE TOTAL"n%l™" THEN CLEAR THE TOTAL"ž%v™" THEN CALCULATE THE NORTH,SOUTH,EAST AND"Í%€™" WEST WALLS ( PRINTING THEM OUT IF YOU "ü%Š™" WISH) THEN PRINT TOTAL AND CLEAR TOTAL"$&”™" THEN PRINT A GRAND TOTAL OF THE"L&ž™" FOOTINGS AND WALLS THEN YOU CAN"{&¨™" CALCULATE THE FLOOR AERA AND PRINT OUT"¤&²™" THE GRAND TOTAL OF THE WHOLE JOB"Ñ&¼™" IT WILL ASK YOU ---WHAT PART ARE YOU"'Æ™" WORKING ON --YOU CAN ENTER FOR EXAMPLE"+'Й" * (WITH A MAXIMUM OF 77 CHARACTERS)Z'Ú™" NORTH FOOTING OR WEST WALL AND IT WILL"„'ä™" PRINT THESE WITH EACH CALCULATION"®'î™" FOR A REFERENCE ON EACH HARD COPY"Û'ø™" HIT ANY KEY FOR PRINTER INFORMATION"î'¡M$:‹M$²""§770"( ™"“ THIS PROGRAM WAS WRITTEN TO PRINT OUT"N(™" TO AN OKIMATE-20 BUT SHOULD WORK ON"l( ™" COMMADORE COMPATABLES"œ(*™" IF YOUR PRINTER WILL NOT PRINT BOLDFACE"Ê(4™" UNDERLINING AND ITALICS THEN YOU WILL"ñ(>™" NEED TO SELECT THE NON-OKIMATE")H™" COMPATABLE OPTION BELOW (N)O *"G)R™" * IF YOU LOADED NEW CUBIC YARDS"p)\™" SELECT THE (Y)ES OPTION"–)f™" PRINTER OPTIONS"Ç)p™" OKIMATE-20 COMPATABLE (Y)ES-(N)O-(Q)UIT"Ú)z¡O$:‹O$²""§890í)„‹ O$²Ç(89)§960*Ž‹ O$²Ç(78)§2080*˜‹ O$²Ç(81)§™"“":€ *¢‰890P*¬™" HIT ANY KEY TO START YOUR CALCULATIONS"c*¶¡M$:‹M$²""§950l*À™"“"ž*ÊX²0:A²0:A1²0:A2²0:B²0:B1²0:B2²0:C²0:C1²0:C2²0á*ÔA$²" ":G$²" ":C$²" ":T$²" ":R$²" ":D$²" ":W$²" ":H$²" ":O$²" " +Þ™" PROMPT WILL ASK FOR DIMENSIONS";+è™" IN FEET THEN INCHES (RETURN KEY = 0)"c+ò™" ENTER WIDTH IN FEET":…A2Š+ü™" ENTER WIDTH IN INCHES":…A1°+™" ENTER HEIGHT IN FEET":…B2Ø+™" ENTER HEIGHT IN INCHES":…B1þ+™" ENTER LENGTH IN FEET":…C2&,$™" ENTER LENGTH IN INCHES":…C1P,.™" ARE THESE NUMBERS CORRECT ?"u,8™" (Y)ES-(N)O-(Q)UIT",B¡ D$ : ‹ D$²""§1090¡,L‹ D$²Ç(89)§1140´,V‹ D$²Ç(78)§960Ê,`‹ D$²Ç(81)§™"“":€Ô,j‰1090ÿ,tA²A1ª(A2¬12):B²B1ª(B2¬12):C²C1ª(C2¬12)4-~W$²"":™"“ WHAT PART ARE YOU WORKING ON?"d-ˆ™" THIS IS OPTIONAL (RETURN)=0":…W$Œ-’™" IS THIS WHAT YOU WANT ?"¯-œ™"  (Y)ES-(N)O-(Q)UIT"Ã-¦¡H$:‹H$²""§1190×-°‹ H$²Ç(89)§1240ë-º‹ H$²Ç(78)§1150.Ä‹ H$²Ç(81)§™"“":€ .Ή1190.ØE²A¬B¬C .â™"“",.ìF²466566.öG²E­FB.GT²GTªGP. AGT²AGTªGY.Ÿ4,4_.™j.(™Ç(14)v.2™Ç(142)Ž.<™" WHAT PART?=";W$¥.F™Ç(27);"%G";" "«.P™Î.Z™" CUBIC YARDS NEEDED = "Gå.d™Ç(27);"%H";" "/n™:™" WIDTH ="A2"FEET AND "A1"INCHES"/x™G/‚™" HEIGHT="B2"FEET AND "B1"INCHES"M/Œ™z/–™" LENGTH="C2"FEET AND "C1"INCHES"€/ ™Š/ª˜4: 4›/´‹ X²1 § 1550¡/¾™§/È™Õ/Ò™"DO YOU WANT A COPY (Y)ES-(N)O-(Q)UIT"é/Ü¡A$:‹A$²""§1500ý/æ‹ A$²Ç(89)§16200ð‹ A$²Ç(78)§1550'0ú‹ A$²Ç(81)§™"“":€10‰1500_0™"YOU WANT COPY OF TOTAL (Y)-(N)-(Q)UIT"v0™" TOTAL = ";GTŠ0"¡G$:‹G$²""§15700,‹G$²Ç(89)§1660°06‹G$²Ç(78)§1720Å0@‹G$²Ç(81)§™"“":€Ï0J‰1570Ø0TŸ4,4ß0^4ë0hX²(Xª1)õ0r‰1310þ0|Ÿ4,41†41™Ç(27);"C"&1š™" TOTAL="GT51¤™Ç(27);"D"?1®˜4: 4n1¸™"YOU WANT TO CLEAR TOTAL (Y)-(N)-(Q)UIT"‚1¡C$:‹C$²""§1730–1Ì‹ C$²Ç(89)§1780ª1Ö‹ C$²Ç(78)§1800À1à‹ C$²Ç(81)§™"“":€Ê1ê‰1730Ó1ôGT²0Ý1þ‰1800 2™"WANT COPY OF GRAND TOTAL (Y)-(N)-(Q)UIT"+2™" GRAND TOTAL = ";AGT?2¡T$:‹T$²""§1820S2&‹ T$²Ç(89)§1870g20‹ T$²Ç(78)§1930}2:‹ T$²Ç(81)§™"“":€‡2D‰18202NŸ4,4—2X4¦2b™Ç(27);"C"À2l™" GRAND TOTAL ="AGTÏ2v™Ç(27);"D"Ù2€˜4: 4 3Š™"WANT TO CLEAR GRAND TOTAL (Y)-(N)-(Q)UIT"3”¡R$:‹R$²""§194023ž‹ R$²Ç(89)§1990F3¨‹ R$²Ç(78)§2000\3²‹ R$²Ç(81)§™"“":€f3¼‰1940p3ÆAGT²0y3Й"“"£3Ú™" DO YOU WANT TO CONTINUE"Ã3ä™" (Y)ES--(N)O"×3î¡M$:‹M$²""§2030ê3ø‹M$²Ç(89)§2070ÿ3‹M$²Ç(78)§™"“":€ 4 ‰20304‰960=4 ™"“ NOW HIT YOUR RUN/STOP KEY"l4*™" IN THE FOLLOWING STATEMENTS (RETURN)"˜44™" MEANS FOR YOU TO HIT THE RETURN KEY"Ä4>™" TYPE 1320(RETURN),1330(RETURN),1350"ð4H™" (RETURN),1380(RETURN),1680(RETURN),"5R™" 1700(RETURN),1890(RETURN),1910(RETURN)"O5\™" YOU WILL ONLY NEED TO DO THIS ONE TIME"|5f™" IF YOU NOW SAVE THIS TO YOUR DISK BY"¨5p™" TYPING SAVE (QUOTE) NEW CUBIC YARDS"Ê5z™" (QUOTE),8 THEN HIT RETURN"ò5„™" THEN NEXT TIME YOU USE IT LOAD"6Ž™" NEW CUBIC YARDS AND SELECT (Y)ES"E6˜™" WHEN IT ASKS OKIMATE COMPATABLE.."p6¢™" NOW TYPE RUN AND WHEN OKIMATE-20"™6¬™" COMPATABLE IS ASKED ANSWER (Y)ES"