10 REM >KbdIBM
   20 REM IBM keyboard template
   30 uk%=NOTINKEY-1
   40 k2$="@":k3$="#":kT$="""":kt$="'"
   50 IFuk% k2$="""":k3$=CHR$1+CHR$27+CHR$1+"R"+CHR$1+CHR$3+"#"+CHR$1+CHR$27+CHR$1+"R"+CHR$1+CHR$0:kT$="@":kt$="'"
   60 PRINT"Printing ";:IFuk% PRINT"UK layout PC keyboard"ELSE PRINT"USA layout PC keyboard"'
   70 *FX6
   80 VDU2,1,27,1,ASC"t",1,1
   90 VDU1,27,1,ASC"6"
  100 PRINT"ÚÄÄÄÄÄ¿     ÚÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄ¿  ÚÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄ¿  ÚÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄ¿ ÚÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄ¿"
  110 PRINT"³ ESC ³     ³ F1  ³ F2  ³ F3  ³ F4  ³  ³ F5  ³ F6  ³ F7  ³ F8  ³  ³ F9  ³ F10 ³ F11 ³ F12 ³ ³PrtSc³     ³Pause³";CHR$13;
  120 VDU1,27,1,ASC"S",1,1
  130 PRINT"                                                                                                   Lock";CHR$13;
  140 VDU1,27,1,ASC"S",1,0
  150 PRINT"                                                                                                   Scroll";:VDU1,27,1,ASC"T":PRINT
  160 PRINT"ÀÄÄÄÄÄÙ     ÀÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÙ  ÀÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÙ  ÀÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÙ ÀÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÙ"
  170 PRINT
  180 PRINT"ÚÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄ¿ ÚÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄ¿"
  190 PRINT"³     ³     ³     ³     ³     ³     ³     ³     ³     ³     ³     ³     ³     ³   DELETE  ³ ³ Ins ³Home ³PgUp ³ ³     ³  /  ³  *  ³  -  ³";CHR$13;
  200 VDU1,27,1,ASC"S",1,1
  210 PRINT"   `     1     2     3     4     5     6     7     8     9     0     -     =                                     Lock";CHR$13;
  220 VDU1,27,1,ASC"S",1,0
  230 PRINT"   ~     !     ";k2$;"     ";k3$;"     $     %     ^     &     *     (     )     _     +                                     Num  ";:VDU1,27,1,ASC"T":PRINT
  240 PRINT"ÃÄÄÄÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÄÄÄÄÄÄ´ ÃÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄ´ ÃÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄ´"
  250 PRINT"³  TAB   ³  Q  ³  W  ³  E  ³  R  ³  T  ³  Y  ³  U  ³  I  ³  O  ³  P  ³  [  ³  ]  ³ RETURN ³ ³ Del ³ End ³PgDn ³ ³  7  ³  8  ³  9  ³     ³"
  260 PRINT"ÃÄÄÄÄÄÄÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄ";:IFuk% PRINT"ÁÄÄ¿     ³"ELSE PRINT"Ù        ³";
  270 PRINT" ÀÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÙ ÃÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄ´  +  ³"
  280 PRINT"³  CAPS     ³  A  ³  S  ³  D  ³  F  ³  G  ³  H  ³  J  ³  K  ³  L  ³     ³     ³     ";:IFuk% PRINT"³"ELSE PRINT" ";
  290 PRINT"     ³                     ³  4  ³  5  ³  6  ³     ³";CHR$13;
  300 VDU1,27,1,ASC"S",1,0
  310 PRINT"                                                                     :     ";kT$;:IFuk% PRINT"     |";CHR$13; ELSE PRINTCHR$13;
  320 VDU1,27,1,ASC"S",1,1
  330 PRINT"                                                                     ;     '";:IFuk% PRINT"     \";
  340 VDU1,27,1,ASC"T":PRINT
  350 PRINT"ÃÄÄÄÄÄÄÄÄ";:IFuk% PRINT"Â"ELSE PRINT"Ä";
  360 PRINT"ÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÄÄÄ";:IFuk% PRINT"ÁÄÄÄÄÄ´"ELSE PRINT"ÂÄÄÄÄÄ´";
  370 PRINT"       ÚÄÄÄÄÄ¿       ÃÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄ´"
  380 IFuk% PRINT"³ SHIFT  ³"ELSE PRINT"³  SHIFT  ";
  390 PRINT"     ³  Z  ³  X  ³  C  ³  V  ³  B  ³  N  ³  M  ³     ³     ³     ³";:IFuk% PRINT"   SHIFT "ELSE PRINT"  SHIFT ³";
  400 PRINT"     ³       ³     ³       ³  1  ³  2  ³  3  ³     ³";CHR$13;
  410 VDU1,27,1,ASC"S",1,1
  420 PRINT"            ";:IFuk% PRINT"#"ELSE PRINT" ";
  430 PRINT"                                               ,     .     /              ";:IFuk% PRINT" "ELSE PRINT"\";
  440 PRINT"             |";CHR$13;
  450 PRINT"                                                            ,     .     /";CHR$13;
  460 VDU1,27,1,ASC"S",1,0
  470 PRINT"            ";:IFuk% PRINT"~"ELSE PRINT" ";
  480 PRINT"                                               <     >     ?              ";:IFuk% PRINT" "ELSE PRINT"|";
  490 PRINT"             ^";
  500 VDU1,27,1,ASC"T":PRINT
  510 PRINT"ÃÄÄÄÄÄÄÄÄ";:IFuk% PRINT"Á"ELSE PRINT"Ä";
  520 PRINT"ÂÄÄÄÄÁÄÂÄÄÄÁÄÄÄÄÂÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÂÁÄÄÄÄÄÁÂÄÄÄÂÄÄÄ";:IFuk% PRINT"Ä"ELSE PRINT"Á";
  530 PRINT"ÄÄÄÄÄ´ ÚÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄ¿ ÃÄÄÄÄÄÁÄÄÄÄÄÅÄÄÄÄÄ´Enter³"
  540 PRINT"³ Control ³      ³  Alt   ³                                         ³Alt Gr ³   ³ Control ³ ³ <-- ³     ³ --> ³ ³     0     ³  .  ³     ³";CHR$13;
  550 VDU1,27,1,ASC"S",1,1
  560 PRINTSPC(101);"V";CHR$13;
  570 VDU1,27,1,ASC"S",1,0
  580 PRINTSPC(101);"|";CHR$13;
  590 VDU1,27,1,ASC"T":PRINT
  600 PRINT"ÀÄÄÄÄÄÄÄÄÄÙ      ÀÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÄÄÄÄÄÙ ÀÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÙ"
  610 PRINT
  620 PRINT
  630 PRINT
  640 VDU3