0 D$ =  CHR$ (4)
 1  INPUT "OPEN A CODED MESSAGE FROM DISK?(Y/N)>";A$
 2  IF A$ = "Y" THEN  GOTO 300
 3  HOME 
 5  INPUT "CODE SEQUENCE>";CS
 10  INPUT MESS$
 20 CNTM =  LEN (MESS$)
 30  DIM DCL$(CNTM)
 40  DIM ECL$(CNTM)
 50  FOR I = 1 TO CNTM
 60 DCL$(I) =  MID$ (MESS$,I,1)
 70  NEXT I
 80  FOR I = 1 TO CNTM
 85 X =  ASC (DCL$(I)) - 32 + CS
 87  IF X < 32 THEN X = 127 - (32 - X)
 90 ECL$(I) =  CHR$ (X)
 95 CS = CS - 1
 100  NEXT I
 110  VTAB 10
 120  FOR T = 1 TO CNTM
 130  PRINT ECL$(T);
 140  NEXT T
 150  END 
 300  HOME 
 305  INPUT "CODE SEQUENCE>";CS
 310  INPUT "PATH>";P$
 320  INPUT "FILE NAME>";N$
 330  PRINT D$;"OPEN";P$;N$
 333  PRINT D$;"READ";P$;N$
 340  INPUT CNTM
 342  DIM ECL$(CNTM)
 344  DIM DCL$(CNTM)
 350  FOR I = 1 TO CNTM
 360  INPUT DCL$(I)
 370  NEXT I
 380  PRINT D$;"CLOSE";P$;N$
 390  GOTO 80
 400  GOTO 80