1 REM 


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				D\ED\B0\EB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\C5\C5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"AFAC\CBAD\F2\C1\E9\C1\E2 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\CD\D3AE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\F5


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\CD\D3AF


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				C


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				CAD\BE\C0


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				B\FB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\CD\BB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\CB\CBC\C8\CBC\CBD


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\FF\CB\CBC


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\CB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\DF\CBC


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A\F5\F1\FC


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				AA


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				AAC\BE\CCAE\CDAA\CD\CDA\C3\E5A\B7A\CD


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				F\C9A\CD


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				F\C0


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A\CD\F5B


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				F\C0\BBE\FF\CD


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				F\C0A\B8E\CD


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				F\C0\BAE\DF\CD


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				F\C0\BA


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\FF\EFE\DF


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\F1E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				B\E5E\CD


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\EDB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\ED\F9D\C1\E1\C9\C5


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				AA\E1EAF\C9\E5A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				EC\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				B\F2


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A\EDB\B7\ED\C0


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				ED


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\E5\D1


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A\F6\D1\E1


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\ED\B0\E1\D1\CD\D0\C1\E2


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				D\FD\F9\C1\C9


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Gulp
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Gulp
			
		


	
	
	


							

				

  
Download
  


Mindware, Inc.
Products: Gulp

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


					
				
		
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.




Gulp.wav is the file directly from the tape with fades and dropouts corrected.



Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.


		
							

				










Content









Appears On









Related Products




Gulp
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the...








Related Articles









Related Content









Image Gallery




  
    
    
    
    
    






Source Code



  
   1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4  \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C  \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY \7F CLEAR %4  \: %J COPY \7F PRINT %C  +%F COPY \7FSTR$ %E  \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E  \55%F COPY \7FSTR$ %C  +%J COPY \7F PRINT %4  \: %Z COPY \7F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT "  THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME


					
				
			



						

				


Tags


Archived Media, Downloadable, Mindware, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\FB\F5\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B
  10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
  15 DIM M$(101)
  20 LET O=PI/PI
  30 LET Z=O-O
  40 LET X=10
  50 LET ME=500
  60 LET SE=900
  70 LET MK=14
  80 LET RN=860
 310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000  LIVES=5  SCORE=00000"
 340 LET M$=".\##O%XBH   \ ' E0 "
 350 LET S$="         "
 500 RAND USR 17116
 510 PRINT AT 3,Z;S$;"  MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
 515 PRINT ,,"   PRESS G...INSTRUCTIONS"
 520 LET K$=INKEY$
 530 IF K$<"A" OR K$>"G" THEN GOTO 520
 540 GOTO 550+20*(CODE K$-38)
 550 IF M$(MK+O)=" " THEN GOTO 570
 552 RAND USR 16514
 553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
 555 IF INKEY$<>CHR$ 118 THEN GOTO 555
 560 RAND USR 17030
 565 PRINT AT 1,18;"5"
 567 GOTO ME
 570 GOSUB SE
 571 PRINT "MAZE 1 TO 5"
 572 GOSUB RN
 573 PRINT AT Z,MK-O;K$
 574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO B CLEAR %4  \: %J TO F PRINT %CRND\: %F*FSTR$ % RND)%FFSTR$ %CRND +%FF TO VAL %C  \: %5FD%H\: \;;%F%C)+%JNOT  PRINT %4= \' %ZNOT %Y COPY %   \'  COPY COPY COPY COPY "
 576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z COPY F CLEAR %4  \: %J COPY F PRINT %C  +%F COPY FSTR$ %E  %E COPY F%E% \' % Z UNPLOT \' %E%Z CLEAR %E% \' %E COPY F%E  %F COPY FSTR$ %C  +%J COPY F PRINT %4  \: %Z COPY F CLEAR %   \'  COPY COPY COPY COPY "
 578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY CLEAR %   \: %Z COPY COPY PRINT %4  \' %J COPY COPY COPY %   \'  COPY COPY COPY COPY "
 580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT  \,,%C\: %4+ RETURN %5%ZUSR \ '%X%  REM \.:%Z\~~ CLEAR \.:F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4%=\ '%Z%* REM \.:%(\~~ CLEAR D%3 REM \' INKEY$% F CLEAR D%Z%C\: \' % %J PRINT CLEAR %  (\'  COPY COPY COPY COPY "
 582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY %   \' %Z%N CLEAR %Z%N CLEAR %L%NLN %L%NLN %KNLN %KNLN %KNLN %KNLN %KNLN %KNLN %N%N<>%N%N<>%L%NAT %L%NAT %L%NAT %L%NAT %Z%Z%   \'  COPY COPY COPY COPY "
 586 GOTO ME
 590 GOSUB SE
 592 PRINT "SPEED 1 TO 9"
 595 GOSUB RN
 600 PRINT AT Z,X+X+O;K$
 602 LET M$(5)=CHR$ (X*X-X*N)
 605 GOTO ME
 610 GOSUB SE
 611 PRINT "GRADE 1 TO 9"
 612 GOSUB RN
 615 LET M$(X+O+O)=CHR$ (96-X*N)
 620 PRINT AT Z,29;K$
 625 GOTO ME
 630 PRINT AT O,5;"00000"
 635 GOTO ME
 650 GOSUB SE
 652 PRINT "NAME AND START TAPE"
 655 INPUT Z$
 660 SAVE Z$
 662 SLOW 
 665 GOTO ME
 670 GOTO 1000
 860 LET K$=INKEY$
 870 IF K$<"1" OR K$>"9" THEN GOTO 860
 880 LET N=CODE K$-28
 890 RETURN 
 900 PRINT AT X+X,Z;"SELECT ";
 910 RETURN 
\n1000 RAND USR 17116
\n1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
\n1010 PRINT "IN GULP YOU STEER YOURSELF (O)  THROUGH A MAZE, EATING FOOD (.) AS YOU GO.  USE KEYS 5-8 FOR    LEFT, DOWN, UP, RIGHT."   
\n1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND  IF HE CATCHES YOU, A LIFE IS    LOST." 
\n1030 PRINT "WORSE, THE MORE YOU EAT THE     FASTER HE CHASES. AFTER EACH    CAPTURE, CHASER STARTS AGAIN    FROM BOTTOM RIGHT."
\n1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU   PRESS ""0"" KEY. THEN NEWLINE TO  UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
\n1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
\n1060 INPUT K$
\n1061 RAND USR 17116
\n1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
\n1070 PRINT "USE THE MENU TO CONTROL THUS..."
\n1080 PRINT """A"" TO PLAY A GAME"
\n1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
\n1100 PRINT """C"" TO SELECT SPEED OR PACE OF    THE GAME."
\n1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
\n1120 PRINT "  THE CHASER ACCELERATION."
\n1130 PRINT """E"" RESETS ""BEST"" TO 00000."
\n1140 PRINT """F"" SAVES GULP GAME ON TAPE."
\n1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
\n1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
\n1165 INPUT K$
\n1170 GOTO ME