home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol074 / keypad.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1023 b   |  32 lines
  1. 100    ' Simple keypad programmer for AD31 teminal
  2. 110    ' Quickie effort in MBASIC
  3. 120    ' Bill Bolton, Software Tools, Australia
  4. 130    '
  5. 140    ' See KEY.C for a much more elegent version in "C"
  6. 150    '
  7. 200    ESC$ = CHR$(27)
  8. 210    PRINT "This program will program the numeric keypad on and ADM-31
  9. 220    PRINT "terminal with revision 4.xx software.
  10. 230    PRINT
  11. 240    PRINT "If you dont want to program a key just press 'RETURN'"
  12. 250    PRINT
  13. 260    PRINT ESC$;"!N"
  14. 270    FOR I = 0 TO 9
  15. 280        PRINT "String for numeric pad key '";I;"' : ";
  16. 290        INPUT ST$(I)
  17. 300        IF ST$(I) = "" THEN
  18.             ST$(I) = CHR$(48 + I)
  19. 310    NEXT I
  20. 320    FOR I = 0 TO 9
  21. 330        LENGTH = LEN(ST$(I))
  22. 340        SEND$ = STRING$(LENGTH +1,32)
  23. 350        MID$(SEND$,1,1) = "H"
  24. 360        MID$(SEND$,2,LENGTH) = ST$(I)
  25. 370        PRINT SEND$;ESC$;"!";CHR$(48 + I)
  26. 380        PRINT ESC$;"*"
  27. 390    NEXT I
  28. 400    INPUT "Do you want to enable the programmed functions (Y/N 'Return' = N) ";A$
  29. 410    IF A$ = "N" OR A$ = "n" GOTO 430
  30. 420    PRINT ESC$;"!Y";"Done."
  31. 430    PRINT "Finished programming numeric keys."
  32.