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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Bulletin
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Bulletin
			
		


	
	
	


							

				

  
Download
  





Date: June 1983
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


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







Related Products









Related Articles









Related Content









Image Gallery







Source Code



 
  10 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  20 FAST 
  30 LET X=PEEK 16404+256*PEEK 16405-794
  35 LET Q$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  40 DIM Z$(24,32)
  50 FOR N=1 TO 22
  60 LET Z$(N)=Q$
  65 IF N/3=INT (N/3) THEN LET Z$(N)="\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##"
  70 NEXT N
  80 SLOW 
 180 LET D=0
 190 LET A=1
 200 LET B=A+1
 205 GOSUB 300
 210 IF B=23 THEN LET B=1
 220 LET C=A-1
 230 IF C=0 THEN LET C=22
 240 PRINT AT USR 16514,0;Z$(C)
 250 LET A=C
 260 GOTO 200
 300 IF D>1 THEN LET Z$(1)="% % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% %P%R%E%S%E%N%T%S% % % % % "
 310 IF D>24 THEN LET Z$(1)="%T%H%E% %S%Y%N%C%H%R%O%-%S%E%T%T%E% %B%U%L%L%E%T%I%N% %B%O%A%R%D"
 320 LET D=D+1
 330 IF D>65 THEN GOTO 350
 340 RETURN 
 350 FOR N=1 TO 20
 360 SCROLL 
 370 NEXT N
 380 PRINT AT 2,0;"";
 390 FOR N=1 TO 20
 400 PRINT Q$
 410 NEXT N
 420 LET R$="% "+Z$(1)
 430 FOR N=0 TO 6
 440 PRINT AT 1,0+N;R$
 450 NEXT N
 460 LET R$="% %B%U%L%L%E%T%I%N% % %B%O%A%R%D% "
 470 FOR N=1 TO 15
 480 PRINT AT 1,25;R$
 490 LET R$="% "+R$
 500 NEXT N
 510 FOR N=1 TO 10
 520 PRINT AT USR 16514,0;Q$
 530 NEXT N
 540 POKE 16418,0
 550 PRINT AT 22,0;Q$
 560 PRINT AT 23,0;Q$
 570 PRINT AT 10,6;"\ .\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\. ";AT 11,6;"\ :";AT 11,24;"\: ";AT 12,6;"\ :";AT 12,24;"\: ";AT 13,6;"\ '\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\' "
 580 FOR N=1 TO 30
 590 PRINT AT 2,N;"\''";AT 4,N;"\..";AT 19,N;"\''";AT 21,N;"\.."
 600 NEXT N
 610 PRINT AT 3,1;"\ :";AT 3,30;"\: ";AT 20,1;"\ :";AT 20,30;"\: "
 620 PRINT AT 7,14;"%J%U%N%E";AT 16,14;"%1%9%8%3"
3000 FOR N=1 TO LEN A$-28
3010 PRINT AT 3,2;A$(N TO N+27)
3020 IF INKEY$<>"" THEN GOSUB 4000
3030 NEXT N
3040 FOR N=1 TO LEN B$-28
3050 PRINT AT 20,2;B$(N TO N+27)
3060 IF INKEY$<>"" THEN GOSUB 4000
3070 NEXT N
3080 GOTO 3000
4000 PAUSE 40000
4010 RETURN 
9998 SAVE "BULLETI%N"
9999 GOTO 0


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top



















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Bulletin
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Bulletin
			
		


	
	
	


							

				

  
Download
  





Date: June 1983
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


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







Related Products









Related Articles









Related Content









Image Gallery







