1  HOME 
 5  DIM CL$(26): DIM DLV(90)
 10  FOR I = 1 TO 26
 30  PRINT "REAL LETTER="; CHR$ (I + 64);
 40  INPUT " CODED LETTER =>";CL$(I)
 50  NEXT 
 60  FOR I = 65 TO 90
 70 DLV(I) =  ASC (CL$(I - 64))
 80  NEXT I
 100  INPUT "WORD =>";W$
 110  IF R = 0 THEN  DIM CLOWV( LEN (W$))
 120  FOR I = 1 TO  LEN (W$)
 130 CLOWV(I) =  ASC ( MID$ (W$,I,1))
 140  NEXT I
 150  FOR U = 1 TO  LEN (W$)
 160 CLOWV(U) = DLV(CLOWV(U))
 170  NEXT U
 180  HOME 
 190  FOR Q = 1 TO  LEN (W$)
 200  PRINT  CHR$ (CLOWV(Q));
 210  NEXT Q
 220  PRINT 
 230  INPUT "ANOTHER WITH THIS LIST?(Y/N) =>";A$
 240  IF A$ = "N" THEN  GOTO 260
 250 R = R + 1: GOTO 100
 260  END