1 REM 


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Merry Christmas Message
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Merry Christmas Message
			
		


	
	
	


							

				

  
Download
  




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


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1002
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\10\40\01\29\01\ED\42\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\8C\01\ED\B8\EB\06\20\2B\36\80\10\FB\C9\76\76\06\16\2A\0C\40\23\7E\FE\76\28\04\36\80\18\F6\10\F4\C9
  10 LET A=USR 16550
  11 LET A$="                                    MERRY  CHRISTMAS       \.'\'.\.'\'.---\'.\!!% \.                                                 "
  12 LET B$="                                    %M%E%R%R%Y  %C%H%R%I%S%T%M%A%S       \ :\: \ :\: ---\'.\!!% \.                                                 "
  20 PRINT AT 13,0;"% % % % % \''\''\''   \''\''\''% % % % % % % \''\''\''    \''\''% % % \''\''             \''% % \''           \':\:                \,,\~~             \ :\:              \,,\~~               \ :"
  21 FOR A=17 TO 21
  22 PRINT AT A,0;"\:                               \ :"
  23 NEXT A
  25 PRINT AT 21,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
  26 POKE 16418,0
  27 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % %R%Y%A%N% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  28 POKE 16418,2
  29 FOR A=1 TO LEN A$-30 STEP 2
  30 PRINT AT 0,INT (RND*32);"%."
  31 PRINT AT 18,1;B$(A TO A+29)
  40 LET Z=USR 16514
  44 PRINT AT 18,1;A$(A+1 TO A+30)
  50 NEXT A
  60 GOTO 29
 999 REM CODE
1000 LET A$="2A1040114300ED52E5112100ED52D1018C01EDB8EB06202B308010FBC9767606162A0C40237EFE762804368018F610F4C9"
1010 PRINT A$
1020 PRINT ,,
1030 FOR A=16514 TO 16600
1040 LET B=PEEK A
1050 PRINT CHR$ (28+INT (B/16));CHR$ (28+B-(INT (B/16))*16);"  ";
1060 NEXT A
2000 SAVE "1010%4"
2010 GOTO 1

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Ryan Gray



					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Merry Christmas Message
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Merry Christmas Message
			
		


	
	
	


							

				

  
Download
  




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


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1002
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\10\40\01\29\01\ED\42\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\8C\01\ED\B8\EB\06\20\2B\36\80\10\FB\C9\76\76\06\16\2A\0C\40\23\7E\FE\76\28\04\36\80\18\F6\10\F4\C9
  10 LET A=USR 16550
  11 LET A$="                                    MERRY  CHRISTMAS       \.'\'.\.'\'.---\'.\!!% \.                                                 "
  12 LET B$="                                    %M%E%R%R%Y  %C%H%R%I%S%T%M%A%S       \ :\: \ :\: ---\'.\!!% \.                                                 "
  20 PRINT AT 13,0;"% % % % % \''\''\''   \''\''\''% % % % % % % \''\''\''    \''\''% % % \''\''             \''% % \''           \':\:                \,,\~~             \ :\:              \,,\~~               \ :"
  21 FOR A=17 TO 21
  22 PRINT AT A,0;"\:                               \ :"
  23 NEXT A
  25 PRINT AT 21,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
  26 POKE 16418,0
  27 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % %R%Y%A%N% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  28 POKE 16418,2
  29 FOR A=1 TO LEN A$-30 STEP 2
  30 PRINT AT 0,INT (RND*32);"%."
  31 PRINT AT 18,1;B$(A TO A+29)
  40 LET Z=USR 16514
  44 PRINT AT 18,1;A$(A+1 TO A+30)
  50 NEXT A
  60 GOTO 29
 999 REM CODE
1000 LET A$="2A1040114300ED52E5112100ED52D1018C01EDB8EB06202B308010FBC9767606162A0C40237EFE762804368018F610F4C9"
1010 PRINT A$
1020 PRINT ,,
1030 FOR A=16514 TO 16600
1040 LET B=PEEK A
1050 PRINT CHR$ (28+INT (B/16));CHR$ (28+B-(INT (B/16))*16);"  ";
1060 NEXT A
2000 SAVE "1010%4"
2010 GOTO 1

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Ryan Gray



					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				\ED\E5


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Merry Christmas Message
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Merry Christmas Message
			
		


	
	
	


							

				

  
Download
  




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


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1002
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\10\40\01\29\01\ED\42\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\8C\01\ED\B8\EB\06\20\2B\36\80\10\FB\C9\76\76\06\16\2A\0C\40\23\7E\FE\76\28\04\36\80\18\F6\10\F4\C9
  10 LET A=USR 16550
  11 LET A$="                                    MERRY  CHRISTMAS       \.'\'.\.'\'.---\'.\!!% \.                                                 "
  12 LET B$="                                    %M%E%R%R%Y  %C%H%R%I%S%T%M%A%S       \ :\: \ :\: ---\'.\!!% \.                                                 "
  20 PRINT AT 13,0;"% % % % % \''\''\''   \''\''\''% % % % % % % \''\''\''    \''\''% % % \''\''             \''% % \''           \':\:                \,,\~~             \ :\:              \,,\~~               \ :"
  21 FOR A=17 TO 21
  22 PRINT AT A,0;"\:                               \ :"
  23 NEXT A
  25 PRINT AT 21,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
  26 POKE 16418,0
  27 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % %R%Y%A%N% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  28 POKE 16418,2
  29 FOR A=1 TO LEN A$-30 STEP 2
  30 PRINT AT 0,INT (RND*32);"%."
  31 PRINT AT 18,1;B$(A TO A+29)
  40 LET Z=USR 16514
  44 PRINT AT 18,1;A$(A+1 TO A+30)
  50 NEXT A
  60 GOTO 29
 999 REM CODE
