|
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: 1648 (0x670)
Types: TextFile
Names: »HELP.SRC«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─⟦this⟧ »HKH.D!HELP.SRC«
PROCEDURE OUTPUT_DELTA
BEGIN
DEFINE PATTERN 8 = '(:30:)(:62:)THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789!"#$%&(:13:)(:10:)'
REPEAT 4
BEGIN
APPEND #133F 64 PATTERN 8
END
END
PROCEDURE INPUT_DELTA
BEGIN
DEFINE PATTERN 9 = '(:30:)(:61:)THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789!"#$%&(:13:)(:00:)'
DEFINE PATTERN 10 = #3B0E "ENTER"
INITREAD #133F 65 EXPECT PATTERN 9 DUMP
INITREAD #133F 65 EXPECT PATTERN 9 DUMP
INITREAD #133F 65 EXPECT PATTERN 9 DUMP
INITREAD #133F 65 EXPECT PATTERN 9 DUMP
INITAPPEND #133F 2 PATTERN 10
WAITINIT 600
END
PROCEDURE BTTY
BEGIN
DEFINE PATTERN 1 = #6D0E #520E
APPEND #133F 4 PATTERN 1
END
PROCEDURE SETUP_1
BEGIN
DEFINE PATTERN 2 = #440E #510E #6B0E #0817 #0B0B #0B0B #6B0E #5E0E #08
APPEND #133F 17 PATTERN 2
END
PROCEDURE SETUP_2
BEGIN
DEFINE PATTERN 3 = #0817 #0B0B #0B0B #6B0E #5E0E #08
APPEND #133F 11 PATTERN 3
END
BEGIN
CREATE 0 #130F 8 16
APPEND #130F 0 (#BB)
INITREAD #130F 16 DUMP
APPEND #130F 6 (#0001 #103F #1301)
WAITINIT 600
INITREAD #130F 16 DUMP
APPEND #130F 6 (#2001 #103F #1321)
WAITINIT 600
INITREAD #130F 16 DUMP
APPEND #130F 6 (#3001 #103F #1331)
WAITINIT 600
DISMANTLE #130F
CREATE 0 #132F 8 18
CREATE 0 #133F 8 64
APPEND #133F 0 (#BB)
BTTY
REPEAT 4 OUTPUT_DELTA
SETUP_1
INPUT_DELTA
DELAY 1
SETUP_2
INPUT_DELTA
DELAY 1
SETUP_2
INPUT_DELTA
DELAY 1
SETUP_2
INPUT_DELTA
DELAY 1
LIST OPERATIONS
CANCEL CRID #132F
CANCEL CRID #133F
DISMANTLE #133F
DISMANTLE #132F
DEASSIGN
CONSOLE IN