Home » Computer Media » Labyrinth 2

Labyrinth 2

Developer(s): Gene G. Buza
Date: September 1983
Type: Program
Platform(s): TS 1000

Content

Appears On

Cassette to accompany the September 1983 issue of Synchro-Sette.

Related Products

Related Articles

Related Content

Image Gallery

Source Code

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





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Labyrinth 2
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Labyrinth 2

			
		


	
	
	


							

				





Developer(s): Gene G. Buza


Date: September 1983


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Cassette to accompany the September 1983 issue of Synchro-Sette.













Related Products















Related Articles















Related Content















Image Gallery











Source Code




 
   1 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  10 LET A=645+PEEK 16396+256*PEEK 16397
  15 INPUT C
  16 LET B$="% \: \@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\ :% "
  17 GOSUB 300
  20 LET B=-18
  50 GOSUB 200
  70 PRINT AT 0,0;A$
  72 IF B>0 THEN PRINT AT 18,30;B;AT 19,30;"\ :% "
  75 RAND USR 16514
  80 IF PEEK A<>136 THEN GOSUB 1000
  90 POKE A,151
 100 POKE A+33,136
 102 POKE A+32,136
 104 POKE A+34,136
 110 LET B=B+1
 120 LET A=A+(INKEY$="0")-(INKEY$="1")
 130 GOTO 30
 200 LET A$=B$
 205 FOR N=1 TO C
 206 LET F=INT (RND*28)+2
 210 LET A$(1+F)="%."
 215 LET F=INT (RND*28)+2
 220 LET A$(1+F)="% "
 230 NEXT N
 240 RETURN 
 300 FOR N=0 TO 21
 310 PRINT AT N,0;B$
 330 NEXT N
 340 RETURN 
1000 CLS 
1010 PRINT AT 10,4;"GAME OVER - FINAL SCORE = ";B
1020 PAUSE 1000
1030 RUN 
9998 SAVE "LABYRINTH-%2"
9999 RUN 




					

				
			




						

				





Tags











People







					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top




















			
				





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Labyrinth 2
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Labyrinth 2

			
		


	
	
	


							

				





Developer(s): Gene G. Buza


Date: September 1983


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Cassette to accompany the September 1983 issue of Synchro-Sette.













Related Products















Related Articles















Related Content















Image Gallery











Source Code




 
   1 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  10 LET A=645+PEEK 16396+256*PEEK 16397
  15 INPUT C
  16 LET B$="% \: \@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\ :% "
  17 GOSUB 300
  20 LET B=-18
  50 GOSUB 200
  70 PRINT AT 0,0;A$
  72 IF B>0 THEN PRINT AT 18,30;B;AT 19,30;"\ :% "
  75 RAND USR 16514
  80 IF PEEK A<>136 THEN GOSUB 1000
  90 POKE A,151
 100 POKE A+33,136
 102 POKE A+32,136
 104 POKE A+34,136
 110 LET B=B+1
 120 LET A=A+(INKEY$="0")-(INKEY$="1")
 130 GOTO 30
 200 LET A$=B$
 205 FOR N=1 TO C
 206 LET F=INT (RND*28)+2
 210 LET A$(1+F)="%."
 215 LET F=INT (RND*28)+2
 220 LET A$(1+F)="% "
 230 NEXT N
 240 RETURN 
 300 FOR N=0 TO 21
 310 PRINT AT N,0;B$
 330 NEXT N
 340 RETURN 
1000 CLS 
1010 PRINT AT 10,4;"GAME OVER - FINAL SCORE = ";B
1020 PAUSE 1000
1030 RUN 
9998 SAVE "LABYRINTH-%2"
9999 RUN 




					

				
			




						

				





Tags











People







					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top




















			
				A





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Labyrinth 2
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Labyrinth 2

			
		


	
	
	


							

				





Developer(s): Gene G. Buza


Date: September 1983


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Cassette to accompany the September 1983 issue of Synchro-Sette.













Related Products















Related Articles















