|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1044 (0x414)
Types: TextFile
Names: »SWL.S«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »OJG.D!SWL.S«
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