home *** CD-ROM | disk | FTP | other *** search
-
- BEGIN lb,rb,bb,lm,rm,um,dm,60,10
-
- ;------------------------------BOTH BUTTONS----------------------------------
-
- bb: EXECUTE RETURN
-
- ;------------------------------LEFT BUTTON-----------------------------------
-
- lb: EXECUTE CURSOR
-
- ;------------------------------RIGHT BUTTON----------------------------------
-
- rb: EXECUTE F9
-
- ;------------------------------LEFT MOTION-----------------------------------
-
- lm: EXECUTE BKTB
-
- ;------------------------------RIGHT MOTION----------------------------------
- rm: EXECUTE TB
-
- ;------------------------------UP MOTION-------------------------------------
-
- um: EXECUTE UP
- uma: EXECUTE PGUP
- ;------------------------------DOWN MOTION-----------------------------------
-
- dm: EXECUTE DOWN
- dma: EXECUTE PGDN
- ;------------------------------MENUS-----------------------------------------
-
- CURSOR: MENU "CURSOR:",1,1,INVERSE
- OPTION "PAGE UP/PAGE DOWN",PAGE
- OPTION "LINE UP/LINE DOWN",LINE
- OPTION "ACTIVATE LEFT WINDOW",LEFT
- OPTION "ACTIVATE RIGHT WINDOW",RIGHT
- OPTION "COMMANDS",WIND
- OPTION "WINDOW PATH",CONTROL
- MEND
-
- CONTROL: MENU "WINDOW PATH",1,1,INVERSE
- OPTION "DRIVE A: LEFT",DRIVEAL
- OPTION "DRIVE A: RIGHT",DRIVEAR
- OPTION "DRIVE C: LEFT", DRIVECL
- OPTION "DRIVE C: RIGHT",DRIVECR
- OPTION "DRIVE D: LEFT",DRIVEDL
- OPTION "DRIVE D: RIGHT",DRIVEDR
- MEND
-
- WIND: popup 3,2,INVERSE
- text "╔══════ COMMANDS ═══════╗"
- text "║ Help left ║"
- text "║ Help right ║"
- text "║ Display subdir left ║"
- text "║ Display subdir right ║"
- text "║ Prompt for path left ║"
- text "║ Prompt for path right ║"
- text "║ Sort current by NAME ║"
- text "║ Sort current by EXT ║"
- text "║ Sort current by SIZE ║"
- text "║ Sort current by DATE ║"
- text "║ Create a new subdir ║"
- text "║ Hide current entry ║"
- text "║ Unhide entry ║"
- text "║ Protect entry ║"
- text "║ Unprotect entry ║"
- text "╚═══════════════════════╝"
- select 2,3,21,F1
- select 3,3,21,F2
- select 4,3,21,F3
- select 5,3,21,F4
- select 6,3,21,F5
- select 7,3,21,F6
- select 8,3,21,F7
- select 9,3,21,F8
- select 10,3,21,SF7
- select 11,3,21,SF8
- select 12,3,21,F10
- select 13,3,21,SF3
- select 14,3,21,SF4
- select 15,3,21,SF5
- select 16,3,21,SF6
- pend
-
- DRIVEAL: TYPE 0,63,"A:\",13
-
- DRIVEAR: TYPE 0,64,"A:\",13
-
- DRIVECL: TYPE 0,63,"C:\",13
-
- DRIVECR: TYPE 0,64,"C:\",13
-
- DRIVEDL: TYPE 0,63,"D:\",13
-
- DRIVEDR: TYPE 0,64,"D:\",13
-
- LINE: ASSIGN lb,rb,bb,lm,rm,um,dm,60,10
- PAGE: ASSIGN lb,rb,bb,lm,rm,uma,dma,60,10
- ;------------------------------KEYS------------------------------------------
-
- NUL: NOTHING
- RETURN: TYPE 13
- ESCAPE: TYPE 27
- SLASH: TYPE "/"
- CANCEL: TYPE 27,27,27,27,27,27,27,27
- PERIOD: TYPE "."
- F1: TYPE 0,59
- F2: TYPE 0,60
- F3: TYPE 0,61
- F4: TYPE 0,62
- F5: TYPE 0,63
- F6: TYPE 0,64
- F7: TYPE 0,65
- F8: TYPE 0,66
- F9: TYPE 0,67
- F10: TYPE 0,68
- SF1: TYPE 0,84
- SF2: TYPE 0,85
- SF3: TYPE 0,86
- SF4: TYPE 0,87
- SF5: TYPE 0,88
- SF6: TYPE 0,89
- SF7: TYPE 0,90
- SF8: TYPE 0,91
- SF9: TYPE 0,92
- SF10: TYPE 0,93
- HOME: TYPE 0,71
- END: TYPE 0,79
- ENDHOME: TYPE 0,79,0,71
- BKTB: TYPE 0,15 ;BACK TAB
- TB: TYPE 9
- PGUP: TYPE 0,73
- PGDN: TYPE 0,81
- LEFT: TYPE 0,75
- RIGHT: TYPE 0,77
- UP: TYPE 0,72
- DOWN: TYPE 0,80
-