Atari 8-bit Source code

0REM
4REM
5DIMBITE$(20),BITER$(20),S$(20),T$(20),D$(20)
10GRAPHICS2+16:POSITION6,4:?#6;"dog!":FORDELAY=1TO3500:NEXTDELAY
100GRAPHICS0:SETCOLOR2,5,4:SETCOLOR4,5,4:SETCOLOR1,0,15
105POKE752,1:?"Youarealettercarrierinthe"
120?"cityofGNAWVILLE,whichhasaDOG"
125?"BITEproblem."
130?:?"Youaretoattempttomake10"
135?"deliveriesonyourroute.Ifyoudo"
140?"thiswithoutbeingBITTENorALIEN-"
145?"ATINGyourcustomers,youWIN!":?:?
148RA=0:H=0:N=0:W=0:ND=0:B=0
150?"Checkingmyrecords,Iseethatyou"
155?"havebeenbitten";PB;"time";
160IFPB=1THEN?"before.":GOTO180
165?"sbefore."
170IFPB=0THEN190
180?"You'dbetterbemorecareful!!":GOTO200
190?"You'reeitherNEWtothisgameor"
195?"simplylucky...!"
200?:?:?"Doyouwantto(1)CHOOSEan"
205?"assignmentor(2)HAVEMEassign"
210?"you?(I'LLTRYTOBEFAIR).type"
215?"theappropriatenumber."
220OPEN#1,4,0,"K:"
225GET#1,X:C=X-48
230IFC=1THEN280
231IFC=2THEN235
232GOTO225
235?:?"O.K.,I'LLGIVEYOUANASSIGNMENT"
240GOSUB2000
245?"FIRSTI'LLASSIGNASCHEDULE"
250IFR<=70THENX=49:GOTO308
255IFR<=85THENX=50:GOTO308
260X=51:GOTO308
280?"":?"FIRSTPICKANASSIGNMENT:":?
285?"(1)REGULARCARRIER"
290?"(2)UTILITYCARRIER"
300?"(3)SUBSTITUTECARRIER"
305?:?"YOURCHOICE?(ENTERNUMBER)"
306GET#1,X
307IFX<49ORX>51THEN306
308S=X-48:ONSGOTO310,315,320
310S$="":GOTO322
315S$="":GOTO322
320S$="":GOTO322
322?:?"YOUAREA";S$
330GOSUB2000
340BR=INT(25*RND(1)+1)
360IFS=1THENBR=BR+10
370IFS=2THENBR=BR+30
380IFS=3THENBR=BR+30
400?:?:?"HEREISSOMETHINGYOUSHOULDKNOW...":?
405ONSGOTO410,420,440
410?S$;"AREKNOWNTOLOCAL"
415?"DOGSANDTHUSGETFEWERBITES.":GOTO455
420?S$;"COVERVARIOUSROUTES"
425?"EACHDAYANDDON'TGETTOKNOW"
430?"THELOCALDOGS.":GOTO455
440?S$;"FILLINFOR"
445?"REGULARSANDARESTRANGERS"
450?"TOLOCALDOGS."
455?:?:?"HIT'SPACEBAR'TOCONTINUE":GET#1,Q
480?"":?:?"GNAWSVILLEHASFOURNEIGHBORHOODS":?
482?"(1)-LUXURYAPTS."
483?"(2)-UPPER"
484?"INCOMESINGLEFAMILYHOUSES"
487?"(3)-MIDINCOME1AND2"
488?"FAMILYHOUSES"
490?"(4)-LOWINCOME2FAMILY"
491?"HOUSES":?:?
500IFC=1THEN522
502?"I'LLASSIGNYOUANEIGHBORHOOD"
505GOSUB2000
510IFR>=90THENA=49:GOTO524
515IFR>=70THENA=50:GOTO524
520IFR>=30THENA=51:GOTO524
521A=52:GOTO524
522?"PICKANEIGHBORHOOD(1-4)"
523GET#1,X:A=X
524IFA=49THENT$="":GOTO530
525IFA=50THENT$="":GOTO530
526IFA=51THENT$="":GOTO530
527IFA=52THENT$="":GOTO530
529GOTO523
530?:?:?"YOU'LLBEGOINGTO";T$
535?"HIT'SPACEBAR'TOCONTINUE":GET#1,X
540RA=0:RF=BR:OP=0:RA=0:N=N+1:IFN=11THEN1500
544IFN>1THENGOSUB3000
545?:?:?"DELIVERY#";N;:?:?:GOSUB2000
550IFR<=60THEND$="REGULARMAIL":D=1:GOTO570
555IFR<=80THEND$="APACKAGE":D=2:GOTO570
560IFR<=90THEND$="ASPECIALDELIVERY":D=2:GOTO570
565D$="APOSTAGEDUELETTER":D=2
570?"YOURDELIVERYIS";D$
575IFD=1THEN580
577?"THECUSTOMERWILLHAVETOOPEN"
578?"THEDOORTOGETIT.":?:?
580GOSUB2000
585IFA=49ANDR>=60THEN640
590IFA=50ANDR>=40THEN640
600IFA=51ANDR>=40THEN640
610IFA=52ANDR>=65THEN640
615?"THEREDON'TSEEMTOBEANYDOGS":?
620GOSUB2000
630IFR>8THEN1025
635?"WAIT!...HERECOMESASTRAY!":GOTO850
640?""
650GOSUB2000
660IFA=49ANDR>=65THEN720
670IFA=50ANDR>=50THEN720
680IFA=51ANDR>=60THEN720
690IFA=51ANDR>=40THEN720
700IFR<=10THEN?"THEDOGISSECURELYCONFINED":GOTO1025
710?"THEDOGISINSIDE":F=0:GOTO750
720F=1:RF=RF+50:?:?""
750?"WHATDOYOUWANTTODO?"
760?"(1)ATTEMPTDELIVERY"
770?"(2)WITHHOLDDELIVERY":?
772GET#1,X:Q=X:IFQ=49THEN800
780?"O.K.,DELIVERYWITHHELD."
781?:?"WE'LLGOONTOTHENEXTHOUSE...":?
782W=W+1:GOTO540
800IFF=1THEN850
810GOSUB2000
815IFR<=60ANDD=2THEN830
820GOTO1025
830?:?"":?:?:RF=RF+60
850GOSUB4000
870?""
875?"WHATDOYOUWANTTODO?"
880?:?"(1)RUNAWAY"
885?"(2)USECHEMICALSPRAY"
890?"(3)STANDSTILL"
900?"(4)WALKAWAY"
902GET#1,X
903IFX<49ORX>52THEN902
904Z=X-48:ONZGOTO930,935,970,990
930RF=RF+20:ND=ND+1:RA=1:GOTO1000
935IFRND(1)>0.4THEN950
940?"YOUCAN'TGETITOUT!!!":GOSUB3000
945RF=RF+5:GOTO1000
950?"PSSSSSSTTTTTTTT.........":?
952IFDF<=10THEN?"YOUSPRAYEDAHARMLESSDOG!!"
955IFDF>25THEN?"THATWASCLOSE!"
960RF=RF-30:GOSUB2000:IFR<50ANDOP=0THEN1000
965?"THECUSTOMERSAWTHAT!!!":H=H+1
967IFCP<>0THEN?"YOUSHOULD'TUSEHALTAROUNDKIDS!"
968GOTO1000
970IFRF<=100THEN?"GOODJUDGEMENT!"
975RF=RF-20:GOTO1000
990IFRF<=1000THEN?"GOODCHOICE":?
995RF=RF-20:ND=ND+1:RA=1
1000IFRF>100THEN1060
1010?"***BITEAVOIDED***":?
1020IFRA=1THEN1040
1025?""
1035GOTO540
1040?"BUTYOUFAILEDTOMAKEDELIVERY."
1050GOTO540
1060BITE$="****ABITE****"
1061BITER$=""
1062FORX=0TO10:POSITION5,22:?BITE$;:FORT=0TO2:NEXTT:POSITION5,22:?BITER$;:NEXTX:?
1065GOSUB2000:B=1:PB=PB+1
1067?"HEGOTYOUR";
1070IFR>90THEN1135
1080IFRND(1)<0.5THEN?"RIGHT";:GOTO1115
1090?"LEFT";
1115IFR<=35THEN?"LEG.":GOTO1200
1120IFR<=70THEN?"FOOT.":GOTO1200
1125IFR<=80THEN?"ARM.":GOTO1200
1130IFR<=90THEN?"HAND.":GOTO1200
1135?"BODY."
1200?"YOUWILLNEEDTREATMENT"
1205?"YOU'REOUTOFTHEGAME"
1210N=N+1:GOTO1500
1500GOSUB3000:?"******SUMARY******"
1510?"YOUCOMPLETED";N-W-ND-1;"DELIVERIES"
1515IFB=0THEN1525
1520?"ANDWEREBITTEN.":GOTO1530
1525?:?"ANDWERENOTBITTEN.":?
1530?"YOUALIENATED";H+W+ND;"CUSTOMER(S)"
1550?"BYUSINGHALTORFAILINGTODELIVER.":?:?
1560?"DOYOUWANTTOTRYAGAIN(YORN)?"
1570GET#1,Q
1575IFQ<>89THENCLOSE#1:END
1590CLOSE#1:GRAPHICS0:GOTO100
2000R=INT(100*RND(1)+1):FORWW=1TO50:NEXTWW:RETURN
3000FORWW=1TO300:NEXTWW:RETURN
4000DF=0
4010IFR<=40THENT$="GERMANSHEPHERD":DF=DF+10:GOTO4070
4020IFR<=55THENT$="MUTT":DF=DF+5:GOTO4070
4030IFR<=65THENT$="POODLE":DF=DF+10:GOTO4070
4040IFR<=85THENT$="BIGDOG":DF=DF+10:GOTO4070
4050IFR<=95THENT$="LITTLEDOG":GOTO4070
4060T$="DOBERMAN"
4070?"IT'SA";T$;"."
4080GOSUB2000
4085IFR<=30THEN?"IT'SNOTBARKING":DF=DF-10:GOTO4100
4090IFR<=80THEN?"IT'SBARKINGATYOU!":DF=DF+INT(RND(1)*6):GOTO4100
4095?"IT'SBARKINGANDGROWLING!!":DF=DF+10
4100GOSUB2000
4110IFR<33THEN?"IT'STAILISDOWN":DF=DF-10:GOTO4200
4120IFR<=66THEN?"IT'STAILISUPANDWAGGINGSLOWLY.":DF=DF+5:GOTO4200
4130?"IT'STAILISUPANDWAGGINGFAST!!":DF=DF+5
4200GOSUB2000:OP=0
4210IFR<=60THEN4300
4220IFR<=75THEN?"THEOWNERISOUTSIDE.":OP=1:DF=DF+10:GOTO4300
4230?"THEREISACHILDNEARBY.":DF=DF+10:OP=1:CP=1
4300RETURN
9999?"O.K.,THANKSFORPLAYINGDOGBITE!":END	

• Download link 1

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