If someone could help me out that'd be really kewl.

Uses CRT;
var C1,C2 : char;
    S     : string;
...
  S := '';                             { initialize string }
  repeat
    C1 := ReadKey;                     { fetch a keystroke }
    case C1 of             { process it, whatever it is... }
     #00 : begin  { special/extended key - fetch scan code }
             C2 := ReadKey;
             case C2 of      { process scan code character }
               #59 : do_F1_key;
               #60 : do_F2_key;
               #71 : do_Home_key;
               else                               { ignore }
             end
           end;
     #08 : if Length(S) > 0 then    { BackSpace processing }
             begin
               Dec(S[0]); write (#08#32#08)
             end;
     #27 : ;                                      { Escape }
     #13 : ;                                         { c/r }
     'A'..'Z',
     'a'..'z',
     '0'..'9' : begin                   { valid characters }
                  S := S+C1; write (C1)    { append & echo }
                end;
     else                                         { ignore }
    end  { case }
  until C1 = #13