1 REM 


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C\B6


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\C6\F9


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\EDB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57530 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\D6


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\ED\B0


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C\B6


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\C9


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C\C5E\C6\F9\C1\F2\C9


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C\C5\FB\C1\F4\C9


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Adventure 2 Phoenix Tower
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Adventure 2 Phoenix Tower
			
		


	
	
	


							

				

  
Download
  





Date: 198x
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1006
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\0C\40\11\B6\02\19\06\20\7E\C6\80\77\23\10\F9\2A\0C\40\11\21\00\19\ED\5B\0C\40\01\D6\02\ED\B0\21\21\03\22\39\40\2A\0C\40\11\B6\02\19\22\0E\40\C9\2A\0C\40\06\15\C5\06\20\23\7E\C6\80\77\10\F9\23\C1\10\F2\C9\2A\0C\40\06\15\C5\06\20\23\36\80\10\FB\23\C1\10\F4\C9\2A\0C\40\11\0E\00\19\36\00\23\36\34\11\20\00\19\36\03\23\36\80\23\36\03\11\20\00\19\36\80\11\20\00\19\36\06\23\23\36\86\2A\0C\40\11\0E\00\19\36\86\11\21\00\19\36\00\C3\D9\40\32\32\32\32
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
1000 IF E(1)<1 THEN GOTO 1440
1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
1009 LET D$=A$(L,A,B)
1010 IF D$="% " THEN GOTO 1110
1020 IF Y1=A AND Y2=B THEN GOTO 1200
1030 LET Y1=A
1040 LET Y2=B
1050 IF D$=CHR$ 18 THEN GOTO 1810
1060 IF D$=CHR$ 15 THEN GOTO 1130
1065 IF D$=CHR$ 17 THEN GOTO 1760
1070 GOSUB 3220
1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
1100 GOTO 670
1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
1111 LET A=Y1
1112 LET B=Y2
1120 GOTO 915
1130 LET X=INT (RND*7)*8+1
1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
1150 GOTO 1090
1155 PRINT "WHAT ABOUT THE MONSTER?"
1190 GOTO 670
1200 PRINT TAB USR C;"PARDON?";TAB USR C;
1210 GOTO 915
1220 IF T>0 THEN GOTO 1155
1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
1230 IF E(5)<1 THEN GOTO 1350
1235 IF L=15 THEN GOTO 4430
1240 LET L=L+1
1250 PRINT "YOU HAVE GONE UP THE STEPS"
1260 GOTO 665
1270 IF T>0 THEN GOTO 1155
1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
1280 IF E(5)<1 THEN GOTO 1350
1290 LET L=L-1
1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
1310 IF L=0 THEN GOTO 1370
1320 GOTO 665
1330 PRINT "NO STAIRS HERE"
1340 GOTO 670
1350 PRINT "YOU NEED A KEY"
1360 GOTO 670
1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
1390 INPUT B$
1400 PRINT B$;TAB USR C;
1410 IF B$="" THEN GOTO 1380
1420 IF B$(1)="Y" THEN RUN 
1425 CLS 
1430 RAND USR 16601
1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
1450 FOR I=0 TO 9
1460 IF USR 16563 THEN NEXT I
1485 GOTO 1380
1490 IF T<1 THEN GOTO 4700
1495 LET MS=INT (RND*2000)
1500 LET M=INT (RND*MS)
1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
1510 LET Y=INT (RND*E(1))
1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
1520 LET X=INT (RND*6)*6+1
1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
1540 LET E(1)=E(1)-M
1550 IF E(1)<1 THEN GOTO 1440
1560 LET MS=MS-Y
1570 IF MS<1 THEN GOTO 1590
1580 GOTO 1500
1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
1600 LET T=0
1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
1610 GOTO 670
1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
1625 LET T=1
1630 GOTO 1130
1660 IF T>0 THEN GOTO 1155
1670 LET D$=A$(L,A,B)
1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
1676 PRINT "OK"
1680 IF D$="G" THEN GOTO 1720
1690 LET E(CODE D$)=E(CODE D$)+1
1700 LET A$(L,A,B)=CHR$ 0
1710 GOTO 670
1720 LET E(2)=E(2)+INT (RND*1000)
1730 GOTO 1700
1740 PRINT "NOTHING HERE TO TAKE"
1750 GOTO 670
1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
1770 LET E(1)=E(1)-INT (RND*100)
1780 IF E(1)<1 THEN GOTO 1440
1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
1800 GOTO 670
1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
1825 LET D$=A$(L,A,B)
1830 IF D$=CHR$ 12 THEN GOTO 1820
1835 GOTO 1070
1840 IF RND>.7 THEN GOTO 1990
1950 PRINT "SORRY,NO HELP HERE"
1960 LET E(1)=E(1)-10
1970 IF E(1)<1 THEN GOTO 1440
1980 GOTO 670
1990 GOTO 1820
2000 GOSUB 195
2005 IF T>0 THEN GOTO 1440
2010 PRINT "WHICH NUMBER WILL YOU DROP?";
2020 INPUT B$
2025 PRINT B$;TAB USR C;
2030 FOR I=2 TO 14
2040 IF STR$ I=B$ THEN GOTO 2080
2050 NEXT I
2060 GOSUB 195
2070 GOTO 2010
2080 IF E(VAL B$)<1 THEN GOTO 4500
2085 LET E(VAL B$)=E(VAL B$)-1
2090 GOTO 670
2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
2110 GOTO 810
2120 CLEAR 
2130 SAVE "1028%5"
2140 RUN 
3100 PRINT "YOU ";E(1);" STRENGH"
3110 GOTO 670
3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
3210 GOTO 670
3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
3230 RETURN 
3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
3305 PRINT TAB USR C;"NORTH";TAB USR C
3310 LET D$=A$(L,A-(A>1),B)
3315 GOSUB 3220
3320 PRINT TAB USR C;"SOUTH";TAB USR C
3325 LET D$=A$(L,A+(A<6),B)
3330 GOSUB 3220
3335 PRINT TAB USR C;"EAST";TAB USR C
3340 LET D$=A$(L,A,B+(B<6))
3345 GOSUB 3220
3350 PRINT TAB USR C;"WEST";TAB USR C
3355 LET D$=A$(L,A,B-(B>1))
3360 GOSUB 3220
3365 GOSUB 196
3370 GOTO 670
3400 IF T>0 THEN GOTO 1155
3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
3410 LET E(1)=E(1)-INT (RND*E(1))
3420 GOTO 1820
3500 GOTO 5100
3600 IF T<1 THEN GOTO 4700
3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
3620 GOTO 1600
3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
3710 GOTO 670
3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
3810 GOTO 3305
3900 GOTO 5100
4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
4010 GOTO 5100
4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
4030 GOTO 1600
4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
4110 IF L<15 THEN LET L=L+1
4120 GOTO 1600
4300 GOTO 5100
4400 IF T<1 THEN GOTO 4700
4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
4410 GOTO 1600
4430 PRINT "THESE STEPS DO NOT GO UP"
4440 GOTO 670
4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
4460 PAUSE 4E4
4470 GOTO 2120
4480 GOTO 670
4500 PRINT "NOTHING TO DROP"
4510 GOTO 670
4600 PRINT TAB USR C;
4610 GOTO 920
4700 PRINT "NOTHING HERE TO BASH"
4710 GOTO 670
4900 PRINT TAB USR C;
5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
5010 GOTO 675
5100 PRINT "YES,YOU HAVE IT"
5110 GOTO 670


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\C3\D9
   2 LET A$="2A0C4011B6021906207EC680772310F92A0C4011210019ED5B0C4001D602EDB0"
   3 LET A$=A$+"2121032239402A0C4011B60219220E40C9"
   4 LET A$=A$+"2A0C400615C50620237EC6807710F923C110F2C9"
   5 LET A$=A$+"2A0C400615C5062023368010FB23C110F4C9"
   6 LET A$=A$+"2A0C40110E0019360023363411200019360323368023360311200019368011200019360623233686"
   7 LET A$=A$+"2A0C40110E00193686112100193600C3D940"
   8 LET C=16513
   9 FAST 
  10 FOR I=1 TO LEN A$ STEP 2
  11 LET C=C+1
  12 POKE C,16*(CODE A$(I)-28)+CODE A$(I+1)-28
  14 NEXT I
  15 DIM A$(15,6,6)
  16 SLOW 
  20 RAND 
  25 LET D$=CHR$ 0
  30 DIM E(14)
  40 LET E(1)=9999
  50 LET C=16514
  60 LET T=0
  80 GOTO 130
  90 LET A=INT (RND*6)+1
 100 LET B=INT (RND*6)+1
 110 IF A$(N,A,B)<>CHR$ 0 THEN GOTO 90
 120 RETURN 
 130 IF USR 16583<>USR C THEN PRINT "WELCOME TO ";TAB USR C;"MURKY ADVENTURE 2 PHOENIX TOWER";TAB USR C;TAB USR C;"YOU ARE ABOUT TO ENTER THE TOWER";TAB USR C;"IN WHICH YOU MUST FIND A KEY,";TAB USR C;"A JEWEL,A TORCH AND MANY OTHER";TAB USR C;"THINGS TO SURVIVE.";TAB USR C;"WOULD YOU LIKE INSTUCTIONS?";
 140 INPUT B$
 150 PRINT " ";B$;TAB USR C;TAB USR C;
 160 IF B$="" THEN GOTO 130
 170 IF B$(1)="Y" THEN GOSUB 185
 180 GOTO 220
 185 PRINT "YOUR TASK IS TO GET THE GREAT";TAB USR C;"JEWEL FROM THE PHOENIX THAT";TAB USR C;"LIVES ON THE 15TH FLOOR";TAB USR C;"WHEN %N%E%X%T IS DISPLAYED,ENTER";TAB USR C;"THE WORD OR NUMBER YOU WANT TO ";TAB USR C;"USE.YOU WILL LEARN THE RULES OF";TAB USR C;"THE GAME AS YOU PLAY.";TAB USR C;"GOOD LUCK"
 190 PRINT TAB USR C;TAB USR C;"WORDS:MOVE,HELP,BASH,UP,DOWN,";TAB USR C;"TAKE,DROP,INFO,SAVE,SNEEZE.";TAB USR C;TAB USR C;"1=STRENGH","2=TREASURE"
 195 PRINT TAB USR C;"3=JEWEL","4=SPELL BOOK";TAB USR C;"5=KEY","6=SWORD";TAB USR C;"7=RING","8=LIGHT";TAB USR C;"9=SHIELD","10=WATER";TAB USR C;"11=WAND";TAB USR C;"13=ARMOUR","14=CLUB";TAB USR C;TAB USR C;
 196 PRINT "PRESS A KEY AND WAIT"
 200 IF INKEY$="" THEN GOTO 200
 210 RETURN 
 220 FAST 
 240 FOR N=1 TO 15
 250 FOR I=2 TO 8
 260 GOSUB 90
 270 LET A$(N,A,B)="% "
 280 GOSUB 90
 290 LET A$(N,A,B)="G"
 300 NEXT I
 310 GOSUB 90
 340 IF N=1 THEN LET A$(N,A,B)=CHR$ 5
 350 IF N=2 THEN LET A$(N,A,B)=CHR$ 14
 360 IF N=5 THEN LET A$(N,A,B)=CHR$ 11
 370 IF N=6 THEN LET A$(N,A,B)=CHR$ 13
 380 IF N=7 THEN LET A$(N,A,B)=CHR$ 10
 390 IF N=8 THEN LET A$(N,A,B)=CHR$ 9
 400 IF N=9 THEN LET A$(N,A,B)=CHR$ 8
 410 IF N=10 THEN LET A$(N,A,B)=CHR$ 7
 420 IF N=11 THEN LET A$(N,A,B)=CHR$ 6
 430 IF N=13 THEN LET A$(N,A,B)=CHR$ 4
 450 IF N=15 THEN LET A$(N,A,B)=CHR$ 3
 460 GOSUB 90
 470 IF N=15 THEN LET A$(N,A,B)=CHR$ 18
 480 GOSUB 90
 490 LET A$(N,A,B)="S"
 500 FOR I=1 TO 5
 510 GOSUB 90
 520 LET A$(N,A,B)=CHR$ 17
 550 GOSUB 90
 560 LET A$(N,A,B)=CHR$ 15
 570 NEXT I
 580 NEXT N
 590 LET N=1
 600 LET L=1
 610 GOSUB 90
 615 LET Y1=A
 620 LET Y2=B
 630 SLOW 
 640 FOR I=0 TO 5
 650 NEXT I
 660 PRINT TAB USR C;TAB USR C;TAB USR C;"YOU ARE ON THE GROUND FLOOR OF";TAB USR C;"THE DARK TOWER"
 665 PRINT TAB USR C;"YOU ENTER THROUGH AN OPEN DOOR";TAB USR C;"THE DOOR SLAMS SHUT BEHIND YOU";TAB USR C;
 670 IF USR C=0 THEN GOTO 4900
 675 IF E(1)<200 THEN PRINT "YOU ARE FEELING TIRED";TAB USR C;
 680 PRINT "NEXT ? ";
 690 INPUT B$
 700 PRINT B$;TAB USR C;
 705 IF B$="" THEN GOTO 680
 710 IF B$(1)="M" THEN GOTO 915
 720 IF B$(1)="H" THEN GOTO 1840
 725 IF B$(1)="U" THEN GOTO 1220
 730 IF B$(1)="B" THEN GOTO 1490
 734 LET B$=B$+" "
 735 IF B$( TO 2)="DO" THEN GOTO 1270
 740 IF B$(1)="T" THEN GOTO 1660
 750 IF B$( TO 2)="DR" THEN GOTO 2005
 755 IF B$="SAVE " THEN GOTO 4450
 760 IF B$(1)="I" THEN GOTO 2100
 770 IF B$( TO 2)="SN" THEN GOTO 880
 780 FOR I=1 TO 14
 790 IF STR$ I+CHR$ 0=B$ THEN GOTO 830
 800 NEXT I
 810 GOSUB 190
 820 GOTO 670
 830 IF E(VAL B$)>0 THEN GOTO VAL B$*100+3000
 840 PRINT "SORRY,CANNOT DO THAT"
 850 GOTO 670
 880 IF T>0 THEN GOTO 1155
 885 PRINT "YOU HAVE JUST SNEEZED"
 890 LET E(1)=E(1)-1
 900 IF RND>.6 THEN GOTO 1620
 910 GOTO 670
 915 IF T>0 THEN GOTO 1155
 920 PRINT "WHICH WAY? (N,E,W,S) ";
 930 INPUT B$
 935 PRINT B$
 940 IF B$="" THEN GOTO 4600
 950 LET A=A+(B$(1)="S")-(B$(1)="N")
 960 FOR I=3 TO 14
 970 LET E(1)=E(1)-E(I)
 980 NEXT I
 990 LET B=B+(B$(1)="E")-(B$(1)="W")
