home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / games / 65 / pascal / realm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-10-16  |  1.6 KB  |  64 lines
  1. PROGRAM REALM ( INPUT, OUTPUT);
  2. CONST
  3.         titles = 70;
  4. VAR
  5.         r1, r2, r3, r4, r5 : char;
  6.         r6, r7, r8, r9, r10 : char;
  7.         t1 : string[titles];
  8. (***********************************************************)
  9. Procedure wri( title : string); external;
  10. Procedure wr; external;
  11. Procedure char_out(device,dout : integer);  external;
  12. Procedure clear_screen; external;
  13. Procedure rvon; external;
  14. Procedure rvoff; external;
  15. Procedure one; external;
  16. Procedure  two; external;
  17. Procedure three; external;
  18. Procedure four; external;
  19. Procedure five; external;
  20. Procedure six; external;
  21. Procedure seven; external;
  22. Procedure eight; external;
  23. Procedure nine; external;
  24. BEGIN
  25.  clear_screen;
  26.  writeln('                         HOME MORTGAGE');
  27.  writeln;
  28.  writeln;
  29.  writeln;
  30.  writeln;
  31.  writeln;
  32.  writeln;
  33.  writeln('                        *-*-* DEMO *-*-*');
  34.  writeln;
  35.  writeln;
  36.  writeln;
  37.  writeln('                        1. Mortgage Information');
  38.  writeln('                        2. ');
  39.  writeln('                        3. ');
  40.  writeln('                        4. ');
  41.  writeln('                                                 ');
  42.  writeln('                        9. EXIT PROGRAM');
  43.  writeln;
  44.  writeln;
  45.  writeln('Portions of this product are Copyright (c) 1986, OSS and CCD.');
  46.  writeln('                     Used by Permission of OSS');
  47.  writeln;
  48.  writeln('                       Copyright (c) DCS 1986');
  49.  rvon;
  50.  writeln('ENTER DESIRED KEY');
  51.  rvoff;
  52.  read(r1);
  53.  CLEAR_SCREEN;
  54.  one;
  55.  two;
  56.  three;
  57.  four;
  58.  five;
  59.  six;
  60.  seven;
  61.  eight;
  62.  nine;
  63. end.
  64. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə