home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 454.NETMAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1989-10-29  |  1KB  |  55 lines
  1. Procedure MainLoop;
  2. begin
  3.   oldtime := SystemTime;
  4.   repeat
  5.     if keypressed then
  6.     begin
  7.       key := readkey;
  8.       if key = #13
  9.       then begin
  10.              over_img2;
  11.              login;
  12.              over_img1;
  13.            end;
  14.       if (key = #0)
  15.       then
  16.         begin
  17.           key := readkey;
  18.           case key of
  19. { F1 }      #59  : MainHelp;
  20. { alt F1}   #104 : MaintainNetLog;
  21. { F5 }      #63  : delete_entry;
  22. { F10}      #68  : change_log_status;
  23.  
  24. { HOME }    #71  : top_of_roster;
  25. { UArr }    #72  : scroll_down;
  26. { PgUp }    #73  : display_nbr(mark1);
  27. { End  }    #79  : end_of_roster;
  28. { DArr }    #80  : scroll_up;
  29. { PgDn }    #81  : display_nbr(mark2);
  30. { ^ End }   #117 : ; { CTRL-END TO EXIT THE PROGRAM }
  31.  
  32. { alt N }   #49  : ModName;
  33.  
  34.             else key := #0;
  35.           end;
  36.         end
  37.       else
  38.         case key of
  39. { gry + } '+'  :  set_mark2;
  40. { gry - } '-'  :  set_mark1;
  41. { gry * } '*'  :  clr_mark;
  42.           else key := #0;
  43.         end;
  44.     end
  45.     else
  46.       begin
  47.         if oldtime <> SystemTime then
  48.         begin
  49.           oldtime := SystemTime;
  50.           update_time;
  51.         end;
  52.       end;
  53.   until key = #117;
  54. end;
  55.