1000 LET A$="2A1040114300ED52E5112100ED52D1018C01EDB8EB06202B308010FBC9767606162A0C40237EFE762804368018F610F4C9"
1010 PRINT A$
1020 PRINT ,,
1030 FOR A=16514 TO 16600
1040 LET B=PEEK A
1050 PRINT CHR$ (28+INT (B/16));CHR$ (28+B-(INT (B/16))*16);"  ";
1060 NEXT A
2000 SAVE "1010%4"
2010 GOTO 1

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Ryan Gray



					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Merry Christmas Message
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Merry Christmas Message
			
		


	
	
	


							

				

  
Download
  




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


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1002
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\10\40\01\29\01\ED\42\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\8C\01\ED\B8\EB\06\20\2B\36\80\10\FB\C9\76\76\06\16\2A\0C\40\23\7E\FE\76\28\04\36\80\18\F6\10\F4\C9
  10 LET A=USR 16550
  11 LET A$="                                    MERRY  CHRISTMAS       \.'\'.\.'\'.---\'.\!!% \.                                                 "
  12 LET B$="                                    %M%E%R%R%Y  %C%H%R%I%S%T%M%A%S       \ :\: \ :\: ---\'.\!!% \.                                                 "
  20 PRINT AT 13,0;"% % % % % \''\''\''   \''\''\''% % % % % % % \''\''\''    \''\''% % % \''\''             \''% % \''           \':\:                \,,\~~             \ :\:              \,,\~~               \ :"
  21 FOR A=17 TO 21
  22 PRINT AT A,0;"\:                               \ :"
  23 NEXT A
  25 PRINT AT 21,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
  26 POKE 16418,0
  27 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % %R%Y%A%N% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  28 POKE 16418,2
  29 FOR A=1 TO LEN A$-30 STEP 2
  30 PRINT AT 0,INT (RND*32);"%."
  31 PRINT AT 18,1;B$(A TO A+29)
  40 LET Z=USR 16514
  44 PRINT AT 18,1;A$(A+1 TO A+30)
  50 NEXT A
  60 GOTO 29
 999 REM CODE
1000 LET A$="2A1040114300ED52E5112100ED52D1018C01EDB8EB06202B308010FBC9767606162A0C40237EFE762804368018F610F4C9"
1010 PRINT A$
1020 PRINT ,,
1030 FOR A=16514 TO 16600
1040 LET B=PEEK A
1050 PRINT CHR$ (28+INT (B/16));CHR$ (28+B-(INT (B/16))*16);"  ";
1060 NEXT A
2000 SAVE "1010%4"
2010 GOTO 1

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Ryan Gray



					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				B\FB\C9


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Merry Christmas Message
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Merry Christmas Message
			
		


	
	
	


							

				

  
Download
  




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


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1002
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\10\40\01\29\01\ED\42\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\8C\01\ED\B8\EB\06\20\2B\36\80\10\FB\C9\76\76\06\16\2A\0C\40\23\7E\FE\76\28\04\36\80\18\F6\10\F4\C9
  10 LET A=USR 16550
  11 LET A$="                                    MERRY  CHRISTMAS       \.'\'.\.'\'.---\'.\!!% \.                                                 "
  12 LET B$="                                    %M%E%R%R%Y  %C%H%R%I%S%T%M%A%S       \ :\: \ :\: ---\'.\!!% \.                                                 "
  20 PRINT AT 13,0;"% % % % % \''\''\''   \''\''\''% % % % % % % \''\''\''    \''\''% % % \''\''             \''% % \''           \':\:                \,,\~~             \ :\:              \,,\~~               \ :"
  21 FOR A=17 TO 21
  22 PRINT AT A,0;"\:                               \ :"
  23 NEXT A
  25 PRINT AT 21,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
  26 POKE 16418,0
  27 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % %R%Y%A%N% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  28 POKE 16418,2
  29 FOR A=1 TO LEN A$-30 STEP 2
  30 PRINT AT 0,INT (RND*32);"%."
  31 PRINT AT 18,1;B$(A TO A+29)
  40 LET Z=USR 16514
  44 PRINT AT 18,1;A$(A+1 TO A+30)
  50 NEXT A
  60 GOTO 29
 999 REM CODE
