1 D$ =  CHR$ (4)
 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
 90  FOR P = 1 TO CNTM
 100 CC = 32
 110  FOR K = 1 TO  ASC (DCL$(P)) - CS
 120 CC = CC + 1
 130  IF CC = 127 THEN CC = 32
 140  NEXT K
 150 ECL$(P) =  CHR$ (CC)
 155 CS = CS - 1
 160  NEXT P
 170  VTAB 10
 180  FOR I = 1 TO CNTM
 190  PRINT ECL$(I);
 200  NEXT I
 210  PRINT ""
 220  INPUT "SAVE THIS MESSAGE TO DISK?(Y/N)>";A$
 230  IF A$ = "N" THEN  END 
 240  HOME 
 250  INPUT "PATH>";P$
 260  INPUT "FILE NAME>";N$
 270  PRINT D$;"OPEN";P$;N$
 280  PRINT D$;"WRITE";P$;N$
 285  PRINT CNTM
 290  FOR I = 1 TO CNTM
 300  PRINT ECL$(I)
 310  NEXT I
 320  PRINT D$;"CLOSE";P$;N$
 330  END