19) SIMPLE SIMON (443 B)
To use: LOAD 7, RUN 400

410 REM
420 REM SIMPLE SIMON
430 REM
440 DIM A(30)
450 LET J=-1
460 RANDOMISE
470 DIM P(7)
480 FOR I=0 TO 7
490 LET P(I)=2**(7-I)
500 NEXT I
510 LET X=RND(26)+37
520 CLS
530 PRINT "NEXT CHAR IS"
540 FOR L=0 TO 7
550 LET V=PEEK(3584+L+8*X)
560 FOR K=0 TO 7
570 LET G=(V AND P(K))=0
580 PRINT CHR$(-128*G);
590 NEXT K
600 PRINT
610 NEXT L
620 IF X=15 THEN GOTO 770
630 LET J=J+1
640 IF J=31 THEN GOTO 820
650 LET A(J)=X
660 PRINT "PRINT ENTIRE SEQUENCE"
670 INPUT A$
680 PRINT A$
690 FOR I=0 TO J
700 LET X=CODE(A$)
710 IF NOT A(I)=X THEN GOTO 750
720 LET A$=TL$(A$)
730 NEXT I
740 GOTO 510
750 LET X=15
760 GOTO 540
770 PRINT "SORRY IT WAS:"
780 FOR I=0 TO J
790 PRINT CHR$(A(I));
800 NEXT I
810 STOP
820 PRINT "I GIVE UP"
830 STOP