'Copyright 1997 The American Cryptogram Association (ACA)
'One Pidgeon Drive, Wilbraham MA 01095-2604
'All rights reserved.

'ND97 changes to SO97 Program

'Add or Replace these lines:

405 CT$="AIWFOCASLIASALSLNGTPOILEHKMESETAWOCANOLRONVLGIUEDTEF"
406 CT$=CT$+"RASORLHAHNNEINUANTDGRULAHGIANETGDETANHSDCEUOISET"
407 CT$=CT$+"USICSSCETRANASDLNTDYEXOEDEPEAFRNRSRGTOUEAMGX"

422 PI=6: PE=78
425 IF GN<13 THEN CI=2

470 KEY OFF 'Disable F-key trapping
475 FOR I=1 TO 10: KEY I,"": NEXT I

540   KY =ASC(KY$)-58
541   IF KY<1  THEN KY=0: GOTO 550
542   IF KY<13 THEN KY=KY+13:GOTO 550
543   IF KY<26 THEN KY=KY-12:GOTO 550
545   KY=0

620   ON KY GOSUB 1000,1100,1200,999,1400,999,1600,999,1800,1900,2000,2100,2200,3100,999,999,999,999,999,999,999,999,999,999,999


700 '===== Normal char key =====
704   'Cvt char if not upper case
705   K1 = ASC(KY$)-ASC("a")
710   K1$= CHR$(K1+ASC("A"))
715   IF K1<0 THEN K1$=KY$
720   P1=INSTR(1,CT$,K1$) 'Typo?
725   IF P1=0 THEN 760    'Yes->quit
729   ' Seek char, wrap to beginning
730   P2=FNGT(FNCG(C)) 'Posn in CT$
735   IF P2=LEN(CT$) THEN P2=P1-1
740   P2=INSTR(P2+1,CT$,K1$)
745   IF P2=0 THEN P2=P1
750   C=FNGC(FNTG(P2)) 'Char column
755   GOSUB 800 'Move cursor to col
760   RETURN '====from normal char

800 '===== Move cursor =====
810   PG= INT((C-1)/PE)   'Group #
820   PC= ((C-1)MOD PE)+1 'PhysCol
830   PR= R+PG*PI         'PhysRow
840   LOCATE PR,PC,1,1,26
850   RETURN '====from move cursor

1000 '===== Home Key =====
1010   C=CB: GOSUB 800
1020   RETURN '==== from Home Key

1800 '===== End Key =====
1810   C=CE: GOSUB 800
1820   RETURN '==== from End Key

3100 '===== F1: Clear Disp =====
3110    C2=C: R2=R: GOSUB 400
3120    C=C2: R=R2: GOSUB 800
3130    RETURN '==== from F1