INPUT "Name: ", N$
INPUT "Date: ", D$
INPUT "Subject: ", S$
INPUT "Assignment: ", A$
A$ = A$ + " (encrypted)"
LPRINT STRING$(80-LEN(N$)," ") + N$;
LPRINT STRING$(80-LEN(D$)," ") + D$;
LPRINT STRING$(80-LEN(S$)," ") + S$;
LPRINT STRING$(40-LEN(A$)," ") + A$
LPRINT ""
RANDOMIZE TIMER
FOR Y = 1 TO 20
FOR X = 1 TO 80
LPRINT CHR$(RND * 255);
NEXT X
NEXT Y
They'll never know the difference.
