1 REM 


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\A9


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				AE\BE\C8EC\BE\CBE\CBE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\CB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\CBE\FB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\DBE\D3E\E5B\E1


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\CB\C6


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56679 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
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				AC


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				EA\CB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\CD\BB


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				DD\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56679 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\CD\CB\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56679 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\C6\CD\BDE\FEE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\BE\B1


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				BE\BE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56679 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
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				B


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				B


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\FE


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				F


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\E4B\BA itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56679 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"D


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\DAE\BEE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56679 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\C0\E6


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				\CAE\BB\E7A\BB\E3


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\F5E\BE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56679 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
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				A\F1


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				B\EDBB\AF\EDC


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    GET_GMC
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
GET_GMC
			
		


	
	
	


							

				

  
Download
  




Developer(s): Shawn Byrne
Date: 1983
Type: Cassette
Platform(s): TS 1000


					
				
		
Machine language subroutine that can be used to get user input. 

		
							

				










Content









Appears On









Related Products









Related Articles



The Fame & The Glory
And now, here are a few more words about the last contest. First, we would like to thank all of...







Related Content









Image Gallery




  
    
    






Source Code



  
   1 REM \02\57\A9\25\00\00\2A\10\40\3E\80\BE\C8\3E\4C\BE\28\24\CB\6E\28\18\CB\7E\28\0E\CB\76\28\05\11\12\00\18\08\23\CB\7E\28\FB\11\06\00\19\18\DB\23\5E\23\56\23\19\18\D3\23\5E\23\56\E5\19\22\7B\40\E1\23\22\82\40\21\00\00\22\84\40\3E\00\32\86\40\21\87\40\36\00\21\21\40\CB\C6\2A\84\40\11\01\00\19\22\84\40\30\07\3A\86\40\3C\32\86\40\2A\0E\40\3A\84\40\CB\77\20\04\36\00\18\02\36\80\CD\BB\02\44\4D\5D\21\21\40\CB\46\28\07\1C\20\CD\CB\86\18\C9\1C\28\C6\CD\BD\07\7E\FE\77\20\23\21\87\40\3E\00\BE\28\B1\35\2A\0E\40\36\00\2B\3E\76\BE\20\01\2B\22\0E\40\2A\82\40\2B\36\00\22\82\40\18\96\FE\76\20\07\2A\0E\40\36\00\18\57\5F\2A\29\40\23\23\46\05\23\23\23\10\02\18\E4\56\7B\BA\28\1D\23\10\02\18\DA\3E\16\BE\28\06\3E\1A\BE\C0\18\E6\23\10\02\18\CA\7E\BB\38\E7\7A\BB\30\E3\21\87\40\34\2A\0E\40\73\23\F5\3E\76\BE\20\01\23\22\0E\40\2A\82\40\F1\73\23\22\82\40\2B\ED\4B\7B\40\AF\ED\42\20\9C\06\00\21\87\40\4E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
