!
! 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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.