Source Code



 
  10 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  20 FAST 
  30 LET X=PEEK 16404+256*PEEK 16405-794
  35 LET Q$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  40 DIM Z$(24,32)
  50 FOR N=1 TO 22
  60 LET Z$(N)=Q$
  65 IF N/3=INT (N/3) THEN LET Z$(N)="\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##"
  70 NEXT N
  80 SLOW 
 180 LET D=0
 190 LET A=1
 200 LET B=A+1
 205 GOSUB 300
 210 IF B=23 THEN LET B=1
 220 LET C=A-1
 230 IF C=0 THEN LET C=22
 240 PRINT AT USR 16514,0;Z$(C)
 250 LET A=C
 260 GOTO 200
 300 IF D>1 THEN LET Z$(1)="% % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% %P%R%E%S%E%N%T%S% % % % % "
 310 IF D>24 THEN LET Z$(1)="%T%H%E% %S%Y%N%C%H%R%O%-%S%E%T%T%E% %B%U%L%L%E%T%I%N% %B%O%A%R%D"
 320 LET D=D+1
 330 IF D>65 THEN GOTO 350
 340 RETURN 
 350 FOR N=1 TO 20
 360 SCROLL 
 370 NEXT N
 380 PRINT AT 2,0;"";
 390 FOR N=1 TO 20
 400 PRINT Q$
 410 NEXT N
 420 LET R$="% "+Z$(1)
 430 FOR N=0 TO 6
 440 PRINT AT 1,0+N;R$
 450 NEXT N
 460 LET R$="% %B%U%L%L%E%T%I%N% % %B%O%A%R%D% "
 470 FOR N=1 TO 15
 480 PRINT AT 1,25;R$
 490 LET R$="% "+R$
 500 NEXT N
 510 FOR N=1 TO 10
 520 PRINT AT USR 16514,0;Q$
 530 NEXT N
 540 POKE 16418,0
 550 PRINT AT 22,0;Q$
 560 PRINT AT 23,0;Q$
 570 PRINT AT 10,6;"\ .\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\. ";AT 11,6;"\ :";AT 11,24;"\: ";AT 12,6;"\ :";AT 12,24;"\: ";AT 13,6;"\ '\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\' "
 580 FOR N=1 TO 30
 590 PRINT AT 2,N;"\''";AT 4,N;"\..";AT 19,N;"\''";AT 21,N;"\.."
 600 NEXT N
 610 PRINT AT 3,1;"\ :";AT 3,30;"\: ";AT 20,1;"\ :";AT 20,30;"\: "
 620 PRINT AT 7,14;"%J%U%N%E";AT 16,14;"%1%9%8%3"
3000 FOR N=1 TO LEN A$-28
3010 PRINT AT 3,2;A$(N TO N+27)
3020 IF INKEY$<>"" THEN GOSUB 4000
3030 NEXT N
3040 FOR N=1 TO LEN B$-28
3050 PRINT AT 20,2;B$(N TO N+27)
3060 IF INKEY$<>"" THEN GOSUB 4000
3070 NEXT N
3080 GOTO 3000
4000 PAUSE 40000
4010 RETURN 
9998 SAVE "BULLETI%N"
9999 GOTO 0


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top



















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Bulletin
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Bulletin
			
		


	
	
	


							

				

  
Download
  





Date: June 1983
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


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







Related Products









Related Articles









Related Content









Image Gallery