Related Content















Image Gallery











Source Code




 
   1 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  10 LET A=645+PEEK 16396+256*PEEK 16397
  15 INPUT C
  16 LET B$="% \: \@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\ :% "
  17 GOSUB 300
  20 LET B=-18
  50 GOSUB 200
  70 PRINT AT 0,0;A$
  72 IF B>0 THEN PRINT AT 18,30;B;AT 19,30;"\ :% "
  75 RAND USR 16514
  80 IF PEEK A<>136 THEN GOSUB 1000
  90 POKE A,151
 100 POKE A+33,136
 102 POKE A+32,136
 104 POKE A+34,136
 110 LET B=B+1
 120 LET A=A+(INKEY$="0")-(INKEY$="1")
 130 GOTO 30
 200 LET A$=B$
 205 FOR N=1 TO C
 206 LET F=INT (RND*28)+2
 210 LET A$(1+F)="%."
 215 LET F=INT (RND*28)+2
 220 LET A$(1+F)="% "
 230 NEXT N
 240 RETURN 
 300 FOR N=0 TO 21
 310 PRINT AT N,0;B$
 330 NEXT N
 340 RETURN 
1000 CLS 
1010 PRINT AT 10,4;"GAME OVER - FINAL SCORE = ";B
1020 PAUSE 1000
1030 RUN 
9998 SAVE "LABYRINTH-%2"
9999 RUN 




					

				
			




						

				





Tags











People







					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top




















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





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Labyrinth 2
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Labyrinth 2

			
		


	
	
	


							

				





Developer(s): Gene G. Buza


Date: September 1983


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Cassette to accompany the September 1983 issue of Synchro-Sette.













Related Products















Related Articles















Related Content















Image Gallery











Source Code




 
   1 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  10 LET A=645+PEEK 16396+256*PEEK 16397
  15 INPUT C
  16 LET B$="% \: \@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\ :% "
  17 GOSUB 300
  20 LET B=-18
  50 GOSUB 200
  70 PRINT AT 0,0;A$
  72 IF B>0 THEN PRINT AT 18,30;B;AT 19,30;"\ :% "
  75 RAND USR 16514
  80 IF PEEK A<>136 THEN GOSUB 1000
  90 POKE A,151
 100 POKE A+33,136
 102 POKE A+32,136
 104 POKE A+34,136
 110 LET B=B+1
 120 LET A=A+(INKEY$="0")-(INKEY$="1")
 130 GOTO 30
 200 LET A$=B$
 205 FOR N=1 TO C
 206 LET F=INT (RND*28)+2
 210 LET A$(1+F)="%."
 215 LET F=INT (RND*28)+2
 220 LET A$(1+F)="% "
 230 NEXT N
 240 RETURN 
 300 FOR N=0 TO 21
 310 PRINT AT N,0;B$
 330 NEXT N
 340 RETURN 
1000 CLS 
1010 PRINT AT 10,4;"GAME OVER - FINAL SCORE = ";B
1020 PAUSE 1000
1030 RUN 
9998 SAVE "LABYRINTH-%2"
9999 RUN 




					

				
			




						

				





Tags











People







					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top




















			
				





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Labyrinth 2
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Labyrinth 2

			
		


	
	
	


							

				





Developer(s): Gene G. Buza


Date: September 1983


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Cassette to accompany the September 1983 issue of Synchro-Sette.













Related Products















Related Articles















Related Content















Image Gallery











