;***********************************************************************
;*                                                                     *
;* FULLDOOR.ASP (C) 1991 DATASTORM TECHNOLOGIES, INC.                  *
;*                                                                     *
;* An ASPECT script for providing the shipment of the ALT-Function     *
;* keys when using a DOORWAY and the IBM PC emulation.                 *
;*                                                                     *
;***********************************************************************

proc main
integer current_key

   set keys on                   ; Script will handle everything from keyboard
   while forever                 ; Until script exits
      if hitkey                  ; if a key is in the buffer
         keyget current_key      ;  . . .  read it
         switch current_key
            case 0X6800          ; ALT-F1
              computc 0
              computc 0x68
            endcase
            case 0X6900          ; ALT-F2
              computc 0
              computc 0X69
            endcase
            case 0x6A00          ; ALT-F3
              computc 0
              computc 0x6A
            endcase
            case 0X6B00          ; ALT-F4
              computc 0
              computc 0x6B
            endcase
            case 0X6C00          ; ALT-F5
              computc 0
              computc 0x6C
            endcase
            case 0X6D00          ; ALT-F6
              computc 0
              computc 0x6D
            endcase
            case 0X6E00          ; ALT-F7
              computc 0
              computc 0x6E
            endcase
            case 0X6F00          ; ALT-F8
              computc 0
              computc 0x6F
            endcase
            case 0X7000          ; ALT-F9
              computc 0
              computc 0x70
            endcase
            case 0x7100          ; ALT-F10
              computc 0
              computc 0x71
            endcase
            case 0X8B00          ; ALT-F11
              computc 0
              computc 0x8B
            endcase
            case 0X8C00          ; ALT-F12
              computc 0
              computc 0x8C
            endcase
            case 0X1E00          ; ALT-A
              computc 0
              computc 0x1E
            endcase
            case 0X3000          ; ALT-B
              computc 0
              computc 0x30
            endcase
            case 0X2E00          ; ALT-C
              computc 0
              computc 0x2E
            endcase
            case 0X2000          ; ALT-D
              computc 0
              computc 0x20
            endcase
            case 0X1200          ; ALT-E
              computc 0
              computc 0x12
            endcase
            case 0X2100          ; ALT-F
              computc 0
              computc 0x21
            endcase
            case 0x2200          ; ALT-G
              computc 0
              computc 0x22
            endcase
            case 0X2300          ; ALT-H
              computc 0
              computc 0x23
            endcase
            case 0X1700          ; ALT-I
              computc 0
              computc 0x17
            endcase
            case 0X2400          ; ALT-J
              computc 0
              computc 0x24
            endcase
            case 0X2500          ; ALT-K
              computc 0
              computc 0x25
            endcase
            case 0x2600          ; ALT-L
              computc 0
              computc 0x26
            endcase
            case 0x3200          ; ALT-M
              computc 0
              computc 0x32
            endcase
            case 0X3100          ; ALT-N
              computc 0
              computc 0x31
            endcase
            case 0x1800          ; ALT-O
              computc 0
              computc 0x18
            endcase
            case 0X1900          ; ALT-P
              computc 0
              computc 0x19
            endcase
            case 0X1000          ; ALT-Q
              computc 0
              computc 0x10
            endcase
            case 0X1300          ; ALT-R
              computc 0
              computc 0X13
            endcase
            case 0X1F00          ; ALT-S
              computc 0
              computc 0x1F
            endcase
            case 0X1400          ; ALT-T
              computc 0
              computc 0x14
            endcase
            case 0X1600          ; ALT-U
              computc 0
              computc 0x16
            endcase
            case 0X2F00          ; ALT-V
              computc 0
              computc 0x2F
            endcase
            case 0X1100          ; ALT-W
              computc 0
              computc 0x11
            endcase
            case 0X2D00         ; ALT-X
              computc 0
              computc 0x2D
            endcase
            case 0X1500         ; ALT-Y
              computc 0
              computc 0x15
            endcase
            case 0x2C00         ; ALT-Z
              computc 0
              computc 0x2C
            endcase
            case 27              ; ESCAPE.  You may want to allow an exit here
               exit
            endcase
            default
               termkey current_key  ; send the key, it's not an ALT-key
            endcase
         endswitch
      endif
   endwhile
endproc