Source Code



 
  10 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  20 FAST 
  30 LET X=PEEK 16404+256*PEEK 16405-794
  35 LET Q$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  40 DIM Z$(24,32)
  50 FOR N=1 TO 22
  60 LET Z$(N)=Q$
  65 IF N/3=INT (N/3) THEN LET Z$(N)="\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##"
  70 NEXT N
  80 SLOW 
 180 LET D=0
 190 LET A=1
 200 LET B=A+1
 205 GOSUB 300
 210 IF B=23 THEN LET B=1
 220 LET C=A-1
 230 IF C=0 THEN LET C=22
 240 PRINT AT USR 16514,0;Z$(C)
 250 LET A=C
 260 GOTO 200
 300 IF D>1 THEN LET Z$(1)="% % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% %P%R%E%S%E%N%T%S% % % % % "
 310 IF D>24 THEN LET Z$(1)="%T%H%E% %S%Y%N%C%H%R%O%-%S%E%T%T%E% %B%U%L%L%E%T%I%N% %B%O%A%R%D"
 320 LET D=D+1
 330 IF D>65 THEN GOTO 350
 340 RETURN 
 350 FOR N=1 TO 20
 360 SCROLL 
 370 NEXT N
 380 PRINT AT 2,0;"";
 390 FOR N=1 TO 20
 400 PRINT Q$
 410 NEXT N
 420 LET R$="% "+Z$(1)
 430 FOR N=0 TO 6
 440 PRINT AT 1,0+N;R$
 450 NEXT N
 460 LET R$="% %B%U%L%L%E%T%I%N% % %B%O%A%R%D% "
 470 FOR N=1 TO 15
 480 PRINT AT 1,25;R$
 490 LET R$="% "+R$
 500 NEXT N
 510 FOR N=1 TO 10
 520 PRINT AT USR 16514,0;Q$
 530 NEXT N
 540 POKE 16418,0
 550 PRINT AT 22,0;Q$
 560 PRINT AT 23,0;Q$
 570 PRINT AT 10,6;"\ .\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\. ";AT 11,6;"\ :";AT 11,24;"\: ";AT 12,6;"\ :";AT 12,24;"\: ";AT 13,6;"\ '\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\' "
 580 FOR N=1 TO 30
 590 PRINT AT 2,N;"\''";AT 4,N;"\..";AT 19,N;"\''";AT 21,N;"\.."
 600 NEXT N
 610 PRINT AT 3,1;"\ :";AT 3,30;"\: ";AT 20,1;"\ :";AT 20,30;"\: "
 620 PRINT AT 7,14;"%J%U%N%E";AT 16,14;"%1%9%8%3"
3000 FOR N=1 TO LEN A$-28
3010 PRINT AT 3,2;A$(N TO N+27)
3020 IF INKEY$<>"" THEN GOSUB 4000
3030 NEXT N
3040 FOR N=1 TO LEN B$-28
3050 PRINT AT 20,2;B$(N TO N+27)
3060 IF INKEY$<>"" THEN GOSUB 4000
3070 NEXT N
3080 GOTO 3000
4000 PAUSE 40000
4010 RETURN 
9998 SAVE "BULLETI%N"
9999 GOTO 0


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top



















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


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Bulletin
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Bulletin
			
		


	
	
	


							

				

  
Download
  





Date: June 1983
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


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







Related Products









Related Articles









Related Content









Image Gallery







Source Code



 
  10 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  20 FAST 
  30 LET X=PEEK 16404+256*PEEK 16405-794
  35 LET Q$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  40 DIM Z$(24,32)
  50 FOR N=1 TO 22
  60 LET Z$(N)=Q$
  65 IF N/3=INT (N/3) THEN LET Z$(N)="\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##"
  70 NEXT N
  80 SLOW 
 180 LET D=0
 190 LET A=1
 200 LET B=A+1
 205 GOSUB 300
 210 IF B=23 THEN LET B=1
 220 LET C=A-1
 230 IF C=0 THEN LET C=22
 240 PRINT AT USR 16514,0;Z$(C)
 250 LET A=C
 260 GOTO 200
 300 IF D>1 THEN LET Z$(1)="% % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% %P%R%E%S%E%N%T%S% % % % % "
 310 IF D>24 THEN LET Z$(1)="%T%H%E% %S%Y%N%C%H%R%O%-%S%E%T%T%E% %B%U%L%L%E%T%I%N% %B%O%A%R%D"
 320 LET D=D+1
 330 IF D>65 THEN GOTO 350
 340 RETURN 
 350 FOR N=1 TO 20
 360 SCROLL 
 370 NEXT N
 380 PRINT AT 2,0;"";
 390 FOR N=1 TO 20
 400 PRINT Q$
 410 NEXT N
 420 LET R$="% "+Z$(1)
 430 FOR N=0 TO 6
 440 PRINT AT 1,0+N;R$
 450 NEXT N
 460 LET R$="% %B%U%L%L%E%T%I%N% % %B%O%A%R%D% "
 470 FOR N=1 TO 15
 480 PRINT AT 1,25;R$
 490 LET R$="% "+R$
 500 NEXT N
 510 FOR N=1 TO 10
 520 PRINT AT USR 16514,0;Q$
 530 NEXT N
 540 POKE 16418,0
 550 PRINT AT 22,0;Q$
 560 PRINT AT 23,0;Q$
 570 PRINT AT 10,6;"\ .\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\. ";AT 11,6;"\ :";AT 11,24;"\: ";AT 12,6;"\ :";AT 12,24;"\: ";AT 13,6;"\ '\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\' "
 580 FOR N=1 TO 30
 590 PRINT AT 2,N;"\''";AT 4,N;"\..";AT 19,N;"\''";AT 21,N;"\.."
 600 NEXT N
 610 PRINT AT 3,1;"\ :";AT 3,30;"\: ";AT 20,1;"\ :";AT 20,30;"\: "
 620 PRINT AT 7,14;"%J%U%N%E";AT 16,14;"%1%9%8%3"
