summaryrefslogtreecommitdiff
path: root/macros/text1/compugraphics_8600/reblock.pascal
blob: 28c7dd6e8f4ed48f3dd3fef535361d8ea5e253aa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 PROGRAM reblock(input,output);
 VAR
   outstring  :STRING(1024);
   instring   :STRING(8);
   fontname   :STRING(8);
   filetype   :STRING(8);
   parmstring :STRING(20);
   i, fill    :integer;
 BEGIN
    parmstring := TRIM(parms);
    i := index(parmstring,' ');
    fontname := SUBSTR(parmstring,1,i-1);
    filetype := SUBSTR(parmstring,i+1);
    RESET(input,'NAME='||fontname||'.PR'||filetype||'.A');
    REWRITE(output,'NAME='||fontname||'.'||filetype||
                    '.A,LRECL=1024,RECFM=F');
    outstring := '';
    READLN(input,instring);
    WHILE NOT EOF(input) DO BEGIN;
          outstring := outstring || instring;
          IF LENGTH(outstring) >= 1024 THEN BEGIN
                WRITELN(output,outstring);
                outstring := '';
                END;
          READLN(input,instring);
          END;
    IF LENGTH(outstring) > 0 THEN BEGIN
       IF LENGTH(outstring) < 1024 THEN
          REPEAT
              outstring := outstring || '00'xc;
              UNTIL LENGTH(outstring) >= 1024;
       WRITELN(output,outstring);
       END;
 END.