DataMuseum.dk

top - download

    Length: 1132 (0x46c)
    Types: TextFile
    Names: »PRTFIL«

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »OJG.D!PRTFIL« 

TextFile

MAINMODULE CPRNR;
%NOLIST
%SOURCE @**GENS.D*SWELLPREFIX.D*GENERALPARAMS.S
%SOURCE @**GENS.D*SWELLPREFIX.D*MONITORNAMES.S
%SOURCE @**GENS.D*SWELLPREFIX.D*IOSPARAMS.S
%SOURCE @**UTILITYHELP.I
%LIST

CONST
     A = 'THIS IS AN EXPERIMENT(:10:)(:0:)';
     B = 'THAT SUCCEDED !!!! !!!!(:0:)';

PROCEDURE TEXT_TRANSFER (R6,R5);

VAR SAVE_R5: INTEGER;
BEGIN
   R5 => SAVE_R5;
   MON (STREAM, OUTTEXTB, COUTFILETYPE.S=>R4,R6,R7): ERROR_DONE;
   EXIT(SAVE_R5=>R5);
END;  "END_TEXT_TRANSFER"

PROCEDURE END_TRANSFER(R5);

VAR SAVE_R5: INTEGER;
BEGIN
   R5 => SAVE_R5;
   MON (STREAM, FLUSH, COUTFILETYPE.S=>R4,R7): ERROR_DONE;
   EXIT(SAVE_R5=>R5);
END;  "END END_TRANSFER"

BEGIN
   ACCEPTFILES(R6);
   READSYSPARAMS(R6);
   CLOSESTREAM(ADDRESS(PFILETYPE) => R4,R6);
   DISMANTLEFILE(R4,R6);
   OPENSTREAM(ADDRESS(CINFILETYPE) => R4,INPUT_MODE=>R3,R6);


   ADDRESS(A) => R6;
   TEXT_TRANSFER(R6,R5);

   ADDRESS(B) => R6;
   TEXT_TRANSFER(R6,R5);

   END_TRANSFER(R5);

   CLOSESTREAM(ADDRESS(COUTFILETYPE) => R4,R6);
   DISMANTLEFILE(R4,R6);
   DISMANTLEFILE(ADDRESS(CINFILETYPE) => R4,R6);
   MON(TERMINATE,0=>R0=>R1,R7);
END
ENDMODULE «a5»