Source Code




 
   1 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  10 LET A=645+PEEK 16396+256*PEEK 16397
  15 INPUT C
  16 LET B$="% \: \@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\ :% "
  17 GOSUB 300
  20 LET B=-18
  50 GOSUB 200
  70 PRINT AT 0,0;A$
  72 IF B>0 THEN PRINT AT 18,30;B;AT 19,30;"\ :% "
  75 RAND USR 16514
  80 IF PEEK A<>136 THEN GOSUB 1000
  90 POKE A,151
 100 POKE A+33,136
 102 POKE A+32,136
 104 POKE A+34,136
 110 LET B=B+1
 120 LET A=A+(INKEY$="0")-(INKEY$="1")
 130 GOTO 30
 200 LET A$=B$
 205 FOR N=1 TO C
 206 LET F=INT (RND*28)+2
 210 LET A$(1+F)="%."
 215 LET F=INT (RND*28)+2
 220 LET A$(1+F)="% "
 230 NEXT N
 240 RETURN 
 300 FOR N=0 TO 21
 310 PRINT AT N,0;B$
 330 NEXT N
 340 RETURN 
1000 CLS 
1010 PRINT AT 10,4;"GAME OVER - FINAL SCORE = ";B
1020 PAUSE 1000
1030 RUN 
9998 SAVE "LABYRINTH-%2"
9999 RUN 




					

				
			




						

				





Tags











People







					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top




















			
				A





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Labyrinth 2
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Labyrinth 2

			
		


	
	
	


							

				





Developer(s): Gene G. Buza


Date: September 1983


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Cassette to accompany the September 1983 issue of Synchro-Sette.













Related Products















Related Articles















Related Content















Image Gallery











Source Code




 
   1 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  10 LET A=645+PEEK 16396+256*PEEK 16397
  15 INPUT C
  16 LET B$="% \: \@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\ :% "
  17 GOSUB 300
  20 LET B=-18
  50 GOSUB 200
  70 PRINT AT 0,0;A$
  72 IF B>0 THEN PRINT AT 18,30;B;AT 19,30;"\ :% "
  75 RAND USR 16514
  80 IF PEEK A<>136 THEN GOSUB 1000
  90 POKE A,151
 100 POKE A+33,136
 102 POKE A+32,136
 104 POKE A+34,136
 110 LET B=B+1
 120 LET A=A+(INKEY$="0")-(INKEY$="1")
 130 GOTO 30
 200 LET A$=B$
 205 FOR N=1 TO C
 206 LET F=INT (RND*28)+2
 210 LET A$(1+F)="%."
 215 LET F=INT (RND*28)+2
 220 LET A$(1+F)="% "
 230 NEXT N
 240 RETURN 
 300 FOR N=0 TO 21
 310 PRINT AT N,0;B$
 330 NEXT N
 340 RETURN 
1000 CLS 
1010 PRINT AT 10,4;"GAME OVER - FINAL SCORE = ";B
1020 PAUSE 1000
1030 RUN 
9998 SAVE "LABYRINTH-%2"
9999 RUN 




					

				
			




						

				





Tags











People







					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top




















			
				C\ED\B8\C9
  10 LET A=645+PEEK 16396+256*PEEK 16397
  15 INPUT C
  16 LET B$="% \: \@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\ :% "
  17 GOSUB 300
  20 LET B=-18
  50 GOSUB 200
  70 PRINT AT 0,0;A$
  72 IF B>0 THEN PRINT AT 18,30;B;AT 19,30;"\ :% "
  75 RAND USR 16514
  80 IF PEEK A<>136 THEN GOSUB 1000
  90 POKE A,151
 100 POKE A+33,136
 102 POKE A+32,136
 104 POKE A+34,136
 110 LET B=B+1
 120 LET A=A+(INKEY$="0")-(INKEY$="1")
 130 GOTO 30
 200 LET A$=B$
 205 FOR N=1 TO C
 206 LET F=INT (RND*28)+2
 210 LET A$(1+F)="%."
 215 LET F=INT (RND*28)+2
 220 LET A$(1+F)="% "
 230 NEXT N
 240 RETURN 
 300 FOR N=0 TO 21
 310 PRINT AT N,0;B$
 330 NEXT N
 340 RETURN 
\n1000 CLS 
\n1010 PRINT AT 10,4;"GAME OVER - FINAL SCORE = ";B
\n1020 PAUSE 1000
\n1030 RUN 
\n9998 SAVE "LABYRINTH-%2"
\n9999 RUN

Tags

People

Scroll to Top