1000 SLOW 
1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
1020 PRINT 
1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
1050 PRINT 
1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
1070 GOSUB 100
1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
1090 PRINT 
1100 PRINT "EXAMPLE: 10 LET GET=16520"
1110 GOSUB 100
1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
1140 PRINT 
1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
1170 GOSUB 100
1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
1190 PRINT 
1200 PRINT TAB 8;"POKE 16399,0"
1210 PRINT 
1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
1230 PRINT 
1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
1250 PRINT 
1260 PRINT "BEFORE THE ROUTINE IS CALLED."
1270 GOSUB 100
1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
1300 PRINT 
1310 PRINT "EXAMPLE 1:  REM 0-9"
1320 PRINT 
1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
1340 PRINT 
1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
1360 PRINT 
1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
1380 GOSUB 100
1390 PRINT "EXAMPLE 3:  REM A-F"
1400 PRINT 
1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
1420 PRINT 
1430 PRINT "EXAMPLE 4:  REM 0-Z"
1440 PRINT 
1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
1460 GOSUB 100
1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
1480 PRINT 
1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
1500 PRINT 
1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
1520 PRINT 
1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
1540 GOSUB 100
1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
1560 PRINT 
1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
1580 LET G$=" "
1590 PRINT AT 5,15;
1600 RAND USR GET
1610 REM Q
1620 PRINT 
1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
1640 PRINT 
1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
1660 PRINT 
1670 PRINT TAB 10;N;" SECONDS."
1680 GOSUB 100
1690 POKE GET+113,CODE "S"
1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
1710 PRINT 
1720 PRINT "POKE GET+113,CODE ""S"""
1730 PRINT 
1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
1750 PRINT 
1760 PRINT "POKE GET+113,0"
1770 GOSUB 100
1780 POKE GET+113,0
1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
1820 PRINT 
1830 PRINT TAB 4;"POKE GET+129,24"
1840 PRINT 
1850 PRINT "TO RETURN TO NORMAL:"
1860 PRINT 
1870 PRINT TAB 4;"POKE GET+129,40"
1880 GOSUB 100
1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
1900 PRINT 
1910 PRINT "10 LET GET=16520"
1920 PRINT "100 LET G$="" """
1930 PRINT "110 PRINT AT 10,15;"
1940 PRINT "120 LET N$=G$( TO USR GET)"
1950 PRINT "130 REM N,Y"
1960 PRINT "140 IF N$="""" THEN GOTO 100"
1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
1990 PRINT 
2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
2020 GOSUB 100
2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
2040 PRINT 
2050 PRINT AT 10,10;"SHAWN A. BYRNE"
2060 PRINT TAB 10;"RT. 3  BOX 342"
2070 PRINT TAB 10;"COOKEVILLE, TN."
2080 PRINT TAB 20;"38501"
2090 PRINT 
2100 PRINT TAB 10;"615/526-7914"
2110 GOSUB 100
2120 RUN 
9997 STOP 
9998 SAVE "GE%T"
9999 RUN 

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Shawn Byrne



					
				


			

			
		
	



	
 
	


	








		Scroll to Top





















			
				E\C9
   2 REM %G%E%T BY SHAWN BYRNE 1983
   3 LET GET=16520
   4 LET A$="ENTER %C%O%N%T TO CONTINUE, %S%T%O%P TO STOP "
  90 GOTO 1000
 100 PRINT AT 20,0;A$
 110 LET G$="    "
 120 PRINT AT 21,12;
 130 LET N$=G$( TO USR GET)
 140 REM C,N,O,P,S,T
 150 IF N$="" THEN GOTO 110
 160 IF N$="STOP" THEN STOP 
 170 IF N$<>"CONT" THEN GOTO 110
 180 CLS 
 190 RETURN 
\n1000 SLOW 
\n1010 PRINT "***\ :%G%E%T\: *** BY SHAWN BYRNE  1983"
\n1020 PRINT 
\n1030 PRINT "\ :%G%E%T\: IS A MACHINE LANGUAGE SUB- ROUTINE, 289 BYTES LONG, WHICH  CAN BE USED TO %G%E%T A USER INPUT.",,
\n1040 PRINT "LINE 1 OF THE BASIC PROGRAM MUSTBE A REM STATEMENT CONTAINING 6 BYTES USED AS VARIABLES.THE SUB-ROUTINE ITSELF IS RELOCATABLE   AND CAN RESIDE ABOVE RAMTOP,IN AREM STATEMENT OR BETWEEN A BASICPROGRAM AND THE DISPLAY FILE."
\n1050 PRINT 
\n1060 PRINT "IF %G%E%T IS USED IN A 1 REM STATE-MENT, POKE 16419,2 SO THE BASIC (STARTING AT LINE 2) CAN BE DIS-PLAYED. DO NOT LIST;USE LIST 2."
\n1070 GOSUB 100
\n1080 PRINT "BEFORE \ :%G%E%T\: IS CALLED FROM WITH-IN A BASIC PROGRAM,IT£S STARTINGLOCATION MUST BE DEFINED:"
\n1090 PRINT 
\n1100 PRINT "EXAMPLE: 10 LET GET=16520"
\n1110 GOSUB 100
\n1120 PRINT "THE FUNCTION ""USR GET"" WILL RE- TURN THE LENGTH OF THE RESPONSE.THE STRING G$ MUST BE DEFINED   (A STRING OF SPACES) BEFORE %G%E%T IS CALLED AND THE LENGTH OF THE RESPONSE IS LIMITED BY THE"
\n1130 PRINT "LENGTH OF G$. THE RESPONSE IS   RETURNED IN G$."
\n1140 PRINT 
\n1150 PRINT "THE RESPONSE IS INPUT ON THE    SCREEN WHEREVER THE PRINT"
\n1160 PRINT "POSITION IS LOCATED. THE DELETE KEY WILL WORK. EXIT FROM %G%E%T IS PERFORMED WHEN ENTER IS PRESSED OR THE LENGTH OF THE INPUT = G$."
\n1170 GOSUB 100
\n1180 PRINT "IF THE RESPONSE IS NOT NEEDED ONTHE SCREEN, THE PRINT POSITION  CAN BE MOVED OFFSCREEN BY:"
\n1190 PRINT 
\n1200 PRINT TAB 8;"POKE 16399,0"
\n1210 PRINT 
\n1220 PRINT "OTHERWISE, THE RESPONSE CAN BE  POSITIONED ON THE SCREEN BY:"
\n1230 PRINT 
\n1240 PRINT TAB 5;"PRINT AT (LINE),(COL.);"
\n1250 PRINT 
\n1260 PRINT "BEFORE THE ROUTINE IS CALLED."
\n1270 GOSUB 100
\n1280 PRINT "IMMEDIATELY FOLLOWING THE LINE  NUMBER IN WHICH %G%E%T IS CALLED,"
\n1290 PRINT "THERE MUST BE A REM LINE WHICH  SPECIFIES THE CHARACTER(S) WHICHARE TO BE USED IN THE RESPONSE. CHARACTERS MUST BE SEPARATED BY A COMMA OR A HYPHEN."
\n1300 PRINT 
\n1310 PRINT "EXAMPLE 1:  REM 0-9"
\n1320 PRINT 
\n1330 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS FROM 0 THROUGH 9."
\n1340 PRINT 
\n1350 PRINT "EXAMPLE 2:  REM 2,7,C,R"
\n1360 PRINT 
\n1370 PRINT "WILL GIVE A RESPONSE ONLY TO    THOSE CHARACTERS."
\n1380 GOSUB 100
\n1390 PRINT "EXAMPLE 3:  REM A-F"
\n1400 PRINT 
\n1410 PRINT "WILL GIVE A RESPONSE ONLY TO THELETTERS A THROUGH F."
\n1420 PRINT 
\n1430 PRINT "EXAMPLE 4:  REM 0-Z"
\n1440 PRINT 
\n1450 PRINT "WILL GIVE A RESPONSE TO ALL THE NUMBERS (0 THROUGH 9) AND TO ALLTHE LETTERS (A THROUGH Z)." 
\n1460 GOSUB 100
\n1470 PRINT "%G%E%T HAS A COUNTER WHICH CAN BE  USED AS A TIMER. AFTER %G%E%T HAS  EXECUTED, THIS COUNTER VALUE CANBE FOUND BY:"
\n1480 PRINT 
\n1490 PRINT "PEEK 16516+256*PEEK 16517+65536 *PEEK 16518"
\n1500 PRINT 
\n1510 PRINT "A %G%E%T EXECUTION TIME OF 1 MINUTEWILL RESULT IN A COUNT OF ABOUT 26,770."
\n1520 PRINT 
\n1530 PRINT "THE EXACT COUNT WILL VARY WITH  EACH COMPUTER AND WILL HAVE TO  BE DETERMINED BY EXPERIMENTING."
\n1540 GOSUB 100
\n1550 PRINT "EXAMPLE OF %G%E%T COUNTER:"
\n1560 PRINT 
\n1570 PRINT "PLEASE PRESS THE ""Q"" KEY."
\n1580 LET G$=" "
\n1590 PRINT AT 5,15;
\n1600 RAND USR GET
\n1610 REM Q
\n1620 PRINT 
\n1630 LET N=INT ((PEEK 16516+256*PEEK 16517+65536*PEEK 16518)/446.1667)
\n1640 PRINT 
\n1650 PRINT TAB 6;"YOUR RESPONSE TIME WAS "
\n1660 PRINT 
\n1670 PRINT TAB 10;N;" SECONDS."
\n1680 GOSUB 100
\n1690 POKE GET+113,CODE "S"
\n1700 PRINT "THE FLASHING CURSER USED ON THE SCREEN CAN BE ANY CHARACTER.    FOR EXAMPLE, FOR A FLASHING ""S"":"
\n1710 PRINT 
\n1720 PRINT "POKE GET+113,CODE ""S"""
\n1730 PRINT 
\n1740 PRINT "TO RETURN TO THE FLASHING SPACE:"
\n1750 PRINT 
\n1760 PRINT "POKE GET+113,0"
\n1770 GOSUB 100
\n1780 POKE GET+113,0
\n1790 PRINT "%G%E%T WILL NOT ACCEPT A CHARACTER UNTIL AFTER IT HAS RECIEVED THE SIGNAL THAT NO KEY IS BEING     PRESSED,SO UPON ENTERING %G%E%T,IF A KEY IS BEING PRESSED, IT WILL NOT BE ACCEPTED UNTIL THE FINGERIS LIFTED AND A KEY PRESSED     AGAIN."
\n1800 PRINT "THIS PREVENTS A CHARACTER FROM  BEING REPEATED RAPIDLY."
\n1810 PRINT "TO ALLOW A CHARACTER TO BE AC-  CEPTED ON ENTERING %G%E%T WHEN IT  IS ALREADY BEING PRESSED:"
\n1820 PRINT 
\n1830 PRINT TAB 4;"POKE GET+129,24"
\n1840 PRINT 
\n1850 PRINT "TO RETURN TO NORMAL:"
\n1860 PRINT 
\n1870 PRINT TAB 4;"POKE GET+129,40"
\n1880 GOSUB 100
\n1890 PRINT "AN EXAMPLE OF A BASIC LISTING TOUSE %G%E%T IS:"
\n1900 PRINT 
\n1910 PRINT "10 LET GET=16520"
\n1920 PRINT "100 LET G$="" """
\n1930 PRINT "110 PRINT AT 10,15;"
\n1940 PRINT "120 LET N$=G$( TO USR GET)"
\n1950 PRINT "130 REM N,Y"
\n1960 PRINT "140 IF N$="""" THEN GOTO 100"
\n1970 PRINT "150 IF N$=""N"" THEN GOTO 1000"
\n1980 PRINT "160 IF N$=""Y"" THEN GOSUB 60"
\n1990 PRINT 
\n2000 PRINT "LINE 140 PREVENTS A RESPONSE TO ENTER."
\n2010 PRINT "LINES 150 AND 160 DETERMINE THE RESPONSE ACTION."
\n2020 GOSUB 100
\n2030 PRINT "%G%E%T CAN BE USED AS MANY TIMES INA BASIC PROGRAM AS NEEDED. EACH TIME IT IS USED THE LENGTH OF   THE RESPONSE AND THE CHARACTERS CAN BE REDEFINED IN BASIC."
\n2040 PRINT 
\n2050 PRINT AT 10,10;"SHAWN A. BYRNE"
\n2060 PRINT TAB 10;"RT. 3  BOX 342"
\n2070 PRINT TAB 10;"COOKEVILLE, TN."
\n2080 PRINT TAB 20;"38501"
\n2090 PRINT 
\n2100 PRINT TAB 10;"615/526-7914"
\n2110 GOSUB 100
\n2120 RUN 
\n9997 STOP 
\n9998 SAVE "GE%T"
\n9999 RUN