Demonstrates techniques for a quick display background.
Content
Image 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