|
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: 1354 (0x54a)
Types: TextFile
Names: »READPUNCH1«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »USERS.D!CAH.D!READPUNCH1«
BEGIN DEFINE PATTERN 1 = '(:01:)(:15:)(:30:)(:05:)(:01:)VZCZC' DEFINE PATTERN 2 = '(:00:)(:30:)(:24:)(:01:)FM CHRISTIAN ROVSING A/S' DEFINE PATTERN 3 = '(:00:)(:30:)(:24:)(:01:)TO CHRISTIAN ROVSING A/S' DEFINE PATTERN 4 = '(:00:)(:30:)(:02:)(:01:)BT' DEFINE PATTERN 5 = '(:00:)(:30:)(:20:)(:01:)COMPANY CONFIDENTIAL' DEFINE PATTERN 6 = '(:00:)(:30:)(:44:)(:01:)THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.' DEFINE PATTERN 7 = '(:00:)(:30:)(:16:)(:01:)0123456789.;:-?/' DEFINE PATTERN 8 = '(:02:)(:30:)(:04:)(:04:)NNN(:10:)' 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 6 130 REPEAT 3 BEGIN INITREAD #112F 128 DUMP INITREAD #112F 128 DUMP INITREAD #112F 128 DUMP INITREAD #112F 128 DUMP INITREAD #112F 128 DUMP INITAPPEND #112F 3 ( #0007 #000E ) "INPUT REQUEST, LDU NO. 15" INITAPPEND #112F 10 PATTERN 1 INITAPPEND #112F 28 PATTERN 2 INITAPPEND #112F 28 PATTERN 3 INITAPPEND #112F 6 PATTERN 4 INITAPPEND #112F 24 PATTERN 5 INITAPPEND #112F 48 PATTERN 6 INITAPPEND #112F 20 PATTERN 7 INITAPPEND #112F 24 PATTERN 5 INITAPPEND #112F 6 PATTERN 4 APPEND #112F 8 PATTERN 8 WAITINIT 20 WAITINIT 20 WAITINIT 20 END WAITINIT 50 LIST OPERATIONS CANCEL CRID #110F CANCEL CRID #112F DISMANTLE #110F DISMANTLE #112F END N