Demonstrates techniques for a quick display background.
Appears on
Capital Area Timex Sinclair User Groupโs Library Tape.
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