10 ONERRORGOTO270
   20 MODE7:DIMA$(3,9):FOR_%=0TO3:FOR`%=0TO9:A$(_%,`%)="            ":NEXT:NEXT:*FX4,1
   30 PRINT"†BBC Keystrip Creator"''"‚ByƒGary Davies -ˆPUBLIC DOMAIN"'''"…<1>  Edit a key"'"…<2>  Print out keystrip"''"‚Choose: ";
   40 a%=GET:IFa%=ASC"1"PROCBELSEIFa%=ASC"2"PROCCELSE40
   50 CLS:GOTO30
   60 DEFPROCB:PRINT''"‚Which key to edit (f0-f9)"'"…Enter 0-9: ";:a%=GET:IFa%<ASC"0"ORa%>ASC"9"ENDPROC
   70 CLS:PRINT"+------------+"'"|            |‚ [ƒCTRL‚ +ƒSHIFT‚+ƒf";a%-48'"|            |‚ [ƒCTRL ‚+ƒf";a%-48'"|            |‚ [ƒSHIFT‚+ƒf";a%-48'"|            |‚ [ƒf";a%-48'"+------------+"'"|     f";a%-48;"     |":PRINT"+------------+"
   80 PRINT'"Note:‚Use cursor key to move cursor,         ‚UseCOPY‚to return to menu.":PRINTTAB(1,1);:FOR_%=0TO3:PRINTA$(_%,a%-48):VDU9:NEXT:PRINTTAB(1,1);:REPEAT
   90 b%=GET:IFb%=135THEN190
  100 IFb%=136ANDPOS=1THEN90
  110 IFb%=137ANDPOS=12THEN90
  120 IFb%=138ANDVPOS=4THEN90
  130 IFb%=139ANDVPOS=1THEN90
  140 IFb%=136VDU8:GOTO90
  150 IFb%=137VDU9:GOTO90
  160 IFb%=138VDU10:GOTO90
  170 IFb%=139VDU11:GOTO90
  180 IFPOS<>13AND(b%>29ANDb%<127)VDUb%
  190 UNTILb%=135
  200 PRINTTAB(1,1);:FOR_%=0TO3:A$="":FOR`%=1TO12:A$=A$+CHR$(FNcode):VDU9:NEXT:A$(_%,a%-48)=A$:VDU10,13,9:NEXT:ENDPROC
  210 DEFFNcode=?(&7C00+(VPOS*40)+POS)
  220 DEFPROCC:CLS:PRINT"‚Output to printer <Y/N>?‡";:B$=GET$:VDUASCB$:IFB$<>"Y"ANDB$<>"y"GOTO250
  230 PRINT''"‚Enter theESC Code‚for condenced for   ‚your printer,"'"ƒ<CR> = Defalt (15)‡";:INPUTc%:PRINT''"†ˆSET UP PRINTER THEN PRESS ANY KEY...";:B=GET:IFc%=0THENc%=15
  240 VDU2,1,27,1,c%,1
  250 :PRINT'':PROCD:FOR`%=0TO3:FOR_%=0TO9:PRINT"|";A$(`%,_%);:NEXT:PRINT"|":NEXT:PROCD:FOR_%=0TO9:PRINT"|     f";_%;"     ";:NEXT:PRINT"|":PROCD:VDU3:ENDPROC
  260 DEFPROCD:FOR_%=0TO9:PRINT"+------------";:NEXT:PRINT"+":ENDPROC
  270 IFERR=17VDU3:CLS:GOTO30ELSEPRINT''':REPORT:PRINT" at line ";ERL:END