1000 LET A$="2A1040114300ED52E5112100ED52D1018C01EDB8EB06202B308010FBC9767606162A0C40237EFE762804368018F610F4C9"
1010 PRINT A$
1020 PRINT ,,
1030 FOR A=16514 TO 16600
1040 LET B=PEEK A
1050 PRINT CHR$ (28+INT (B/16));CHR$ (28+B-(INT (B/16))*16);"  ";
1060 NEXT A
2000 SAVE "1010%4"
2010 GOTO 1

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Ryan Gray



					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Merry Christmas Message
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Merry Christmas Message
			
		


	
	
	


							

				

  
Download
  




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


					
				
		
		
							

				

  
      
  










Content



  







Appears On


Timex Sinclair Public Domain Library Tape 1002
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.







Related Products









Related Articles









Related Content









Image Gallery




  
    






Source Code



 
   1 REM \2A\10\40\01\29\01\ED\42\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\8C\01\ED\B8\EB\06\20\2B\36\80\10\FB\C9\76\76\06\16\2A\0C\40\23\7E\FE\76\28\04\36\80\18\F6\10\F4\C9
  10 LET A=USR 16550
  11 LET A$="                                    MERRY  CHRISTMAS       \.'\'.\.'\'.---\'.\!!% \.                                                 "
  12 LET B$="                                    %M%E%R%R%Y  %C%H%R%I%S%T%M%A%S       \ :\: \ :\: ---\'.\!!% \.                                                 "
  20 PRINT AT 13,0;"% % % % % \''\''\''   \''\''\''% % % % % % % \''\''\''    \''\''% % % \''\''             \''% % \''           \':\:                \,,\~~             \ :\:              \,,\~~               \ :"
  21 FOR A=17 TO 21
  22 PRINT AT A,0;"\:                               \ :"
  23 NEXT A
  25 PRINT AT 21,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
  26 POKE 16418,0
  27 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % %R%Y%A%N% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  28 POKE 16418,2
  29 FOR A=1 TO LEN A$-30 STEP 2
  30 PRINT AT 0,INT (RND*32);"%."
  31 PRINT AT 18,1;B$(A TO A+29)
  40 LET Z=USR 16514
  44 PRINT AT 18,1;A$(A+1 TO A+30)
  50 NEXT A
  60 GOTO 29
 999 REM CODE
1000 LET A$="2A1040114300ED52E5112100ED52D1018C01EDB8EB06202B308010FBC9767606162A0C40237EFE762804368018F610F4C9"
1010 PRINT A$
1020 PRINT ,,
1030 FOR A=16514 TO 16600
1040 LET B=PEEK A
1050 PRINT CHR$ (28+INT (B/16));CHR$ (28+B-(INT (B/16))*16);"  ";
1060 NEXT A
2000 SAVE "1010%4"
2010 GOTO 1

					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People



    Ryan Gray



					
				


			

			
		
	



	
 
	


	











		Scroll to Top





















			
				CE\FE\F6\F4\C9
  10 LET A=USR 16550
  11 LET A$="                                    MERRY  CHRISTMAS       \.'\'.\.'\'.---\'.\!!% \.                                                 "
  12 LET B$="                                    %M%E%R%R%Y  %C%H%R%I%S%T%M%A%S       \ :\: \ :\: ---\'.\!!% \.                                                 "
  20 PRINT AT 13,0;"% % % % % \''\''\''   \''\''\''% % % % % % % \''\''\''    \''\''% % % \''\''             \''% % \''           \':\:                \,,\~~             \ :\:              \,,\~~               \ :"
  21 FOR A=17 TO 21
  22 PRINT AT A,0;"\:                               \ :"
  23 NEXT A
  25 PRINT AT 21,0;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
  26 POKE 16418,0
  27 PRINT AT 22,0;"% % % % % % % % % % % % % % % % % % % % % % % % % %R%Y%A%N% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  28 POKE 16418,2
  29 FOR A=1 TO LEN A$-30 STEP 2
  30 PRINT AT 0,INT (RND*32);"%."
  31 PRINT AT 18,1;B$(A TO A+29)
  40 LET Z=USR 16514
  44 PRINT AT 18,1;A$(A+1 TO A+30)
  50 NEXT A
  60 GOTO 29
 999 REM CODE
\n1000 LET A$="2A1040114300ED52E5112100ED52D1018C01EDB8EB06202B308010FBC9767606162A0C40237EFE762804368018F610F4C9"
\n1010 PRINT A$
\n1020 PRINT ,,
\n1030 FOR A=16514 TO 16600
\n1040 LET B=PEEK A
\n1050 PRINT CHR$ (28+INT (B/16));CHR$ (28+B-(INT (B/16))*16);"  ";
\n1060 NEXT A
\n2000 SAVE "1010%4"
\n2010 GOTO 1