Teclas adicionales para gwbasic

Ejecutando este programa se cambiaba F10 a “run 10050”, lo que hacía que al presionar F10 aparecieran 9 teclas de función adicionales, pudiendo volver a las funciones más habituales presionando de nuevo F10.

Solo tiene interés para quienes utilicen Basica o Gwbasic en un ordenador antiguo o un emulador, o bien para quienes empleen PC-Basic y escriban ahí sus programas tecleándolos a mano.

10000 KEY 1,"LIST ":KEY 2,"RUN"+CHR$(13):KEY 3,"LOAD"+CHR$(34):KEY 4,"SAVE"+CHR$(34)
10010 KEY 5,"CONT"+CHR$(13):KEY 6,","+CHR$(34)+"LPT1:"+CHR$(34)+CHR$(13)
10020 KEY 7,"TRON"+CHR$(13):KEY 8,"TROFF"+CHR$(13):KEY 9,"KEY "
10030 KEY 10,"GOTO 10050"+CHR$(13)
10040 KEY ON:END 'fin set 1 teclas
10050 KEY 1,"SCREEN 0,0,0"+CHR$(13):KEY 2,"SHELL ":KEY 3,"SYSTEM ":KEY 4,"CLS"+CHR$(13):KEY 5,"DELETE ":KEY 6,"NEW ":KEY 7,"CHAIN"+CHR$(34):KEY 8,"MERGE"+CHR$(34)
10060 KEY 9,"RENUM ":KEY 10,"GOTO 10000"+CHR$(13)
10070 KEY ON:END 'fin set 2 teclas