Background

Gallery

Source Code

  800 BORDER 7: PAPER 7: CLS : DIM X$(1,11): RANDOMIZE 
  810 LET K$=" CREATE    ": GO SUB 960: PAUSE 50
  820 LET K$="YOUR OWN   ": GO SUB 960: PAUSE 50
  840 LET K$="BACKGROUND ": GO SUB 960: PAUSE 50
  860 LET K$="FAST!!!    ": GO SUB 960: PAUSE 50
  870 LET A$="▀": GO SUB 930: PAUSE 50
  880 LET A$="▐": GO SUB 930: PAUSE 50
  885 LET A$="▗": GO SUB 930: PAUSE 50
  890 LET A$="▚": GO SUB 930: PAUSE 50
  895 LET A$="▜": GO SUB 930: PAUSE 50
  900 PRINT AT 10,8;" PRESS ANY KEY "
  905 PAUSE 0: LET A$=INKEY$
  910 GO SUB 930: PRINT AT 10,4;" KEY ANY WORD AND ENTER "
  915 INPUT X$(1): LET K$=X$(1)
  920 GO SUB 960: GO TO 900
  930 LET K$=A$
  940 FOR N=1 TO 10
  950 LET K$=K$+A$: NEXT N
  960 FOR N=1 TO 6
  970 LET K$=K$+K$: NEXT N
  980 PRINT INVERSE INT (RND*2); INK INT (RND*6)+1;AT 0,0;K$
  990 RETURN 
 9998 SAVE "BACKGROUND" LINE 1