%& THIS PROGRAM IS TRUCKER/ 5,19""; 1,0,0,"" X2 11: 1,0,X1,"": 1,79,X1,"": X1 1,0,11,"˞":(15); 1,2,1,"": 1,2,2,"": 1,6,3: X1 7: 1,6,2X,"":: 1,6,10,"" 1,13,1,"": 1,13,2,"": 1,13,3," ": 1,13,4," ": 1,13,5,"": 1,13,6," "( 1,13,7," ": 1,13,8," ": 1,14,9," ": 1,13,9," ": 1,13,10," "2 1,24,1," ": X3 9: 1,24,X1," ": X: 1,24,9,"": 1,24,10,""{<1,35,1,"":1,35,2,"":1,35,3," ":62:1,35,8," ":1,35,9,"":1,35,10,""= 70> X58: 1,35,X1,""::F1,46,1," "8 G1,46,2," ":1,46,3," ":1,46,4,"":1,46,5,"":1,46,6,"":1,46,7,"":1,46,8," "e P 1,46,9," ": 1,46,10," " Z1,57,1,"":1,57,2,"":1,57,3,"":1,57,4,"":1,57,5,"":1,57,6,"":1,57,7,""!d 1,57,8,"": 1,57,9,"": 1,57,10,""!n1,68,1,"":1,68,2,"":1,68,3," ":1,68,4," ":1,68,5,"":1,68,6," "!x 1,68,7," ": 1,68,8," ": 1,68,9," ": 1,68,10," ""(143);" 1,38,12,"""1,30,13,"BY":1,30,14,"HUGHES GLANTZBERG":1,28,15,"1602 ELIZABETH DR.":1,28,16,"CARROLLTON, TX 75007"" 1,28,17,""" 1,28,18,""$# 1,28,19,"ADAPTED TO THE C-128 BY"N# 1,28,20," JOHN TEEPLE "x# 1,28,21," OMAHA, NEBRASKA "# 1,28,22,""# 10$ T$=TIME$:XX=VAL(LEFT$(T$,2))*120+VAL(MID$(T$,4,2))*60+VAL(RIGHT$(T$,2)):RANDOMIZE XXM$ MT(2), MP(2,25), MP$(2,25), MR$(2,25), ZM(2,25), DS$(6), NT$(4)n$DD$"$#,###":DC$"$#,###.##"$NT$(1)"FIRST":NT$(2)"SECOND":NT$(3)"THIRD":NT$(4)"FOURTH",%DM$(0)"MONDAY":DM$(1)"TUESDAY":DM$(2)"WEDNESDAY":DM$(3)"THURSDAY":DM$(4)"FRIDAY":DM$(5)"SATURDAY":DM$(6)"SUNDAY"W%5,1:XC190:MF0:HL3:HS7:HR0: 2100% 1,0,2,"YOU ARE AT THE LOS ANGELES TRUCKING TERMINAL."%"THREE TYPES OF CARGO ARE AVAILABLE:"%: 5)"1--ORANGES (HIGHEST PROFIT IF THEY DON'T SPOIL)"?& 5)"2--FREIGHT FORWARDING (PENALTY FOR LATE DELIVERY)"&$ 5)"3--U.S. MAIL (LOWEST RATE, BUT NO HURRY TO ARRIVE)"&.:"THE CARGO IS DUE IN NEW YORK BY 4 PM ON THURSDAY."&8:"WHICH TYPE OF CARGO DO YOU WANT (1, 2, OR 3)?";0'B 59990: ("123",IK$,1)0 1090: CT(IK$): CTx'L "HOW MANY POUNDS WILL YOU CARRY (40,000 IS THE LEGAL LIMIT)";WL'V WL25000 "YOU CAN'T MAKE A LIVING ON HALF A LOAD.": 1100'`: 5) "THEY ARE LOADING YOUR TRUCK NOW."'j(~ RT0 2: NP, MT(RT): I1 NPO( MP(RT,I), MP$(RT,I), MR$(RT,I), ZM(RT,I): I,RTx(TC10:WF190:NP1:TS1:SL55:XNXN1( WL50000 WL50000:"50,000 POUNDS OF CARGO HAS FILLED YOUR TRAILER!": 2(HRHR1: 5,1: 2100: 1,0,2.)"YOU PAID $190.00 FOR A NEARLY FULL TANK OF DIESEL FUEL.":y)"TWO OF YOUR TIRES ARE WORN. DO YOU WANT REPLACEMENTS (Y OR N)?") 59990: ("YNYN",IK$,1)0 1235) IK$"N" 1350)"A NEW TIRE COSTS $200.00. A RETREAD COSTS $100.00."&* " WHICH TYPE DO YOU WANT";Z$:Z$(Z$,1)>* " HOW MANY";Tq* T3 Z$"N" Z$"N" TS2:T2:XCXC200* T3 Z$"R" Z$"R" TS2:T2:XCXC100*  T0 T2 1330* T0 1350+ Z$"R" Z$"R" TCTC3T:XCXC100T: 13506+# Z$"N" Z$"N" TCTC4T:XCXC200T: 1350{+2"I DID NOT UNDERSTAND YOUR ANSWERS.":"LET'S TRY AGAIN!": 1230+F:"YOU MAY CHOOSE THE NORTHERN, MIDDLE OR SOUTHERN ROUTE."+P" WHICH ROUTE DO YOU CHOOSE (N, M OR S)? "$,R 59990: ("NMSNMS",IK$,1)0 13622,S IK$::S,U IK$"N" RT1:RH4: 1600t,Z IK$"M" RT0:RH2: 1600,_RT2:RH1: 1600,xAFSP2CDCR, AF(0)1E07 4000,AF(MF100)TC, AFRH25000(0) 2600- SPSLRH10 2300-HRHR1:HLHL1/- SL40 SL55N-T(55SP): T12 T12.5c-T1SP(4.5.2T)-WFWFT1: WF0 2500-MFMFSP- MFMT(RT) 5000- 2-5,1: 2100. 1,0,1,"APPROXIMATE FUEL:":(WF4(0)10);36) "SPEED: ";SPK."" ODOMETER: ";MF;30) "MILES TO GO: ";"";MT(RT)MF;""Q.,.@ MP(RT,NP)MF 3100: "CRUISING ON " MR$(RT,NP);"".J 3000:"YOU ARE FEELING " CD$.T 2800:"CURRENT WEATHER: " CR$;"".^NSNS1: NS3 1700+/h "HOW FAST DO YOU WISH TO GO (20-100)";SPe/r SP20 "YOUR HAVE TO GO AT LEAST 20 --";: 1640/| SP(1.5SL) SP(1.5SL):"YOU CAN ONLY GET THE OLD RIG TO GO" SP "MPH ON THIS ROAD."/ 1400/0"TRUCK STOP AHEAD. DO YOU WANT TO STOP (Y OR N)? ";E0 59990: ("NYNY",IK$,1)0 1715: IK$c0 IK$"N" S1:HLHL1:w0T85(35(0))0 "DIESEL FUEL COSTS $#.## PER GALLON.";T1000 " HOW MANY GALLONS DO YOU WANT";T11 T10 "PAY $###.##";TT1100:XCXCTT1100:WFWFT1H1"SO FAR, YOU HAVE SPENT " DC$;XC:""1 WF201 "YOUR TANK ONLY HOLDS 200 GALLONS --" (WF200)" GALLONS SPILLED !!":WF2001 TS0 19001T200(50(0)):T1100(70(0))+2 "A NEW TIRE COSTS $###.##. A RETREAD COSTS $###.##.";T,T1a2& " DO YOU WANT TO BUY A TIRE (Y OR N)?";2+ 59990: ("NYNY",IK$,1)0 183520 IK$"N" 19002:2lHRHR1:NS02v"DO YOU WANT TO GET SOME SLEEP (Y OR N)? ";3{ 59990: ("NYNY",IK$,1)0 1915: IK$?3 IK$"N" 5,1: 2100: 1,0,4:e3 " HOW MANY HOURS OF REST";Ts3 T1 3DHHR24(HR24)3HRHRT: 4: CT1 WFWF7T: WF0 WF0: 2570.4 DH21 DH12 T(T2.6):"THANKS TO THE DAYTIME NOISE, YOU GOT ONLY"T"HOURS REAL SLEEP.": 5:4HSHSTU4 T3 HL0: HLHL24 5,1: 2100: 1,0,4,"TIME TO HIT THE ROAD AGAIN."4CT1"YOU NOW HAVE" (WF) "GALLONS OF FUEL.":"DO YOU WANT TO BUY MORE (Y OR N)? ";: 5 59990: ("NYNY",IK$,1)0 2017: IK$85 IK$"N" : 1740\54DHHR8:DT(DH24):DHDH24DTx5R DT6 DTDT7: 21305\DM$"AM": DH12 DM$"NOON": 22005p DH12 DHDH12:DM$"PM"5z DH0 DH12:DH$"MIDNIGHT"5.6 1,12,0: "DAY: ";DM$(DT);37);"TIME: ";DH;DM$;" "46:6^6 (SPSL2RH5)2900(0) 6 (15);"SMOKEY IS BEHIND YOU WITH HIS LIGHTS ON. PULL OVER!";(143)6$ 26. NTNT1:"SEE THE JUSTICE OF THE PEACE FOR YOUR " NT$(NT) " OFFENSE."/78 " WAIT" NT "HOURS FOR YOUR HEARING."E7B HRHRNT:HLHLNTW7L NT3 24307V T(NT((0)5)):T1(5(RTNT((0)4)))7` " THE FINE IS $###.## PLUS $##.## FOR EACH MPH OVER THE LIMIT.";T1,T8j " PAY ";: DD$;T1T(SPSL):"";:XCXCT1T(SPSL)%8t 8:l8~ " YOU ARE SENTENCED TO 30 DAYS IN JAIL FOR RECKLESS DRIVING."u8 28 "YOUR I.C.C. DRIVER'S LICENSE IS REVOKED !"8 55008 T1T1WF:WF0:SP08 T(4.5.2T)T1:MFMFT%9 "AFTER"T"MORE MILES, YOU RAN OUT OF FUEL (DUMMY !!)"e9 " IT COST $200 TO GET A BARREL OF DIESEL DELIVERED."9 WF55:T1((0)5):HRHRT1:ZCZC200:HLHLT19 " YOU ALSO WASTED"T1"HOURS BY YOUR CARELESSNESS."9: CT1 CXCX((0)3):" SITTING WITH THE REFER UNIT OFF IS DAMAGING THE ORANGES."C: 10I: u:( FOR I=80 TO 1 STEP -5:PLAY "N":NEXT I:< "YOUR JUST BLEW A TIRE !!":F TS0 2710:P TCTC2TS:TS0:Z T((0)2)1: T1 T$"OUTSIDE": T$"INSIDE"?;d " IT TOOK"T"HOURS TO CHANGE THE " T$ " TIRE.":HRHRT:HLHRT1J;n 2:; "SINCE YOUR SPARE HAS ALREADY BEEN USED, YOU HAVE TO CALL A TOW TRUCK":"FROM TOWN TO DELIVER A NEW TIRE FOR YOU."< " THIS SERVICE COST $400.00 AND TOOK 4 HOURS."< HRHR4:HLHL4:XCXC400)< 2:/< ]< AF(3000MF)(0): RT1 2870,2820,2910{< AF3300 CR50 2960< AF4800 2965< AF4600 2970<" AF3800 2975<, 2985<6 AF3400 CR50 2960<@ AF4900 2965 =J AF4700 2970;=T AF4200 ((0)3)11 2975: 2980F=Y 2985d=^ AF4000 CR50 2960y=h AF5700 2965=r AF5500 2970=| AF4400 2980= 2985= CR1:CR$"CLEAR & DRY":= CR50:CR$"B-L-I-Z-Z-A-R-D !!":> CR10:CR$"FOG -- LIMITED VISIBILITY":9> CR5:CR$"LIGHT SNOW":O> CR5:CR$"RAIN":z> CR3:CR$"CLEAR, BUT ROADWAY IS WET":> > HL19 HRHS4 CD100:CD$"..E.X.H.A.U.S.T.E.D..":> HL4 (HRHS)2.3 CD1:CD$"RESTED & REARING TO GO.":,? HL8 (HRHS)2.5 CD2:CD$"FINE":^? HL12 HRHS3 CD4:CD$" B O R E D":? HL16 HRHS3 CD8:CD$" T I R E D !!":? CD25:CD$"FATIGUED...YOU'RE GETTING SLEEPY":? ?& "YOU HAVE JUST PASSED " MP$(RT,NP);""@0 ZHZM(RT,NP):SL55H@: (ZH) 3210, 3310, 3360, 3410, 3500, 3710, 3860@D NPNP1: (ZH)8 5000: 5: I4 10: 1,0,I:II17:" ";:II: I: 1,0,4: 1600@ "TIME ZONE CHANGES -- SET CLOCK AHEAD ONE HOUR."@ HRHR1: 2100@ A T100(ZH(ZH))CA "STOP! PAY TOLL OF " "$##.##";T:""OA XCXCTUA mA (0)ZH(ZH) A* "CONSTRUCTION AHEAD !!": 2A4 "SLOW DOWN -- SPEED LIMIT 35 MPH":SL35A> AR (0)ZH(ZH) A\ TSP(0)52&Bf "YOU WERE JUST CLOCKED BY RADAR AT" T "MPH."[Bp TSL3 2320: " NO TICKET THIS TIME."aBz B ZH(ZH) (0).5 3520: B (0)ZH(ZH) B "WEIGHING STATION OPEN -- TRUCKS MUST STOP.": 2C "SCALE WEIGHS TRUCK WITH CARGO, FUEL & DRIVER: ";5C T19000WL7WF25(((0)10))QC "##,### POUNDS.";TbC T(T60000)C T1 " YOU'RE O.K.":C ZH5 3630CT1((0)4)2:" OVERWEIGHT FINE IS $200.00 PLUS" T1 "CENTS/POUND."DXCXC200(TT1)1003D"PAY FINE OF ";: DC$;200(TT1)100:""9D$?D.~D8"YOU ARE NOT ALLOWED TO ENTER LOUISIANA WITH THAT LOAD."DB" TAKE A 200 MILE DETOUR THROUGH ARKANSAS WITH 45 MPH LIMIT."DLSL45:MR$(RT,NP)"ARKANSAS COUNTY ROADS"!EV I12 25:MP(RT,I)MP(RT,I)200: I7E`MT(RT)MT(RT)200=EjUE~ (0)ZH(ZH) eET((0)6)E"A ROCK SLIDE HAS BLOCKED THE ALLEGHANY TUNNEL ENTRANCE."E " THE HIGHWAY DEPARTMENT WILL HAVE IT CLEARED IN"T"HOURS.""FHRHRT: 2: CT1 WFWF7T: WF1 3820BF T1 T1(T2.5): T10gF T13 HL0: T10 HLHL2tFHSHST1F" WHILE WAITING, YOU GOT"T1"HOURS OF SLEEP"F 2100:F" YOU RAN OUT OF GAS WHILE WAITING":T0: 2540FG CT1 G (0)ZH(ZH) hG("THE TRAILER REFRIGERATION UNIT HAS FAILED ENDANGERING THE CARGO."G2" REPAIRS TAKE 2 HOURS AND COST $100.00."G<CXCX((0)5):HRHR2:HLHL2:XCXC100GF 2100: 2GPH FOR I=80 TO 1 STEP -5:PLAY "N":NEXT IH I1 67H 5,1: J1 100: JdH 1,33,11: (15);"C R A S H !!";(143)zH J1 100: J,IHH CD100 (CD25 SP65) "YOU FELL ASLEEP AT THE WHEEL.": 4130I CR50 "YOU DROVE OFF THE ROAD INTO A SNOW FILLED DITCH.": 4130^I CR10 "YOU REAR-ENDED A PICK-UP WITH NO TAIL LIGHTS.": 4130I SP65 "  SPEED KILLS !": 4130I CR2 "YOU HIT A SLICK SPOT":" AND SKIDDED OFF THE ROAD.": 4130J"A DRUNK DRIVER RAMMED YOUR RIG.":" TOUGH LUCK !")J": 2SJ,"YOU LOSE YOUR TRUCK & PROFITS.":J6:"DO YOU WANT TO START OVER (Y OR N)?";J; 59990: ("NYNY",IK$,1)0 4155J@ IK$"N" "B:???0??"JJXP0:NT0: 5,1: 1000J I1 5 K 5,1: J1 60: JIK 1,36,11,"WELCOME": 1,39,12,"TO": 1,35,13,"NEW YORK"^K J1 60: J,IlK 1:5,1K 2100: 1,0,4KTHR(HR24): T10 T21 5140K"THE WAREHOUSE IS CLOSED FOR THE NIGHT. COME BACK TOMORROW." L T24T:HRHRT: 2: 2100&L:T(HR24):T1HR24TQL"YOU COMPLETED THE TRIP IN"T"DAYS";xL( T11 " & "T1"HOURS.": "."L2 " TRIP EXPENSES TOTALED $#,###.##";XCL<T185T85: " TRUCK PAYMENT, INSURANCE AND TAXES COST $#,###";T1MFXCXCT1:#MP CT 5220, 5310, 5360LMdT1(T4)((0)3): T10 CXCXT1Mn CX6 "YOUR ORANGES HAVE SPOILED. HAUL THEM TO THE DUMP!":XT50: 5400Mx"COLLECT SIX-AND-A-HALF CENTS PER POUND FOR GOOD ORANGES."%NXT6.500001E02WL: " TOTAL FOR THE LOAD: $#,###.##";XT7N CX1 5400yN " PART OF THE LOAD IS DAMAGED. SUBTRACT ##%.";5CXNXTXTXTCX20: " NET PAYMENT IS $#,###.##.";XTN 5400NXT.05WL:"COLLECT FIVE CENTS A POUND FOR FREIGHT."'O " TOTAL FOR LOAD = $#,###.##";XT:O HR95 5400OCX2:" YOU'RE LATE!! SUBTRACT TEN PERCENT PENALTY.": 5400O"POSTMASTER PAYS 4.75 CENTS PER POUND ON DELIVERY.":XT.0475WL:CX0: 5400O:XTXTXC:XPXPXT: XT0 54700P" "YOUR NET PROFIT THIS TRIP WAS $#,###.##";XT_P, XT100 " G O O D W O R K !!"P6 XN1 " YOUR AVERAGE PROFIT HAS BEEN $#,###.##";XPXNP@ XT200 XPXN250 " YOU'D MAKE MORE MONEY WASHING DISHES !"+QJ::"DO YOU WANT TO MAKE ANOTHER TRIP (Y OR N)? ";ZQO 59990: ("NYNY",IK$,1)0 5455: IK$zQT IK$"N" 5,1:: 160Q^ "BAD TRIP. . . YOU LOST $#,###.##";(XT)Qh XP0 5430Qr(15);"  YOU ARE BANKRUPT !!!";(143)Q| 42R:(15);"YOUR RIG HAS BEEN REPOSSESSED.";(143)KR: 15: 5,1: 5450YRF# 21,2850RP# 90,BARSTOW,I-15 IN CALIFORNIA,7.80RZ# 225,NEEDLES,I-40 IN CALIFORNIA,1Rd# 440,FLAGSTAFF,I-40 IN CALIFORNIA,3.65Rn# 620,GALLUP,I-40 IN ARIZONA,5.5(Sx# 760,ALBUQUERQUE,I-40 IN NEW MEXICO,3.35QS# 930,TUCUMCARI,I-40 IN NEW MEXICO,1wS# 1040,AMARILLO,I-40 IN TEXAS,7.8S# 1155,OKLAHOMA BORDER,I-40 IN TEXAS,5.5S# 1305,OKLAHOMA CITY,I-40 IN OKLAHOMA,2.65T# 1530,MISSOURI BORDER,OKLAHOMA TURNPIKE,2.40-T# 1815,ST. LOUIS,I-44 IN MISSOURI,0YT# 1980,TERRE HAUTE,I-70 IN ILLINOIS,5.5T# 2050,INDIANAPOLIS,I-70 IN INDIANNA,0T# 2115,OHIO BORDER,I-70 IN INDIANNA,1T# 2220,COLUMBUS,I-70 IN OHIO,5.5U# 2350,WHEELING WEST VIRGINIA,I-70 IN OHIO,4.258U# 2410,NEW STANTON,I-70 IN PENNSYLVANIA,6.75iU# 2570,HARRISBURG,PENNSYLVANIA TURNPIKE,3.75U$ 2760,NEW JERSEY BORDER,PENNSYLVANIA TURNPIKE,2.95U$ 2840,HOLLAND TUNNEL,I-70 IN NEW JERSEY,2.4U$ 9999,NEW YORK,NEW YORK STREETS,0V"$ 18,2710/V,$ 90,BARSTOW,I-15 IN CALIFORNIA,7.8XV6$ 245,LAS VEGAS,I-15 IN CALIFORNIA,1V@$ 365,UTAH BORDER,I-15 IN ARIZONA,0VJ$ 500,END OF INTERSTATE,I-15 IN UTAH,3.2VT$ 555,SALINA,US-89 IN UTAH,4.5V^$ 760,GRAND JUNCTION,I-70 IN UTAH,5.4"Wh$ 1010,DENVER,I-70 IN COLORADO,3.75PWr$ 1190,NEBRASKA BORDER,I-76 IN COLORADO,1vW|$ 1450,OMAHA,I-80 IN NEBRASKA,5.5W$ 1590,DEMOINES,I-80 IN IOWA,4.75W$ 1750,ILLINOIS BORDER,I-80 IN IOWA,5.6W$ 1910,GARY,I-80 IN ILLINOIS,2.5X$ 2050,OHIO BORDER,INDIANNA TURNPIKE,2.45BX$ 2215,CLEVELAND,OHIO TURNPIKE,2.8sX$ 2280,PENNSYLVANIA BORDER,I-80 IN OHIO,4.16X$ 2615,EAST STROUDSBERG,I-80 IN PENNSYLVANIA,3.33X$ 2675,WASHINGTON BRIDGE,I-80 IN NEW JERSEY,2.2Y$ 9999,NEW YORK,CITY STREETS,0Y$ 25,31209Y$ 75,PALM SPRINGS,I-10 IN CALIFORNIA,0_Y$ 225,BLYTHE,I-10 IN CALIFORNIA,1Y% 375,PHOENIX,I-10 IN ARIZONA,0Y% 495,TUCSON,I-10 IN ARIZONA,7.9Y% 650,LORDSBURG,I-10 IN ARIZONA,5.75Y&% 795,EL PASO,I-10 IN NEW MEXICO,0Z0% 965,PECOS,I-10 IN TEXAS,1:Z:% 1080,ODESSA,I-20 IN TEXAS,0_ZD% 1250,ABILENE,I-20 IN TEXAS,3.8ZN% 1439,DALLAS,I-20 IN TEXAS,0ZX% 1610,LOUISIANA BORDER,I-20 IN TEXAS,5Zb% 1785,VICKSBURG,I-20 IN LOUISIANA,0[l% 1965,ALABAMA BORDER,I-20 IN MISSISSIPPI,11[v% 2100,BIRMINGHAM,I-20 IN ALABAMA,4.25][% 2200,GEORGIA BORDER,I-20 IN ALABAMA,0[% 2255,ATLANTA,I-20 IN GEORGIA,0[% 2320,CAROLINA BORDER,I-85 IN GEORGIA,5.75[% 2565,GREENSBORO,I-85 IN CAROLINA,3.8\% 2680,VIRGINIA BORDER,I-85 IN NORTH CAROLINA,7.85;\% 2775,RICHMOND,I-85 IN VIRGINIA,0i\% 2880,WASHINGTON D.C.,I-95 IN VIRGINIA,0\% 2920,BALTIMORE,I-95 IN MARYLAND,2.3\% 2990,NEW LERSEY BORDER,I-95 IN DELAWARE,2.25\% 3110,HOLLAND TUNNEL,NEW JERSEY TURNPIKE,2.4]% 9999,NEW YORK,CITY STREETS,0:]V IK$: IK$"" 59990: G