!
! QWKIE PROGRAM TO CREATE FUNKEY.PFK
! TRANSLATES AM62x EDIT KEYS TO CONTROL CHARACTERS
! JHB 2/17/86
!
OPEN #1,"FUNKEY.PFK",OUTPUT
PRINT #1,CHR(138);CHR(162);
PRINT #1,CHR(206);CHR(6);CHR(0);        ! INSERT CHARACTER = ^F
PRINT #1,CHR(207);CHR(4);CHR(0);        ! DELETE CHARACTER = ^D
PRINT #1,CHR(177);
FOR X = 1 TO 8
        PRINT #1,CHR(6);                ! INSERT WORD = EIGHT ^Fs
NEXT X  
PRINT #1,CHR(0);
PRINT #1,CHR(178);CHR(22);CHR(0);       ! DELETE WORD = ^V
PRINT #1,CHR(232);CHR(2);CHR(0);        ! INSERT LINE = ^B
PRINT #1,CHR(313);CHR(26);CHR(0);       ! DELETE LINE = ^Z
! NOTE: MUST DISABLE CHR(313) TRANSLATION IN AM62A.M68/TDV
PRINT #1,CHR(247);CHR(23);CHR(0);       ! NEXT WORD = ^W
PRINT #1,CHR(231);CHR(23);CHR(0);       ! Shift NEXT WORD = ^W
PRINT #1,CHR(209);CHR(1);CHR(0);        ! PREVIOUS WORD = ^A
PRINT #1,CHR(215);CHR(1);CHR(0);        ! Shift PREVIOUS WORD = ^A
PRINT #1,CHR(246);CHR(20);CHR(0);       ! NEXT SCREEN = ^T
PRINT #1,CHR(214);CHR(5);CHR(0);        ! Shift NEXT SCREEN = ^E
PRINT #1,CHR(242);CHR(18);CHR(0);       ! PREVIOUS SCREEN = ^R
PRINT #1,CHR(241);CHR(30);CHR(0);       ! Shift PREVIOUS SCREEN = ^^
PRINT #1,CHR(184);"?";CHR(13);CHR(0);   ! HELP = ?^M
PRINT #1,CHR(185);"?";CHR(13);CHR(0);   ! Shift HELP = ?^M
PRINT #1,CHR(222);CHR(11);CHR(0);       ! Shift UP ARROW = ^K
PRINT #1,CHR(223);CHR(10);CHR(0);       ! Shift DOWN ARROW = ^J
PRINT #1,CHR(219);CHR(21);CHR(0);       ! Shift LEFT ARROW = ^U
PRINT #1,CHR(220);CHR(14);CHR(0);       ! Shift RIGHT ARROW = ^N
PRINT #1,CHR(251);CHR(30);CHR(0);       ! Shift HOME = ^^
PRINT #1,CHR(161);CHR(13);CHR(0);       ! NEW LINE = ^M
PRINT #1,CHR(162);CHR(25);CHR(0);       ! Shift NEW LINE = ^Y
PRINT #1,CHR(235);"PRINT";CHR(13);CHR(0); ! Shift PRINT = PRINT^M
PRINT #1,CHR(236);"PRINT";CHR(13);CHR(0); ! PRINT = PRINT^M
PRINT #1,CHR(179);CHR(19);CHR(0);       ! Shift NO SCROLL = ^S
PRINT #1,CHR(234);CHR(1);CHR(0);        ! BACK TAB = ^A
PRINT #1,CHR(233);CHR(21);CHR(0);       ! Shift BACK TAB = ^U
PRINT #1,CHR(201);CHR(9);CHR(0);        ! Shift TAB = ^I

CLOSE #1
PRINT
PRINT "FUNKEY.PFK file is now available"
END