home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / MBP / KEYLEDL1.TXT < prev    next >
Text File  |  2006-10-19  |  599b  |  24 lines
  1.  
  2. 90 CALL CLEAR
  3. 100 PRINT "ALPHA LOCK DOWN";:;:
  4. 110 PRINT "PRESS ASDFGH TYUIOP"
  5. 120 CALL INIT
  6. 130 A=-31232
  7. 140 B=-31040
  8. 150 DIM K(30),L(30)
  9. 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
  10. 170 FOR I=1 TO 12
  11. 180 READ K(I),L(I)
  12. 190 NEXT I
  13. 200 CALL KEY(0,K1,S)
  14. 210 IF S=0 THEN 200
  15. 220 FOR I=1 TO 6
  16. 230 IF K(I)=K1 THEN Z=Z XOR 2^L(I):: ! CALL LOAD(A,2^L(I)):: ! PRINT K1,K(I),L(I
  17. )
  18. 240 IF K(I+6)=K1 THEN Z2=Z2 XOR 2^L(I):: ! CALL LOAD(B,2^L(I))
  19. 250 NEXT I
  20. 260 CALL LOAD(A,Z):: CALL LOAD(B,Z2)
  21. 261 DISPLAY AT(5,5):Z,Z2
  22. 270 GOTO 200
  23. 280 REM SAVE "DSK2.KEYLEDX1"
  24.