100 REM +++++++++++++++++++++++++++++++
110 REM ! Program ....   KEYINIT.BAS
120 REM ! Utg}va  1.0    86-05-08
130 REM ! av Anders Franz`n <5258>
140 REM ! Minne 16 och 32 Kbytes
150 REM +++++++++++++++++++++++++++++++
160 REM
170 REM Programmet programmerar om
180 REM n}gra tangenter. KEY.BAC m}ste
190 REM ha k|rts innan detta program
200 REM startas.
210 REM
220 KEY "_S","_Xsave "
230 KEY "_L","_X;chr$(12%);_M"
240 KEY "_R","_Xrun_M"
250 KEY "_K","_Xif peek(472%)=40% ;inp(4%)chr$(12%); else ;inp(3%)chr$(12%);_M"
260 KEY "_A","_Xlkey_M"
270 ; 'Dessa tangenter {r programmerade:' : LKEY