Content
Source Code
5 REM SECRET MESSAGE 1
6 PRINT "SECRET MESSAGE CODES",,,
10 RAND
20 LET A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
25 DIM A(26)
30 FOR N=1 TO 26
40 LET C=INT (1000*RND)
42 FOR X=1 TO 26
43 IF C=A(X) THEN GOTO 40
44 NEXT X
45 LET A(N)=C
50 PRINT A$(N);" ";C,
60 NEXT N
65 STOP
70 SAVE "1003%6"
80 RUN