Atari 8-bit Source code

5ERR=8000
10DIMC$(15),S$(15),NC$(15),NS$(15),A$(30),PH$(20),H$(20),H1$(20),H2$(20),H3$(20),CB$(60)
20Y=INT(6*RND(0))*10:MS=2918:DS=15000:HS=50.4:ML=MS:DL=DS:HL=HS:GOSUB4000:?:?"SMOKEY":?
25J=INT(22*RND(0))
50?:?"ACERTAIN'BANDIT'HOLDSTHEWORLDRECORDOF50HOURSFORTHE2918MILESFROMSANFRANCISCOTO";
60PRINT"NEWYORKCITY.WILLYOUBETHENEXTWORLDRECORDHOLDER?":PRINT
70PRINT"ACERTAIN'SMOKEY'WANTSTOSEETHAT'BANDIT'HUMILIATED,DISCREDITED,DISGRACED,ANDEMBARRESSED.";
80?"HEISOFFERING$15,000FOREXPENSESTOANYCHALLENGERAND$100,000TOANYONETHATBREAKSTHERECORD.":?
90TRAPERR:RES=90:?:?"DOYOUWANTTOBREAKTHERECORD";:INPUTA$:IFA$(1,1)="N"THEN990
100?"YOUHAVE$15,000,PICKOUTYOURCAR":?:?"1-DATSUN280Z2-TRANSAM"
110?:?"TOPSPEED126MPH160MPH":?:?"EPA-HWY32MPG24MPG"
120?:?"FUELTANK21GAL18GAL":?:?"PRICE$14,000$12,000"
130?:?"3-MAZDARX-74-CITATIONX-11":?:?"TOPSPEED118MPH105MPH"
140?:?"EPA-HWY30MPG38MPG":?:?"FUELTANK16GAL13GAL"
150?:?"PRICE$11,600$9,500"
160TRAPERR:RES=160:?:?"WHICHCARWILLYOUBUY(1-2-3-4)";:INPUTCR:RESTORE5100:FORN=1TOCR:READTS,EPA,GT,D:NEXTN
190DL=DL-D:GL=5:PRINT:PRINT"YOUHAVE5GALSOFGASINYOURNEWCAR":GOSUB1700
200TRAPERR:RES=200:?:?"DOYOUWANTTOBUYACB";:INPUTA$:IFA$(1,1)="N"THENCB=0:GOTO300
220TRAPERR:RES=220:?:?"WHICHCB1-$942-$1643-$2240-NONE";:INPUTCB:IFCB=0THEN300
230RESTORE5200:FORN=1TOCB:READD:NEXTN:DL=DL-D
270TRAPERR:RES=270:PRINT:PRINT"WHAT'SYOURHANDLE";:INPUTPH$
300RESTORE5001:GOSUB1100:?"HEREISYOURMAPANDROUTE"
310READC,R,M,NC$,NS$,H1$,H2$,H3$
315IFC=14THENPLOTC,R:GOTO310
320DRAWTOC,R:IFNS$="X"THENREADC,R:DRAWTOC,R:GOTO330
325GOTO310
330FORN=1TO800:NEXTN
340NC$="SANFRANCISCO":NS$="CALIFORNIA":S$=NS$:C$=NC$:L=1
350RESTORE5001:READC,R,M,NC$,NS$,H1$,H2$,H3$
360GOSUB4000:?:?"YOUARENOWLEAVING";C$:GOTO490
400IFNS$="X"THENGOTO420
405IFS$<>NS$THENGOSUB1200
410C$=NC$:S$=NS$
420RESTORE5001:GOSUB1100
425L=L+1
430FORN=1TOL
435IFN=24THENREADC,R:DRAWTOC,R:?"YOUARENOWAPPROACHINGNEWYORKCITY!":FORN=1TO800:NEXTN:GOTO900
440READC,R,M,NC$,NS$,H1$,H2$,H3$
450IFC=14THENPLOTC,R
460DRAWTOC,R:NEXTN
470?"YOUARENOWAPPROACHING";C$:?S$:FORN=1TO800:NEXTN:GOSUB4000
480IFNS$="X"THEN?:?"ITIS";M;"MILESTO";NC$:FORN=1TO1500:NEXTN:GOTO500
490?:?"IT'S";M;"MILESTO";NC$;",";NS$:GOSUB1300
500?:IFHA>19THEN?"YOUAREGETTINGVERYSLEEPY":GOTO520
510?:IFHA>15THEN?"YOUAREGETTINGTIRED"
520TRAPERR:RES=520:?:?"DOYOUWANTTOSTOP";:INPUTA$:IFA$(1,1)="N"THEN560
530TRAPERR:RES=530:?:?"DOYOUWANTTOSTOPFOR1-GAS2-FOOD3-SLEEP0-NONE";:INPUTA:IFA=0THEN560
540ONAGOSUB1700,1800,1900
550TRAPERR:RES=550:IFDL<=0THEN1350:?:?"AREYOUREADYTOGO";:INPUTA$:IFA$(1,1)="N"THEN530
560W=INT(20*RND(0)):IFW>3THENW=0
570IFCB>0THENGOTO600
580RESTORE5300:?:?"WEATHERREPORT-";:FORN=0TOW:READA$:NEXTN:?A$
600TRAPERR:RES=600:B=INT(3*RND(1)):IFCB>0THEN?:?"ENTER'C'FORCBREPORT";:INPUTA$:IFA$="C"THEN1000
620TRAPERR:RES=620:SPL=55:?:?"HOWFASTWILLYOUDRIVE";:INPUTSP
630IFSP>TSTHEN?:?"YOURCARWILLONLYGO";TS;"MPH":SP=TS:FORN=1TO400:NEXTN
700GOSUB2000:IFHA>19THENX=INT(3*RND(1)):IFX=3THEN2100
710IFSP>80ANDW>0THENX=INT(10*RND(1)):IFX=7THEN2800
720IFSP>SPLTHENX=INT(20*RND(0)):IFX=9THEN2800
730IFB=2ANDSP>SPLTHENX=INT(3*RND(1)):IFX>0THEN3000
740IFSP>SPLTHENX=INT(10*RND(1)):ONXGOTO3000
750X=INT(30*RND(0)):ONXGOTO2200,2300,2400,2600,2700
760GOSUB4000:HR=M/SP:HL=HL-HR:HA=HA+HR:ML=ML-M:GL=GL-M/EPA:IFSP>55THENX=SP-55:GL=GL-(X/100*(M/EPA))/2
770IFGL<=0THENGOSUB1700
780IFDL<0THENGOTO1350
790GOTO400
800Z=Z+1:HR=M/2/SP:HL=HL-HR:HA=HA+HR:GL=GL-M/2/EPA:ML=ML-M/2:IFSP>55THENX=SP-55:GL=GL-(X/100*(M/2/EPA))/2
820IFDL<=0THENGOTO1350
830IFGL<=0THENGOSUB1700
840IFZ=2THENZ=0:GOTO400
850?:?"YOUARESTILL";M/2;"MILESFROM";NC$;",";NS$:GOSUB1300
860TRAPERR:RES=860:?:?"HOWFASTWILLYOUDRIVE";:INPUTSP
870IFSP>TSTHEN?:?"YOURCARWILLONLYGO";TS;"MPH":SP=TS:FORN=1TO400:NEXTN
880GOSUB2000:IFSP>SPL+5THENX=INT(30*RND(1)):IFX=25THENGOTO2800
890GOSUB4000:GOTO800
900GOSUB4000
910?:?"YOUCOMPLETEDTHETRIPIN";INT(HS-HL);"HOURS"
920IFHL<=0THEN?:?"YOUDIDNOTBREAKTHERECORD":GOTO960
930?:?"YOUGETTHE$100,000ANDHOLDTHENEWWORLDRECORD!":?:?"GOODDRIVING!!!!!"
940TRAPERR:RES=940:?:?"DOYOUWANTTOTRYTOBREAKYOURRECORD";:INPUTA$:IFA$(1,1)="Y"THEN30
950GOTO990
960TRAPERR:RES=960:?:?"TOUGHLUCK-DOYOUWANTTOTRYAGAIN";:INPUTA$:IFA$(1,1)="Y"THEN20
990?:?"CATCHALATER,GOODBUDDY":END
1000IFCB=1THENX=INT(50*RND(1)):IFX=10THENCB=0:GOTO1080
1010IFCB=2THENX=INT(100*RND(1)):IFX=25THENCB=0:GOTO1080
1020RESTORE6000+J:J=J+1:IFJ>22THENJ=0
1025READCB$:?:?"THISIS";PH$:?"TRYINGTOBREAKTHEBANDIT'SRECORD":?"HOWABOUTAWESTBOUNDER":?CB$
1030?:?"YOUGOTTHE";:IFB=2THENREADCB$:?H2$:GOTO1050
1040?H1$
1050READCB$:?CB$:READCB$:IFW>3THENW=0
1060IFB<2THENREADCB$
1065IFW>0THENRESTORE5400:FORN=1TOW:READA$:NEXTN:?A$
1070?CB$:GOTO620
1080?:?"YOUGOTANEARACHE-ABROKENCB":GOTO570
1100GOSUB4040
1105SETCOLOR0,2,8:SETCOLOR2,8,1:SETCOLOR4,8,1
1110PLOT14,4:DRAWTO14,7:PLOT13,8:DRAWTO13,10:PLOT12,11:DRAWTO12,17:PLOT13,18:DRAWTO13,20:PLOT14,21
1115PLOT14,22:DRAWTO17,25:PLOT18,26:DRAWTO20,26:PLOT21,27:PLOT22,27:PLOT23,28:DRAWTO27,28:PLOT28,27
1120PLOT29,27:PLOT30,28:PLOT30,29:DRAWTO32,31:PLOT33,31:PLOT34,30:DRAWTO39,35:PLOT37,34:PLOT39,34
1125DRAWTO42,31:PLOT43,31:PLOT44,30:DRAWTO47,30:PLOT48,30:DRAWTO50,28:DRAWTO53,28:PLOT54,29:DRAWTO56,29
1130DRAWTO57,30:PLOT57,31:DRAWTO60,34:PLOT61,33:PLOT61,32:DRAWTO59,30:PLOT59,29:DRAWTO57,27:DRAWTO57,25
1135DRAWTO61,21:PLOT61,20:DRAWTO61,14:PLOT62,13:DRAWTO62,11:DRAWTO64,9:DRAWTO64,6:DRAWTO66,4:DRAWTO64,2
1140DRAWTO63,5:PLOT62,6:DRAWTO60,6:PLOT59,7:DRAWTO59,9:PLOT59,10:DRAWTO57,10:DRAWTO54,13:PLOT53,13
1150PLOT52,12:DRAWTO52,10:PLOT51,9:PLOT51,8:PLOT50,9:DRAWTO50,12:PLOT49,13:PLOT48,13:PLOT47,12
1155DRAWTO47,8:PLOT47,7:DRAWTO45,7:PLOT44,6:PLOT43,6:PLOT42,5:DRAWTO25,5:PLOT24,4
1160DRAWTO19,4:PLOT18,3:DRAWTO16,3:PLOT15,4
1165RETURN
1200GOSUB4020
1210POSITION6,2:PRINT#6;"WELCOME":POSITION9,5:PRINT#6;"TO"
1220LETP=INT((20-LEN(NS$))/2):POSITIONP,8:?#6;NS$:FORN=1TO300:NEXTN:RETURN
1300?:?"MILESTOGO","FUELHOURSMONEY":?:?"";ML,INT(GL);"GL";INT(HL);"$";INT(DL)
1310RETURN
1350?:?"YOUDONOTHAVEENOUGHMONEYTOPAYANDMAYNOTCONTINUE":GOTO960
1700X=INT(15*RND(1)):D=X/100+1.3:HR=0.25+X/100:HL=HL-HR:IFGL>0THEN1740
1720X=INT(3*RND(1)+1):GL=5:DL=DL-D*9:HL=HL-X:HA=HA+HR+X:?:?"YOURANOUTOFGAS!"
1730?:?"ITCOSTYOU$";D*9;"AND";INT(HR+X);"HOURSTOGETA5GALCANOFGASANDBACKTOAGASSTATION"
1740TRAPERR:RES=1740:?:?"GASIS$";D:?:?"HOWMANYGALLONSDOYOUWANT";:INPUTG:GL=GL+G
1750DL=DL-G*D:X=INT(GL-GT):IFX>0THENGL=GT:?:?"YOURTANKONLYHOLDS";GT;"GALS":FORN=1TO300:NEXTN
1760RETURN
1800TRAPERR:RES=1800:?:?"WILLYOUEAT1-BREAKFAST2-LUNCH3-DINNER";:INPUTA:D=3*A:HR=0.5*A
1810DL=DL-D:HL=HL-HR:HA=HA+HR:RETURN
1900TRAPERR:RES=1900:?:?"HOWMANYHOURSWILLYOUSLEEP";:INPUTSL:HA=0:X=INT(50*RND(0))
1910RESTORE5500:FORK=1TO7:READA:SOUND0,A,10,8:FORN=1TO60:NEXTN:NEXTK:SOUND0,0,0,0
1920HL=HL-SL:IFSL>4ANDX=19THEN?:?"ITWASSONOISYTHATYOUSLEPTONLY2HOURS":FORN=1TO600:NEXTN
1930RETURN
2000FORK=1TO20:GOSUB4030
2020PLOT16,0:DRAWTO0,16:PLOT22,0:DRAWTO38,16
2030FORN=0TO15STEP5
2040PLOT19,N:DRAWTO19,N+3:NEXTN
2050SOUND0,80,2,15:GOSUB4020
2090NEXTK:SOUND0,0,0,0:RETURN
2100GOSUB4000:FORN=1TO100:NEXTN:X=INT(5*RND(0)):IFX=4THEN2150
2110?:?"YOUFELLASLEEPATTHEWHEEL!":?:?"FORTUNATELY,YOUWOKEUPASYOURANOFFTHEROAD-NODAMAGEDONE"
2120TRAPERR:RES=2120:?:?"DOYOUWANTTOTAKEANAP";:INPUTA$:IFA$(1,1)="N"THEN800
2130SL=INT(4*RND(1)+2):HA=0:HL=HL-SL:FORN=1TO500:NEXTN:?:?"YOUSLEPT";SL;"HOURSANDFEELBETTER"
2140FORN=1TO200:NEXTN:GOTO800
2150GOSUB2900:GOSUB4000:?:?"YOUFELLASLEEPATTHEWHEEL!":?:?"CARTOTALED":FORN=1TO200:NEXTN:GOTO960
2200GOSUB4020:POSITION4,4:?#6;"CONSTRUCTION":POSITION4,6:?#6;"NEXT";INT(M/2);"MILES"
2210POSITION5,2:?#6;"SLOWDOWN"
2220?"SPEEDLIMIT25MPH":SPL=25:FORN=1TO900:NEXTN:GOSUB4000:GOTO800
2300GOSUB4000:POSITION18,3:?""
2320FORR=4TO19:POSITION20,R:?"":NEXTR
2340POSITION14,7:?"----":POSITION14,9:?""
2349REMNextlinehascontrolandinversecharacters.
2350POSITION14,10:?"----":POSITION14,11:?""
2360POSITION15,21:?"WRONGTURN":FORN=1TO500:NEXTN
2370?"":X=INT(3*RND(1)+1):GL=G-X:HL=HL-X:HA=HA+X
2380GOSUB4000:?:?"YOURWRONGTURNTOOKYOU";20*X;"MILESOUTOFTHEWAY":?:?"YOULOST";X;"HOURS"
2390FORN=1TO200:NEXTN:GOTO800
2400GOSUB4040:SETCOLOR0,2,8:SETCOLOR2,8,1:SETCOLOR4,8,1
2410PLOT19,12:DRAWTO49,12:DRAWTO49,8:DRAWTO59,18:DRAWTO49,28:DRAWTO49,24:DRAWTO19,24:DRAWTO19,13
2415DRAWTO50,13:DRAWTO50,10:DRAWTO58,18:DRAWTO50,26:DRAWTO50,23:DRAWTO21,23:DRAWTO21,14:DRAWTO51,14
2420DRAWTO51,12:DRAWTO57,18:DRAWTO51,24:DRAWTO51,22:DRAWTO22,22:DRAWTO22,15:DRAWTO52,15
2425PLOT52,14:DRAWTO56,18:DRAWTO52,22:PLOT52,21:DRAWTO53,21:PLOT20,13:DRAWTO20,23:PLOT23,21:DRAWTO53,21
2430PLOT24,17:DRAWTO24,19:PLOT25,16:PLOT25,20:PLOT26,16:DRAWTO26,20:PLOT28,17:PLOT28,19
2435PLOT29,17:DRAWTO29,19:PLOT30,16:DRAWTO30,20:PLOT31,17:DRAWTO31,20:PLOT33,17:DRAWTO33,20
2440PLOT34,16:DRAWTO34,20:PLOT35,16:PLOT35,20:PLOT36,17:DRAWTO36,19:PLOT37,17
2445DRAWTO37,19:PLOT38,16:PLOT38,20:PLOT39,16:DRAWTO39,20:PLOT40,20:PLOT41,16:DRAWTO41,19
2450PLOT42,16:DRAWTO42,19:PLOT43,20:PLOT44,16:DRAWTO44,20:PLOT46,17:PLOT46,19:PLOT46,20
2455PLOT47,16:PLOT47,18:PLOT48,16:DRAWTO48,20:PLOT49,16:DRAWTO49,20:PLOT50,16:DRAWTO50,20
2460PLOT51,16:DRAWTO51,20:PLOT52,16:DRAWTO52,20:PLOT53,16:DRAWTO53,20:PLOT54,17:DRAWTO54,19:PLOT55,18
2465PLOT53,16:DRAWTO53,20
2470?"SPEEDLIMIT35MPH":SPL=45:GL=GL-3:HL=HL-1:HA=HA+1:FORN=1TO800:NEXTN:GOSUB4000:GOTO800
2500GOSUB4040:SETCOLOR0,2,8:SETCOLOR2,8,1:SETCOLOR4,8,1
2510PLOT28,14:DRAWTO46,14:PLOT47,15:PLOT48,15:DRAWTO54,22:DRAWTO63,22:PLOT64,23
2515DRAWTO67,23:PLOT68,23:PLOT69,24:PLOT70,25:PLOT70,26:DRAWTO72,28:PLOT72,29:PLOT73,30:DRAWTO73,33
2520IFCT=1THENPLOT72,34:DRAWTO66,34:PLOT65,35:DRAWTO67,37:DRAWTO54,37
2525IFCT=1THENPLOT54,36:PLOT55,35:PLOT54,34:DRAWTO51,34
2530IFCT=2THENDRAWTO66,33:DRAWTO66,35:DRAWTO64,37:DRAWTO56,37:DRAWTO54,35:DRAWTO54,33:DRAWTO50,33
2535IFCT=2THENPLOT70,22:DRAWTO74,12:PLOT73,25:DRAWTO77,15
2550PLOT50,33:DRAWTO45,33:PLOT44,32:DRAWTO29,32:PLOT28,33:DRAWTO28,35:DRAWTO26,37:DRAWTO21,37
2555DRAWTO18,34:DRAWTO18,32:DRAWTO10,32:DRAWTO10,24:PLOT11,23:DRAWTO13,23:PLOT14,22:DRAWTO17,22
2560DRAWTO19,20:PLOT20,20:DRAWTO27,14
2565RETURN
2600CT=1:GOSUB2500:?:?"FLATTIRE":FORN=1TO800:NEXTN
2610GOSUB4000:X=INT(3*RND(1)+1):HL=HL-X:DL=DL-3*X:HA=HR+X
2620?:?"ITTOOK";X;"HOURSAND$";2*X;"TOCHANGEANDREPAIRYOURFLATTIRE"
2630FORN=1TO200:NEXTN:GOTO800
2700CT=2:GOSUB2500:?:?"ENGINEOVERHEATED":FORN=1TO800:NEXTN
2710GOSUB4000:?:?"ITCOSTYOU$30FORATOWTRUCKAND":X=INT(4*RND(1)):ONXGOTO2760,2770,2780
2750?"$75TOREPLACETHEWATERPUMP":?:?"ITTOOK4HOURS":D=105:HR=4:GOTO2790
2760?"$10TOREPLACEABROKENHOSE":?:?"ITTOOK2HOURS":D=40:HR=2:GOTO2790
2770?"$12TOREPLACETHETHERMOSTAT":?:?"ITTOOK4HOURS":D=42:HR=3:GOTO2790
2780?"$125TOREPAIRTHERADIATOR":?:?"ITTOOK8HOURSBUTYOUGOT5HOURSOFSLEEP"
2785HA=O:HL=HL-8:DL=DL-180:FORN=1TO200:NEXTN:GOTO800
2790HL=HL-HR:DL=DL-D:HA=HA+HR:FORN=1TO200:NEXTN:GOTO800
2800GOSUB2900:GOSUB4000:?:?"YOULOSTCONTROLANDHITATREE":FORN=1TO300:NEXTN:GOTO960
2900GOSUB4020:SETCOLOR2,3,2:SETCOLOR4,3,2:POSITION8,5:?#6;"CRASH":FORK=50TO53:SOUND0,K,8,15
2910FORN=1TO15:NEXTN:NEXTK:SOUND0,0,0,0:RETURN
3000GOSUB3900:?:?"SMOKEYBEHINDYOUWITHHISLIGHTSON"
3010TRAPERR:RES=3010:?:?"WILLYOUSTOPORRUN";:INPUTA$:IFA$(1,1)="S"THEN3400
3020TRAPERR:RES=3020:?:?"HOWFASTWILLYOUDRIVE";:INPUTSP
3030IFSP>TSTHEN?:?"YOURCARWILLONLYGO";TS;"MPH":SP=TS:FORN=1TO400:NEXTN
3040X=INT(10*RND(1)):IFX=3THENGOTO2800
3050GOSUB3900:GOSUB4000:IFSP>100+INT(60*RND(1)+1)THENGOTO3190
3060?:?"YOUCAN'TLOSEHIM";:IFCB>0THEN3100
3070?"-PULLOVER":GOTO3500
3080REMGETHELP*
3100TRAPERR:RES=3100:?:?:?"ENTER'C'FORCBHELP":INPUTA$:IFA$(1,1)<>"C"THEN3080
3110RESTORE7000+Y:Y=Y+10:IFY>50THENY=0
3120?:?"THISIS";PH$;"EASTBOUND":READCB$:?CB$
3130READCB$:?:?CB$;"";PH$:?H3$;"HERE"
3140FORN=1TO2:READCB$:?CB$;:NEXTN:FORN=1TO900:NEXTN:GOSUB3900:GOSUB4000
3150X=INT(5*RND(1)):IFX=4THEN?:?:?"YOUCAN'TLOSEHIM";:GOTO3080
3190GOSUB2000:GOSUB4000:?:?:?"YOULOSTHIM":FORN=1TO200:NEXTN:X=INT(5*RND(1)):IFX>0THEN800
3200IFCB=0THEN?:?"ROADBLOCK":GOTO3220
3210?:?"COLLECTCALLFOR";PH$:?:?"YOUAREHEADEDTOWARDSANIRONCURTAINALERT-ROADBLOCK"
3220?:?"WILLYOU1-STOP":?"2-TRYTODRIVETHRU":?"3-TRYTODRIVEAROUNDONTHESHOULDER"
3230IFCB>0THEN?"4-TAKEASIDEROAD"
3240TRAPERR:RES=3240:INPUTA:X=INT(5*RND(1)):ONAGOTO3500,3280,3280
3250IFX=3THEN3290
3260IFX=4THEN2800
3270?:?"YOUTOOKAWRONGTURNANDGOTLOSTBUTYOUMADEITPASTTHEROADBLOCK":GOTO2380
3280IFX>0THEN2800
3290?:?"YOUMADEIT!":FORN=1TO200:NEXTN:GOTO800
3400IFSP-SPL<=5THEN?:?"THISTIMEYOUWILLGETONLYAWARNING":GOTO3510
3410D=20+5*(SP-SPL):DL=DL-D:T=T+1:IFT=4THENGOTO3600
3420?:?"THETICKETWILLCOSTYOU$20PLUS$5FOREACHMPHOVERTHELIMIT":?:?"THAT'S$";D:GOTO3510
3500T=T+1:IFT=4THEN3600
3505?:?"THATWILLCOSTYOU$1,000OR6MOSINJAIL":DL=DL-1000
3510FORN=1TO400:NEXTN:GOTO800
3600?:?"YOUALREADYHAVE3TICKETS":?:?"I'LLHAVETOSUSPENDYOURLICENSE":FORN=1TO300:NEXTN:GOTO960
3900FORK=1TO10:GOSUB4030:SETCOLOR0,9,5:SOUND0,35,14,15
3910PLOT11,6:DRAWTO11,9:PLOT12,6:DRAWTO12,9:PLOT13,6:DRAWTO13,9:PLOT26,6:DRAWTO26,9
3920PLOT27,6:DRAWTO27,9:PLOT28,6:DRAWTO28,9:FORN=1TO20:NEXTN
3930GOSUB4000:SOUND0,53,14,15:FORN=1TO10:NEXTN:NEXTK:SOUND0,0,0,0:RETURN
4000GRAPHICS0:POKE752,1:COLOR1:SETCOLOR0,2,8:SETCOLOR2,8,1:SETCOLOR4,8,1:RETURN
4020GRAPHICS2:POKE752,1:COLOR1:SETCOLOR0,2,8:SETCOLOR2,8,1:SETCOLOR4,8,1:RETURN
4030GRAPHICS3:POKE752,1:COLOR1:SETCOLOR0,2,8:SETCOLOR2,8,1:SETCOLOR4,8,1:RETURN
4040GRAPHICS4:POKE752,1:COLOR1:SETCOLOR0,2,8:SETCOLOR2,8,1:SETCOLOR4,8,1:RETURN
5001DATA14,18,93,SACRAMENTO,CALIFORNIA,SNOWFLAKE,BEACHBOY,REDFOX
5002DATA15,17,136,RENO,NEVADA,TRIPLEM,APPACHECHIEF,DREAMSICLE
5003DATA17,16,167,WINNEMUCCA,NEVADA,CACTUSJACK,KINGOFTHEROAD,RATTLESNAKE
5004DATA19,14,126,ELKO,NEVADA,REDPEPPER,BALDEAGLE,GREYFOX
5005DATA21,14,111,WENDOVER,UTAH,SITTINGBULL,PETERCOTTONTAIL,GREATPUMPKIN
5006DATA23,14,127,SALTLAKECITY,UTAH,STRIPPER,BLACKFALCON,DIXIEDARLING
5007DATA25,14,130,ROCKSPRINGS,WYOMING,JUNGLEJIM,HIGHROLLER,BIGDADDY
5008DATA27,13,113,SINCLAIR,WYOMING,LICKETYSPLIT,EASYRIDER,ALLIGATORJOE
5009DATA29,13,150,CHEYENE,WYOMING,PEANUT,SPACEACE,TEDDYBEAR
5010DATA31,14,144,JULESBURG,COLORADO,DEWDROP,UNDERDOG,BIGMAMA
5011DATA33,14,151,KEARNEY,NEBRASKA,TUMBLEWEED,SHYKING,BUSHWACKER
5012DATA36,14,130,LINCOLN,NEBRASKA,ROVINGREBEL,PEDALPUSHER,PREACHERMAN
5013DATA39,14,84,OMAHA,NEBRASKA,MRMCGOO,BATMAN,SWAMPFOX
5014DATA41,14,157,DESMOINES,IOWA,SILVERFOX,ROLLINGCOWBOY,GEORGIAPEACH
5015DATA43,13,125,DAVENPORT,IOWA,POPSICLE,BUCKINGBRONCE,KINGOFDIAMONDS
5016DATA45,13,81,PEORIA,ILLINOIS,ROADRUNNER,RUBBERDUCK,SINGINGCOWBOY
5017DATA46,15,211,INDIANAPOLIS,INDIANA,YOGIBEAR,SIDEWINDER,QUEENOFHEARTS
5018DATA49,16,171,COLUMBUS,OHIO,PONYEXPRESS,HOTDOG,SNAKEEYES
5019DATA52,16,79,CAMBRIDGE,OHIO,DOUBLEBOOGIE,BOOTLEGGER,RIVERRAT
5020DATA53,16,83,PITTSBURG,PENNSYLVANIA,HUMPTYDUMPTY,STREAKER,YANKEEDOODLE
5021DATA57,15,170,HARRISBURG,PENNSYLVANIA,KINGPIN,WILDSTALLION,PETERRABIT
5022DATA58,15,97,EASTON,NEWYORK,FIREBALL,TRAVELINGMAN,THUNDERBIRD
5023DATA59,14,82,NEWYORKCITY,X,REDBUTTERFLY,CANDYMAN,SITTINGBULL
5024DATA60,13
5100DATA126,32,21,14000,160,24,18,12000,118,30,16,11600,105,38,13,9500
5200DATA94,164,224
5300DATACLEAR,RAIN,SNOW,FOG
5400DATAGROUNDCLOUDSAHEAD-FOG,WINDOWWASHERAHEAD-RAIN,NATURALCONFETTIAHEAD-SNOW
5500DATA109,92,54,61,61,69,69
6000DATAHOWWELOOKINGBACKYOURWAY,LIGHT'SGREEN,THEBUSHESARECRAWLING,KEEP'EMBETWEENTHEDITCHES
6001DATATAKEAPEEKOVERYOURSHOULDER,BRINGONTHEMACHINE,PUTTHEHAMMERINTHETOOLBOX,DON'TFEEDTHEBEARS
6002DATATELLUSABOUTTHEMOLSMOKEYS,YOU'VEGOTNOTHINGBUTAGREENLIGHT,TUCKITIN,KEEPTHEROLLINGSIDEDOWN
6003DATATAKEALOOKINYOURBACKYARD,PUTBOTHFEETONTHEFLOOR,YOU'VEGOTABEARWITHACAMERA,HAVEAFINEONE
6004DATAGIVEUSABEARREPORT,WEAIN'TSEENNOTHINATALL,BETTERBACK'EMONDOWN,WESTBOUNDANDLOOKINGAROUND
6005DATAHOWABOUTTHATEASTBOUNDSIDE,PUTTHEPEDALTOTHEMEDAL,SMILEANDCOMBYOURHAIR,GOODNUMBERSONYA
6006DATATELLMEABEARSTORY,SETYOURWHEELSONFIRE,IHAVEANEYEBALLONASMOKEYCOLLECTINGGREENSTAMPS,GONE
6007DATAWENEEDABEARREPORT,DROPTHEHAMMERDOWN,THERE'SABEARINTHEGRASSTAKINGPICTURES,FLEASONYA
6008DATAHOW'SITLOOKINGBACKYOURWAY,IT'SALLCLEANONTHISRIPSTRIP,WEGOTFLIP-FLOPPINGBEARS,WE'REGONE
6009DATAWHAT'STHEBEARSITUATION,YOUR'RECLEAR,SOMEONESPILLEDHONEYONTHEROAD,DON'TSTEPONANYBEARTOES
6010DATAHOW'SITLOOKOVERYOURSHOULDER,TIGHTENUPTHERUBBERBAND,PEDALALITTLESLOWER,DOINGITTHEOTHERWAY
6011DATATELLUSABEARSTORY,YOU'REENTERINGTHELANDOFWONDERFUL,BETTERDOTHEFIVE-FIVE,HAVEASAFEONE
6012DATAHOW'SITLOOKINYOURBACKYARD,YOU'RECLEANANDGREEN,THERE'SASMOKEYINABLUEENVELOPE,CATCHALATER
6013DATATELLMEASTORY,NOSWEAT-NOPAIN,THERE'SASNEAKYSNAKEREADYTOSTRIKE,ALLTHEFLOWERSYOUCANHANDLE
6014DATAWHAT'SINYOURBACKYARD,YOUGOTTHEGREENLIGHT,YOU'REHEADEDINTOABEARTRAP,KEEPTHEWHEELSSPINNING
6015DATAGOTAFIXONANYSMOKEYS,BEARSAREEXTINCT,IT'SDIRTYWITHBEARS,DOINGOURTHINGINTHELEFTHANDLANE
6016DATAHOW'SITLOOKINEASTBOUND,BRINGITON,THERE'SABEARPOPULATIONEXPLOSION,EASTBOUNDSTRUTTINSTYLE
6017DATATELLUSANEASTBOUNDSTORY,YOUGOTACLEANSHOT,IT'SWALLTOWALLBEARS,KEEPTHESHINYSIDEUP
6018DATAWHAT'SITLOOKLIKEINYOURBACKYARD,IT'SCLEARASASPRINGDAY,THEBUSHESAREALIVE,GOODNUMBERS
6019DATAHOWABOUTTHEMSMOKEYS,LETITROAR,YOU'VEGOTAKOJAKWITHAKODAK,GOINGTHATWAY
6020DATASEENANYSMOKESIGNALS,LETTHEHAMMERDOWN,YOU'RENOTTHEONLYONEONTHEROAD,OUT
6021DATATELLUSWHAT'SHAPPENINGEASTBOUND,YOUCANPEDALWITHBOTHFEET,PUTTHEHAMMERINTHETOOLBOX,ADIOS
6022DATATAKEAPEEKINYOURBACKYARD,IT'SLOOKINGCHOICE,IT'SOPENSEASON,DOINGITTOITTHEOTHERWAY
7000DATAIGOTATEDDYBEARWITHABUBBLEGUMMACHINEINMYSCREEN,GOTTHECOPY
7001DATABRINGITONUPHEREI'LLOPENUPTHEBACKDOOR,LETYOUINTHEROCKINGCHAIRANDCLOSEYOURSIDEDOOR
7010DATAIHAVEANEONSMOKEYWITHHISSHOESON,ABIGTENFOUR
7011DATALEADFOOTANDIARERUNNINGTOGETHER.WE'LLPEDALALONG,ANDMAKEASMOKEYSANDWICHWHENYOUREACHUS
7020DATAABEARINAPARTYHATHASAFOOTINMYCARBURETOR,BIGFOUR,WE'REATACHOKEANDPUKEABOUTAMILEAWAY.
7021DATAWE'LLBEREADYTOPLAYSNOWWHITEANDTHESEVENDWARFS
7030DATAIGOTASMOKEYWITHLITCANDLESONMYBACKDOOR,CHARLIECHARLIE
7031DATATHEBROTHERTRUCKERSWOULDBEHONOREDTOHOSTASTALLBALL,FORTHATTHERESMOKEY
7040DATAI'VEGOTAREDEYEDSNEAKYSNAKEKNOCKINGONMYBACKDOOR,ROGER-DODGER
7041DATAI'MPUSHINGARIGWESTBOUNDANDFEELLIKESOMEFUN,WE'LLSEEHOWWELLTHATSMOKEYPLAYSCHICKEN
7050DATAIGOTAFULLGROWNBEARWITHHISSNOOPERSON,TENROGER
7051DATAKEEPSHAKINITTOTHENEXTWATERHOLE,WE'LLKEEPTHATSMOKEYALLTIEDUP
8000IFPEEK(195)=5ORPEEK(195)=8THENGOTORES
8010?"ERROR-";PEEK(195);"ATLINE";PEEK(186)+PEEK(187)*256:END	

• Download link 1

• Download link 1