home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CNBSRC.ZIP / REVSYS.INC < prev    next >
Text File  |  1996-01-14  |  3KB  |  92 lines
  1.  
  2. Procedure REVSYS;
  3.  
  4. begin
  5. xline[1] := ' ';
  6. xline[2] := '      I downloaded and reviewed oodles of packs this month to make up';
  7. xline[3] := '      for the absence of articles and interviews.  Anyways, what I   ';
  8. xline[4] := '      did was look over the packs and instead of reviewing each and  ';
  9. xline[5] := '      every single piece of art, I just commented on each artists''   ';
  10. xline[6] := '      total effort, giving him a rating between 1 and 10 check marks.';
  11. xline[7] := '      Next to each group''s name I gave a letter grade (A,B,C,D,F) ';
  12. xline[8] := '      representing the quality of the pack overall.                 ';
  13. xline[9] := '                                                                     ';
  14. xline[10] := '      Stone the Crow ';
  15. XENd := 10;
  16.  
  17. {Read selected text}
  18. textbackground(0);
  19. textcolor(9);
  20. clrscr;
  21. T_HDRimg{Display the text header ansi};
  22. window(4,5,76,21);
  23. gotoxy(1,1);
  24. xch := ' ';
  25. for x := 1 to 16 do
  26. writeln(xline[x]);
  27. while (xch <> (#13)) and (xch <> (#27)) do begin
  28. xch := ' ';
  29. xch := readkey;
  30.   case xch of
  31.        (#80) :begin
  32.                 if x <= xend then
  33.                   begin
  34.                     x := x + 1;
  35.                     gotoxy(1,1);
  36.                     delLine;
  37.                     gotoxy(1,16);
  38.                     writeln(xline[x]);
  39.                   end;
  40.               end;
  41.        (#72) :begin
  42.                 if (x - 15) > (1) then
  43.                  begin
  44.                    x := x - 1;
  45.                    gotoxy(1,1);
  46.                    InsLine;
  47.                    writeln(xline[x-15]);
  48.                  end;
  49.               end;
  50.        (#81) :begin
  51.                 if x <= xend then
  52.                   begin
  53.                     x := x + 1;
  54.                     gotoxy(1,1);
  55.                     delLine;
  56.                     gotoxy(1,16);
  57.                     writeln(xline[x]);
  58.                   end;
  59.               end;
  60.        (#73) :begin
  61.                 if (x - 15) > (1) then
  62.                  begin
  63.                    x := x - 1;
  64.                    gotoxy(1,1);
  65.                    InsLine;
  66.                    writeln(xline[x-15]);
  67.                  end;
  68.               end;
  69.        (#77) :begin
  70.                 if x <= xend then
  71.                   begin
  72.                     x := x + 1;
  73.                     gotoxy(1,1);
  74.                     delLine;
  75.                     gotoxy(1,16);
  76.                     writeln(xline[x]);
  77.                   end;
  78.               end;
  79.        (#75) :begin
  80.                 if (x - 15) > (1) then
  81.                  begin
  82.                    x := x - 1;
  83.                    gotoxy(1,1);
  84.                    InsLine;
  85.                    writeln(xline[x-15]);
  86.                  end;
  87.               end;
  88.  
  89.   end;
  90. end;
  91. window(1,1,80,25){Return screen to normal size};
  92. end;