'ProgramMode:RUN
Cls
0->N
LocateYX 0,36,"FKEY ICON"
LocateYX 8,36,"    _#E692_"
LocateYX 16,36,"  _#E690_   _#E691_"
LocateYX 24,36,"    _#E693_"
Lbl 0
For 0->I To 5
 SysCall(0X268,N,&A%)
 SysCall(0X4D1,I,A%)
 Text 48,4+21I,"      ":
 Text 48,4+21I,N
 N+1->N
Next
Getkey2->K
K=38=>N-7->N
K=28=>N-12->N
K=27=>N-5->N
K<>47=>Goto 0
Cls