0 CLR
10 C$=CHR$(147):R$=CHR$(29):U$=CHR$(145):DIML$(145)
20 PRINTC$:FORQ=32TO64:L$(Q)=CHR$(Q):NEXT:L$(91)=CHR$(91):L$(145)=CHR$(145)
30 PRINT:PRINT"CRYPTOGRAM LINE 1:":PRINT:INPUTW$:LW=LEN(W$):IFLW=0THENW$=U$
40 PRINT:PRINT"CRYPTOGRAM LINE 2:":PRINT:INPUTX$:LX=LEN(X$):IFLX=0THENX$=U$
50 PRINT:PRINT"CRYPTOGRAM LINE 3:":PRINT:INPUTY$:LY=LEN(Y$):IFLY=0THENY$=U$
60 PRINT:PRINT"CRYPTOGRAM LINE 4:":PRINT:INPUTZ$:LZ=LEN(Z$):IFLZ=0THENZ$=U$
70 PRINTC$:FORQ=65TO90:L$(Q)="*":NEXT:IFW$=U$THEN20
80 PRINT:PRINT:PRINT:K$=W$:P=LW:GOSUB250
90 K$=X$:P=LX:GOSUB250
100 K$=Y$:P=LY:GOSUB250
110 K$=Z$:P=LZ:GOSUB250
120 GOSUB270:GOTO220
130 PRINT:A$="":PRINT" CHAR";:INPUTA$:IFA$=""THEN PRINTC$:GOTO160
140 B$="":PRINT"  SUB";:INPUT B$:IFB$=""THENA$="":PRINTC$:GOTO160
150 N=ASC(A$):L$(N)=B$
160 PRINTC$:PRINT:PRINT:PRINT
170 K$=W$:PRINTR$+K$:P=LW:GOSUB260
180 K$=X$:PRINTR$+K$:P=LX:GOSUB260
190 K$=Y$:PRINTR$+K$:P=LY:GOSUB260
200 K$=Z$:PRINTR$+K$:P=LZ:GOSUB260
210 GOSUB270
220 IFS$="R"THEN GOSUB280:PRINT:GOTO70
230 IFS$="Q"THEN GOSUB280:PRINTC$:END
240 GOTO130
250 PRINTR$+K$
260 PRINTR$;:FORN=1TOP:A=ASC(MID$(K$,N,1)):PRINTL$(A);:NEXT:PRINT:PRINT:RETURN
270 POKE198,0:PRINT:PRINT:PRINT" CHAR,RESTART,QUIT (C/R/Q)";:INPUT S$:RETURN
280 POKE198,0:PRINT:PRINT" ARE YOU SURE (Y/N)";:INPUT S$
290 IFS$<>"Y"THENPRINTC$:GOTO160
300 RETURN