Fire Works White on Black

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

Appears on

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

Gallery

Fire Works White on Black

Source Code

   1 LET A$="\.'\:.%"%."
   2 POKE 16418,0
   4 FOR X=0 TO 22
   5 PRINT AT X,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
   6 NEXT X
   7 FOR C=1 TO 5
   8 LET A=INT (RND*15)+3
   9 LET B=INT (RND*25)+3
  14 FOR Y=1 TO 4
  15 PRINT AT A,B;A$(Y)
  20 FOR Z=1 TO 3
  21 PRINT AT A,B-Z;A$(Y);AT A,B+Z;A$(Y);AT A-Z,B;A$(Y);AT A+Z,B;A$(Y);AT A-Z,B-Z;A$(Y);AT A-Z,B+Z;A$(Y);AT A+Z,B-Z;A$(Y);AT A+Z,B+Z;A$(Y)
  22 NEXT Z
  26 NEXT Y
  27 NEXT C
  28 GOTO 40
  30 SAVE "1009%5"
  31 GOTO 1
  40 FOR Y=1 TO 4
  41 PRINT AT 10,15;A$(Y)
  42 FOR Z=1 TO 8
  43 PRINT AT 10,15-Z;A$(Y);AT 10,15+Z;A$(Y);AT 10-Z,15;A$(Y);AT 10+Z,15;A$(Y);AT 10-Z,15-Z;A$(Y);AT 10-Z,15+Z;A$(Y);AT 10+Z,15-Z;A$(Y);AT 10+Z,15+Z;A$(Y)
  44 NEXT Z
  45 NEXT Y
  46 GOTO 2

People

No people associated with this content.

Scroll to Top