Atari 8-bit Source code

10REM**TRUCKER**
15CLR:C0=0:C1=1:C2=2:C3=3:C4=4:C5=5:C6=6:C7=7:C8=8:C9=9:C10=10:C20=20:C100=100:C200=C100*C2:OFF=40000
17GRAPHICSC2:SETCOLORC2,C4,C4:SETCOLORC4,C4,C4
20POKE752,C1:POSITIONC6,C4:PRINT#C6;"TRUCKER":PRINT:PRINT"MARCH1981CREATIVECOMPUTING"
25PRINT:PRINT"ATARIVERSIONBYKENMURPHY"
70DIMMT(C2),MP(C2,25),MP$(C3*25*17),MR$(C3*25*21),ZM(C2,25),DS$(C6*C9),NT$(C4*C6),DM$(C8),CIN1$(17),CIN2$(21)
80DIMZ$(C1),CR$(25),CD$(25),T$(C7),SPACE$(C10+C2)
90NT$="FIRSTSECONDTHIRDFOURTH"
92DS$="MONDAYTUESDAYWEDNESDAYTHURSDAYFRIDAYSATURDAYSUNDAY"
100MP$(C1)="":MP$(C3*25*17)="":MP$(C2)=MP$:SPACE$=""
110MR$(C1)="":MR$(C3*25*21)="":MR$(C2)=MR$
120GOSUB5600:GRAPHICSC0
130PRINT:PRINT"Doyouwantplayinginstructions";:INPUTZ$
140IFZ$="Y"THENGOSUB10000
1000XC=190:MF=C0:HL=C3:HS=C7:HR=C0:GRAPHICSC0:GOSUB2100
1010PRINT:PRINT"YouareattheLosAngelestrucking":PRINT"terminal.Threetypesofcargo"
1015PRINT"areavailable:":PRINT
1040PRINT"1--ORANGES(highestprofitIFthey":PRINT"don'tspoil)"
1050PRINT"2--FREIGHTFORWARDING(penaltyfor":PRINT"latedelivery)"
1060PRINT"3--U.S.MAIL(lowestrate,butno":PRINT"hurrytoarrive)"
1070PRINT:PRINT"ThecargoisdueinNewYorkby4PM":PRINT"onThursday."
1075PRINT"Whichtypeofcargodoyouwant";:TRAP1075:INPUTCT:TRAPOFF
1080IFCT<C1ORCT>C3THENPRINT"Pickanumber:1,2or3":GOTO1075
1090PRINT"Howmanypoundswillyoucarry":PRINT"(40000isthelegallimit)";:TRAP1090:INPUTWL:TRAPOFF
1100IFWL<C0ORWL>100000THENPRINT"Loadlimitwrong-tryagain.":GOTO1090
1105IFWL<25000THENPRINT"Youcan'tmakealivingon";WL;"lbs.":GOTO1090
1110PRINT"Yourtruckisbeingloadednow."
1120RESTORE
1150FORRT=C0TOC2:READNP,INVAR1:MT(RT)=INVAR1:FORI=C1TONP
1160READINVAR1,CIN1$,CIN2$,INVAR2:MP(RT,I)=INVAR1:ZM(RT,I)=INVAR2
1170IFLEN(CIN1$)<>17THENCIN1$(LEN(CIN1$)+C1)=SPACE$
1175IFLEN(CIN2$)<>21THENCIN2$(LEN(CIN2$)+C1)=SPACE$
1178J=((I-C1)*17+C1)+(RT*17*25):K=((I-C1)*21+C1)+(RT*21*25):MP$(J,J+16)=CIN1$:MR$(K,K+C20)=CIN2$
1180NEXTI:NEXTRT
1190TC=C10:WF=190:NP=C1:TS=C1:SL=55:XN=XN+C1
1200IFWL>50000THENWL=50000:PRINT"50,000poundsofcargohasfilled":PRINT"yourtrailer!":GOSUB5650
1220HR=HR+C1:GRAPHICSC0:GOSUB2100:PRINT
1225PRINT"Youpaid$190foranearlyfulltank":PRINT"ofdieselfuel.":PRINT
1230PRINT"Twoofyourtiresareworn.":PRINT"Doyouwantreplacements";:INPUTZ$
1240IFZ$="N"THEN1350
1250PRINT"Anewtirecosts$200.Aretread":PRINT"is$100.Whichtypedoyouwant";
1260INPUTZ$
1270PRINT"Howmanydoyouwant";:TRAP1270:INPUTT:TRAPOFF
1280IFT=C3THENIFZ$="N"THENTS=C2:T=C2:XC=XC+C200
1290IFT<C0ORT>C2THEN1330
1300IFT=C0THEN1350
1310IFZ$="R"THENTC=TC-C3*T:XC=XC+C100*T:GOTO1350
1320IFZ$="N"THENTC=TC-C4*T:XC=XC+200*T:GOTO1350
1330PRINT"Ididn'tunderstandyouranswer.":PRINT"Let'stryagain.":GOTO1230
1350PRINT:PRINT"YoumaychoosetheNorthern,Middle":PRINT"orSouthernroute."
1360PRINT"Whichroutedoyouchoose";:INPUTZ$
1365IFZ$="N"THENRT=C1:RH=C4:GOTO1600
1370IFZ$="M"THENRT=C0:RH=C2:GOTO1600
1375IFZ$="S"THENRT=C2:RH=C1:GOTO1600
1380PRINT"PleaseanswerNORTH,MIDDLEorSOUTH.":GOTO1360
1400AF=SP^C2*CD*CR
1420IFAF>RND(C0)*10000000THENGOTO4000
1430AF=SQR(MF+C100)*TC
1440IFAF>RH*25000*RND(C0)THENGOSUB2600
1450IFSP>SL-RH+C10THENGOSUB2300
1460HR=HR+C1:HL=HL+C1
1470IFSL<40THENSL=55
1480T=ABS(55-SP):IFT>12THENT=12.5
1490T1=SP/(4.5-0.2*T)
1500WF=WF-T1:IFWF<C0THENGOSUB2500
1510MF=MF+SP
1520IFMF>MT(RT)THEN5000
1530GOSUB5650
1550GRAPHICSC0:GOSUB2100
1560PRINT"Approximatefuel:";INT((WF-C5)+(RND(C0)*C10));"-Speed:";SP
1570PRINT"Odometer:";MF;"-Milestogo:";MT(RT)-MF
1580PRINT
1600IFMP(RT,NP)<=MFTHENGOTO3100
1601PRINT"Cruisingon";MR$(((NP-C1)*21)+C1+(RT*21*25),((NP-C1)*21)+C1+(RT*21*25)+C20)
1610GOSUB3000:PRINT"Youarefeeling";CD$
1620GOSUB2800:PRINT"Currentweather:";CR$
1630NS=NS+C1:IFNS>C3THENGOSUB1700
1640PRINT"Howfastdoyouwanttogo";:TRAP1640:INPUTSP:TRAPOFF
1650IFSP<C20THENPRINT"Youhavetogoatleast20":GOTO1640
1660IFSP>INT(1.5*SL)THENSP=INT(1.5*SL):PRINT"Youcanonlysettheoldrigtogo";SP;"onthisroad"
1670GOTO1400
1700REM
1710PRINT"Thereisatruckstopahead.":PRINT"Doyouwanttostop";:INPUTZ$
1720IFZ$="N"THENNS=C1:HL=HL+C1:RETURN
1730IFZ$<>"Y"THENPRINT"Makeupyourmind!YESorNO.":GOTO1710
1740T=85+INT(35*RND(C0))
1750PRINT"Dieselfuelcosts";T;"centsa":PRINT"gallon."
1760PRINT"Howmanygallonsdoyouwant";:TRAP1760:INPUTT1:TRAPOFF
1770IFT1>C0THENPRINT"Pay$";T*T1/C100;"forthefuel":XC=XC+T*T1/C100:WF=WF+T1
1780PRINT"Sofaryouhavespent$";XC
1790IFWF>201THENPRINT"Yourtankonlyholds200gallons.":PRINTINT(WF-C200);"gallonswerespilled!":WF=C200
1800IFTS>C0THEN1900
1810T=C200+INT(50*RND(C0)):T1=C100+INT(70*RND(C0))
1820PRINT"Anewtirecosts$";T;".Aretread":PRINT"costs$";T1
1830PRINT"Doyouwanttobuyatire";:INPUTZ$
1840IFZ$="N"THEN1900
1850PRINT"Aretreadoranewone";:INPUTZ$
1860IFZ$="N"THENXC=XC+T:TS=C2:GOTO1900
1870IFZ$="R"THENXC=XC+T1:TS=C1:GOTO1900
1880PRINT"Ididn'tunderstandyouranswer.":GOTO1830
1900HR=HR+C1:NS=C0
1910PRINT"Doyouwanttogetsomesleep";:INPUTZ$
1920IFZ$="N"THENGOSUB2100:RETURN
1930PRINT"Howmanyhoursofrest";:TRAP1930:INPUTT:TRAPOFF
1940IFT<C1THENRETURN
1950DH=HR-24*INT(HR/24)
1960HR=HR+T:GOSUB5650:GOSUB5650:IFCT=C1THENWF=WF-C7*T:IFWF<C0THENWF=C0:GOSUB2570
1970IFDH>21ORDH<12THENT=INT(T/C2+0.6):PRINT"Thankstothenoise,yougotonly":PRINTT;"hoursrest"
1980HS=HS+T
1990IFT>C3THENHL=C0:GOTO2000
1995HL=HL/C2
2000GOSUB5600
2010GOSUB2100:PRINT"Timetohittheroadagain."
2012IFCT<>C1THENRETURN
2015PRINT"Youhave";INT(WF);"gallonsoffuel.":PRINT"Doyouwanttobuymore";
2017INPUTZ$:IFZ$="Y"THEN1740
2020RETURN
2100DH=HR+C8
2120DT=INT(DH/24):DH=DH-24*DT
2130IFDT>C6THENDT=DT-C7:GOTO2130
2140DM$="am"
2150IFDH=12THENDM$="noon":GOTO2200
2160IFDH>12THENDH=DH-12:DM$="pm"
2170IFDH=C0THENDH=12:DM$="midnight"
2200REMTRS-80PEEKS
2210PRINT"Day:";DS$(DT*C9+C1,DT*C9+C9);"Time:";DH;"";DM$
2230RETURN
2300REM
2310IF(SP-SL+C2*RH-C5)^C2<900*RND(C0)THENRETURN
2320PRINT"SMOKEYisbehindyouwithhislights":PRINT"on.PULLOVER!"
2340GOSUB5650
2345NT=NT+C1:I=(NT-C1)*C6+C1
2350PRINT"SeetheJusticeofthePeacefor":PRINT"your";NT$(I,I+C5);"offense."
2360PRINT"Wait";NT;"hoursforyourhearing."
2370HR=HR+NT:HL=HL+NT
2380IFNT>C3THEN2430
2390T=NT*RND(C0)*C5:T1=C5*(RT+NT*RND(C0)*C4)
2395T=INT(T*C100)/C100:T1=INT(T1*C100)/C100
2400PRINT"Yourfineis$";T1;"plus$";T:PRINT"foreachMPHoverthespeedlimit."
2410PRINT"Pay$";T1+T*(SP-SL);"fine.":XC=XC+T1+T*(SP-SL)
2420GOSUB5650:RETURN
2430PRINT"Youaresentencedto30daysinjail":PRINT"forrecklessdriving."
2440GOSUB5650
2450PRINT"YourI.C.C.Driver'sLicenseisrevoked!"
2460GOTO5500
2500T1=T1+WF:WF=C0:SP=C0
2520T=INT((4.5-0.2*T)*T1):MF=MF+T
2530PRINT"After";T;"moremilesyouranout":PRINT"offuel(DUMMY!)"
2540PRINT"Itcosts$200togetabarrelof":PRINT"dieselfueldelivered."
2550WF=55:T1=INT(RND(C0)*C5):HR=HR+T1:XC=XC+C200:HL=HL+T1
2560PRINT"Youalsowasted";T1;"hoursbyyour":PRINT"carelessness."
2570IFCT=C1THENCX=CX+RND(C0)*C3:PRINT"Sittingwiththerefrigeratorunit":PRINT"isdamagingtheoranges."
2580GOSUB5600
2590RETURN
2600GOSUB5600
2620PRINT"Youjustblewatire!!"
2630IFTS=C0THEN2710
2640TC=TC-C2*TS:TS=C0
2650T=INT(RND(C0)*C2)+C1:IFT1=C1THENT$="outside":GOTO2660
2655T$="inside"
2660PRINT"Ittook";T;"hourstochangethe";T$;"tire.":HR=HR+T:HL=HL+T+C1
2670GOSUB5650:RETURN
2710PRINT"Sinceyoursparehasalreadybeen":PRINT"used,youhavetocallatowtruck"
2715PRINT"fromtowntodeliveranewtire."
2720PRINT"Thisservicecost$400andtook4hrs."
2730HR=HR+C4:HL=HL+C4:XC=XC+400
2740GOSUB5650:RETURN
2800REM
2810AF=(3000+MF)*RND(C0):ONRT+C1GOTO2870,2820,2910
2820IFAF<3300ANDCR<>50THEN2960
2830IFAF>4800THEN2965
2840IFAF>4600THEN2970
2850IFAF>3800THEN2975
2860GOTO2985
2870IFAF<3400ANDCR<>50THEN2960
2880IFAF>4900THEN2965
2890IFAF>4700THEN2970
2900IFAF>4200THENIFRND(C0)*C3=C1THEN2975
2901GOTO2980
2910IFAF<4000ANDCR<>50THEN2960
2920IFAF>5700THEN2965
2930IFAF>5500THEN2970
2940IFAF>4400THEN2980
2950GOTO2985
2960CR=C1:CR$="clear&dry":RETURN
2965CR=C10*C5:CR$="BLIZZARD!!":RETURN
2970CR=C10:CR$="Fog--Limitedvisibility":RETURN
2975CR=C5:CR$="Lightsnow":RETURN
2980CR=C5:CR$="Rain":RETURN
2985CR=C3:CR$="Clearbutroadwayiswet":RETURN
3000REM
3010IFHL>19ORHR/HS>C4THENCD=C100:CD$="..EXHAUSTED!!":RETURN
3020IFHL<C4AND(HR/HS)<2.3000000000000003THENCD=C1:CD$="restedandreadytogo":RETURN
3030IFHL<C8AND(HR/HS)<2.5THENCD=C2:CD$="fine.":RETURN
3040IFHL<12ANDHR/HS<=C3THENCD=C4:CD$="BORED!":RETURN
3050IFHL<16ANDHR/HS<=C3THENCD=C8:CD$="TIRED!":RETURN
3060CD=25:CD$="fatiguedandsleepy.":RETURN
3100REM
3110PRINT"Youhavejustpassed";MP$(((NP-C1)*17)+C1+(RT*17*25),((NP-C1)*17)+C1+(RT*17*25)+16)
3120ZH=ZM(RT,NP):SL=55
3130ONINT(ZH)GOSUB3210,3310,3360,3410,3500,3710,3860
3140NP=NP+C1:IFINT(ZH)=C8THEN5000
3141GOTO1600
3210PRINT"Timezonechanges-Setyourwatch":PRINT"ahead1hour."
3220HR=HR+C1:GOSUB2100
3230RETURN
3310T=C100*(ZH-INT(ZH))
3320PRINT"STOP!Paytollof$";T
3330XC=XC+T
3340RETURN
3360IFRND(C0)<ZH-INT(ZH)THENRETURN
3370PRINT"Constructionahead!":GOSUB5600
3380PRINT"Slowdown!-speedlimit35MPH.":SL=35
3390RETURN
3410IFRND(C0)<ZH-INT(ZH)THENRETURN
3420T=INT(SP+RND(C0)*C5-C2)
3430PRINT"YouwerejustclockedbyRadarat":PRINTT;"MPH."
3440IFT>SL+C3THENGOSUB2320:RETURN
3441PRINT"Noticketthistime!"
3450RETURN
3500IFZH<>INT(ZH)THEN3510
3502IFRND(C0)<0.5THEN3520
3505RETURN
3510IFRND(C0)<ZH-INT(ZH)THENRETURN
3520PRINT"Weighingstationopen-trucksstop!":GOSUB5650
3530PRINT"Scaleweighstruckwithcargo,fuel":PRINT"andthedriverinsideat";
3540T=INT(19000+WL+C7*WH+25*(RND(C0)*C10))
3550PRINTT;"pounds."
3560T=INT(T-60000)
3570IFT<C1THENPRINT"You'reO.K.Goahead.":RETURN
3580IFZH=C5THEN3630
3590T1=RND(C0)*C4+C2:T1=INT(T1*C100)/C100
3595PRINT"Overweightfineis$200plus":PRINTT1;"cents/pound"
3600XC=XC+C200+(T*T1)/C100
3610PRINT"Payfineof$";C200+(T*T1)/C100
3620RETURN
3630REM
3640PRINT"YouarenotallowedtoenterLouisiana":PRINT"withthatload."
3650PRINT"Takea200miledetourthrough":PRINT"Arkansaswith45MPHlimit."
3660SL=45:MR$(((NP-C1)*21)+(RT*21*25),((NP-C1)*21)+(RT*21*25)+C20)="ArkansasCountyRoads"
3670FORI=12TO25:MP(RT,I)=MP(RT,I)+C100*C2:NEXTI
3680MT(RT)=MT(RT)+C200
3690RETURN
3710IFRND(C0)<ZH-INT(ZH)THENRETURN
3720T=INT(RND(C0)*C6)
3730PRINT"Arockslidehasblockedthe":PRINT"Alleghanytunnelentrance"
3740PRINT"Thehighwaydepartmentwillhaveit":PRINT"clearedin";T;"hours."
3750HR=HR+T:GOSUB5650:IFCT=C1THENWF=WF-C7*T:IFWF<=C1THENGOSUB3820
3760IFT>C1THENT1=INT(T/C2+0.5):GOTO3770
3761T1=C0
3770IFT1>C3THENHL=C0:GOTO3780
3771IFT1>C0THENHL=HL/C2
3780HS=HS+T1
3790PRINT"Whilewaitingyougot";T1;"hours":PRINT"ofsleep."
3800GOSUB2100:RETURN
3820PRINT"Youranoutoffuelwhilewaiting.":T=C0:GOSUB2540
3830RETURN
3860IFCT>C1THENRETURN
3870IFRND(C0)<ZH-INT(ZH)THENRETURN
3880PRINT"Thetrailerrefrigerationunithas":PRINT"failedendangeringthecargo."
3890PRINT"Repairswilltake2hoursandwill":PRINT"costyou$100."
3900CX=CX+(RND(C0)*C4):HR=HR+C2:HL=HL+C2:XC=XC+C100
3910GOSUB2100:GOSUB5650
3920RETURN
4000GOSUB5600:GRAPHICSC0
4020POSITIONC10+C2,C10+C1:PRINT"CRASH!!"
4030FORJ1=C1TOC6:SOUNDC0,C2,C8,15:SOUNDC1,C4,C8,C5:SETCOLORC4,C0,C10
4040FORJ2=C1TOC6:SETCOLORC4,C0,C10:SETCOLORC4,C0,C0:NEXTJ2
4050SOUNDC0,C2,C8,C4:SOUNDC1,C4,C8,15:NEXTJ1
4055SOUNDC0,C2,C8,C0:FORJ1=15TOC0STEP-C1:SOUNDC1,C4,C8,J1:FORJ2=C0TOC2:NEXTJ2:NEXTJ1
4060PRINT
4070IFCD=C100OR(CD=25ANDSP<65)THENPRINT"Youfellasleepatthewheel.":GOTO4130
4080IFCR=50THENPRINT"Youdroveofftheroadintoa":PRINT"snowfilledditch.":GOTO4130
4090IFCR=C10THENPRINT"Yourear-endedapick-upwithno":PRINT"taillights.":GOTO4130
4100IFSP>65THENPRINT"SPEEDKILLS!!":GOTO4130
4110IFCR>C2THENPRINT"Youhitaslickspotand":PRINT"skiddedoftheroad.":GOTO4130
4120PRINT"Adrunkdriverrammedyourrig!":PRINT"Toughluck!!"
4130PRINT:GOSUB5650
4140PRINT"Youloseyourtruckandprofits.":PRINT
4150PRINT"Doyouwanttostartover";:INPUTZ$
4160IFZ$="N"THENSTOP
4170XP=C0:GRAPHICSC0:GOTO1000
5000FORI=C1TOC5
5020GRAPHICSC0:FORJ=C1TO60:NEXTJ
5030PRINT"WelcometoNewYork!!"
5040FORJ=C1TO60:NEXTJ:NEXTI
5050FORI=C1TO250:NEXTI:GRAPHICSC0
5100GOSUB2100:PRINT
5110T=HR-INT(HR/24):IFT<C10ORT>21THEN5140
5120PRINT"Thewarehouseisclosedforthenight.":PRINT"Comebacktomorrow."
5130T=24-T:HR=HR+T:GOSUB5650:GOSUB2100
5140PRINT:T=INT(HR/24):T1=HR-24*T
5150PRINT"Youcompletedthetripin";T;"days"
5160IFT1>C1THENPRINT"and";T1;"hours."
5170PRINT"Tripexpensestotaled$";XC
5180T1=85*T+85:PRINT"Truckpayments,insurance&taxescost$";T1
5190XC=XC+C1:PRINT
5200ONCTGOTO5220,5310,5360
5220T1=(T-C4)*(RND(C0)*C3):IFT1>C0THENCX=CX+T1
5230IFCX>C6THENPRINT"Yourorangeshavespoiled.":PRINT"Haulthemtothegarbagedump.":XT=-50:GOTO5400
5240PRINT"Collect6and1/2centsperpound":PRINT"forgoodoranges."
5250XT=0.65*WL:PRINT"Totalfortheloadis:$";XT
5260IFCX<C1THEN5400
5270PRINT"Partoftheloadisdamaged.":PRINT"Subtract";C5*CX;"%"
5280XT=XT-XT*CX/C20
5290GOTO5400
5310XT=0.5*WL:PRINT"Collect5centsapoundforfreight."
5320PRINT"Totalfortheload:$";XT
5330IFHR<95THEN5400
5340CX=C2:PRINT"You'relate!!Subtract10%penalty.":GOTO5290
5360PRINT"Postmasterpays4.75centsperpound.":XT=0.0475*WL:CX=C0:GOTO5290
5400PRINT:XT=XT-XC:XP=XP+XT:IFXT<C0THEN5470
5410PRINT"Yournetprofitthistripis$";XT
5420IFXT>1000THENPRINT"GOODWORK!!"
5430IFXN>C1THENPRINT"Youraverageprofithasbeen$";XP/XN
5440IFXT<C200ORXP/XN<250THENPRINT"You'dmakemoremoneywashingdishes!"
5450PRINT:PRINT:PRINT"Doyouwanttomakeanothertrip";:INPUTZ$
5460IFZ$<>"N"THEN1000
5461STOP
5470PRINT"BADTRIP...Youlost$";ABS(XT)
5480IFXP>=C0THEN5430
5490PRINT"Youarebankrupt!!"
5500GOSUB5650
5520PRINT:PRINT"You'rerighasbeenrepossessedbythebank!"
5530PRINT:STOP
5600FORI=C0TOC100*C3:NEXTI:RETURN
5650FORI=C0TO600:NEXTI:RETURN
9030DATA21,2850
9040DATA90,BARSTOW,I-15inCalifornia,7.80
9050DATA225,NEEDLES,I-40inCalifornia,1
9060DATA440,FLAGSTAFF,I-40inArizona,3.65
9070DATA620,GALLUP,I-40inArizona,5.5
9080DATA760,ALBUQUERQUE,I-40inNewMexico,3.35
9090DATA930,TUCUMCARI,I-40inNewMexico,1
9100DATA1040,AMARILLO,I-40inTexas,7.80
9110DATA1155,OKLAHOMABorder,I-40inTexas,5.50
9120DATA1305,OKLAHOMACITY,I-40inOklahoma,2.65
9130DATA1530,MISSOURIBorder,OklahomaTurnpike,2.4
9140DATA1815,ST.LOUIS,I-44inMissouri,0
9150DATA1980,TERREHAUTE,I-70inIllinois,5.5
9160DATA2050,INDIANAPOLIS,I-70inIndiana,0
9170DATA2115,OHIOBorder,I-70inIndiana,1
9180DATA2220,COLUMBUS,I-70inOhio,5.5
9190DATA2350,WHEELINGWestVa,I-70inOhio,4.25
9200DATA2410,NEWSTANTON,I-70inPennsylvania,6.75
9210DATA2570,HARRISBURG,PennsylvaniaTurnpike,3.75
9220DATA2760,NEWJERSEYBorder,PennsylvaniaTurnpike,2.95
9230DATA2840,HOLLANDTUNNEL,I-70inNewJersey,2.40
9240DATA9999,NEWYORK,NewYorkStreets,0
9255DATA18,2710
9260DATA90,BARSTOW,I-15inCalifornia,7.80
9270DATA245,LASVEGAS,I-15inCalifornia,7.80
9280DATA365,UTAHBorder,I-15inArizona,0
9290DATA500,endofInterstate,I-15inUtah,3.2
9300DATA555,SALINA,US-89inUtah,4.5
9310DATA760,GRANDJUNCTION,I-70inUtah,3.75
9320DATA1010,DENVER,I-70inColorado,3.75
9330DATA1190,NEBRASKABorder,I-76inColorado,1
9340DATA1450,OMAHA,I-80inNebraska,5.5
9350DATA1590,DEMOINES,I-80inIowa,4.75
9360DATA1750,ILLINOISBorder,I-80inIowa,5.6
9370DATA1910,GARY,I-80inIllinois,2.5
9380DATA2050,OHIOBorder,IndianaTurnpike,2.45
9390DATA2215,CLEVELAND,OhioTurnpike,2.80
9400DATA2280,PENNSYLVANIABorder,I-80inOhio,4.16
9410DATA2615,EASTSTROUDSBURG,I-80inPennsylvania,3.33
9420DATA2675,WASHINGTONBRIDGE,I-80inNewJersey,2.20
9430DATA9999,NEWYORK,NewYorkStreets,0
9450DATA25,3120
9460DATA75,PALMSPRINGS,I-10inCalifornia,0
9470DATA225,BLYTHE,I-10inCalifornia,1
9480DATA375,PHOENIX,I-10inArizona,0
9490DATA495,TUCSON,I-10inArizona,9
9500DATA650,LORDSBURG,I-10inArizona,5.75
9510DATA795,ELPASO,I-10inNewMexico,0
9520DATA965,PECOS,I-10inTexas,1
9530DATA1080,ODESSA,I-20inTexas,0
9540DATA1250,ABILENE,I-20inTexas,3.80
9550DATA1439,DALLAS,I-20inTexas,0
9560DATA1610,LOUISIANABorder,I-20inTexas,5.00
9570DATA1785,VICKSBURG,I-20inLoiusiana,0
9580DATA1965,ALABAMABorder,I-20inMississippi,1
9590DATA2100,BIRMINGHAM,I-20inAlabama,4.25
9600DATA2200,GEORGIABorder,I-20inAlabama,0
9610DATA2255,ATLANTA,I-20inGeorgia,0
9620DATA2320,CAROLINABorder,I-85inGeorgia,5.75
9630DATA2565,GREENSBORO,I-85inNorthCarolina,3.80
9640DATA2680,VIRGINIABorder,I-85inNorthCarolina,7.85
9650DATA2775,RICHMOND,I-85inVirginia,0
9660DATA2880,WASHINGTOND.C.,I-95inVirginia,0
9670DATA2920,BALTIMORE,I-95inMaryland,2.30
9680DATA2990,NEWJERSEYBorder,I-95inMaryland,2.25
9690DATA3110,HOLLANDTUNNEL,NewJerseyTurnpike,2.40
9700DATA9999,NEWYORK,NewYorkStreets,0
10000GRAPHICSC0:PRINT:PRINT"Youaredrivingan18-wheeltractor-":PRINT"trailercombinationthatcanhold"
10010PRINT"50,000poundsofcargo(10,000pounds":PRINT"overthelegallimit)."
10020PRINT"Youarebuyingyourtruckthrougha":PRINT"bankloanthatrequirespaymentof"
10030PRINT"$1,955permonth,or$85foreach":PRINT"workingday.Thisamountincludes"
10040PRINT"reservesfortaxesandinsurance.":PRINT"Yourtruckhasa200-gallon"
10050PRINT"fueltankandgets4.5milesper":PRINT"gallonofdieselfuel.Yourmileage"
10060PRINT"decreaseswhenyoudrivefasteror":PRINT"slowerthan55milesperhour."
10070PRINT"Yourfuelgaugeisaccuratetowithin":PRINT"5gallonsandyourspeedometeris"
10080PRINT"accuratetowithin5milesperhour."
10090GOSUB15000
11000GRAPHICSC0:PRINT:PRINT"Itisextremelyunlikelythatyou"
11010PRINT"willbeinvolvedinanaccident":PRINT"ingoodweatherifyoudriveata"
11020PRINT"reasonablespeedandgetenoughrest.":PRINT"Thedangerincreasesdramaticallyif"
11030PRINT"youdriveatanexcessiverateof":PRINT"speed,failtoslowdowninafog"
11040PRINT"orablizzard,orcontinuedriving":PRINT"afteryouhavebecomefatigued.An"
11050PRINT"exhausteddriverspeedingthrougha":PRINT"snowstormisaskingfortrouble!"
11060PRINT"Thereisalwaysthedangerof":PRINT"losingtimeduetoaflattire.This"
11070PRINT"dangercanbereducedbypurchasing":PRINT"retreadsormoreexpensivetires"
11080PRINT"beforeyoustartyourtrip,andby":PRINT"promptlyreplacingyoursparetire"
11085PRINT"afteraflattire."
11090GOSUB15000
12000GRAPHICSC0:PRINT:PRINT"Thespeedlimitis55milesperhour":PRINT"unlessotherwiseposted.Generally"
12010PRINT"Smokeywillallowsomeleewaybefore":PRINT"pullingyouover,butthefasteryou"
12020PRINT"gothemorelikelyyouaretoattract":PRINT"hisattention.Therearealsoa"
12030PRINT"coupleofplacesalongthewaywhere":PRINT"aradarspeedtrapmaybein"
12040PRINT"operationwithstrictenforcement.":PRINT"Wheneveryougetatrafficticket"
12050PRINT"youwilllosetimeasyouwaitto":PRINT"payyourfineattheJusticeofthe"
12060PRINT"Peace.Ifyoureceivemorethan3":PRINT"traffictickets,youloseyour"
12070PRINT"InterstateCommerceCommision":PRINT"drivers'license."
12090GOSUB15000
13000GRAPHICSC0:PRINT:PRINT"Everythreeorfourhoursyouwill":PRINT"approachatruckstop.Eachstop"
13010PRINT"willtakeatleastonehourwhile":PRINT"yougetcoffee,fuelandasparetire"
13020PRINT"ifnecessary.Thepriceofdiesel":PRINT"fuelandtireswillvary"
13025PRINT"unpredictably,butdieselfuelwill"
13030PRINT"averageabout$1.00agallon.":PRINT"Truckstopsarealsotheonly"
13040PRINT"placeswhereyoucansleep.Youmay":PRINT"choosewhentosleep,but,ifyou"
13050PRINT"attempttosleepduringtheday,you":PRINT"willbedisturbedbytrafficnoise."
13090GOSUB15000
13100GRAPHICSC0:PRINT:PRINT"Youhaveachoiceof3routestotake":PRINT"crossingtheU.S."
13200PRINT"TheNorthernrouteistheshortest":PRINT"butalsotheriskiest.Thedangerof"
13300PRINT"badweatherishigh,andthespeed":PRINT"limitisvigorouslyenforced."
13400PRINT"TheMiddlerouteislongerthanthe":PRINT"Northernroute,buthasfewerSmokies"
13500PRINT"watchingyourspeedandtheweather":PRINT"conditionsaremuchmorefavorable"
13600PRINT"thantheNorthernroute.Thereare,":PRINT"however,moretruckscalesin":PRINT"operation."
13700PRINT"TheSouthernrouteisthelongest":PRINT"buthasthebestweatherandfewer"
13800PRINT"smokiesandtruckscales."
13900GOSUB15000
14999RETURN
15000POSITIONC2,22:PRINT"Pressanykeywhenreadytocontinue.":POKE764,255
15010IFPEEK(764)=255THEN15010
15020POKE764,255:RETURN	

• Download link 1

• Download link 1
• Download link 2
• Download link 3