Atari 8-bit Source code

5SZ=22:GOTO100
10GOTOA+10
13?"INATRADINGPOST":S=51:GOTO320
14?J$;:W=50:N=50:E=5:S=50:GOTO320
15?J$;:W=4:N=5:E=6:S=5:GOTO320
16?J$;:W=5:N=7:E=7:S=5:GOTO320
17?J$;:W=51:N=51:E=6:S=6:GOTO320
18?J$;:W=10:N=10:E=9:S=12:GOTO320
19?J$;:W=8:N=10:E=12:S=12:GOTO320
20?J$;:W=8:N=8:E=9:S=9:GOTO320
21?"INANIGLOO":S=10:GOTO320
22?J$;:W=8:N=9:E=9:S=9:GOTO320
23?"INANIGLOO":S=12:GOTO320
24?J$;:W=15:N=15:E=15:S=15:GOTO320
25?J$;:W=14:N=15:E=16:S=15:GOTO320
26?J$;:W=15:GOTO320
27?"INADININGROOM":W=18:N=19:S=16:GOTO320
28?"INAROOM":E=17:GOTO320
29?"INAROOM":S=17:GOTO320
30?J$;:W=23:N=21:E=21:S=23:GOTO320
31?J$;:W=20:N=20:E=24:S=23:GOTO320
32?"INANIGLOO":S=21:GOTO320
33?J$;:W=20:N=21:E=24:S=23:GOTO320
34?J$;:W=21:N=21:E=23:S=23:GOTO320
35?"INACAVE":W=24:GOTO320
36?"INADARKCHAMBER":W=25:GOTO320
37?"ONTOPOFAMOUNTAIN":D=24:GOTO320
38?J$;:W=29:N=29:E=29:S=29:GOTO320
39?J$;:W=28:N=29:E=30:S=29:GOTO320
40?J$;:W=29:N=29:E=32:S=32:GOTO320
41?"INANIGLOO":S=30:GOTO320
42?J$;:W=30:N=30:E=33:S=33:GOTO320
43?J$;:W=32:GOTO320
44?"INATRADINGPOST":S=33:GOTO320
45?"ONTOPOFANIGLOO":D=30:GOTO320
46?J$;:W=37:N=38:E=38:S=37:GOTO320
47?J$;:W=37:N=36:E=40:S=40:GOTO320
48?J$;:W=36:N=40:E=40:S=37:GOTO320
49?"INANIGLOO":S=38:GOTO320
50?J$;:W=37:N=38:E=38:S=37:GOTO320
51?"INANIGLOO":S=40:GOTO320
52?J$;:W=46:N=46:E=43:S=43:GOTO320
53?J$;:W=42:N=46:E=44:S=43:GOTO320
54?J$;:W=43:S=45:GOTO320
55?J$;:N=44:GOTO320
56?J$;:W=46:N=46:E=46:S=43:GOTO320
57?"INALAKE":S=46:GOTO320
58?"ONA";T$;"SLED":D=A1:GOTO320
59?"ONTOPOFATOTEMPOLE":D=44:GOTO320
60?J$;:W=50:N=50:E=51:S=4:GOTO320
61?J$;:W=50:E=7:GOTO320
62?J$;:W=57:N=55:E=57:S=53:GOTO320
63?J$;:W=55:N=57:E=57:S=55:GOTO320
64?"INANIGLOO":N=53:GOTO320
65?J$;:W=53:N=57:E=57:S=57:GOTO320
66?"INANIGLOO":S=55:GOTO320
67?J$;:W=52:N=55:E=58:S=53:GOTO320
68?J$;:W=57:GOTO320
69?J$;:E=60:GOTO320
70?J$;:W=59:N=60:E=61:S=61:GOTO320
71?J$;:W=60:N=60:E=60:S=60:GOTO320
72?"INANIGLOO":W=61:GOTO320
100GRAPHICS18:SETCOLOR4,0,15:SETCOLOR0,7,7:POSITION2,5:?#6;"ALASKANADVENTURE"
105FORA=1TO1500:NEXTA:SETCOLOR4,7,7:SETCOLOR0,0,15
200DIMA$(69*SZ),A(69),B(6),B$(87),C(18),D(37),J$(31),T$(4),H$(26)
203DIMSZ$(SZ),D$(20),E$(20),A9$(50),X$(SZ)
205SZ$=""
207FORA=1TO18:C(A)=0:NEXTA:FORA=1TO69:A(A)=0:NEXTA
210FORA=1TO69:A$(A*SZ-SZ+1,A*SZ)=SZ$:READX$:A$(A*SZ-SZ+1,A*SZ)=X$:READV:A(A)=V
212NEXTA
214READB$:FORA=7TO29:READV:D(A)=V:NEXTA
220A=50:G=1:J$="SOMEWHEREINSNOWY,COLDALASKA":MT=4:A1=4:TE=1:H$=""
300SOUND0,0,0,0:SOUND1,0,0,0:V=0:V5=15:V0=7:X5=0:V9=0:Z=10:IFA=48THENV0=0:Z=15
301IFA>16ANDA<20THENV0=3:V=3:V5=0:Z=0:V9=15:IFA=17THENV=4
302IFA=58ORA=59ORA=46THENV0=7:Z=5
303IFA=47THENV=7:V5=0:V9=15
304IFA=3ORA=34ORA=25ORA=26THENV9=15:V0=0:Z=0:V5=0
305N=0:W=0:E=0:S=0:D=0:GRAPHICS0:SETCOLOR2,V,V5:SETCOLOR1,0,V9
306SETCOLOR4,V0,Z
315POKE752,1:?"YOU'RE";:IF(MS=0ORMS=2)ANDA=26THEN?"INTHEDARK!NOLIGHTS!":NL=1:W=25:GOTO320
316GOTO10
320IFEC=1THEN?"":?:?:?:?:SETCOLOR2,0,0:SETCOLOR1,0,15:SETCOLOR4,0,0:GOTO449
323IFR1=1THENA(61)=0:R1=0
324IFA=55ORA=57ORA=53ORA=58THENIFR1=0THENR1=1
325A(1)=0:A(41)=0:IFA<8ANDA<>3ANDDG<6THENHS=INT(RND(0)*25):IFHS<5THENA(41)=A
326SI=0:IFA<>3ANDA<>11ANDA<>13AND(A<17ORA>19)AND(A<25ORA>27)ANDA<>22ANDA<>35THENSI=SI+1
328IFA<>31ANDA<>34ANDA<>39ANDA<>41THENSI=SI+1
329IFA<>47ANDA<>48ANDA<>49ANDA<>56ANDA<>54ANDA<>62THENSI=SI+1
330IFSI=3THENA(1)=-A
335IFTE<>0THENIFA>41ANDA<46THENTE=INT(RND(0)*4)+1:TE=TE+41:A(56)=-TE
340PM=INT(RND(0)*5):IFR1=1ANDPM<3THENA(61)=A
350IFPB=0AND(A=28ORA=29ORA=30)THENPM=INT(RND(0)*3)+1:PM=PM+27:A(45)=-PM
364?:IFN+W+E+S+D>0THEN?:PRINT""
367FORB=1TO6:B(B)=0:NEXTB
369IFW>0THEN?"West";:B(1)=W:IFNL=1THENNL=0:?:?:GOTO409
371IFN>0THENPRINT"North";:B(2)=N
373IFE>0THENPRINT"East";:B(3)=E
375IFS>0THENPRINT"South";:B(4)=S
378IFD>0THENPRINT"Down";:B(6)=D
383?:?
390FORB=1TO69:IFABS(A(B))=ATHENC=C+1:GOTO392
391NEXTB:PRINT:GOTO396
392IFC=1THENPRINT""
393?"";A$(B*SZ-SZ+4,B*SZ):IFB=13THEN?"(ROARINGFIRE)":?
395GOTO391
396IFG=0ANDA(7)<>-2ANDA<>3THENBR=BR+1:?"":?"It'scold!":IFBR>60THENX5=2
397IFX5=2THEN?"Youfreezetodeath":GOTO6000
398IFG=1THEN?"Thetemperatureisdropping.Findsomethingwarmtowearbeforeyou"
399IFG=1THEN?"freezetodeath.Thereare15treasurestobefound.":?"Bundleup!!":G=0
400IFSW=1THEN?"":FORHI=1TO100:SOUND0,1,4,15:NEXTHI:SW=0:IFA(48)=13ORA(48)=-1THENX5=4
401IFX5=4ANDA=13ANDA(11)=-13THENX5=3
402IFX5=3THEN?"Eskimowakesandchasesyouout":C=0:A=12:GOTO5100
403IFX5=4ANDA(48)=13ANDA=12ANDA(11)=-13THENX5=5
404IFX5=5THEN?"Eskimoisrunningfromigloothinkingheislate":WS=1:EL=1:A(11)=0
405IFA<>12ANDA<>13ANDEL=2THENEL=0:A(11)=-13
406IFA=41ANDTF=0THEN?"":FORHI=1TO150:SOUND0,35,10,15:NEXTHI
407IFEL=1THENPZ=PZ+1:EL=2:X5=6:IFPZ=1THENA(49)=13:A(54)=13
408IFX5=6ANDPZ=2THENA(50)=13
409IFMS=1THENMS=2:?"Youlightmatch...":C=0:GOTO5100
410IFMS=2THENMS=0:?"Matchgoesout"
411IFA=9ANDWS=1THENWS=0:A(11)=-13
412IFTS=0ANDA=17THEN?"Eskimosarehavingdinner":?CHR$(34);"Thissaladtastesterrible";CHR$(34)
413IFA=14ANDTD=0THEN?"Dogsareverythirsty"
414IFA=20ANDOP<2THEN?"Dogsareveryhungry"
415IFA=36ANDCD=0THEN?"Dogsaresick...":?"Theyjustlieproneon":?"thesnow"
416IFCD=1THENC=0:?"Vetgivesdogstheirshots,":?"curesthem,":?"anddisappears"
417IFCD=1THENCD=2:A$(620,631)="SLEEPINGVET":A(29)=-41:GOTO5000
418IFA=56ANDEC=0THEN?"Shescreams,":?CHR$(34);"don'tlook!";CHR$(34):?"Andchasesyouout"
419IFA=56ANDEC=0THENC=0:A=55:GOTO5100
420IFR4=1ANDA=59THENR4=0:A(R5)=56
449IFA=56THENB(4)=55
450SOUND0,0,0,0:X5=0:C=0
451TRAP3000
452IFTR=15THEN510
455POKE752,0:?:?"";:INPUTA9$:POKE752,1:?
460IFA9$="LOOK"THEN300
461IFA9$="MUSH"THEN1510
462IFA9$="SCORE"THEN1500
471FORB=1TO6:IFLEN(A9$)=1ANDA9$=B$(B*3-2,B*3-2)THEN475
473NEXTB:GOTO500
475IFB(B)<>0THENA=B(B):LP=0:GOTO300
493?"Youcan'tmovethatway":GOTO450
500IFA$(1,3)="WAK"THEN?"How?":GOTO450
505IFA9$<>"I"THEN531
510?"":IFH$(1,1)<>""THEN?H$
511FORK=1TO18:IFA(C(K))=-2THEN?"WEARING";
515IFC(K)=0THEN520
517?"";A$(C(K)*SZ-SZ+4,C(K)*SZ)
520NEXTK:HI=0:IFTR=15THEN?:GOTO1500
522GOTO450
531FORB=7TO29:IFA9$(1,3)=B$(B*3-2,B*3)THEN600
535NEXTB
540?"Idon'tknowwhat";CHR$(34);A9$;CHR$(34);"means":GOTO450
600FORK=1TOLEN(A9$):IFA9$(K,K)<>""THENNEXTK:?"Idon'tunderstand...":GOTO450
605D$=A9$(K+1,LEN(A9$))
606IFLEN(D$)<3THEND$(LEN(D$)+1)="":GOTO606
609E$=D$(1,3)
611IFD(B)<>1THEN680
614IFA=34ANDE$="FUR"THEN?"Tradersays,":?CHR$(34);"no,Ionlytakefursfortrade.":X5=10
615IFX5=10THEN?"Haveyougotone?";CHR$(34):GOTO450
617I=0:FORV=1TO18:IFC(V)<>0THENI=I+1
618NEXTV:IFI>16THEN?"Youcan'tcarryanymore":GOTO450
620IFNK=0ANDE$="NEC"ANDA(56)=-AANDTE=0THENJ=55:A(J)=A:NK=1:TR=TR+1:GOTO675
621IFNK=0ANDE$="NEC"ANDA(56)=-ATHEN?"Eskimo'sgrouchy!":?"Hewon'tletyouhaveit":GOTO450
622IFA=49ANDE$="OPA"ANDEY=0THEN?"OOPS...CLUMSY...":?"youhaditbutdroppedit":EY=1:GOTO450
625IFA=39ANDE$="RAD"THEN?"Toolarge":?"(It'saconsole)":GOTO450
626IFA=47ANDOY=0ANDE$="OIL"THENJ=37:OY=1:GOTO675
639FORJ=1TO69:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)ANDA=ABS(A(J))THEN642
640NEXTJ
641?"There'sno";CHR$(34);D$;CHR$(34);"here":GOTO450
642IFA$(J*SZ-SZ+4,J*SZ-SZ+4)="*"THENTR=TR+1
647IFA=3THEN?"Tradersays,":?CHR$(34);"whathaveyougottotrade?";CHR$(34):GOTO450
649IFA=44ANDE$="CHE"THEN?"It'stooheavy":GOTO450
650IFE$="HUS"THENDG=DG+1:H$(1,1)=STR$(DG):H$(3,16)="ESKIMOHUSKIES":GOTO5050
652IFA=7ANDE$="IDO"ANDMI=0ANDA(34)=-1THENA$(730,744)="*BOXWITHIDOL":A(42)=0:MI=1:GOTO5050
653IFA=7ANDE$="IDO"ANDMI=0THEN?"Magicidolsays,":?CHR$(34);"findmeacontainer";CHR$(34):X5=11
654IFX5=11THENTR=TR-1:GOTO450
655IFJ=61ANDR1=1THEN?"It'snotthatlow":GOTO450
656IFBT=0ANDE$="SNO"ANDA(44)=-1ANDTS=1THENBT=1:A$(950,964)="BOTTLEOFSNOW":X5=12
657IFX5=12ANDRG=0THENRG=1:?"Youfindsomethingelsetoo":A(46)=A:GOTO5050
658IFX5=12THEN5050
659IFA=39ANDE$="VET"ANDBG=0THEN?"Vetsays,":?CHR$(34);"findmemyblackbagfirst";CHR$(34):GOTO450
670IFA(J)<0THEN?"That'simpossibletocarry":GOTO450
675FORK=1TO18:IFC(K)=0THENC(K)=J:A(J)=-1:GOTO5050
676NEXTK
680IFD(B)<>2THEN750
682IFE$="WAT"ANDA(44)=-1ANDBT=2THENA$(950,964)="EMPTYBOTTLE":X5=13:BT=0:IFA(15)=ATHENX5=14
683IFX5=14ANDW2=0THENW2=1:A$(312,327)="DISHOFWATER":X5=15:IFA=14ANDTD=0THEN1540
684IFX5=15THEN5050
685IFX5=13ORX5=14THEN?"Blub...blub...blub":GOTO450
687IFDG>0ANDSL=0ANDE$="HUS"THENX5=16:IFA=4ANDDG=6THENT$="DOG":A$(48,55)="DOGSLED":SL=1:X5=123
688IFX5=123THENH$="":GOTO5050
690IFX5=16THEN?"Dogsklingontoyou":GOTO450
707FORJ=1TO69:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)THENIFA(J)=-1ORA(J)=-2THEN711
708NEXTJ
709?"You'renotcarryingit":GOTO450
711FORK=1TO18:IFC(K)=JTHENA(J)=0:C(K)=0:GOTO713
712NEXTK:GOTO709
713IFJ=54ANDA(56)=-ATHEN?CHR$(34);"Thief!";CHR$(34);"heyells":X5=17
714IFX5=17THENA$(1214,1228)="SLEEPINGESKIMO":?"Eskimofallsasleeponpillow":TE=0:GOTO5100
715IFA=14ANDW2=1ANDJ=15ANDTD=0THEN1540
716IFA=3ANDJ=43THEN?"Tradertrades":C(K)=J:K3=J:K0=14:GOTO1100
717IFA=3THEN?CHR$(34);"Sorry,Iwon'ttradeforthat";CHR$(34):GOTO5090
718IFA=20ANDOP=1ANDE$="CAN"THEN?"Dogsdevourfood":?"andaresatisfied":OP=2
719IFA=34ANDE$="BEA"THEN?"Traderacceptsfur":?"andgivesyousomething":TR=TR+1:X5=20
720IFX5=20THENA$(969,986)="KNI*GOLDKNIFE":GOTO5090
721IFA=17ANDJ=44ANDTS=0THEN?"Theythankyouandpourit":TS=1:A$(947,964)="BOTEMPTYBOTTLE":GOTO735
722IFA=39ANDJ=53ANDBG=0THENBG=1:?"Vettakeshyperdermicfrombag":A(29)=39
723IFA=36ANDJ=29THENCD=1
724IFA=31ANDE$="RIN"THEN?"Shekissesyou":?"andgivesyouapresent":TR=TR+1:X5=22
725IFX5=22THENA$(991,1007)="RUB*ALASKANRUBY":A$(510,528)="HAPPYESKIMOBRIDE":GOTO5090
726IFA=54ANDJ=61ANDR2=0THEN?"Eskimogivesyou":?"somethinginreturn":X5=23
727IFX5=23THENA$(1321,1342)="FOR*SILVERFORK":A$(1302,1317)="SATISFIEDESKIMO":TR=TR+1:R2=1:GOTO5090
728IFA=62ANDR3=0ANDJ=6ANDMT<>0THEN?"Eskimoishappy.":?"Hegivesyouapresent":R3=1:X5=24
729IFX5=24THENA$(111,128)="SIL*BAROFSILVER":A$(1500,1515)="CONTENTEDESKIMO":TR=TR+1:GOTO5090
730IFA$(J*SZ-SZ+4,J*SZ-SZ+4)="*"THENTR=TR-1:IFA=58ANDR4=0THENX5=25
731IFX5=25THENR4=1:R5=J:?"Eskimotakesyourpresent":?"andsaysyoumayusehiskayak":A(J)=0:GOTO5100
732IFJ=37THEN?"Youcan't":GOTO5090
735A(J)=A
740?"OK!":GOTO5100
750IFD(B)<>3THEN767
755IFE$="EYE"THENEC=0:GOTO5050
756IFA(38)=-1ANDA=25ANDE$="DOO"THENA$(422,432)="OPENDOOR":DR=1:GOTO5050
757IFA(22)=-1ANDE$="CAN"ANDOP=0AND(A(18)=-1ORA(18)=A)THENA$(378,385)="OPENCAN":OP=1:X5=30
758IFX5=30ANDA=20THEN718
759IFX5=30THEN5050
760IFE$="BAG"ANDA(58)<>-1THEN?"Sorry,Dochasthekey":GOTO450
761IFE$="BAG"AND(A(53)=-1ORA(53)=A)ANDOB=0THEN?"Somethingfallsout":A(57)=A:OB=1:GOTO5100
762IFCH=1ANDA=44ANDE$="CHE"ANDA(37)=-1THENK3=37:K0=0:?"Oilonhandshelps.":X5=31
763IFX5=31THEN?"Somethingfallsout":CH=2:A(40)=44:GOTO1100
764IFCH=1ANDA=44ANDE$="CHE"THEN?"Hingesarerusty,":?"chestwon'tbudge":GOTO450
767IFD(B)<>4THEN770
768IFE$="PAR"ANDA(7)=-1THENA(7)=-2:?"Ok":GOTO450
769IFE$="SHO"ANDA(8)=-1THENA(8)=-2:?"Ok":GOTO450
770IFD(B)<>7THEN870
780IFA=46ANDE$="LAK"THENA=47:GOTO300
782IFA=16ANDE$="LOD"THENA=17:GOTO300
784IFA=24ANDE$="CAV"THENA=25:GOTO300
786IFA=25ANDE$="DOO"ANDDR=1THENA=26:GOTO300
788IFA=51ANDE$="POS"THENA=3:GOTO300
790IFA=33ANDE$="POS"THENA=34:GOTO300
792IFE$="IGL"THENIFA=10ORA=12ORA=30ORA=38ORA=40ORA=55ORA=53ORA=61OR(A=21ANDIG=1)THENX5=40
793IFX5=40THENA=A+1:GOTO300
795IFA(3)=-AANDE$="SLE"THENA=48:GOTO300
800IFE$="KAY"ANDA=59THENA(66)=-58:A(67)=-58:A=58:GOTO1700
802IFE$="KAY"ANDA=58ANDR4=0THEN?"Eskimowon'tletyouuseit...yet":GOTO450
803IFE$="KAY"ANDA=58THENA(66)=-59:A(67)=-59:A=59:GOTO1700
805IFA=44ANDE$="HOL"ANDCH=0THENCH=1:?"Holetoosmall,":?"butyoumanage":?"topushsomethingout":X5=41
807IFX5=41THENA(39)=-44:GOTO5100
870IFD(B)<>9THEN880
871IFA=44ANDE$="POL"THENA=49:GOTO300
872IFA<>30ANDE$="IGL"THEN?"Thisone'stoosteep":GOTO450
874IFA=24ANDE$="MOU"THENA=27:GOTO300
876IFA=30ANDE$="IGL"ANDA(8)=-2THENA=35:GOTO300
877IFA=30ANDE$="IGL"THEN?"Tooslippery,":?"youslideoff":GOTO450
880IFD(B)<>10THEN900
882IFA=39ANDE$="RAD"ANDPN=0THEN?"Beautifulmusic...":?"Ithinkit's":?"'ONASNOWYEVENING'":GOTO450
884IFA=39ANDE$="RAD"THEN?"THISISSTATION":?"":?"SOMEWHEREINALASKA":GOTO450
885IFA=41ANDE$="PHO"ANDTF=0THEN?"Voicesays,":?CHR$(34);"tellmewhatradiostation":X5=50
886IFX5=50THEN?"youarelisteningto":?"andwinaprize":LP=1:PN=1:GOTO450
888?"Youhearnothingspecial":GOTO450
900IFD(B)<>11THEN930
902IFA=24ANDE$="MOU"THEN?"There'sacave":GOTO450
904IFA=18ANDE$="ESK"THEN?"It'ssaladdressing":GOTO450
905IFE$="MAT"ORE$="BOO"THEN?MT;"left":GOTO450
910IFE$="CAN"AND(A(18)=AORA(18)=-1)THEN?"Itsays'ALPO'onit":GOTO450
912IFA=44ANDE$="HOL"ANDCH=0THEN?"There'ssomethingthere":GOTO450
914IFA=47ANDOY=0ANDE$="WHA"THEN?"Whaleoilseepingfromit'sbody":GOTO450
915IFA=7ANDID=0THEN?"Youfindsomething":ID=1:A(42)=7:GOTO5100
916IFE$="ESK"ANDA=62ANDR3=0THEN?"He'slooking,disgruntled,athispipe":GOTO450
918IFE$="ESK"ANDA=22ANDES=0THEN?"Youfindsomething":A(38)=22:ES=1:GOTO5100
920IFE$="SNO"AND(A=6ANDPL=0)THEN?"Youfindsomething":A(43)=6:PL=1:GOTO5100
921IFA=44ANDE$="POL"THEN?"There'saholeinit":GOTO450
922IFE$="SNO"ANDA=44ANDEY=1THENEY=2:?"Youfindsomething":A(52)=44:GOTO5100
923IFA=49ANDE$="POL"THEN?"It'sahideousgargoyleface":GOTO450
924IFA=49ANDEY=0AND(E$="FAC"ORE$="GAR")THEN?"There'savaluableopalin":X5=60
925IFX5=60THEN?"oneofitseyesockets":GOTO450
926IFE$="VET"ANDA=41ANDCD=2THEN?"Youfindsomething":A(58)=41:CD=3:GOTO5100
927IFA(56)=-AANDE$="ESK"ANDNK=0THEN?"He'swearingagoldnecklace":GOTO450
928IFE$="SNO"ANDWS=0ANDA=8THENWS=1:?"Youfindsomething":A(48)=A:GOTO5100
929?"Youseenothingspecial":GOTO450
930IFD(B)<>12THEN940
932?CHR$(34);D$;CHR$(34):?:IFE$="MUS"THEN1510
934IFA=41ANDD$="KOOL"ANDLP=1ANDTF=0THEN?"Mailmanarrivesand":?"handsyouyourprize":X5=70
935IFX5=70THENJ=47:A(J)=41:TF=1:TR=TR+1:GOTO675
936GOTO450
940IFD(B)<>13THEN950
945IFA=17AND(E$="BOT"ORE$="SNO")ANDA(44)=-1ANDBT=1THENBT=2:A$(950,964)="BOTTLEOFWATER":GOTO5050
950IFD(B)<>14THEN960
952IFE$="CLO"AND(A(48)=-1ORA(48)=A)THENSW=1:?"Clockset":GOTO450
960IFD(B)<>15ORA(6)<>-1THEN970
961IFMT=0THEN?"You'reoutofmatches":GOTO450
962IFE$<>"TWI"THENMS=1:MT=MT-1:GOTO300
963IFE$="TWI"ANDA(4)=-1THEN?"Notwhileyou'reholdingthem":GOTO450
964IFE$="TWI"ANDA(4)=ATHENA$(70,82)="BURNINGTWIGS":MT=MT-1:A(4)=-A:X5=80:IFA=26THENMS=3:GOTO5050
965IFX5=80AND(A=11ANDFE=0)THEN?"Thawedout!":?"Gratefuleskimogives":?"yousomething":X5=82
967IFX5=82THENA$(180,194)="GRATEFULESKIMO":FE=1:J=51:TR=TR+1:A(J)=11:GOTO675
968IFX5=80THEN5050
970IFD(B)<>16ORA(27)<>-1THEN980
971FORHI=30TO0STEP-1:SOUND0,HI,2,15:NEXTHI:FORHI=15TO0STEP-1:SOUND0,0,2,HI:NEXTHI
972?"":IFPB=0ANDE$="BEA"ANDA(45)=-ATHENFORHI=15TO0STEP-1:SOUND0,22,0,HI:X5=90
973IFX5=90THENNEXTHI:?"Yougothim":PB=1:A$(972,986)="DEADPOLARBEAR":A(45)=A:GOTO5100
974IFA(61)=AANDR1=1ANDE$="SEA"THENFORHI=15TO0STEP-1:SOUND0,22,0,HI:NEXTHI:X5=93
975IFX5=93THEN?"Yougotit":R1=2:A$(1324,1341)="DEADSEAGULL":GOTO5100
976?"Youmissed...":GOTO450
980IFD(B)<>17THEN985
982IFE$="DOG"ORE$="HUS"THENIFA=36ANDSD=0THENA(53)=36:SD=1:GOTO5050
985IFD(B)<>18THEN990
986IFA(14)<>-1THEN?"Toocold":?"":GOTO450
987IFA=21ANDIG=0THENA$(334,341)="IGLOO":IG=1:?"Youuncoveredsomething":GOTO5100
988?"Youfoundnothing":?"Try:LOOK";D$:GOTO450
990IFD(B)<>19THEN1000
995IFE$="EYE"THENEC=1:GOTO5050
1000?"Sorry,youcan'tdothat":GOTO450
1100FORK2=1TO18:IFC(K2)=K3THENC(K2)=K0:A(K3)=0:A(K0)=-1:X5=100:IFK3=43THENA(43)=-A:GOTO5100
1101IFX5=100THEN5050
1115NEXTK2:GOTO5050
1500?"Outof15possible":?"treasures,youhave";TR:IFTR=15THEN6000
1501GOTO450
1510IFA<>48OR(A=48ANDSL=0ANDDG=6)THEN?"Mush?":?"What'sittastelike?":GOTO450
1511IF(A1=14ANDTD=0)OR(A1=20ANDOP<2)OR(A1=36ANDCD=0)THEN?"Dogswon'tmove":GOTO450
1512IFSL=0THEN?"6dogsmakeateam":GOTO450
1513IFA1=4ANDSL=1THENA1=8:GOTO1530
1514IFA1=8THENA1=14:GOTO1530
1515IFA1=14THENA1=20:GOTO1530
1516IFA1=20THENA1=28:GOTO1530
1517IFA1=28THENA1=36:GOTO1530
1518IFA1=36THENA1=42:GOTO1530
1519IFA1=42THENA1=52:GOTO1530
1520IFA1=52THENA1=4
1530SOUND0,200,6,5:POKE752,1:?"":POSITION3,10:?"WOOFWOOF...":?"withwhipinhand,youfuriously"
1531?"ridethesnowyplainsofAlaska":?"astheAuroraBorealisilluminates"
1532?"yoursled.Yourdogsslowdown":?"andyoucomesomewheretorest"
1533SETCOLOR2,5,15:A(3)=-A1:FORHI=1TO750:NEXTHI:GOTO300
1540TD=1:?"Dogsdrinkwater":?"andaresatisfied":A$(312,327)="EMPTYDISH":W2=0:A(15)=A:GOTO5100
1700?"YourideacrosstherapidwatersoftheBugamugaRiverandcometorestontheoppositeshore":GOTO5100
2000DATASNOSNOW,0,POSTRADINGPOST,-51,SLESLED,-4,TWIWOODTWIGS,9,IGLIGLOO,-10,MATMATCHBOOK,11
2005DATAPARFURPARKA,11,SHOSTICKYSHOES,32,ESKFROZENESKIMO,-11,IGLIGLOO,-12,ESKSLEEPINGESKIMO,-13
2010DATALODESKIMOLODGE,-16,FIRFIREPLACE,-17,SHOSHOVEL,-3,DISEMPTYWATERDISH,19,BANSNOWBANK,-21
2020DATAESKDEADESKIMO,-22,CANTINCAN,22,MOUMOUNTAIN,-24,DOOLOCKEDDOOR,-25,DIA*ALASKANDIAMOND,26
2030DATAOPECANOPENER,27,IGLIGLOO,-30,BRICRYINGESKIMOBRIDE,-31,POSTRADINGPOST,-33,FURFURS,-34
2035DATAGUNSPEARGUN,35,IGLIGLOO,-38,VETESKIMOVET,-39,RADRADIO,-39,IGLIGLOO,-40,TELTELEPHONE,-41
2040DATAPOLTOTEMPOLE,-44,BOXBOX,45,LAKLAKE,-46,WHADEADWHALE,-47,HANOILYHANDS,0,KEYKEY,0
2050DATACHETREASURECHEST,0,SAP*SAPPHIRE,0,HUSESKIMOHUSKIE,0,IDO*MAGICIDOL,0,PLAANTIQUEPLATE,0
2060DATADREESKIMODRESSING,18,BEAPOLARBEAR,0,RINWEDDINGRING,0,REC*GOLDENRECORD,0,CLOALARMCLOCK,0
2070DATAPEA*PEARL,0,STA*GOLDENSTATUE,0,COI*RARECOIN,0,OPA*OPAL,0,BAGBLACKBAG,0,PILPILLOW,0
2075DATANEC*GOLDENNECKLACE,0,ESKTIREDESKIMO,0,FIL*GOLDFILLING,0,KEYTINYKEY,0,VAS*GOLDVASE,56
2085DATAESKHUNGRYESKIMO,-54,SEALOW-FLYINGSEAGULL,0,IGLIGLOO,-55,IGLIGLOO,-53,ESKNAKEDESKIMO,-56
2090DATAIGLIGLOO,-61,RIVRIVER,-58,KAYKAYAK,-58,ESKPOOROLDESKIMO,-58,ESKMADESKIMO,-62
2100DATAWNESUDGETTAKDROPOUOPEWEAGOENTCLIDIATURLISANSLOOSAYWARHEASETLIGSHOMOVDIGCLO
2110DATA1,1,2,2,3,4,7,7,9,10,10,10,10,11,12,13,13,14,15,16,17,18,19
3000?"Idon'tknowwhatyoumean!":GOTO450
5000?:?"HITTOCONTINUE...";:INPUTA9$:GOTO300
5050IFDG=6ANDR7=0THENH$="ATEAMOF6ESKIMOHUSKIES":R7=1
5075?"Ok":GOTO5100
5090A(J)=-1:C(K)=J
5100FORHI=1TO250:NEXTHI:GOTO300
6000?"Thisadventure":?"isover";	

• Download link 1

• Download link 1
• Download link 2