90 CALL CLEAR 100 PRINT "ALPHA LOCK DOWN";:;: 110 PRINT "PRESS ASDFGH TYUIOP" 120 CALL INIT 130 A=-31232 140 B=-31040 150 DIM K(30),L(30) 160 DATA 65,4,83,5,68,3,70,6,71,2,72,7,84,4,89,5,85,3,73,6,79,2,80,7 170 FOR I=1 TO 12 180 READ K(I),L(I) 190 NEXT I 200 CALL KEY(0,K1,S) 210 IF S=0 THEN 200 220 FOR I=1 TO 6 230 IF K(I)=K1 THEN Z=Z XOR 2^L(I):: ! CALL LOAD(A,2^L(I)):: ! PRINT K1,K(I),L(I ) 240 IF K(I+6)=K1 THEN Z2=Z2 XOR 2^L(I):: ! CALL LOAD(B,2^L(I)) 250 NEXT I 260 CALL LOAD(A,Z):: CALL LOAD(B,Z2) 261 DISPLAY AT(5,5):Z,Z2 270 GOTO 200 280 REM SAVE "DSK2.KEYLEDX1"