3000 FOR N=1 TO LEN A$-28
3010 PRINT AT 3,2;A$(N TO N+27)
3020 IF INKEY$<>"" THEN GOSUB 4000
3030 NEXT N
3040 FOR N=1 TO LEN B$-28
3050 PRINT AT 20,2;B$(N TO N+27)
3060 IF INKEY$<>"" THEN GOSUB 4000
3070 NEXT N
3080 GOTO 3000
4000 PAUSE 40000
4010 RETURN 
9998 SAVE "BULLETI%N"
9999 GOTO 0


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top



















			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Bulletin
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Bulletin
			
		


	
	
	


							

				

  
Download
  





Date: June 1983
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


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







Related Products









Related Articles









Related Content









Image Gallery







Source Code



 
  10 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  20 FAST 
  30 LET X=PEEK 16404+256*PEEK 16405-794
  35 LET Q$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  40 DIM Z$(24,32)
  50 FOR N=1 TO 22
  60 LET Z$(N)=Q$
  65 IF N/3=INT (N/3) THEN LET Z$(N)="\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##"
  70 NEXT N
  80 SLOW 
 180 LET D=0
 190 LET A=1
 200 LET B=A+1
 205 GOSUB 300
 210 IF B=23 THEN LET B=1
 220 LET C=A-1
 230 IF C=0 THEN LET C=22
 240 PRINT AT USR 16514,0;Z$(C)
 250 LET A=C
 260 GOTO 200
 300 IF D>1 THEN LET Z$(1)="% % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% %P%R%E%S%E%N%T%S% % % % % "
 310 IF D>24 THEN LET Z$(1)="%T%H%E% %S%Y%N%C%H%R%O%-%S%E%T%T%E% %B%U%L%L%E%T%I%N% %B%O%A%R%D"
 320 LET D=D+1
 330 IF D>65 THEN GOTO 350
 340 RETURN 
 350 FOR N=1 TO 20
 360 SCROLL 
 370 NEXT N
 380 PRINT AT 2,0;"";
 390 FOR N=1 TO 20
 400 PRINT Q$
 410 NEXT N
 420 LET R$="% "+Z$(1)
 430 FOR N=0 TO 6
 440 PRINT AT 1,0+N;R$
 450 NEXT N
 460 LET R$="% %B%U%L%L%E%T%I%N% % %B%O%A%R%D% "
 470 FOR N=1 TO 15
 480 PRINT AT 1,25;R$
 490 LET R$="% "+R$
 500 NEXT N
 510 FOR N=1 TO 10
 520 PRINT AT USR 16514,0;Q$
 530 NEXT N
 540 POKE 16418,0
 550 PRINT AT 22,0;Q$
 560 PRINT AT 23,0;Q$
 570 PRINT AT 10,6;"\ .\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\. ";AT 11,6;"\ :";AT 11,24;"\: ";AT 12,6;"\ :";AT 12,24;"\: ";AT 13,6;"\ '\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\' "
 580 FOR N=1 TO 30
 590 PRINT AT 2,N;"\''";AT 4,N;"\..";AT 19,N;"\''";AT 21,N;"\.."
 600 NEXT N
 610 PRINT AT 3,1;"\ :";AT 3,30;"\: ";AT 20,1;"\ :";AT 20,30;"\: "
 620 PRINT AT 7,14;"%J%U%N%E";AT 16,14;"%1%9%8%3"
