REM letter thang
CLS
SCREEN 9
INPUT "OUTPUT FILE NAME"; FILE$
INPUT "how many words"; WORDS

FILE$ = FILE$ + ".BAS"
OPEN FILE$ FOR OUTPUT AS #1
PRINT #1, "CLS"
PRINT #1, "SCREEN 9"
PRINT #1, "C = INT(RND * 15) + 1"
PRINT #1, "RANDOMIZE TIMER"
PRINT #1, "FOR I = 1 TO", WORDS
PRINT #1, "C = INT(RND * 15) + 1"
PRINT #1, "READ WORD$"
PRINT #1, "WORD$ = WORD$ +";
WRITE #1, " "
PRINT #1, "COLOR C"
PRINT #1, "PRINT WORD$; "
PRINT #1, "FOR T = 1 TO 5000:NEXT T"
PRINT #1, "NEXT I"

CLOSE #1
FOR I = 1 TO WORDS
I$ = ""

INPUT ; word$
I$ = I$ + word$
OPEN FILE$ FOR APPEND AS #1
PRINT #1, "DATA";
WRITE #1, I$


CLOSE #1

NEXT I