home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol12n01.zip / SETMAC.ZIP / SETMACRO.BAS < prev    next >
BASIC Source File  |  1992-03-10  |  806b  |  22 lines
  1. 5 INPUT "TYPE IN COMMAND"; D$
  2. 7 PRINT "TYPE IN SHORT-CUT KEY"
  3. 10 A$ = INKEY$: IF A$ = "" THEN 10
  4. 20 B$ = MID$(A$, 1, 1)
  5. 30 C$ = MID$(A$, 2, 1)
  6. 40 FOR I = 0 TO 255
  7. 50 IF B$ = CHR$(I) THEN B$ = STR$(I)
  8. 60 NEXT
  9. 70 FOR I = 0 TO 255
  10. 80 IF C$ = CHR$(I) THEN C$ = STR$(I)
  11. 90 NEXT
  12. 100 B$ = MID$(B$, 2)
  13. 110 C$ = MID$(C$, 2)
  14. 120 OPEN "O", #1, "set_mcro.bat"
  15. 130 IF C$ = "" THEN IF D$ <> "" THEN PRINT #1, "PROMPT $e[" + B$ + ";" + CHR$(34) + D$ + CHR$(34) + ";13p"
  16. 140 IF C$ <> "" THEN IF D$ <> "" THEN PRINT #1, "PROMPT $e[" + B$ + ";" + C$ + ";" + CHR$(34) + D$ + CHR$(34) + ";13p"
  17. 150 IF C$ = "" THEN IF D$ = "" THEN PRINT #1, "PROMPT $e[" + B$ + ";" + B$ + "p"
  18. 160 IF C$ <> "" THEN IF D$ = "" THEN PRINT #1, "PROMPT $e[" + B$ + ";" + C$ + ";" + B$ + ";" + C$ + "p"
  19. 170 CLOSE #1
  20. 180 SYSTEM
  21.  
  22.