3000 FOR N=1 TO LEN A$-28
3010 PRINT AT 3,2;A$(N TO N+27)
3020 IF INKEY$<>"" THEN GOSUB 4000
3030 NEXT N
3040 FOR N=1 TO LEN B$-28
3050 PRINT AT 20,2;B$(N TO N+27)
3060 IF INKEY$<>"" THEN GOSUB 4000
3070 NEXT N
3080 GOTO 3000
4000 PAUSE 40000
4010 RETURN 
9998 SAVE "BULLETI%N"
9999 GOTO 0


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top



















			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			

				
Sign up
			Sign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Bulletin
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Bulletin
			
		


	
	
	


							

				

  
Download
  





Date: June 1983
Type: Program
Platform(s): TS 1000


					
				
		
		
							

				

  
      
  










Content



  







Appears On


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







Related Products









Related Articles









Related Content









Image Gallery







Source Code



 
  10 REM \01\D6\02\2A\0C\40\09\54\5D\01\B5\02\2A\0C\40\09\ED\B8\C9
  20 FAST 
  30 LET X=PEEK 16404+256*PEEK 16405-794
  35 LET Q$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  40 DIM Z$(24,32)
  50 FOR N=1 TO 22
  60 LET Z$(N)=Q$
  65 IF N/3=INT (N/3) THEN LET Z$(N)="\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##"
  70 NEXT N
  80 SLOW 
 180 LET D=0
 190 LET A=1
 200 LET B=A+1
 205 GOSUB 300
 210 IF B=23 THEN LET B=1
 220 LET C=A-1
 230 IF C=0 THEN LET C=22
 240 PRINT AT USR 16514,0;Z$(C)
 250 LET A=C
 260 GOTO 200
 300 IF D>1 THEN LET Z$(1)="% % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% %P%R%E%S%E%N%T%S% % % % % "
 310 IF D>24 THEN LET Z$(1)="%T%H%E% %S%Y%N%C%H%R%O%-%S%E%T%T%E% %B%U%L%L%E%T%I%N% %B%O%A%R%D"
 320 LET D=D+1
 330 IF D>65 THEN GOTO 350
 340 RETURN 
 350 FOR N=1 TO 20
 360 SCROLL 
 370 NEXT N
 380 PRINT AT 2,0;"";
 390 FOR N=1 TO 20
 400 PRINT Q$
 410 NEXT N
 420 LET R$="% "+Z$(1)
 430 FOR N=0 TO 6
 440 PRINT AT 1,0+N;R$
 450 NEXT N
 460 LET R$="% %B%U%L%L%E%T%I%N% % %B%O%A%R%D% "
 470 FOR N=1 TO 15
 480 PRINT AT 1,25;R$
 490 LET R$="% "+R$
 500 NEXT N
 510 FOR N=1 TO 10
 520 PRINT AT USR 16514,0;Q$
 530 NEXT N
 540 POKE 16418,0
 550 PRINT AT 22,0;Q$
 560 PRINT AT 23,0;Q$
 570 PRINT AT 10,6;"\ .\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\. ";AT 11,6;"\ :";AT 11,24;"\: ";AT 12,6;"\ :";AT 12,24;"\: ";AT 13,6;"\ '\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\' "
 580 FOR N=1 TO 30
 590 PRINT AT 2,N;"\''";AT 4,N;"\..";AT 19,N;"\''";AT 21,N;"\.."
 600 NEXT N
 610 PRINT AT 3,1;"\ :";AT 3,30;"\: ";AT 20,1;"\ :";AT 20,30;"\: "
 620 PRINT AT 7,14;"%J%U%N%E";AT 16,14;"%1%9%8%3"
