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