Home » Computer Media » Unknown Machine Code Routine 4

Unknown Machine Code Routine 4

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

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Related Products

Related Articles

Related Content

Image Gallery

Unknown Machine Code Routine 4

Source Code

   1 REM 





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				A





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				C\E5





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















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





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				\ED\B0\EB





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				\FB\C9





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				A





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				\ED\E5





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















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





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				\ED\B8\EB





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				B





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				\FB\C9





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				A





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				C\C5E





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				FE\FA\C1\F1\C9





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				A





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				\ED\C5E





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				BFE\FA





			
			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Unknown Machine Code Routine 4
                                    
                                

					

				

	


	


		
					

				




	
	



	
	
		


			
			
Unknown Machine Code Routine 4

			
		


	
	
	


							

				






Date: 198x


Type: Program


Platform(s): TS 1000




					

				
		
		
							

				

  
      
  












Content




  












Appears On





Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.













Related Products















Related Articles















Related Content















Image Gallery






  Unknown Machine Code Routine 4
    










Source Code




 
   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5



					

				
			




						

				





Tags











People




No people associated with this content.





					

				



			

			
		
	



	
 
	


	









	
                
                	Scroll to Top






















			
				B\C1\F1\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57148 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.1"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57148 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.1"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57148 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.1"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57148 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.2 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.1"C
   5 LIST 35
  20 LET D$=INKEY$
  25 IF D$="J" THEN RAND USR 16588
  30 IF D$="M" THEN RAND USR 16538
  35 IF D$="I" THEN RAND USR 16514
  40 IF D$="K" THEN RAND USR 16567
  41 IF D$="U" THEN GOTO 43
  42 GOTO 45
  43 RAND USR 16514
  44 RAND USR 16588
  45 IF D$="O" THEN GOTO 47
  46 GOTO 49
  47 RAND USR 16514
  48 RAND USR 16567
  49 IF D$="." THEN GOTO 51
  50 GOTO 53
  51 RAND USR 16538
  52 RAND USR 16567
  53 IF D$="N" THEN GOTO 55
  54 GOTO 57
  55 RAND USR 16538
  56 RAND USR 16588
  60 GOTO 20
  70 SAVE "1009%7"
  80 GOTO 5

Tags

People

No people associated with this content.

Scroll to Top