3000 FOR N=1 TO LEN A$-28
3010 PRINT AT 3,2;A$(N TO N+27)
3020 IF INKEY$<>"" THEN GOSUB 4000
3030 NEXT N
3040 FOR N=1 TO LEN B$-28
3050 PRINT AT 20,2;B$(N TO N+27)
3060 IF INKEY$<>"" THEN GOSUB 4000
3070 NEXT N
3080 GOTO 3000
4000 PAUSE 40000
4010 RETURN 
9998 SAVE "BULLETI%N"
9999 GOTO 0


					
				
			



						

				


Tags


Archived Media, Downloadable, TS 1000




People


No people associated with this content.


					
				


			

			
		
	



	
 
	


	








		Scroll to Top



















			
				C\ED\B8\C9
  20 FAST 
  30 LET X=PEEK 16404+256*PEEK 16405-794
  35 LET Q$="% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  40 DIM Z$(24,32)
  50 FOR N=1 TO 22
  60 LET Z$(N)=Q$
  65 IF N/3=INT (N/3) THEN LET Z$(N)="\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##\@@\##"
  70 NEXT N
  80 SLOW 
 180 LET D=0
 190 LET A=1
 200 LET B=A+1
 205 GOSUB 300
 210 IF B=23 THEN LET B=1
 220 LET C=A-1
 230 IF C=0 THEN LET C=22
 240 PRINT AT USR 16514,0;Z$(C)
 250 LET A=C
 260 GOTO 200
 300 IF D>1 THEN LET Z$(1)="% % % % % %S%Y%N%C%H%R%O%-%S%E%T%T%E% %P%R%E%S%E%N%T%S% % % % % "
 310 IF D>24 THEN LET Z$(1)="%T%H%E% %S%Y%N%C%H%R%O%-%S%E%T%T%E% %B%U%L%L%E%T%I%N% %B%O%A%R%D"
 320 LET D=D+1
 330 IF D>65 THEN GOTO 350
 340 RETURN 
 350 FOR N=1 TO 20
 360 SCROLL 
 370 NEXT N
 380 PRINT AT 2,0;"";
 390 FOR N=1 TO 20
 400 PRINT Q$
 410 NEXT N
 420 LET R$="% "+Z$(1)
 430 FOR N=0 TO 6
 440 PRINT AT 1,0+N;R$
 450 NEXT N
 460 LET R$="% %B%U%L%L%E%T%I%N% % %B%O%A%R%D% "
 470 FOR N=1 TO 15
 480 PRINT AT 1,25;R$
 490 LET R$="% "+R$
 500 NEXT N
 510 FOR N=1 TO 10
 520 PRINT AT USR 16514,0;Q$
 530 NEXT N
 540 POKE 16418,0
 550 PRINT AT 22,0;Q$
 560 PRINT AT 23,0;Q$
 570 PRINT AT 10,6;"\ .\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\. ";AT 11,6;"\ :";AT 11,24;"\: ";AT 12,6;"\ :";AT 12,24;"\: ";AT 13,6;"\ '\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\' "
 580 FOR N=1 TO 30
 590 PRINT AT 2,N;"\''";AT 4,N;"\..";AT 19,N;"\''";AT 21,N;"\.."
 600 NEXT N
 610 PRINT AT 3,1;"\ :";AT 3,30;"\: ";AT 20,1;"\ :";AT 20,30;"\: "
 620 PRINT AT 7,14;"%J%U%N%E";AT 16,14;"%1%9%8%3"
\n3000 FOR N=1 TO LEN A$-28
\n3010 PRINT AT 3,2;A$(N TO N+27)
\n3020 IF INKEY$<>"" THEN GOSUB 4000
\n3030 NEXT N
\n3040 FOR N=1 TO LEN B$-28
\n3050 PRINT AT 20,2;B$(N TO N+27)
\n3060 IF INKEY$<>"" THEN GOSUB 4000
\n3070 NEXT N
\n3080 GOTO 3000
\n4000 PAUSE 40000
\n4010 RETURN 
\n9998 SAVE "BULLETI%N"
\n9999 GOTO 0