Atari 8-bit Source code

90GOSUB1000:RESTORE110
100DIMSK$(51):FORI=1TO51:READA:SK$(I,I)=CHR$(A):NEXTI:SK=ADR(SK$)
110DATA104,173,120,2,133,207,165,208,70,207,176,6,201,0,240,2,198,208,70,207,176,6,201,19,176,2
120DATA230,208,165,209,70,207,176,6,201,0,240,2,198,209,70,207,176,6,201,19,176,2,230,209,96
130DIMRC(21,1):FORI=0TO21:READA,B:RC(I,0)=A:RC(I,1)=B:NEXTI
140DATA17,12,11,15,13,13,14,17,17,15,15,12,15,9,17,7,14,2,12,5,12,9,9,9,8,15,2,11,5,12
150DATA6,9,9,5,6,2,5,4,3,2,2,5,2,8
160DIMNR(21,2):FORI=0TO21:READA,B,C:NR(I,0)=A:NR(I,1)=B:NR(I,2)=C:NEXTI
170DATA4,7,0,2,3,12,1,5,2,1,4,3,0,3,5,2,4,6,5,7,10,0,6,8,7,9,8,8,10,16,6,9,10,12,15,11,1,11,12
180DATA14,21,13,13,15,14,11,14,16,9,15,17,16,18,17,17,19,18,18,20,19,19,21,20,13,20,21
182DIMP$(20),L$(20):RESTORE185:FORI=1TO20:READA:P$(I,I)=CHR$(A):NEXTI
184RESTORE186:FORI=1TO20:READA:L$(I,I)=CHR$(A):NEXTI
185DATA250,243,234,225,225,215,214,210,205,210,214,215,225,228,234,237,243,246,247,250
186DATA5,6,8,10,12,15,15,15,15,14,13,12,11,10,9,8,7,6,5,4
196DIMC$(4),R$(4),X(2),Y(2):R$="roar":OPEN#1,4,0,"K:"
198RM=0:POKE208,12:POKE209,17:DOCFLG=0:ZRM=61
200GRAPHICS17:POKE752,1:POKE756,START/256:POKE708,37:POKE709,152:POKE710,244:POKE712,42
210GOSUB2010:POSITION3,21:?#6;"INSTRUCTIONS?":GET#1,K:IFK<>89THEN275
220POSITION3,20:?#6;"YOUAREGOINGDOWNTHECONGORIVERWHENACREWMATEGETSVERYILLpresskey":GOSUB1220
224GOSUB1200:POSITION2,20:?#6;"THEREISADOCTORINAVILLAGE[left]QUITEFARFROMTHEDOCK[right]"
226GOSUB1220:GOSUB1200:POSITION3,20:?#6;"YOUMUSTGETTHEDOCTORANDBRINGHIMBACKTOTHEBOAT":GOSUB1220
228GOSUB1200:POSITION3,20:?#6;"THEPROBLEMISAMANEATINGTIGER":GOSUB1220
230GOSUB1200:POSITION2,20:?#6;"YOUONLYKNOWHISGENERALLOCATIONFROMHISROAR":GOSUB1220
232GOSUB1200:POSITION2,20:?#6;"HEWILLONLYCROSSTHESTREAMUSINGTHELOGINTHECENTEROFTHESCREEN"
234GOSUB1220:GOSUB1200:POSITION1,21:?#6;"YOUMAYUSEEITHEROFTHEBRIDGES":GOSUB1220
236GOSUB1200:POSITION3,20:?#6;"TRYTOAVOIDTHETIGERpressanykeywhenready":GOSUB1220
275GOSUB1200:POSITION17,12:?#6;"!":REMFIRSTPOSITIONISTHEDOCK
280TP=INT(RND(0)*21):GOSUB900:REMINIT.TIGERPOS.ISRANDOM
300A=USR(SK):Y=PEEK(208):X=PEEK(209):LOCATEX,Y,Z:POSITIONX,Y:?#6;"x":FORI=1TO10:NEXTI:REMCURSORON
310POSITIONX,Y:?#6;CHR$(Z):FORI=1TO10:IFSTRIG(0)=0THEN330
320NEXTI:GOTO300
330FORI=0TO2:X(I)=RC(NR(RM,I),0):Y(I)=RC(NR(RM,I),1):NEXTI
340I=0
342IFX(I)=XANDY(I)=YTHEN350
344I=I+1:IFI=3THEN300
346GOTO342
350POSITIONRC(RM,0),RC(RM,1):?#6;CHR$(ZRM):POKE208,Y(I):POKE209,X(I):RM=NR(RM,I)
360LOCATEX(I),Y(I),ZRM:POSITIONX(I),Y(I):?#6;"!"
370IFRM=21ANDDOCFLG=0THENDOCFLG=1:GOSUB500
380IFRM=0ANDDOCFLG=1THENGOTO700
400R=INT(RND(0)*4):IFTP>RMTHENTP=TP-R
410IFTP<RMTHENTP=TP+R
420IFTP=RMTHEN800
430IFTP<0THENR=INT(RND(0)*4):TP=TP+R:GOTO420
440GOSUB900
450GOTO300
500GOSUB1200:POSITION7,21:?#6;"yougot":POSITION5,22:?#6;"thedoctor":FORK=100TO50STEP-2
510SOUND0,K,10,10:FORL=1TO10:NEXTL:NEXTK:SOUND0,0,0,0:RETURN
600FORI=1TO4:LOCATEV,W,ZSV:C$(I,I)=CHR$(ZSV):POSITIONV,W:?#6;R$(I,I):V=V+1:NEXTI
620GOSUB650:V=V-4:POSITIONV,W:?#6;C$:RETURN
650FORK=1TO20:SOUND0,ASC(P$(K)),2,ASC(L$(K)):SOUND1,ASC(P$(K))-75,12,ASC(L$(K)):FORJ=1TO10:NEXTJ:NEXTK
660SOUND0,0,0,0:SOUND1,0,0,0:RETURN
700GRAPHICS18:POSITION3,3:?#6;"THEDOCTORWASABLETOSAVETHECREWMAN!"
705POSITION2,7:?#6;"congratulations!"
710POSITION5,9:?#6;"TRYAGAIN?":POSITION5,10:?#6;"pressstart":GOTO830
800GOSUB1200:FORL=1TO3:POSITIONX(I),Y(I):?#6;"t":GOSUB650:POSITIONX(I),Y(I):?#6;CHR$(ZRM):NEXTL
810POSITION3,20:?#6;"TIGERGOTYOU":POSITION7,22:?#6;"again?":POSITION4,23:?#6;"PRESSSTART"
830IFPEEK(53279)<>6THEN830
840GOTO198
900TS=INT(TP/5+0.9):GOSUB1200:POSITION5,21:?#6;"TIGERIS":POSITION3,23
910IFTS=1THEN?#6;"INTHESWAMP":V=13:W=15
920IFTS=2THEN?#6;"INTHEFOREST":V=13:W=6
930IFTS=3THEN?#6;"ONTHEPLAIN":V=4:W=13
940IFTS=4THEN?#6;"INTHEHILLS":V=4:W=5
950IFTS=5THEN?#6;"INTHEVILLAGE":V=0:W=9
960IFTS=0THEN?#6;"ONTHEDOCK":V=16:W=11
990GOSUB600:RETURN
1000DIMZZ$(32):RESTORE1010:FORI=1TO32:READA:ZZ$(I)=CHR$(A):NEXTI
1010DATA104,104,133,204,104,133,203,104,133,206,104,133,205,162,4,160,0
1012DATA177,203,145,205,136,208,249,230,204,230,206,202,208,240,96
1014POKE106,PEEK(106)-5:GRAPHICS0:START=(PEEK(106)+1)*256:POKE756,START/256:POKE752,1:?"INITIALIZING..."
1016A=USR(ADR(ZZ$),57344,START):RESTORE1020:FORI=START+24TOSTART+247:READA:POKEI,A:NEXTI
1018RESTORE1120:FORI=START+8TOSTART+15:READA:POKEI,A:NEXTI:RETURN
1020DATA3,7,14,28,24,24,24,24,0,0,0,248,252,14,7,3,192,224,112,56,24,24,24,24
1030DATA24,24,24,24,28,14,7,3,3,7,14,252,248,0,0,0,192,224,112,63,31,0,0,0
1040DATA24,24,24,24,24,24,24,24,0,0,0,255,255,0,0,0,192,127,63,0,0,63,127,192
1050DATA3,254,252,0,0,252,254,3,0,123,0,221,0,123,0,246,0,0,0,0,0,24,24,0
1060DATA16,56,84,56,84,186,16,16,0,32,112,170,119,170,39,34,0,0,0,0,0,168,117,34
1070DATA0,0,0,24,60,126,231,195,3,7,14,28,24,0,0,0,3,7,14,28,56,112,224,192
1080DATA192,224,112,56,28,14,7,3,192,224,112,56,24,0,0,0,0,102,153,0,0,102,153,0
1090DATA1,3,7,15,31,63,127,255,128,192,224,240,248,252,254,255,15,15,15,15,15,15,15,15
1100DATA240,240,240,240,240,240,240,240,0,0,20,8,88,45,170,170,255,255,195,195,195,195,255,255
1110DATA255,255,255,255,255,255,255,255
1120DATA0,24,60,60,60,255,255,0
1200POSITION0,20:?#6;"":RETURN
1220FORI=1TO100:NEXTI:IFPEEK(764)=255THEN1220
1222POKE764,255:RETURN
2010?#6;"22";
2011?#6;"43";
2012?#6;"$$";
2013?#6;"36#5#545";
2014?#6;"36)2%#%";
2015?#6;"4)";
2016?#6;")4544))";
2017?#6;")44)";
2018?#6;"=#1)4)";
2019?#6;")1**--**)";
2020?#6;"1)1##))";
2021?#6;"$)1)))";
2022?#6;"1()<<==";
2023?#6;"11)='&)";
2024?#6;")415)";
2025?#6;"=<=";
2026?#6;"54<";
2027?#6;"(='";
2028?#6;"<";
2029?#6;"";
2030RETURN	

• Download link 1

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