X9 code

1 PRINT"{clear}":M1=0:GOSUB60000:A3=INT(RND(TI)):A3=(INT(20*RND(1))+1)/10:C=C-50000
2 A4=(INT(20*RND(1))+1)/10:A5=(INT(20*RND(1))+1)/10:A6=(INT(20*RND(1))+1)/10
3 K7=(INT(20*RND(1))+1)/10:A8=(INT(20*RND(1))+1)/10:A9=(INT(20*RND(1))+1)/10
4 H1=(INT(20*RND(1))+1)/10:H2=(INT(20*RND(1))+1)/10:H3=(INT(20*RND(1))+1)/10
5 H4=99:PRINT"{clear}":PRINT"{white}";CHR$(14):POKE657,128:POKE53280,4:POKE53281,0
10 PRINT"{rvrs on}                - {$c5}CONOMY -             "
15 PRINT"{down}{$ce}AME: ";J9$;"{shft space}";SZ$
20 PRINT"{down}{yellow}   1. {$d4}O GET PRICES + TO BUY GOODS"
47 PRINT"   2. {$d4}O LOOK FOR ADVENTURES"
48 PRINT"   3. END"
50 PRINT"{down}{white}{rvrs on}                                        "
55 INPUT"{down}         {$d9}OUR DECISION ";A1
60 IFA1=1THENGOTO100
80 IFA1=3THENGOTO900
85 IFA1=2THENGOTO10000
90 GOTO5
100 PRINT"{clear}":PRINT"{rvrs on}{yellow}               - {$cf}FFERS -               "
105 PRINT"{down}             1.{$d3}OUTH-{$c1}FRICA"
110 PRINT"             2.{$ce}AMIBIA"
115 PRINT"             3.{$c2}OTSWANA"
120 PRINT"             4.{$cd}OCAMBIQUE"
125 PRINT"             5.{$da}IMBABWE"
130 PRINT"             6.{$da}AMIBIA"
135 PRINT"             7.{$c1}NGOLA"
140 PRINT"             8.{$cd}ALAWI"
145 PRINT"             9.{$da}AIRE"
150 PRINT"            10.{$c3}ONGO"
155 PRINT"{down}                                        "
160 INPUT"{down}    {$d0}RICES FROM WHICH COUNTRY ";A1
165 IFA1=1THENA2=R1*A3:GOSUB1000
170 IFA1=2THENA2=R2*A4:GOSUB1000
175 IFA1=3THENA2=R3*A5:GOSUB1000
180 IFA1=4THENA2=R4*A6:GOSUB1000
185 IFA1=5THENA2=R5*K7:GOSUB1000
190 IFA1=6THENA2=R6*A8:GOSUB1000
192 IFA1=7THENA2=R7*A9:GOSUB1000
194 IFA1=8THENA2=R8*H1:GOSUB1000
196 IFA1=9THENA2=R9*H2:GOSUB1000
197 IFA1=10THENA2=H4:GOSUB1000
198 GOTO5
900 M1=B:GOSUB60010:POKE646,0:PRINT"{down}LOAD";CHR$(34);"X2";CHR$(34);",8,1"
905 PRINT"{down:4}RUN":PRINT"{up:10}":POKE198,3:POKE631,13:POKE632,13:POKE633,13
910 END
1000 PRINT"{clear}{rvrs on}{white}                                        ":GOSUB4100
1005 PRINT"{$ce}R. GOODS                 PRICE         "
1010 PRINT"{$a6:40}"
1011 A3=(INT(20*RND(1))+1)/10
1012 B1=JH*AD/2700*((500*KK)/A2):IFB1<1THENB1=1
1013 IFB1>12THENB1=12
1014 IFA2=H4THENB1=JH
1015 GOSUB2000:PRINT"{down}1. WHEAT (1 P./1 YEAR)    ";INT(B1);" $"
1017 B2=Z*AD/2700*((500*KK)/A2):IFB2<20THENB2=20
1018 IFB2>1000THENB2=1000
1019 IFA2=H4THENB2=J7
1020 GOSUB2011:GOSUB9000:PRINT"2. CATTLE                 ";INT(B2);" $"
1022 B3=AS*AD/2000*((500*KK)/A2):IFB3<100THENB3=100
1023 IFB3>5000THENB3=5000
1024 IFA2=H4THENB3=AS
1025 GOSUB2022:IFB3<650THENB3=650
1026 PRINT"3. LAND (PER ACRE)        ";INT(B3);" $"
1050 PRINT"{rvrs on}{yellow}                                        "
1055 INPUT"    {$d7}HAT DO YOU WANT TO BUY ";A1:IFA1<1ORA1>3THENGOTO100
1060 INPUT"    {$c8}OW OFTEN DO YOU WANT TO BUY THAT ";T4
1061 GOSUB4010
1065 IFA1=1ANDT4>=0THENI=I+T4:C=C-T4*B1:GOTO1000
1070 IFA1=2ANDT4>=0THENZ=Z+T4:C=C-T4*B2:GOTO1000
1075 IFA1=3ANDT4>=0THENA7=A7+T4:C=C-T4*B3:GOTO1000
1080 GOTO100
1199 POKE198,0:WAIT198,1:POKE198,0
1200 RETURN
2000 IFA2=(R1*A3)THENB1=(B1*1.15)+H5/2
2001 IFA2=(R2*A4)THENB1=(B1*1.1)+H6
2002 IFA2=(R3*A5)THENB1=(B1*1.05)+H7/1.5
2003 IFA2=(R4*A6)THENB1=(B1*1.1)+H8/2
2004 IFA2=(R5*K7)THENB1=(B1*1.1)+H9
2005 IFA2=(R6*A8)THENB1=(B1*1.15)+T1/2
2006 IFA2=(R7*A9)THENB1=(B1*1.15)+T2
2007 IFA2=(R8*H1)THENB1=(B1*1.1)+T3
2008 IFA2=(R9*H2)THENB1=(B1*1.1)+H3/2
2009 IFA2=H4THENB1=JH
2010 RETURN
2011 IFA2=(R1*A3)THENB2=(B2*0.05)+10*H5
2012 IFA2=(R2*A4)THENB2=(B2*1.25)+8*H6
2013 IFA2=(R3*A5)THENB2=(B2*1.2)+9*H7
2014 IFA2=(R4*A6)THENB2=(B2*1.15)+6*H8
2015 IFA2=(R5*A7)THENB2=(B2*1.15)+7*H9
2016 IFA2=(R6*A8)THENB2=(B2*1.1)+8*T1
2017 IFA2=(R7*A9)THENB2=(B2*1.3)+9*T2
2018 IFA2=(R8*H1)THENB2=(B2*1.2)+9*T3
2019 IFA2=(R9*H2)THENB2=(B2*1.15)+10*H3
2020 IFA2=H4THENB2=J7
2021 RETURN
2022 IFA2=(R1*A3)THENB3=(B3*1.1)+3*H5
2023 IFA2=(R2*A4)THENB3=(B2*1.35)+4*H6
2024 IFA2=(R3*A5)THENB3=(B3*1.1)+5*H7
2025 IFA2=(R4*A6)THENB3=(B3*1.3)+4*H8
2026 IFA2=(R5*K7)THENB3=(B3*1.25)+3*H9
2027 IFA2=(R6*A8)THENB3=(B3*1.2)+5*T1
2028 IFA2=(R7*A9)THENB3=(B3*1.25)+3*T2
2029 IFA2=(R8*H1)THENB3=(B3*1.4)+2*T3
2030 IFA2=(R9*H2)THENB3=(B3*1.2)+6*H3
2031 IFA2=H4THENB3=AS
2032 RETURN
4000 M1=R1/120:M2=R2/23:M3=R3/23:M4=R4/23:M5=R5/23:M6=R6/23:M7=R8/23:M8=R8/23
4001 M9=R9/23:N7=R1/300:RETURN
4010 IFA1=1ANDA2=(R1*A3)ANDT4<=M1THENM1=M1-T4:R1=R1+T4/10000
4011 IFA1=1ANDA2=(R1*A3)ANDT4>M1THENT4=M1:R1=R1+T4/10000:M1=M1-T4
4012 IFA1=1ANDA2=(R2*A4)ANDT4<=M2THENM2=M2-T4:R2=R2+T4/10000
4013 IFA1=1ANDA2=(R2*A4)ANDT4>M2THENT4=M2:R2=R2+T4/10000:M2=M2-T4
4014 IFA1=1ANDA2=(R3*A5)ANDT4<=M3THENM3=M3-T4:R3=R3+T4/10000
4015 IFA1=1ANDA2=(R3*A5)ANDT4>M3THENT4=M3:R3=R3+T4/10000:M3=M3-T4
4016 IFA1=1ANDA2=(R4*A6)ANDT4<=M4THENM4=M4-T4:R4=R4+T4/10000
4017 IFA1=1ANDA2=(R4*A6)ANDT4>M4THENT4=M4:R4=R4+T4/10000:M4=M4-T4
4018 IFA1=1ANDA2=(R5*K7)ANDT4<=M5THENM5=M5-T4:R5=R5+T4/10000
4019 IFA1=1ANDA2=(R5*K7)ANDT4>M5THENT4=M5:R5=R5+T4/10000:M5=M5-T4
4020 IFA1=1ANDA2=(R6*A8)ANDT4<=M6THENM6=M6-T4:R6=R6+T4/10000
4021 IFA1=1ANDA2=(R6*A8)ANDT4>M6THENT4=M6:R6=R6+T4/10000:M6=M6-T4
4022 IFA1=1ANDA2=(R7*A9)ANDT4<=M7THENM7=M7-T4:R7=R7+T4/10000
4023 IFA1=1ANDA2=(R7*A9)ANDT4>M7THENT4=M7:R7=R7+T4/10000:M7=M7-T4
4024 IFA1=1ANDA2=(R8*H1)ANDT4<=M8THENM8=M8-T4:R8=R8+T4/10000
4025 IFA1=1ANDA2=(R8*H1)ANDT4>M8THENT4=M8:R8=R8+T4/10000:M8=M8-T4
4026 IFA1=1ANDA2=(R9*H2)ANDT4<=M9THENM9=M9-T4:R9=R9+T4/10000
4027 IFA1=1ANDA2=(R9*H2)ANDT4>M9THENT4=M9:R9=R9+T4/10000:M9=M9-T4
4028 IFA1=1ANDA2=H4ANDT4<=N7THENN7=N7-T4
4029 IFA1=1ANDA2=H4ANDT4>N7THENT4=N7:N7=N7-T4
4030 IFA1=2ANDA2=(R1*A3)ANDT4<=(M1/1000)THENM1=M1-T4*1000:R1=R1+T4/10
4031 IFA1=2ANDA2=(R1*A3)ANDT4>(M1/1000)THENT4=M1/1000:M1=M1-T4*1000:R1=R1+T4/10
4032 IFA1=2ANDA2=(R2*A4)ANDT4<=(M2/1000)THENM2=M2-T4*1000:R2=R2+T4/10
4033 IFA1=2ANDA2=(R2*A4)ANDT4>(M2/1000)THENT4=M2/1000:M2=M2-T4*1000:R2=R2+T4/10
4034 IFA1=2ANDA2=(R3*A5)ANDT4<=(M3/1000)THENM3=M3-T4*1000:R3=R3+T4/10
4035 IFA1=2ANDA2=(R3*A5)ANDT4>(M3/1000)THENT4=M3/1000:M3=M3-T4*1000:R3=R3+T4/10
4036 IFA1=2ANDA2=(R4*A6)ANDT4<=(M4/1000)THENM4=M4-T4*1000:R4=R4+T4/10
4037 IFA1=2ANDA2=(R4*A6)ANDT4>(M4/1000)THENT4=M4/1000:M4=M4-T4*1000:R4=R4+T4/10
4038 IFA1=2ANDA2=(R5*K7)ANDT4<=(M5/1000)THENM5=M5-T4*1000:R5=R5+T4/10
4039 IFA1=2ANDA2=(R5*K7)ANDT4>(M5/1000)THENT4=M5/1000:M5=M5-T4*1000:R5=R5+T4/10
4040 IFA1=2ANDA2=(R6*A8)ANDT4<=(M6/1000)THENM6=M6-T4*1000:R6=R6+T4/10
4041 IFA1=2ANDA2=(R6*A8)ANDT4>(M6/1000)THENT4=M6/1000:M6=M6-T4*1000:R6=R6+T4/10
4042 IFA1=2ANDA2=(R7*A9)ANDT4<=(M7/1000)THENM7=M7-T4*1000:R7=R7+T4/10
4043 IFA1=2ANDA2=(R7*A9)ANDT4>(M7/1000)THENT4=M7/1000:M7=M7-T4*1000:R7=R7+T4/10
4044 IFA1=2ANDA2=(R8*H1)ANDT4<=(M8/1000)THENM8=M8-T4*1000:R8=R8+T4/10
4045 IFA1=2ANDA2=(R8*H1)ANDT4>(M8/1000)THENT4=M8/1000:M8=M8-T4*1000:R8=R8+T4/10
4046 IFA1=2ANDA2=(R9*H2)ANDT4<=(M9/1000)THENM9=M9-T4*1000:R9=R9+T4/10
4047 IFA1=2ANDA2=(R9*H2)ANDT4>(M9/1000)THENT4=M9/1000:M9=M9-T4*1000:R9=R9+T4/10
4048 IFA1=2ANDA2=H4ANDT4<=(N7/1000)THENN7=N7-T4*1000
4049 IFA1=2ANDA2=H4ANDT4>(N7/1000)THENT4=N7/1000:N7=N7-T4*1000
4050 IFA1=3ANDA2=H4ANDT4<=(N7/500)THENN7=N7-T4*500
4051 IFA1=3ANDA2=H4ANDT4>(N7/500)THENT4=N7/500:N7=N7-T4*500
4052 IFA1=3ANDA2=(R1*A3)ANDT4<=(M1/500)THENM1=M1-T4*500:R1=R1+T4/5
4053 IFA1=3ANDA2=(R1*A3)ANDT4>(M1/500)THENT4=M1/500:M1=M1-T4*500:R1=R1+T4/5
4054 IFA1=3ANDA2=(R2*A4)ANDT4<=(M2/500)THENM2=M2-T4*500:R2=R2+T4/5
4055 IFA1=3ANDA2=(R2*A4)ANDT4>(M2/500)THENT4=M2/500:M2=M2-T4*500:R2=R2+T4/5
4056 IFA1=3ANDA2=(R3*A5)ANDT4<=(M3/500)THENM3=M3-T4*500:R3=R3+T4/5
4057 IFA1=3ANDA2=(R3*A5)ANDT4>(M3/500)THENT4=M3/500:M3=M3-T4*500:R3=R3+T4/5
4058 IFA1=3ANDA2=(R4*A6)ANDT4<=(M4/500)THENM4=M4-T4*500:R4=R4+T4/5
4059 IFA1=3ANDA2=(R4*A6)ANDT4>(M4/500)THENT4=M4/500:M4=M4-T4*500:R4=R4+T4/5
4060 IFA1=3ANDA2=(R5*K7)ANDT4<=(M5/500)THENM5=M5-T4*500:R5=R5+T4/5
4061 IFA1=3ANDA2=(R5*K7)ANDT4>(M5/500)THENT4=M5/500:M5=M5-T4*500:R5=R5+T4/5
4062 IFA1=3ANDA2=(R6*A8)ANDT4<=(M6/500)THENM6=M6-T4*500:R6=R6+T4/5
4063 IFA1=3ANDA2=(R6*A8)ANDT4>(M6/500)THENT4=M6/500:M6=M6-T4*500:R6=R6+T4/5
4064 IFA1=3ANDA2=(R7*A9)ANDT4<=(M7/500)THENM7=M7-T4*500:R7=R7+T4/5
4065 IFA1=3ANDA2=(R7*A9)ANDT4>(M7/500)THENT4=M7/500:M7=M7-T4*500:R7=R7+T4/5
4066 IFA1=3ANDA2=(R8*H1)ANDT4<=(M8/500)THENM8=M8-T4*500:R8=R8+T4/5
4067 IFA1=3ANDA2=(R8*H1)ANDT4>(M8/500)THENT4=M8/500:M8=M8-T4*500:R8=R8+T4/5
4068 IFA1=3ANDA2=(R9*H2)ANDT4<=(M9/500)THENM9=M9-T4*500:R9=R9+T4/5
4069 IFA1=3ANDA2=(R9*H2)ANDT4>(M9/500)THENT4=M9/500:M9=M9-T4*500:R9=R9+T4/5
4075 RETURN
4100 PRINT"{$d7}HEAT: ";INT(I);" {$c3}ATTLE: ";INT(Z);" {$cc}AND: ";INT(A7)
4105 PRINT"{down}{$c6}ORTUNE: ";INT(C);" $"
4110 PRINT"{down}":RETURN
9000 IFB2<40THENB2=40
9005 RETURN
10000 PRINT"{clear}"
10005 IFVG=1970ANDII=0THENGOTO10100
10010 IFVG=1970ANDII=10THENGOTO10125
10015 IFVG=1973ANDII=0THENGOTO10920
10090 PRINT"{$d9}OU DO NOT HEAR OF ANY ADVENTURE !"
10095 POKE198,0:WAIT198,1:POKE198,0:GOTO10
10100 PRINT"{clear}"
10105 PRINT"{$d9}OU HAVE TRAVELLED THROUGH {$d4}ANALAND FOR WEEKS NOW,BUT YOU HAVE NO";
10110 PRINT"T FOUND ANYTHING INTERESTING EXCEPT TALK OF AN {$c1}PEMAN ";
10115 PRINT"IN A NEARBY VALLEY WHICH THE NATIVES CALL THE '{$d0}REHISTORIC {$d6}ALLEY";
10120 PRINT".'"
10125 PRINT"{down}1. {$c4}O YOU WANT TO LOOK FOR MORE RUMOURS ABOUT THIS APEMAN ?"
10130 PRINT"2. {$c4}O YOU WANT TO ORDER AN EXPEDITION TO THAT VALLEY ?"
10135 PRINT"3. {$c4}O YOU WANT TO GO HOME AGAIN ?"
10140 INPUTA1
10145 IFA1=1THENGOTO10165
10150 IFA1=2THENGOTO10220
10155 IFA1=3THENGOTO10
10160 GOTO10140
10165 PRINT"{clear}"
10170 PRINT"{$c8}E IS DESCRIBED AS A HUGE HAIRY MAN WHO IS HOLDING ";
10175 PRINT"AN ENORMOUS CLUB IN HIS HANDMOST OF THE TIME !"
10180 PRINT"{down}1. {$c4}O YOU WANT FURTHER INFORMATION (100 $) ?"
10185 PRINT"2. {$d9}OU DO NOT WANT ANY FURTHER INFORMATION."
10190 INPUTA1
10195 IFA1=1THENGOTO10210
10200 IFA1=2THENGOTO10125
10205 GOTO10190
10210 C=C-100:PRINT"{down}{$c2}EFORE ATTACKING YOU THE APEMAN KILLS YOUR WIFE."
10215 GOTO10125
10220 PRINT"{$d4}HE EXPEDITION COSTS YOU 15050 $ ALTOGETHER !":C=C-15050:II=99
10225 PRINT"{$d3}OME NATIVES CARRY YOUR LUGGAGE WHILE SOME OTHERS LOOK FOR TRAPS ";
10230 PRINT"MADE BY OTHER TRIBES.{$cd}ANY A TIME MEMBERS OF YOUR GROUP ARE HIT BY";
10235 PRINT" POISON ARROWS.{$d4}HUS TWO WHITE AND ONE BLACK MEN GET KILLED."
10240 PRINT"{$c7}ETTING NEARER TO THAT MYSTERIOUS VALLEY THE NATIVES BECOME MORE ";
10245 PRINT"AND MORE UNEASY AND RUMOURS BEGIN TO SPREAD ABOUT A MAN-EAT";
10250 PRINT"ING GODDESS CALLED '{$c2}IG {$cd}OTHER' WHO IS DESCRIBED AS A HUGE BLA";
10255 PRINT"CK SPIDER !!!":POKE198,0:WAIT198,1:POKE198,0
10260 PRINT"{$c1}FTER SOME WEEKS YOU REACH YOUR DESTINATION."
10265 PRINT"{$cd}IST IS HANGING OVER THE GROUND AND SOME DIABOLIC BONGOS ARE DRUM";
10270 PRINT"MING DEVILISH WARNINGS INTO THE NIGHT-SKY..."
10275 PRINT"{$c8}OURS AND HOURS PASS.{$d4}HEN,SUDDENLY YOU HEAR A HORRIFYING SHOUT ";
10280 PRINT"OUT OF {$ca}ENNA'S TENT..."
10285 PRINT"{$d5}TTERING A SHORT PRAYER TO {$c1}LMIGHTY {$c7}OD YOU RUSH OUT TO IT";
10290 PRINT".{$d4}HERE YOU FIND YOUR WIFE WITH HER HEAD CUT OFF !!!"
10295 PRINT"{down}1. {$c4}O YOU BREAK OFF THIS EXPEDITION AND RETURN HOME ?"
10300 PRINT"2. {$c4}O YOU DARE TO APPROACH THE APEMAN EVEN CLOSER ?"
10305 PRINT"3. {$c4}O YOU BURY {$ca}ENNA HERE IN THE JUNGLE ?"
10310 INPUTA1
10315 IFA1=1THENGOTO10
10320 IFA1=2THENGOTO10335
10325 IFA1=3THENGOTO10550
10330 GOTO10310
10335 PRINT"{clear}{$c4}ENSE FOG IS HANGING OVER THE GROUND AND DEADLY WHISPERS HANG ALL";
10340 PRINT" AROUND.{$ce}OT SELDOM DO YOU HEAR THE CRIES OF SOME FRIGHTENING";
10345 PRINT" ANIMAL NEAR YOUR GROUP..."
10350 PRINT"{$c1}T DUSK YOU REACH A RIVER WHICH FLOWS FROM NORTH TO SOUTHWE";
10355 PRINT"ST AT GREAT SPEED.{$d9}OU DO NOT DARE TO PASS IT BECAUSE OF ";
10360 PRINT"THE DANGER OF CROCODILES ATTACKING YOU WHICH YOU CANNOT SEE ";
10365 PRINT"CLEARLY,BECAUSE THE SUN HAS SET."
10370 PRINT"{$c1}LL HAPPINESS HAS VANISHED FROM YOUR FACES WHICH ARE BITTEN BY";
10375 PRINT" A THOUSAND MOSQUITOS.";
10385 PRINT"{$d9}OU WHITE MEN HAVE TO CARRY EVERTHING ON YOUR OWN NOW,BECAUSE";
10390 PRINT" OF THE NATIVES WHO RAN AWAY AFTER {$ca}ENNA'S DEATH..."
10395 PRINT"{$d9}OU FEEL LIKE STAYING AWAY FROM THE OTHERS FOR A FEW HOURS."
10400 PRINT"{down}1. {$d9}OU WALK AROUND A BIT WHILE THE OTHERS ARE TALKING TO EACH OT";
10405 PRINT"HER."
10410 PRINT"2. {$d9}OU STAY WITH THE OTHERS."
10415 INPUTA1
10420 IFA1=1THENGOTO10435
10425 IFA1=2THENGOTO10600
10430 GOTO10415
10435 PRINT"{clear}{$d3}UDDENLY YOU HEAR SOME DRY WOOD BREAKING WHEN A NAKED MAN OF ";
10440 PRINT"ENORMOUS SIZE ARMED WITH A WOODEN CLUB MOVES OUT OF THE UNDERG";
10445 PRINT"ROWTH.":PRINT"{$d4}HE APEMAN LOOKS AS IF HE IS UNSURE OF WHAT TO DO."
10450 PRINT"{down}1. {$d9}OU TRY TO ATTACK HIM WHITH YOUR BUSH-KNIFE."
10455 PRINT"2. {$d9}OU TRY TO FLEE AWAY."
10460 PRINT"3. {$d9}OU TRY TO TALK TO THE APEMAN IN A FRIENDLY WAY."
10465 INPUTA1
10470 IFA1=1THENPRINT"{rvrs on}{$d4}HE APEMAN KILLS YOU...{$d3}TART A NEW GAME.":GOTO10800
10475 IFA1=2THENPRINT"{rvrs on}{$d4}HE APEMAN ALSO RUNS AWAY.":CS=CS+1000:GOTO10900
10480 IFA1=3THENGOTO10490
10485 GOTO10465
10490 PRINT"{clear}{$d4}HE APEMAN SMILES AT YOU.{$d4}HEN HE LEADS YOU TO HIS CAVE WHE";
10495 PRINT"RE HE GIVES YOU A HOARD OF TREASURE WHICH IS WORTH SOME HUNDREDS ";
10500 PRINT"OF DOLLARS.":C=C+500000
10505 CS=CS+20000:PRINT"{down}1. {$d9}OU STAY WITH {$c3}'TUNGA HERE FOR EVER."
10510 PRINT"2. {$d9}OU LEAVE {$c3}'TUNGA."
10515 PRINT"3. {$d9}OU ATTACK {$c3}'TUNGA."
10520 INPUTA1
10525 IFA1=1THENPRINT"{$c1}ND THEY LIVED HAPPILY TOGETHER FOR EVER AFTER ...":END
10530 IFA1=2THENGOTO10
10535 IFA1=3THENPRINT"{rvrs on}{$d4}HE APEMAN KILLS YOU...{$d3}TART A NEW GAME.":GOTO10800
10540 GOTO10520
10550 PRINT"{clear}{$d7}HILE THE OTHERS IN YOUR CAMP TAKE DOWN THEIR TENTS AND MAKE ";
10555 PRINT"THEMSELVES READY FOR DEPARTURE YOU BEGIN TO BURY {$ca}ENNA."
10560 GOTO10435
10600 PRINT"{clear}{$ce}OTHING SPECIAL HAPPENS.{$c5}VERYBODY IS SITTING HERE AT THE CAMPFI";
10605 PRINT"RE AND IS TELLING STORIES WHILE YOU ROAST SOME WILD BOARS."
10610 PRINT"{$c9}T SEEMS THAT YOU WILL NOT FIND THE APEMAN THIS TIME,BUT PER";
10615 PRINT"HAPS YOU WILL MANAGE THIS THE NEXT TIME.":II=10
10620 PRINT"{$d9}OU RETURN HOME.":CS=CS+100:GOTO10
10800 POKE198,0:WAIT198,1:POKE198,0:LOAD"X3",8
10900 PRINT"{$d7}HEN REACHING THE CAMP AGAIN YOU DO NOT DARE TO TELL THE OTHERS ";
10905 PRINT"ABOUT WHAT HAPPENED.{$d3}O YOU DECIDE TO RETURN HOME ";
10910 PRINT"ARGUING THAT THE APEMAN IS SIMPLY A NATIVE'S LEGEND.":GOTO10
10920 PRINT"{clear}"
10925 PRINT"{$cc}OOKING FOR ADVENTURES IN {$d4}ANALAND YOU HEAR OF A HAUNTED HOUSE IN";
10930 PRINT" THE NORTH.{$c9}T IS SAID THAT EVERYBODY WHO DARES TO APP";
10935 PRINT"ROACH THIS HOUSE WILL BE SLAIN BY {$c3}IM'TABA,THE STATUE OF DEATH."
10940 PRINT"{$d0}EOPLE CALL THIS HOUSE '{$d4}HE {$c8}OUSE OF {$c3}HILLING {$c8}ORRORS'..."
10945 PRINT"{down}1. {$c4}O YOU DARE TO APPROACH THIS HOUSE ?"
10950 PRINT"2. {$c4}O YOU PREFER TO RETURN HOME ?"
10955 INPUTA1
10960 IFA1=1THENGOTO10975
10965 IFA1=2THENGOTO10
10970 GOTO10955
10975 PRINT"{clear}"
10980 PRINT"{$d0}EOPLE TALK OF {$c3}IM'TABA AS A LIVING STATUE WHICH REPRESENTS THE ";
10985 PRINT"DEVIL ITSELF !{down}{$d4}HE WAY TO THE HAUNTED HOUSE LEADS THROUGH SOME ";
10990 PRINT"GHOSTLY-LOOKING SWAMPS.{$d7}ITHOUT ANY PAUSE YOU HEAR THE FIRE-TOADS";
10995 PRINT" CROAKING THEIR SONGS OF DESTINY..."
11000 PRINT"{$c6}OR A CASE OF EMERGENCY YOU BOUGHT A GUN (50 $) AND ASKED FOR A C";
11005 PRINT"AB TO TAKE YOU THERE (250 $).{$d4}HE DRIVER REFUSES TO APPROACH THE ";
11010 PRINT"HOUSE ANY NEARER THAN A 100 YARDS.":C=C-300
11015 PRINT"{down}1. {$c4}O YOU WANT TO RETURN HOME ?"
11020 PRINT"2. {$c4}O YOU DARE TO APPROACH THE HOUSE ANY NEARER ?"
11025 INPUTA1
11030 IFA1=1THENGOTO10
11035 IFA1=2THENGOTO11045
11040 GOTO11025
11045 PRINT"{clear}"
11050 PRINT"{$d7}HILE YOU ARE APPROACHING THE HOUSE YOU SEE ";
11055 PRINT"BATS OVERHEAD.{$d4}HE TREES ARE LOOKING LIKE HIDEOUS MASKS AND ";
11060 PRINT"THEIR BRANCHES ARE HANGING INTO YOUR FACE AS IF THEY WANT TO KEEP ";
11065 PRINT"YOU AWAY FROM {$c3}IM'TABAS DWELLING..."
11070 PRINT"{$c1}T LAST YOU STAND IN FRONT OF '{$d4}HE {$c8}OUSE OF {$c3}HILLING {$c8}ORRORS'{shft space}!"
11075 PRINT"{$d4}HE DOOR IS CREAKING IN THE WIND AS ARE THE WINDOWS."
11080 PRINT"{down}1. {$c4}O YOU GO THROUGH THE FRONTDOOR ?"
11085 PRINT"2. {$c4}O YOU TRY TO FIND A BACKDOOR ?"
11090 PRINT"3. {$c4}O YOU PREFER TO RETURN HOME ?"
11095 INPUTA1
11100 IFA1=1THENGOTO11130
11115 IFA1=2THENGOTO11250
11120 IFA1=3THENGOTO10:II=1
11125 GOTO11095
11130 PRINT"{clear}{$d7}HEN ENTERING THE HOUSE YOU SUDDENLY HEAR A BLOOD-CURDLING ";
11135 PRINT"SHOUT.{$d9}OUR HEARTBEAT QUICKENS.{$c5}XPECTING TO BURST WITH HORROR ";
11140 PRINT"EVERY SECOND YOU DARE TO ENTER THAT FRIGHTENING HOUSE."
11145 PRINT"{$c1}S SOON AS YOU DO SO YOU RECOGNIZE SOMETHING MOVING IN THE SHAD";
11150 PRINT"OWS..."
11155 PRINT"{down}1. {$c4}O YOU FLEE ?"
11160 PRINT"2. {$c4}O YOU WANT TO ATTACK THE MOVING SOMETHING ?"
11165 PRINT"3. {$c4}O YOU TRY TO MOVE FORWARDS WITHOUT ATTACKING ?"
11170 INPUTA1
11175 IFA1=1THENGOTO10
11180 IFA1=2THENGOTO11195
11185 IFA1=3THENGOTO11200
11190 GOTO11175
11195 PRINT"{clear}{$d9}OU MOVE FORWARDS,HOLDING YOUR GUN IN YOUR HANDS,AIM AND ...FIRE";
11200 PRINT" !!!{down}{$d4}HE CURTAINS DO NOT STOP MOVING IN THE WIND..."
11205 PRINT"{$d9}OU SEE SOME NARROW STAIRS LEADING TO THE CELLAR."
11210 PRINT"{down}1. {$c4}O YOU WANT TO RETURN HOME ?"
11215 PRINT"2. {$c4}O YOU WANT TO SEARCH THROUGH THIS ROOM ?"
11220 PRINT"3. {$c4}O YOU WANT TO GO DOWNSTAIRS ?"
11225 INPUTA1
11230 IFA1=1THENGOTO10
11235 IFA1=2THENGOTO11275
11240 IFA1=3THENGOTO11305
11245 GOTO11225
11250 PRINT"{clear}"
11255 PRINT"{$c1}S SILENTLY AS POSSIBLE YOU MOVE TO THE BACKDOOR OF THE HOUSE WHEN";
11260 PRINT" SUDDENLY A HUGE BAT WITH THE FACE OF A WOMAN FLIES INTO THE ";
11265 PRINT"NIGHTSKY CRYING IN A SALACIOUS WAY."
11270 PRINT"{$c3}OMPLETELY SHOCKED YOU RETURN HOME NOW !!!":II=1:GOTO10
11275 PRINT"{clear}"
11280 PRINT"{$cf}N THE FLOOR YOU SEE AN OLD CARPET WHICH SERVES AS FOOD FOR MOTH";
11285 PRINT"S AND OTHER CREATURES LIKE THAT.{$c9}N A CORNER YOU SEE AN ANTIQUE ";
11290 PRINT"WOBBLY CHAIR AND A WORN-OUT CURTAIN COVERS THE BROKEN WINDOW."
11295 PRINT"{$cc}OOKING THROUGH THE ROOM YOU DO NOT FIND ANYTHING INTERESTING."
11300 GOTO11210
11305 PRINT"{clear}"
11310 PRINT"{$d4}HE STAIRS ARE CREAKING WHILE YOU MOVE DOWNWARDS.{$d3}UDDENLY SOMETHI";
11315 PRINT"NG IS MOVING...A MOUSE."
11320 PRINT"{$d7}OOD IS SPLINTERING ALL AROUND.{$d3}OME BIG FISTS TRY TO KILL YOU...!"
11325 PRINT"{$c3}IM'TABA HAS RETURNED...AND HE WILL SLAY YOU...!"
11330 PRINT"{$d9}OU TRY TO FLEE...!"
11335 A1=INT(20*RND(1))+1
11340 IFA1<7THENPRINT"{$d9}OU ESCAPE AND RETURN HOME AS SOON AS POSSIBLE..."
11345 IFA1<7THENPOKE198,0:WAIT198,1:POKE198,0:II=9:CS=CS+40000:GOTO10
11350 PRINT"{$d9}OU ARE SLAIN !!!":GOTO60999
50000 END
60000 OPEN2,8,2,"X4,S,R"
60002 INPUT#2,VG,B,A7,F,G,Z,I,E,RT,C,SZ$,R1,R2,R3,R4,R5,AS,R6,R7,R8,R9,JH,DS,LV
60003 INPUT#2,KK,S1,S2,S3,S4,S5,D1,D2,D3,D4,D5,D6,D7,J9$,O1,G1,O2,G2,O3,G3,O4,G4
60004 INPUT#2,O5,G5,O6,G6,P1,P2,P3,P4,P5,P6,AG,AF,AD,AC,AB,ER,HZ,TQ,CS,YY,V9,J7
60005 INPUT#2,L1,L2,L3,L4,J9,J4,J5,J6,J8,B7,G9,M1$,A2$:IFST=64THENCLOSE2
60006 H5=(INT(20*RND(1))+1)/10:H6=(INT(20*RND(1))+1)/10:GOSUB4000
60007 H7=(INT(20*RND(1))+1)/10:H8=(INT(20*RND(1))+1)/10
60008 H9=(INT(20*RND(1))+1)/10:T1=(INT(20*RND(1))+1)/10
60009 T2=(INT(20*RND(1))+1)/10:T3=(INT(20*RND(1))+1)/10:RETURN
60010 M1$="N":PRINT"{$d3}AVING ";J9$;"{shft space}";SZ$;"{shft space}!":A2$="S"
60011 IFVG=1970ANDII=0THENPRINT"{rvrs on}{$d9}OUR WIFE {$ca}ENNA GOT KILLED IN THE JUNGLE !"
60015 OPEN2,8,2,"@:X5,S,W":PRINT#2,M1$:CLOSE2:OPEN2,8,2,"@:X4,S,W"
60020 PRINT#2,VG:PRINT#2,B:PRINT#2,A7:PRINT#2,F:PRINT#2,G:PRINT#2,Z:PRINT#2,I
60025 PRINT#2,E:PRINT#2,RT:PRINT#2,C:PRINT#2,SZ$:PRINT#2,R1:PRINT#2,R2
60030 PRINT#2,R3:PRINT#2,R4:PRINT#2,R5:PRINT#2,AS:PRINT#2,R6:PRINT#2,R7
60032 PRINT#2,R8
60035 PRINT#2,R9:PRINT#2,JH:PRINT#2,DS:PRINT#2,LV:PRINT#2,KK:PRINT#2,S1
60040 PRINT#2,S2:PRINT#2,S3:PRINT#2,S4:PRINT#2,S5:PRINT#2,D1:PRINT#2,D2
60045 PRINT#2,D3:PRINT#2,D4:PRINT#2,D5:PRINT#2,D6:PRINT#2,D7:PRINT#2,J9$
60050 PRINT#2,O1:PRINT#2,G1:PRINT#2,O2:PRINT#2,G2:PRINT#2,O3:PRINT#2,G3
60055 PRINT#2,O4:PRINT#2,G4:PRINT#2,O5:PRINT#2,G5:PRINT#2,O6:PRINT#2,G6
60060 PRINT#2,P1:PRINT#2,P2:PRINT#2,P3:PRINT#2,P4:PRINT#2,P5:PRINT#2,P6
60065 PRINT#2,AG:PRINT#2,AF:PRINT#2,AD:PRINT#2,AC:PRINT#2,AB:PRINT#2,ER
60070 PRINT#2,HZ:PRINT#2,TQ:PRINT#2,CS:PRINT#2,YY:PRINT#2,V9:PRINT#2,J7
60075 PRINT#2,L1:PRINT#2,L2:PRINT#2,L3:PRINT#2,L4:PRINT#2,J9
60080 PRINT#2,J4:PRINT#2,J5:PRINT#2,J6:PRINT#2,J8:PRINT#2,B7:PRINT#2,G9
60085 PRINT#2,M1$:PRINT#2,A2$:CLOSE2:RETURN
60999 LOAD"X3",8
61000 END