Anonymous user
Readline interface: Difference between revisions
m
→{{header|REXX}}: simplified the unAbbrev subroutine. -- ~~~~
(forced table of contents (with a _toc_ keyword). -- ~~~~) |
m (→{{header|REXX}}: simplified the unAbbrev subroutine. -- ~~~~) |
||
Line 262:
select
when abbrev('CALENDAR',ccc,3) then return 'CAL'
when abbrev('CLEARSCREEN',ccc,5)
when abbrev('HISTORY',ccc,4) then return 'HISTORY'
when abbrev('HELP',ccc,1) |,
ccc=='?' then return 'HELP'
when abbrev('KEDIT',ccc,1) then return 'KEDIT'
when abbrev('QUIT',ccc,1) then return 'QUIT'
when abbrev('REXX',ccc,1) then return 'REXX'
when abbrev('TYPE',ccc,1) then return 'TYPE'
otherwise nop
end
| |||