home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / RAW1.ZIP / MGPTXT.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-04  |  2KB  |  69 lines
  1. {****************************************************************************}
  2. {*                                                                          *}
  3. {*                              MegaPlay v.2.0                              *}
  4. {*                            Layout Control Unit                           *}
  5. {*                                                                          *}
  6. {****************************************************************************}
  7. Unit MGPTXT;
  8. INTERFACE
  9. Uses CRT;
  10. var
  11.    yline:word;  { Used in main module }
  12.  
  13. procedure Intro;
  14. procedure Invis;                                  { Make cursor invisible }
  15. function  XSpace(num:byte;sym:string):string; { Make a string of SYM chars }
  16. function  UCase(sx:string):string;            { "UpCase" the string }
  17. IMPLEMENTATION
  18. {****************************************************************************}
  19. procedure Intro;
  20. var
  21. i:byte;
  22. begin
  23. textcolor(1);
  24. Write('╔',XSpace(78,'═'),'╗');
  25. Write('║',XSpace(78,' '),'║');
  26. Write('╚',XSpace(78,'═'),'╝');
  27. textcolor(7);
  28. gotoxy(2,wherey-2);
  29. textcolor(12);
  30. Writeln(' MegaPlay v.1.1  By Frozen Fire. April 8, 1996');
  31. gotoxy(1,wherey+1);
  32. textcolor(7);
  33. end;
  34. {****************************************************************************}
  35. procedure invis;assembler;
  36. asm
  37.    push ax
  38.    push dx
  39.    mov ah,02h
  40.    mov bh,0
  41.    mov dl,1
  42.    mov dh,25
  43.    int 10h
  44.    pop dx
  45.    pop ax
  46. end;
  47. {****************************************************************************}
  48. function XSpace;
  49. var
  50. sx:string;
  51. z:byte;
  52. begin
  53. sx:='';
  54. for z:=1 to num do
  55. sx:=sx+sym;
  56. XSpace:=sx;
  57. end;
  58. {****************************************************************************}
  59. function UCase;
  60. var
  61. i:byte;
  62. begin
  63. for i := 1 to Length(sx) do
  64.   sx[i] := UpCase(sx[i]);
  65. UCase:=sx;
  66. end;
  67. {****************************************************************************}
  68. END.
  69.