F ************************************************* ** **( ** TIME/SPEED/DISTANCE FORMULAS - BOB BOSSART **2 ** QUINCY,MA QLINK ID - BOZ128 **F< ** V 1.0 021987 **F ** **P *************************************************Zd:%:(14):5,8:6,7n0,26,2," ",1Cx0,26,3," IME/PEED/ISTANCE ORMULAS ",1r0,26,4," ",1{5,40,4,8,"IME = ISTANCE/PEED",00,6,9,"ISTANCE IN ILES"0,9,10,"PEED IN "0,30,8,"PEED = ISTANCE/IME",0 0,33,9,"ISTANCE IN ILES"H0,28,10,"IME IN INUTES OR OURS"n0,57,8,"ISTANCE = PEED*IME",00,62,9,"PEED IN "0,55,10,"IME IN INUTES OR OURS"5,80,23,12," " 0,23,14," "I 0,23,13," * * ",1} 0,23,15," 1. OMPUTETHEŠITTAKES " "0,23,16," 2. OMPUTETHEAVERAGE " ,0,23,17," 3. OMPUTE ŠCOVERED "!60,23,18," 4. XIT TO "M!@0,23,19,""r!J"";!T(15)"---> ELECT <---":CH$!^CH$"1" CH$"4" 250!hCH$"1"1000:370!rCH$"2"2000:380!|CH$"3"3000:390"CH$"4"4000:260V"0,1,6,"""0,1,7," ""0,1,8," "#0,1,9," "_#0,1,10," "#0,1,11," "#$0,1,12," "($.0,1,13," "k$80,1,14," "$B0,1,15," "$L0,1,16," "4%V0,1,17,""D%`2,7,51,16t%j" = ISTANCE/PEED ":%t" OU WILL BE PROMPTED FOR THE DISTANCE TRAVELED"%~" AND THE AVERAGE SPEED DURING THE TRIP. NTER "&" AS MILES AND AS . OU ARE "S&" THEN ASKED TO SELECT EITHER HOURS OR MINUTES "}&" AS THE FORMAT FOR YOUR ANSWER.":&" <> TO CONTINUE <> FOR MENU": C$&C$(27)0,0,79,24:5000:1210&C$(13)1220:1130*'" = ISTANCE/PEED "::e'" OW WOULD YOU LIKE THE ANSWER PRESENTED?":::'"  IN MINUTES OR  IN HOURS":P1$'P1$"H"1320'P1$"M"1270:1220'" = ISTANCE/PEED"::(" ISTANCE:";D:<( " VERAGE PEED:";SW(T1((DS)60)::6100("  = "T1;" INUTES": 5:1130((" = ISTANCE/PEED"::(2" ISTANCE:";D:(<" VERAGE PEED:";S)FT1(DS100.5)100::6100\)P"  = "T1;" OURS ":(146): 5:1130)0,17,8,"")0,17,9," " *0,17,10," "b*0,17,11," "*0,17,12," "*0,17,13," "(+ 0,17,14," "j+0,17,15," "+ 0,17,16," "+*0,17,17," "0,40,17,18," "r,>0,17,19,"",H18,9,65,18,R" VERAGE = ISTANCE/IME",\:,f" OU WILL BE ASKED FOR THE TRAVELED"-p" AND THE IT TOOK TO GET THERE."$-z::]-" <> TO CONTINUE <> FOR MENU":C$v-C$(13)2210:2200-C$(27)0,0,79,24:5000:2130-"VERAGE = ISTANCE/IME"-:." ISTANCE MUST BE ENTERED AS MILES, BUT YOU ";." MAY SELECT EITHER HOURS OR MINUTES AT THE"P." PROMPT"X.:."ELECT  FOR MINUTES OR  FOR HOURS":P2$.P2$"M"2300.P2$"H"2370:2210."VERAGE = ISTANCE/INUTES "::/ " ISTANCE:";D/ 6/ " IME IN MINUTES:";TW/$ S((DT60)100.5)100::a/. 6100/8 "  VERAGE = ";S" ": 5:2130/B "VERAGE = ISTANCE/OURS"::/L " ISTANCE:";D:0V " IME IN HOURS:";T"0` S(DT100.5)100::,0j 6100]0t "  VERAGE = ";S" ": 5:21300 0,26,10,""0 0,26,11," "#1 0,26,12," "e1 0,26,13," "1 0,26,14," "1 0,26,15," "+2 0,26,16," "m2 0,26,17," "2 0,26,18," "2 0,26,19," "33 0,26,20," "u3& 0,26,21,""30 27,11,74,203: " = PEED * IME"3D 3N " OU WILL BE ASKED FOR THE VERAGE OF"!4X " YOUR TRIP, AND THE LENGTH OF TIME THAT IT "@4b " TOOK TO COMPLETE IT. "J4l ::4v " <> TO CONTINUE <> FOR MENU":C$4 C$(27)0,0,79,24:5000:32104 C$(13)3230:31304 :4 " = PEED * IME"5 :45 " PEED MUST BE ENTERED AS , BUT YOU MAY"g5 " SELECT EITHER MINUTES OR HOURS FOR YOUR "|5 " ENTRY."5 :5 "ELECT  FOR MINUTES OR  FOR HOURS.":P3$5 P3$"M"33205 P3$"H"3390:32306 " = PEED * INUTES"::B6 " VERAGE :";S:e6 " IN MINUTES:";T:6 D((ST)60100.5)1006 61006* "  : ";D" ILES "64 5:31306> " = PEED * OURS"::7H " VERAGE :";S:>7R " IN OURS:";T:\7\ D(ST100.5)100:61007f "  : ";D" ILES "7p 5:313070,25,15,""70,25,16," "&80,25,17,""8826,16,55,17\8" RE YOU URE /?":Q$n8Q$"Y"40808Q$"N"407080,0,79,24:10080,0,79,24:6,1:5,4:""80,24,8,""90,24,9,"  1 ARDCOPY OF THIS PROGRAM "M90,24,10,"  3 IST PROGRAM TO SCREEN "90,24,11,"  5 ET OUT OF HERE ! "9"0,24,12,"  7 EMINDER ! "9,0,24,13,"":61,"OPEN4,4,7:CMD4:LIST:PRINT#4:CLOSE4"(13)=:@3,"COLOR5,4:SCNCLR:LIST"(13)U:J5,"GOTO4290"(13):T7,"COLOR6,7:COLOR5,8:SCNCLR:GOTO4200"(13):^5,1::h0,34,6," 1.7 !! ":r(143):|0,24,8,"ALL THE 128 ONNECTION IN OSTON";0,26,10,"PERATING AT 1200 - 300 AUD"V;0,18,12," >>>>> FOR THE 128 * 64 * / <<<<< "_;5,4;0,30,14," --> ";5,8;0,25,16," ( 6 1 7 ) 7 2 9 - 4 1 6 4";0,28,18," 24 / - 7 /";60005<1,"GRAPHIC":3,"DIRECTORY"(13):5,"DSAVE"(34):7,"LIST"(13)L<(142):"":5,4X<6210:^<<0,18,11,""<0,18,12," "=0,18,13," "R=0,18,14," "=0,18,15," "=0,18,16," " >0,18,17," "F>0,18,18," ">0,18,19," ">0,18,20," ">0,18,21," ":?0,18,22," "w?0,18,23," "? 0,18,24,""?20,11,64,23,0?0,2,1," "@(0,2,3," "R@20,2,2," * * ",1@<0,2,4," 1. OMPUTE THE IT TAKES "@F0,2,5," 2. OMPUTE THE AVERAGE "@P0,2,6," 3. OMPUTE COVERED "AZ0,2,7," 4. XIT TO "LAd0,2,8,""tAn"";Ax(15)"---> ELECT <---":CH$ACH$"1" CH$"4" 5150ACH$"1" 0,0,79,24:1000:5270BCH$"2" 0,0,79,24:2000:5280.BCH$"3" 0,0,79,24:3000:5290TBCH$"4" 0,0,79,24:4000:5150ZBpBz * AN IRISH JIG BY JESSE BROWN * THANKS JESBB&B 0,2,0,15,5,2,200: 19B" V1O4T0U15X0":"V2O3T5U15X0":"V3O3T6U15X0"CA$"V1O4WRV2O3.HG V3O3.HCM V1O4WR V2O3.HG V3O3.HCM V2O3.HC V3O3.HG V1O5QEICQEICM V2O3.HC V3O3.HG V1O5QEICIGIFIEM V2O3.HC V3O3.HG V1O5QFIDQFIDM"DB$"V2O3.HC V3O3.HG V1O5QFIDIFIEIDM V2O3.HC V3O3.HG V1O5QEICQEICM V2O3.HC V3O3.HG V1O5QEICIGIFIEM V2O3QD V1O5IFIEIF V2O3IRQG V2O3IR V1O5IGM"]DBB$"V2O3QC V1O5IEICIC V2O3IR V1O5QC V2O3QC V1O5IR V2O3IRM"uDA$:B$BB$:4080DN1 20DR(0)60000DL(0)10D1,R,L,0,0,0,2DL(0)60000DL(0)20D2,R,L,0,0,0,1DR(0)10000E$L(0)10E.3,R,L,0000E8N:'EB15FEL1,49000,480,1,0,100,1,0: