home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / MBP / KEYYLEDK.TXT < prev    next >
Text File  |  2006-10-19  |  472b  |  20 lines
  1.  
  2. 80 PRINT "ALPHA LOCK DOWN"
  3. 100 REM CALL LOAD(A,16 AND 256)
  4. 110 CALL INIT
  5. 120 A=-31232
  6. 130 B=-31040
  7. 140 DIM K(30),L(30)
  8. 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
  9. 160 FOR I=1 TO 12
  10. 170 READ K(I),L(I)
  11. 180 NEXT I
  12. 190 CALL KEY(0,K1,S)
  13. 200 IF S=0 THEN 190
  14. 210 FOR I=1 TO 6
  15. 220 IF K(I)=K1 THEN CALL LOAD(A,2^L(I)):: ! PRINT K1,K(I),L(I)
  16. 230 IF K(I+6)=K1 THEN CALL LOAD(B,2^L(I))
  17. 240 NEXT I
  18. 250 GOTO 190
  19. 260 REM SAVE "DSK2.KEYLED1"
  20.