Download computer supplement #21

Spring 1996
390
400
405
410
412
416
418
420
430
’ put letters in alphabets grid
IF TYP <> 2 THEN
A = INSTR(AZ$, CTL$): IF A = 0 THEN 500
MID$(RL$(CL), A, 1) = LCASE$(PTL$)
ELSE
A = INSTR(AZ$, PTL$): IF A = 0 THEN 500
MID$(RL$(CL), A, 1) = LCASE$(CTL$)
END IF
LOCATE 4 + CL, 49: PRINT RL$(CL)
440
450
460
470
480
490
500
’ put them into PT block
FOR L = 1 TO LEN(CC$(CL)): IF L > 19 THEN L = 99: GOTO 490
IF MID$(CC$(CL), L, 1) = CTL$ THEN
LOCATE 2 + L, 21 + CL: PRINT LCASE$(PTL$)
END IF
NEXT
RETURN
590
600
610
620
630
640
650
660
670
680
690
700
710
720
725
730
740
750
760
770
780
790
800
’
cross ref. alphabets
FOR RM = 1 TO P: LOCATE 4 + RM, 45: PRINT ">"
IF RM > 1 THEN LOCATE 3 + RM, 45: PRINT " "
FOR RS = 1 TO P: IF RS = RM THEN GOTO 760
CL = RS: FOR II = 1 TO 26
A$=MID$(RL$(RM),II,1):IF A$="." OR INSTR(RL$(RS),A$)=0 THEN 750
ARM = II: ARS = INSTR(RL$(RS), A$): DIF = II - ARS
FOR JJ = 1 TO 26: S$ = MID$(RL$(RM), JJ, 1)
IF S$ = "." OR INSTR(RL$(RS), S$) > 0 THEN 740
SS = JJ - DIF
IF SS < 1 THEN SS = SS + 26: GOTO 690
IF SS > 26 THEN SS = SS - 26: GOTO 700
MID$(RL$(RS), SS, 1) = S$
PTL$ = UCASE$(S$): CTL$ = CHR$(64 + SS)
IF TYP = 2 THEN SWAP PTL$, CTL$
GOSUB 400
NEXT
NEXT
NEXT
IF CK = 1 THEN CK = 0: LOCATE 22, 9: PRINT SPACE$(30): GOTO 790
NEXT
LOCATE 4 + P, 45: PRINT " ": LOCATE 16, 45: PRINT "
"
RETURN
890 ’ start with notes on programme
900 PRINT : PRINT TAB(10); HD$: PRINT
910 PRINT : PRINT "
If input data is from a file, the file name
extension must be .CT$"
920 PRINT "
(It is not necessary to enter the extension when giving
file name.)"
930 PRINT : PRINT "
Period may be from 4 to 9."
940 PRINT : PRINT "
Examination of both PT columns and alphabet grid
should indicate more"
950 PRINT "
PT letters. These are added by entering the PT col. number
or the grid"
5