0 REM 


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


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 up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


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 up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				EA\FCE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				E\FC


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				D\F6E\FC


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\ED\A6C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56661 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 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.11.2"E\B2\ED itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56661 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 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.11.2"E\AF\F0 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56661 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 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.11.2"DE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


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 up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				E\FC


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				D\F6D\EE\F8\C9


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


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 up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				C\A6


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


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 up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				E\BCB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				D\FB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				D\F5EBE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56661 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 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.11.2"


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\C9\E5\FFF


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				BE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


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 up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				F


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				B


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				B


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


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 up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				AC itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56661 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 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.11.2"\FE\EF\ED


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56661 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 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.11.2"


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


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 up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\CB\CA\CBF\CB\C0\FF\FF\CB\C8 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56661 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 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.11.2"


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				E\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\EDC\A6\FE\C0\C3\D5\FFF


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56661 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 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.11.2"F


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				B


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				F


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				B\C9A\CBF


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				B\CD\AF\EDB\CD\CF\C9\CD\AF


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Alien Invasion
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Alien Invasion
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Alien Invasion

Date: 1981
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Alien Invasion
A dark cloud appears on the horizon and inches towards you. The invasion is on and they fire, blowing away...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



 
   0 REM \76\76\2A\0C\40\11\22\00\19\06\20\3E\8A\77\23\10\FC\3E\80\0E\15\06\20\23\77\10\FC\23\0D\20\F6\06\20\3E\03\23\77\10\FC\11\30\00\ED\52\36\A6\22\3C\40\1E\B2\ED\52\06\03\1E\05\AF\36\07\23\77\23\77\23\77\23\77\23\36\84\19\10\F0\1D\3E\02\0E\03\23\23\23\06\06\72\23\10\FC\19\0D\20\F6\3D\20\EE\06\03\23\23\23\77\19\23\77\19\10\F8\C9\2A\0C\40\11\A6\00\19\22\3E\40\11\07\00\3E\BC\4B\06\0D\77\23\23\10\FB\19\0D\20\F5\3E\5B\32\40\40\3E\80\32\41\40\21\01\00\22\48\40\C9\E5\21\FF\7F\36\07\2B\7E\00\23\36\0F\2B\56\23\36\07\2B\00\2A\3C\40\01\FE\EF\ED\78\00\01\00\00\CB\47\CA\18\42\CB\5F\28\08\CB\67\C0\11\FF\FF\18\06\CB\67\C8\11\01\00\36\80\19\7E\FE\76\20\02\ED\52\22\3C\40\36\A6\FE\97\C0\C3\D5\43\21\FF\7F\36\06\2B\36\1F\23\36\09\2B\36\0F\23\36\07\2B\36\C9\3A\41\40\CB\7F\28\0B\CD\AF\41\ED\5B\48\40\CD\CF\41\C9\CD\AF\41\11\21\00\CD\CF\41\21\48\40\7E\EE\FE\77\23\7E\EE\FF\77\3A\41\40\CB\FF\00\32\41\40\FE\81\C0\0E\02\C9\2A\3E\40\11\94\48\0E\07\06\0D\7E\FE\BC\20\02\36\80\12\23\23\13\10\F3\06\07\23\10\FD\0D\20\E9\C9\2A\3E\40\19\22\3E\40\11\94\48\0E\07\06\0D\1A\FE\BC\20\21\CD\92\45\7E\FE\9B\CC\A6\43\23\7E\2B\FE\76\28\07\2B\7E\23\FE\76\20\08\3A\41\40\CB\BF\32\41\40\36\BC\23\23\13\10\D5\06\07\23\10\FD\0D\20\CB\21\FF\7F\36\07\2B\74\C9\ED\5B\42\40\CB\72\C0\11\DF\FF\19\7E\FE\97\C8\FE\BC\CA\30\43\36\9B\22\42\40\CD\6A\45\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\44\40\CB\74\C0\2A\3C\40\11\DF\FF\01\00\13\19\7E\FE\BC\28\03\10\F8\C9\06\00\ED\52\7E\FE\9B\CC\A6\43\FE\80\28\03\36\80\C9\36\97\22\44\40\C9\00\00\00\2A\42\40\CB\74\C8\11\DF\FF\36\80\19\7E\FE\BC\CA\30\43\FE\94\CA\58\43\FE\8A\CA\A6\43\FE\C3\CC\C1\43\FE\80\28\05\36\80\C3\A6\43\36\9B\22\42\40\C9\00\00\2A\44\40\CB\74\C8\11\21\00\36\80\19\7E\FE\A6\CA\D5\43\FE\03\CA\C1\43\FE\9B\CC\A6\43\FE\80\28\05\36\80\C3\C1\43\36\97\22\44\40\C9\00\00\00\00\00\00\00\2A\46\40\CB\74\C0\2A\0C\40\11\43\00\19\3A\34\40\CB\47\20\05\1E\1F\19\CB\FC\36\94\22\46\40\C9\00\00\00\00\00\00\00\00\00\2A\46\40\CB\74\C8\36\80\CB\7C\28\02\2B\2B\23\7E\FE\76\20\06\26\00\22\46\40\C9\FE\9B\CA\58\43\36\94\22\46\40\C9\00\00\00\36\80\21\FF\7F\36\0C\2B\36\0A\23\36\07\2B\36\FE\23\36\0D\2B\36\09\0E\03\CD\8A\43\21\40\40\35\C0\0E\03\C9\00\00\00\00\00\36\80\21\FF\7F\36\00\2B\36\32\23\36\06\2B\36\00\23\36\0C\2B\36\19\23\36\07\2B\36\F6\23\36\0D\2B\36\03\2A\34\40\26\00\7E\E6\0F\C6\05\4F\21\47\40\36\00\2A\0C\40\11\0F\00\19\59\41\4A\34\7E\FE\A6\20\03\36\9C\0C\10\F5\2B\79\FE\00\20\ED\43\22\7B\40\2A\42\40\7E\FE\9B\20\02\36\80\21\00\00\22\42\40\2A\7B\40\3E\80\C9\00\00\22\7B\40\21\00\00\22\44\40\2A\7B\40\3E\80\C9\00\00\00\00\00\01\01\00\36\80\C9\00\00\00\21\FF\7F\EB\21\FE\7F\3E\01\12\36\00\3C\12\36\00\3C\12\36\0A\3C\12\36\00\3C\12\36\0F\3C\3C\12\36\FF\3C\12\36\10\3C\3C\12\36\0F\3C\12\36\00\21\00\1E\E5\11\00\84\01\00\02\ED\B0\E1\0E\A0\ED\B0\E5\21\70\44\0E\08\ED\B0\E1\0E\08\09\0E\10\ED\B0\E5\21\78\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\E5\21\80\44\0E\08\ED\B0\E1\0E\08\09\0E\50\ED\B0\E5\21\88\44\0E\08\ED\B0\E1\0E\08\09\0E\A8\ED\B0\E5\21\90\44\0E\08\ED\B0\E1\0E\08\09\0E\18\ED\B0\C9\00\00\00\00\3C\7E\A5\7E\3C\00\00\24\3C\3C\18\18\00\00\00\00\18\18\18\18\00\00\00\18\3C\7E\7E\5A\42\00\00\42\24\7E\DB\FF\A5\99\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\2A\4A\40\78\FE\15\30\07\58\16\00\19\22\4A\40\06\00\79\FE\00\28\03\E6\FC\C8\06\5A\CD\1E\46\00\10\FA\C3\E8\44\00\00\00\00\01\00\00\21\4C\40\34\7E\21\C0\44\E5\21\AE\42\00\CB\47\C2\7C\42\00\CB\4F\C2\1A\41\CB\57\5F\C4\08\43\3A\40\40\57\E6\70\CB\3F\CB\3F\CB\3F\CB\3F\C6\02\4F\7A\FE\05\DA\65\41\51\0E\00\3E\02\CB\53\20\19\3C\CB\5B\20\14\3C\CB\63\20\0F\3C\CB\6B\20\0A\3C\CB\73\20\05\3C\CB\7B\28\04\BA\CA\65\41\7B\E6\FF\CA\4A\42\2A\34\40\CB\BC\CB\B4\7E\00\BD\CA\E0\42\C9\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\21\FF\7F\36\00\2B\36\C8\23\36\06\2B\36\12\23\36\09\2B\36\10\23\36\0C\2B\36\0C\23\36\07\2B\36\EE\23\36\0D\2B\36\09\C9\00\ED\53\7B\40\11\21\00\19\7E\ED\52\ED\5B\7B\40\FE\03\C0\3A\41\40\CB\C7\32\41\40\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\C9\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00
   1 REM *** SPACE  INVADERS ***
   2 REM *** BY DAVE EDWARDS ***
   3 REM %W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% %W%W%W%W%W%W%W%W%W%W%W%W% % %W%W
   4 GOTO 10
   5 SAVE "SPIN%V"
  10 RAND USR 17374
  11 LET A=32767
  12 LET D=32766
  13 LET C$="   \'  \' \'  \' \' \'    \ '\ '\ '\ '\ '\ '\ '\ '\ '\''\ '"
  14 LET F$="%?\7F%4RNDCHR$ RND\7D\' \7D\68RND%E%ECHR$ IF IF IF IF \.:%B%B IF IF B IF "
  15 LET L$="\:'\:'\:'\:')\ '\: \ '\ '\ '\ '\.'\.'£\~~\##\' £\##\' \##\' \##\' $"
  16 LET H=0
  17 LET H$="%0%0%0%0%0"
  18 LET N$=""
  19 CLS 
  22 POKE A,14
  23 POKE D,0
  25 PRINT AT 4,0;"% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W% %W"
  26 LET P=1
  27 LET Q=5
  28 GOSUB 850
  30 PRINT AT 8,0;"THERE ARE 3 LEVELS OF PLAY:"
  35 PRINT AT 11,2;"%1  BEGINNERS;"
  40 PRINT AT 13,2;"%2  ADVANCED;"
  45 PRINT AT 15,2;"%3  EXPERT."
  50 PRINT AT 20,0;"WHICH LEVEL DO YOU SELECT?"
  55 INPUT L
  60 LET L=INT L
  65 IF L<1 OR L>3 THEN GOTO 55
  70 CLS 
  75 LPRINT 
  80 POKE 17736,255
  85 POKE 17223,L
  90 POKE 17626,65+(4-L)*25
  91 POKE 17049,151
  92 POKE 16666,0
  93 POKE 17655,229
  94 POKE 17661,225
  95 GOSUB 790+10*L
 100 LET B=2
 105 LET S=1
 110 POKE 16626,67+33*L
 120 POKE 16627,0
 130 RAND USR 16516
 140 PRINT AT 0,0;"%A%A% \@@% %S%C%O%R%E% %0%0%0%0%0% \@@% %H%I%G%H%E%S%T% ";H$
 142 LET P=1
 144 LET Q=5
 146 GOSUB 850
 150 LET X=(PEEK 16626)+33*((S+L)<9)
 155 IF X>255 THEN POKE 16627,1
 160 IF X>255 THEN LET X=X-256
 165 POKE 16626,X
 170 RAND USR 16622
 180 LET X=1+PEEK 17736-2**(S+1)*2**(L+1)
 190 POKE 17736,X AND X>0
 200 LET X=USR 17640
 205 IF X>3 THEN GOTO 200
 210 IF X=1 THEN GOTO 280
 220 IF X=2 THEN GOTO 390
 230 FOR N=1 TO 15
 235 NEXT N
 240 LET P=6
 245 LET Q=14
 250 GOSUB 830
 260 LET S=S+1
 265 IF S<>5-L THEN GOTO 150
 270 LET B=B+1
 274 PRINT AT 0,B-1;"%A"
 278 GOTO 150
 280 GOSUB 700
 290 LET B=B-1
 300 IF B=-1 THEN GOTO 350
 310 PRINT AT 0,B;"% "
 320 POKE PEEK 16444+256*PEEK 16445,166
 330 POKE 16453,0
 340 GOTO 200
 350 LET P=15
 353 LET Q=25
 356 GOSUB 830
 357 GOSUB 991
 358 CLS 
 360 PRINT AT 3,0;"WE HAVE DESTROYED YOUR LAST BASE"
 370 GOSUB 600
 380 GOTO 430
 390 LET P=15
 393 LET Q=25
 396 GOSUB 830
 397 GOSUB 991
 398 CLS 
 400 PRINT AT 3,2;"WE HAVE INVADED YOUR PLANET"
 410 GOSUB 600
 430 PRINT AT 10,0;"YOUR SCORE IS  ";SC
 440 IF SC>H THEN GOTO 490
 450 PRINT AT 14,0;"HIGHEST SCORE IS  ";H;"  BY",N$
 460 PRINT AT 20,0;"PRESS ""0"" FOR ANOTHER GO"
 470 IF INKEY$="0" THEN GOTO 50
 480 GOTO 470
 490 PRINT AT 14,0;"YOU HAVE SET A NEW HIGHEST SCORE"
 493 LET P=6
 496 LET Q=14
 498 GOSUB 830
 500 GOSUB 600
 510 LET S$=STR$ SC
 520 LET X=LEN S$
 530 FOR N=1 TO X
 540 LET H$(5-X+N)=CHR$ (CODE S$(N)+128)
 550 NEXT N
 560 PRINT AT 14,0;"PLEASE INPUT YOUR NAME          "
 570 INPUT N$
 580 LET H=SC
 590 GOTO 440
 600 FOR N=1 TO 30
 610 NEXT N
 620 RETURN 
 700 POKE A,8
 705 POKE D,16
 710 POKE A,9
 715 POKE D,16
 720 POKE A,10
 725 POKE D,16
 730 POKE A,12
 735 POKE D,2
 740 POKE A,7
 745 POKE D,199
 750 POKE A,13
 755 POKE D,13
 760 POKE A,6
 765 POKE D,31
 770 POKE D,16
 775 POKE D,0
 780 POKE A,12
 785 POKE D,30
 790 POKE A,13
 791 POKE D,9
 795 POKE A,6
 796 FOR N=0 TO 31
 797 POKE D,N
 798 NEXT N
 799 RETURN 
 800 POKE 17677,203
 802 POKE 17678,63
 804 POKE 17688,5
 806 POKE 17692,0
 808 RETURN 
 810 POKE 17677,203
 812 POKE 17678,63
 814 POKE 17688,4
 816 POKE 17692,0
 818 RETURN 
 820 POKE 17677,230
 821 POKE 16666,229
 822 POKE 17678,112
 823 POKE 17655,0
 824 POKE 17688,2
 825 POKE 17661,0
 826 POKE 17692,5
 827 POKE 17049,195
 828 RETURN 
 830 POKE A,10
 840 POKE D,15
 850 FOR N=P TO Q
 860 POKE A,7
 870 POKE D,255
 880 POKE A,4
 890 POKE D,CODE F$(N)
 900 POKE A,5
 910 POKE D,CODE C$(N)
 920 POKE A,7
 930 POKE D,251
 940 FOR J=1 TO CODE L$(N)-2
 950 NEXT J
 960 NEXT N
 970 POKE A,7
 980 POKE D,255
 990 RETURN 
 991 LET SC=0
 992 LET HL=15+PEEK 16396+256*PEEK 16397
 993 FOR N=0 TO 3
 994 LET SC=SC+(PEEK (HL-N)-156)*10**(N+1)
 995 NEXT N
 996 RETURN 
 999 REM % %7%K% % %B%Y%T%E%S% 
1000 SAVE "IN%V"
1010 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\CD\CFE\EE\FEE\EE\FFA\CB\FF


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu