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: 668 (0x29c) Types: TextFile Names: »MAKE_CFILES.J«
└─⟦b21be6f3b⟧ Bits:30005082 8" CR80 Floppy CR80FD_0036 ( CR/D/3143 KLP & KMO C-KURSUS + C JOBFILER 861127 Volume MOVEFL RAM TEST css/709 #0000-7fff V24+SCM ) └─⟦95f1eafb2⟧ └─ ⟦this⟧ »MAKE_CFILES.J« └─⟦c25823ad8⟧ Bits:30005089 8" CR80 Floppy CR80FD_0044 ( @*FLOPPY C ) └─⟦feb1d529a⟧ └─ ⟦this⟧ »MAKE_CFILES.J«
DEFINE OLDVERIFY VERIFY DEFINE VERIFY 0 IF P1 = '' THEN WRITELN '(:7:)***No Name Specified!' IF P1 = '' THEN GOTO END IF (P2 = 'ND') OR (P3 = 'ND') THEN GOTO NO_DIRECTORY CREATE $P1$$.D D/1 IF CC <> 0 THEN WRITELN '(:7:)***Can''t Create Directory' IF CC<>0 THEN GOTO END USE $P1$$.D LABEL NO_DIRECTORY CREATE $P1$$.S R/5 CREATE $P1$$.P R/5 CREATE $P1$$.A.P R/5 CREATE $P1$$.L R/5 IF (P2 = 'NL') OR (P3 = 'NL') THEN GOTO NO_LINK CREATE $P1$$.L.P R/5 CREATE $P1$$.C R/5 COPY I:@**CLINK.COM O:$P1$$.COM C:A COUT:@NULL-FILE*V*F LABEL NO_LINK WRITELN WRITE 'Files created in: ' WHAT WRITELN DLISTA LABEL END DEFINE VERIFY OLDVERIFY DELETE OLDVERIFY