home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / repchar.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  815b  |  41 lines
  1. PROGRAM REPCHAR;{$P,C-,M-,F-}
  2. {$I+}
  3. TYPE
  4. $STRING255= STRING 255;
  5. $STRING80 = STRING 80;
  6. $STRING0 = STRING 0;
  7. BYTE = 0..255;
  8.  
  9.  VAR
  10. C:CHAR;
  11. NUMBER:INTEGER;
  12.  
  13. FUNCTION LENGTH(X:$STRING255):INTEGER;EXTERNAL;
  14. PROCEDURE SETLENGTH(VAR X:$STRING0; Y:INTEGER);EXTERNAL;
  15.  
  16. {function to repeat "x" number of times a character"y";  especially
  17. useful in write commands...
  18. requires pascal/z's external functions length and setlength..}
  19.  
  20. FUNCTION REPEAT_CHAR (X:BYTE; Y:CHAR):$STRING255;
  21. LABEL 1;
  22. VAR
  23. RC:$STRING255;
  24. I:INTEGER;
  25.  
  26. BEGIN
  27. SETLENGTH(RC,0);
  28. IF (I < 1) OR (I > 255) THEN GOTO 1;
  29.  
  30. {note well:  this will permit writing any character, printable or
  31.  otherwise....e.g. a series of x's or a series of bells ringing!}
  32.  
  33. FOR I:= 1 TO X DO APPEND(RC,Y);
  34.  
  35. 1:
  36. REPEAT_CHAR:=RC;
  37. END;
  38.  
  39.  
  40. BEGIN
  41. END.