Space Background

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

Space Background

Source Code

   1 REM 



Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
A

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
C\E5

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

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-57149 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"\B5

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
\ED\B0\EB\FB\C9

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
A

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
\ED\E5

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

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-57149 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"\B5

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
\ED\B8\EB

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
B\FB\C9

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
A

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
C\C5EFE\FA\C1\F1\C9

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
A

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
\ED\C5E

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

People

No people associated with this content.

Scroll to Top
BFE\FA

Space Background

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

Space Background

Source Code

   1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\80\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\80\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\80\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\80\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
   5 GOSUB 100
  20 LET D$=INKEY$
  25 IF D$="0" THEN LET Z=USR 16588
  30 IF D$="Q" THEN LET Z=USR 16538
  35 IF D$="Z" THEN LET Z=USR 16514
  40 IF D$="8" THEN LET Z=USR 16567
  50 GOSUB 200
  60 GOTO 20
 100 FOR A=0 TO 21
 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 102 PRINT AT A,INT (RND*32);"%."
 103 NEXT A
 104 POKE 16418,0
 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% "
 106 POKE 16418,2
 107 RETURN 
 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%."
 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%."
 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%."
 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%."
 204 RETURN 
 300 SAVE "1009%8"
 301 RUN 

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-57149 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"D itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57149 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"E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57149 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"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57149 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 5 GOSUB 100 20 LET D$=INKEY$ 25 IF D$="0" THEN LET Z=USR 16588 30 IF D$="Q" THEN LET Z=USR 16538 35 IF D$="Z" THEN LET Z=USR 16514 40 IF D$="8" THEN LET Z=USR 16567 50 GOSUB 200 60 GOTO 20 100 FOR A=0 TO 21 101 PRINT AT A,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % " 102 PRINT AT A,INT (RND*32);"%." 103 NEXT A 104 POKE 16418,0 105 PRINT AT 22,0;"\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..% %F%U%E%L%=9872% %C%O%O%R%D%S%:34,19% %E%N%E%M%Y%=5% " 106 POKE 16418,2 107 RETURN 200 IF D$="0" THEN PRINT AT INT (RND*22),31;"%." 201 IF D$="Q" THEN PRINT AT 0,INT (RND*32);"%." 202 IF D$="Z" THEN PRINT AT 21,INT (RND*32);"%." 203 IF D$="8" THEN PRINT AT INT (RND*22),0;"%." 204 RETURN 300 SAVE "1009%8" 301 RUN

People

No people associated with this content.

Scroll to Top