80 PRINT "ALPHA LOCK DOWN"
100 REM CALL LOAD(A,16 AND 256)
110 CALL INIT
120 A=-31232
130 B=-31040
140 DIM K(30),L(30)
150 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
160 FOR I=1 TO 12
170 READ K(I),L(I)
180 NEXT I
190 CALL KEY(0,K1,S)
200 IF S=0 THEN 190
210 FOR I=1 TO 6
220 IF K(I)=K1 THEN CALL LOAD(A,2^L(I)):: ! PRINT K1,K(I),L(I)
230 IF K(I+6)=K1 THEN CALL LOAD(B,2^L(I))
240 NEXT I
250 GOTO 190
260 REM SAVE "DSK2.KEYLED1"