\n1000 IF E(1)<1 THEN GOTO 1440
\n1006 IF A>6 OR A<1 OR B>6 OR B<1 THEN GOTO 1110
\n1009 LET D$=A$(L,A,B)
\n1010 IF D$="% " THEN GOTO 1110
\n1020 IF Y1=A AND Y2=B THEN GOTO 1200
\n1030 LET Y1=A
\n1040 LET Y2=B
\n1050 IF D$=CHR$ 18 THEN GOTO 1810
\n1060 IF D$=CHR$ 15 THEN GOTO 1130
\n1065 IF D$=CHR$ 17 THEN GOTO 1760
\n1070 GOSUB 3220
\n1090 IF D$=CHR$ 3 OR D$=CHR$ 15 THEN LET T=1
\n1100 GOTO 670
\n1110 IF USR C+USR 16583<>USR C THEN PRINT "BONK.YOU HAVE HIT A WALL";TAB USR C;
\n1111 LET A=Y1
\n1112 LET B=Y2
\n1120 GOTO 915
\n1130 LET X=INT (RND*7)*8+1
\n1140 PRINT TAB USR C;"HERE IS A";" WOLF   N EAGLE  TRICORD MUSHMAN TROG    NUMPIC  GROG   "(X TO X+7);TAB USR C;
\n1150 GOTO 1090
\n1155 PRINT "WHAT ABOUT THE MONSTER?"
\n1190 GOTO 670
\n1200 PRINT TAB USR C;"PARDON?";TAB USR C;
\n1210 GOTO 915
\n1220 IF T>0 THEN GOTO 1155
\n1225 IF A$(L,A,B)<>"S" THEN GOTO 1330
\n1230 IF E(5)<1 THEN GOTO 1350
\n1235 IF L=15 THEN GOTO 4430
\n1240 LET L=L+1
\n1250 PRINT "YOU HAVE GONE UP THE STEPS"
\n1260 GOTO 665
\n1270 IF T>0 THEN GOTO 1155
\n1275 IF A$(L,A,B)<>"S" THEN GOTO 1330
\n1280 IF E(5)<1 THEN GOTO 1350
\n1290 LET L=L-1
\n1300 PRINT "YOU HAVE GONE DOWN THE STEPS"
\n1310 IF L=0 THEN GOTO 1370
\n1320 GOTO 665
\n1330 PRINT "NO STAIRS HERE"
\n1340 GOTO 670
\n1350 PRINT "YOU NEED A KEY"
\n1360 GOTO 670
\n1370 PRINT TAB USR C;TAB USR C;"WELLDONE";TAB USR C;("YOU GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"$";E(2);" WORTH OF TREASURE AND YOU";TAB USR C;"GOT AWAY WITH ";E(1);" SP$"
\n1380 PRINT TAB USR C;TAB USR C;"WOULD YOU LIKE ANOTHER GAME? ";
\n1390 INPUT B$
\n1400 PRINT B$;TAB USR C;
\n1410 IF B$="" THEN GOTO 1380
\n1420 IF B$(1)="Y" THEN RUN 
\n1425 CLS 
\n1430 RAND USR 16601
\n1440 PRINT TAB USR C;"WHAT A PITY,YOU HAVE DIED";TAB USR C;("BUT YOU STILL GOT THE JEWEL AND " AND E(3)>0);TAB USR C;"YOU GOT $";E(2);" WORTH OF TREASURE"
\n1450 FOR I=0 TO 9
\n1460 IF USR 16563 THEN NEXT I
\n1485 GOTO 1380
\n1490 IF T<1 THEN GOTO 4700
\n1495 LET MS=INT (RND*2000)
\n1500 LET M=INT (RND*MS)
\n1505 IF E(13)>0 THEN LET M=M-INT (RND*100)
\n1510 LET Y=INT (RND*E(1))
\n1515 IF E(9)>0 THEN LET Y=Y+INT (RND*E(1))
\n1520 LET X=INT (RND*6)*6+1
\n1530 PRINT TAB USR C;"OUCH  KICK  KNOCK BATTERBASH  PUNCH "(X TO X+5)
\n1540 LET E(1)=E(1)-M
\n1550 IF E(1)<1 THEN GOTO 1440
\n1560 LET MS=MS-Y
\n1570 IF MS<1 THEN GOTO 1590
\n1580 GOTO 1500
\n1590 PRINT TAB USR C;"YOU KNOCKED THAT MONSTER A MILE"
\n1600 LET T=0
\n1605 IF A$(L,A,B)=CHR$ 15 THEN LET A$(L,A,B)=CHR$ 0
\n1610 GOTO 670
\n1620 PRINT TAB USR C;" AND DRAWN ATTENTION TO YOURSELF"
\n1625 LET T=1
\n1630 GOTO 1130
\n1660 IF T>0 THEN GOTO 1155
\n1670 LET D$=A$(L,A,B)
\n1675 IF D$=CHR$ 15 OR D$="% " OR D$=CHR$ 0 OR D$="S" OR D$=CHR$ 17 OR D$=CHR$ 18 THEN GOTO 1740
\n1676 PRINT "OK"
\n1680 IF D$="G" THEN GOTO 1720
\n1690 LET E(CODE D$)=E(CODE D$)+1
\n1700 LET A$(L,A,B)=CHR$ 0
\n1710 GOTO 670
\n1720 LET E(2)=E(2)+INT (RND*1000)
\n1730 GOTO 1700
\n1740 PRINT "NOTHING HERE TO TAKE"
\n1750 GOTO 670
\n1760 PRINT TAB USR C;"YOU HAVE FALLEN INTO MUSH"
\n1770 LET E(1)=E(1)-INT (RND*100)
\n1780 IF E(1)<1 THEN GOTO 1440
\n1790 PRINT TAB USR C;"BUT YOU ARE ALL RIGHT"
\n1800 GOTO 670
\n1810 PRINT "HERE IS A WIZARD AND HE GIVES";TAB USR C;"YOU AN OBJET AND HE SAYS "
\n1820 LET A$(L,A,B)=CHR$ (INT (RND*11)+4)
\n1825 LET D$=A$(L,A,B)
\n1830 IF D$=CHR$ 12 THEN GOTO 1820
\n1835 GOTO 1070
\n1840 IF RND>.7 THEN GOTO 1990
\n1950 PRINT "SORRY,NO HELP HERE"
\n1960 LET E(1)=E(1)-10
\n1970 IF E(1)<1 THEN GOTO 1440
\n1980 GOTO 670
\n1990 GOTO 1820
\n2000 GOSUB 195
\n2005 IF T>0 THEN GOTO 1440
\n2010 PRINT "WHICH NUMBER WILL YOU DROP?";
\n2020 INPUT B$
\n2025 PRINT B$;TAB USR C;
\n2030 FOR I=2 TO 14
\n2040 IF STR$ I=B$ THEN GOTO 2080
\n2050 NEXT I
\n2060 GOSUB 195
\n2070 GOTO 2010
\n2080 IF E(VAL B$)<1 THEN GOTO 4500
\n2085 LET E(VAL B$)=E(VAL B$)-1
\n2090 GOTO 670
\n2100 PRINT TAB USR C;"YOU HAVE $";E(2);" OF TREASURE";TAB USR C;" AND ";E(1);" STRENGH AND YOU ARE ON";TAB USR C;"LEVEL ";L
\n2110 GOTO 810
\n2120 CLEAR 
\n2130 SAVE "1028%5"
\n2140 RUN 
\n3100 PRINT "YOU ";E(1);" STRENGH"
\n3110 GOTO 670
\n3200 PRINT "YOU HAVE $";E(2);" OF GOLD"
\n3210 GOTO 670
\n3220 PRINT TAB USR C;"HERE IS A";TAB USR C;("PIT OF MUSH" AND D$=CHR$ 17);("WISE WIZARD" AND D$=CHR$ 18);("SOLID WALL" AND D$="% ");("SILVER SWORD" AND D$=CHR$ 6);("GOLD RING" AND D$=CHR$ 7);("TORCH" AND D$=CHR$ 8);("POSH SHIELD" AND D$=CHR$ 9);("BUCKET OF WATER" AND D$=CHR$ 10);("SILVER WAND" AND D$=CHR$ 11);("SUIT OF HEAVY ARMOUR" AND D$=CHR$ 13);("WOODEN CLUB" AND D$=CHR$ 14);("STAIR CASE" AND D$="S");("GRAND PHOENIX GUARDING A JEWEL" AND D$=CHR$ 3);("NASTY LOOKING MONSTER" AND D$=CHR$ 15);("HOARD OF TREASURE" AND D$="G");("BOOK OF SPELLS" AND D$=CHR$ 4);(" LOAD OF NOTHING" AND D$=CHR$ 0);("GOLDEN KEY" AND D$=CHR$ 5);TAB USR C;
\n3230 RETURN 
\n3300 PRINT TAB USR C;"THE JEWEL LIGHTS UP";TAB USR C
\n3305 PRINT TAB USR C;"NORTH";TAB USR C
\n3310 LET D$=A$(L,A-(A>1),B)
\n3315 GOSUB 3220
\n3320 PRINT TAB USR C;"SOUTH";TAB USR C
\n3325 LET D$=A$(L,A+(A<6),B)
\n3330 GOSUB 3220
\n3335 PRINT TAB USR C;"EAST";TAB USR C
\n3340 LET D$=A$(L,A,B+(B<6))
\n3345 GOSUB 3220
\n3350 PRINT TAB USR C;"WEST";TAB USR C
\n3355 LET D$=A$(L,A,B-(B>1))
\n3360 GOSUB 3220
\n3365 GOSUB 196
\n3370 GOTO 670
\n3400 IF T>0 THEN GOTO 1155
\n3405 PRINT TAB USR C;"THE SPELL BOOK MAKES SOMETHING";TAB USR C;" FOR YOU"
\n3410 LET E(1)=E(1)-INT (RND*E(1))
\n3420 GOTO 1820
\n3500 GOTO 5100
\n3600 IF T<1 THEN GOTO 4700
\n3610 PRINT TAB USR C;"YOUR SWORD KILLED THE MONSTER"
\n3620 GOTO 1600
\n3700 PRINT TAB USR C;"TO GET OUT OF THE TOWER,YOU MUST";TAB USR C;"GO DOWN THE STEPS ON THE BOTTOM";TAB USR C;"FLOOR"
\n3710 GOTO 670
\n3800 PRINT TAB USR C;"YOU SWITCH ON THE LIGHT AND SEE "
\n3810 GOTO 3305
\n3900 GOTO 5100
\n4000 IF A$(L,A,B)=CHR$ 3 AND T>0 THEN GOTO 4020
\n4010 GOTO 5100
\n4020 PRINT TAB USR C;"WATER HAS PUT OUT THE PHOENIX"
\n4030 GOTO 1600
\n4100 PRINT TAB USR C;"WITH A WAVE OF YOUR WAND,YOU ARE";TAB USR C;"ON THE NEXT LEVEL"
\n4110 IF L<15 THEN LET L=L+1
\n4120 GOTO 1600
\n4300 GOTO 5100
\n4400 IF T<1 THEN GOTO 4700
\n4405 PRINT TAB USR C;"YOU SURE BASHED THAT MONSTER"
\n4410 GOTO 1600
\n4430 PRINT "THESE STEPS DO NOT GO UP"
\n4440 GOTO 670
\n4450 IF USR 16583<>USR C THEN PRINT "START TAPE RECORDER AND PRESS";TAB USR C;"NEWLINE WHEN READY.";TAB USR C;TAB USR C;TAB USR C;
\n4460 PAUSE 4E4
\n4470 GOTO 2120
\n4480 GOTO 670
\n4500 PRINT "NOTHING TO DROP"
\n4510 GOTO 670
\n4600 PRINT TAB USR C;
\n4610 GOTO 920
\n4700 PRINT "NOTHING HERE TO BASH"
\n4710 GOTO 670
\n4900 PRINT TAB USR C;
\n5000 IF PEEK (PEEK 16396+PEEK 16397*256+1)<>128 THEN GOTO 4900
\n5010 GOTO 675
\n5100 PRINT "YES,YOU HAVE IT"
\n5110 GOTO 670