Secret Message

Gallery

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