|
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: 1848 (0x738)
Types: TextFile
Names: »SWL.P«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »OJG.D!SWL.P«
======== SWL.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00001 MAINMODULE CPRNR;
00.00002 %NOLIST
00.00003 %SOURCE
======== GENERALPARAMS.S«nul»
======== SWL.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00003
00.00004 %SOURCE
======== MONITORNAMES.S«nul»«nul»
======== SWL.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00004
00.00005 %SOURCE
======== IOSPARAMS.S«nul»«nul»«nul»«nul»«nul»
======== SWL.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00005
00.00006 %SOURCE
======== UTILITYHELP.I«nul»«nul»«nul»
======== SWL.S«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»
00.00006
00.00007 %LIST
00.00008 CONST
00.00009 A='THIS IS AN EXPERIMENT(:10:)(:0:)';
00.00010 B='THAT SUCCEDED !!!! !!!!(:0:)';
00.00011 PROCEDURE TEXT_TRANSFER (R6,R5);
00.00012 VAR SAVE_R5:INTEGER;
00.00013 BEGIN
00.00014 R5=>SAVE_R5;
00.00015 MON (STREAM, OUTTEXTB, COUTFILETYPE.S=>R4,R6,R7):ERROR_DONE;
00.00016 EXIT(SAVE_R5=>R5);
00.00017 END; "END_TEXT_TRANSFER"
00.00018 PROCEDURE END_TRANSFER(R5);
00.00019 VAR SAVE_R5:INTEGER;
00.00020 BEGIN
00.00021 R5=>SAVE_R5;
00.00022 MON (STREAM, FLUSH, COUTFILETYPE.S=>R4,R7):ERROR_DONE;
00.00023 EXIT(SAVE_R5=>R5);
00.00024 END; "END END_TRANSFER"
00.00025 BEGIN
00.00026 ACCEPTFILES(R6);
00.00027 READSYSPARAMS(R6);
00.00028 CLOSESTREAM(ADDRESS(PFILETYPE)=>R4,R6);
00.00029 DISMANTLEFILE(R4,R6);
00.00030 OPENSTREAM(ADDRESS(CINFILETYPE)=>R4,INPUT_MODE=>R3,R6);
00.00031 ADDRESS(A)=>R6;
00.00032 TEXT_TRANSFER(R6,R5);
00.00033 ADDRESS(B)=>R6;
00.00034 TEXT_TRANSFER(R6,R5);
00.00035 END_TRANSFER(R5);
00.00036 CLOSESTREAM(ADDRESS(COUTFILETYPE)=>R4,R6);
00.00037 DISMANTLEFILE(R4,R6);
00.00038 DISMANTLEFILE(ADDRESS(CINFILETYPE)=>R4,R6);
00.00039 MON(TERMINATE,0=>R0=>R1,R7);
00.00040 END
00.00041 ENDMODULE
00.00042
LINES: 838
*** 00.00011 SYNTAX ERROR
*** 00.00018 SYNTAX ERROR
*** 00.00025 SYNTAX ERROR
*** 00.00042 END OF SOURCE
CODESIZE VARSIZE CONSTSIZE TEMPSIZE
-------- ------- --------- --------
#0010 #0002 #0018 #0000