DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦1b80aa03f⟧ TextFile

    Length: 1762 (0x6e2)
    Types: TextFile
    Names: »MESSAGE4_LOOP«

Derivation

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

TextFile

BEGIN
DEFINE PATTERN 1 = '(:01:)(:01:)(:30:)(:46:)(:01:)1 THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG '
DEFINE PATTERN 4 = '(:00:)(:30:)(:46:)(:01:)0 THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG '
DEFINE PATTERN 2 = '(:00:)(:30:)(:46:)(:01:)2 THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG '
DEFINE PATTERN 3 = '(:01:)(:01:)(:30:)(:46:)(:01:)3 THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG '
DEFINE PATTERN 8 = '(:02:)(:30:)(:04:)(:01:)NNNN'
DUMP PATTERN 1
DUMP PATTERN 2
DUMP PATTERN 3
DUMP PATTERN 4
DUMP PATTERN 8
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 ( #2001 #107F #1121 )
CREATE 0 #112F 1 130
INITREAD #112F 130 DUMP
REPEAT 2
BEGIN
INITREAD #112F 130 DUMP
INITREAD #112F 130 DUMP
INITREAD #112F 130 DUMP
APPEND #112F 51 PATTERN 1
INITAPPEND #112F 3 (#0007 #01)      "INPUT REQUEST NO. #01"
APPEND #112F 50 PATTERN 4
APPEND #112F 50 PATTERN 4
APPEND #112F 50 PATTERN 4
APPEND #112F 50 PATTERN 2
APPEND #112F 08 PATTERN 8
WAITINIT 10
INITREAD #112F 130 DUMP
INITREAD #112F 130 DUMP
APPEND #112F 51 PATTERN 3
INITAPPEND #112F 3 (#0007 #02)      "INPUT REQUEST NO. #02"
APPEND #112F 08 PATTERN 8
WAITINIT 10
INITREAD #112F 130 DUMP
INITREAD #112F 130 DUMP
APPEND #112F 51 PATTERN 1
INITAPPEND #112F 3 (#0007 #03)      "INPUT REQUEST NO. #03"
APPEND #112F 50 PATTERN 2
APPEND #112F 08 PATTERN 8
WAITINIT 10
INITREAD #112F 130 DUMP
INITREAD #112F 130 DUMP
INITREAD #112F 130 DUMP
APPEND #112F 51 PATTERN 1
INITAPPEND #112F 3 (#0007 #04)      "INPUT REQUEST NO. #04"
APPEND #112F 50 PATTERN 4
APPEND #112F 50 PATTERN 2
APPEND #112F 08 PATTERN 8
WAITINIT 10
END
WAITINIT 200
LIST OPERATIONS
CANCEL CRID #110F
CANCEL CRID #112F
DISMANTLE #110F
DISMANTLE #112F
END «nul»