|
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 - metrics - download
Length: 1586 (0x632)
Types: TextFile
Names: »TDX_LOOP1«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─⟦this⟧ »USERS.D!CAH.D!TDX_LOOP1«
BEGIN
DEFINE PATTERN 1 = '1-------------------------------------------------------------------------------'
CREATE 0 #110F 7 16
APPEND #110F 0 (#1111)
INITREAD #110F 16 DUMP
APPEND #110F 6 ( #0001 #107F #1101 )
INITREAD #110F 16 DUMP
APPEND #110F 6 ( #3001 #107F #1131 )
CREATE 0 #123F 6 519
CREATE 0 #124F 6 519
CREATE 0 #125F 6 519
CREATE 0 #126F 6 519
CREATE 0 #127F 6 519
CREATE 0 #128F 6 519
CREATE 0 #129F 6 519
CREATE 0 #12AF 6 519
CREATE 0 #12BF 6 519
CREATE 0 #12CF 6 519
CREATE 0 #133F 6 519
CREATE 0 #134F 6 519
CREATE 0 #135F 6 519
CREATE 0 #136F 6 519
CREATE 0 #137F 6 519
CREATE 0 #138F 6 519
CREATE 0 #139F 6 519
CREATE 0 #13AF 6 519
CREATE 0 #113F 10 519 "ACTIVE CHANNEL"
CREATE 0 #13BF 6 519
CREATE 0 #13CF 6 519
CREATE 0 #143F 6 519
CREATE 0 #144F 6 519
CREATE 0 #145F 6 519
CREATE 0 #146F 6 519
CREATE 0 #147F 6 519
CREATE 0 #148F 6 519
CREATE 0 #149F 6 519
CREATE 0 #14AF 6 519
CREATE 0 #14BF 6 519
CREATE 0 #14CF 6 519
REPEAT 1000
BEGIN
INITREAD #113F 15
INITREAD #113F 15
INITREAD #113F 15
INITREAD #113F 15
INITREAD #113F 15
INITREAD #113F 15
INITREAD #113F 15
INITREAD #113F 15
INITAPPEND #113F 15 PATTERN 1
INITAPPEND #113F 15 PATTERN 1
INITAPPEND #113F 15 PATTERN 1
INITAPPEND #113F 15 PATTERN 1
INITAPPEND #113F 15 PATTERN 1
INITAPPEND #113F 15 PATTERN 1
INITAPPEND #113F 15 PATTERN 1
APPEND #113F 15 PATTERN 1
END
WAITINIT 900
LIST OPERATIONS
CANCEL CRID #110F
CANCEL CRID #113F
DISMANTLE #110F
DISMANTLE #113F
END