DataMuseum.dk

top - download

    Length: 3576 (0xdf8)
    Types: TextFile
    Names: »FORMAT_R_E2.S«

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »USERS.D!LN.D!SOURCE.D!FORMAT_R_E2.S« 

TextFile

BEGIN
DEFINE PATTERN 1 = '(:01:)(:02:)(:30:)(:14:)(:04:)(:14:)(:43:)S00105800100(:00:)'
DEFINE PATTERN 2 = '(:00:)(:30:)(:14:)(:04:)(:14:)(:43:)S10101800400'
DEFINE PATTERN 3 = '(:00:)(:30:)(:14:)(:04:)(:14:)(:43:)S20106802200'
DEFINE PATTERN 4 = '(:00:)(:30:)(:14:)(:04:)(:14:)(:43:)S30000000000'
DEFINE PATTERN 5 = '(:00:)(:30:)(:14:)(:04:)(:14:)(:43:)S40000000000'
DEFINE PATTERN 6 = '(:00:)(:30:)(:14:)(:04:)(:14:)(:43:)S50000000000'
DEFINE PATTERN 7 = '(:00:)(:30:)(:14:)(:04:)(:14:)(:43:)S60000000000'
DEFINE PATTERN 8 = '(:02:)(:30:)(:14:)(:04:)(:14:)(:43:)S70000000000'
CREATE 0 #120F 7 16
APPEND #120F 0 (#1111)
INITREAD #120F 16 DUMP
APPEND #120F 6 (#0001 #107F #1201)
INITREAD #120F 16 DUMP
APPEND #120F 6 (#2001 #107F #1221)
CREATE 0 #122F 7 130
INITREAD #122F 30 DUMP   «bs»«bs»«bs»              "CLEAR MEMORY"
APPEND #122F 8 (#0103 #031E #0E04 #522B)
INITREAD #122F 128 DUMP             "SET SPLIT 0"
APPEND #122F 19 PATTERN 1
INITREAD #122F 128 DUMP             "SET SPLIT 1"
APPEND #122F 18 PATTERN 2
INITREAD #122F 128 DUMP             "SET SPLIT 2"
APPEND #122F 18 PATTERN 3
INITREAD #122F 128 DUMP             "SET SPLIT 3"
APPEND #122F 18 PATTERN 4
INITREAD #122F 128 DUMP             "SET SPLIT 4"
APPEND #122F 18 PATTERN 5
INITREAD #122F 128 DUMP             "SET SPLIT 5"
APPEND #122F 18 PATTERN 6
INITREAD #122F 128 DUMP             "SET SPLIT 6"
APPEND #122F 18 PATTERN 7
INITREAD #122F 128 DUMP             "SET SPLIT 7"
APPEND #122F 18 PATTERN 8
INITREAD #122F 128 DUMP             "SET TRANSMIT DESTIN. OF SPLIT 1,2,3"
APPEND #122F 20 (#0303 #0F1E #0E04 #632B #5230 #2B0E #3163 #0E52 #632B #5232)
WAITINIT 20
"
"
"CLEAR SPLIT 2
"-------------
"
INITREAD #122F 128 DUMP
APPEND #122F 11 (#0403 #061E #0E04 #572B #0E32 #0052)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"SELECT SPLIT 2
"-------------
"
"INITREAD #122F 128 DUMP
"APPEND #122F 09 (#0403 #041E #0E04 #572B #0032)
"DUMP BUFFER 2 FROM 0 TO 50
"WAITINIT 10
"
"
"1.OUTPUT (
"----------------------------------------------------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 36 (#0503 #021E #0E04 #1E40 #0406 #240E #3030 #3130 #091E #0D04 #0D0D #0D0D #0D0D #0D0D #501E #2004 #2020 #2020)
APPEND #122F 36 (#0603  #2020 #2020 #3220 #3236 #2020 #270E #0840 #270E #6444 #280E #3040 #3930 #202F #2020 #2020 #2020 #2020)
APPEND #122F 18 (#0603  #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020)
APPEND #122F 35 (#0703 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #1E20 #0401 #1E0D #0403 #2B0E #005F)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"2.OUTPUT ()
"----------------------------------------------------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 31 (#0803 #031E #0F04 #2620 #091E #5200 #4658 #4942 #2020 #2020 #021E #0E04 #1E34 #0403 #2B0E #005F)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"3.OUTPUT ()
"----------------------------------------------------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 35 (#0903 #031E #0F04 #2635 #361E #4300 #4E49 #4543 #544E #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020)
APPEND #122F 36 (#0A03 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #2020 #1E20 #0402 #340E)
APPEND #122F 30 (#0B03 #011E #0D04 #011E #0D04 #111E #2004 #2020 #2020 #2020 #2020 #5020 #4E55 #4843 #0D0D)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"
"
"FORMAT MODE ON
"--------------
"
INITREAD #122F 128 DUMP
APPEND #122F  7 (#1303 #021E #0E04 #0041)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"
LIST OPERATIONS
CANCEL CRID #120F
CANCEL CRID #122F
DISMANTLE #122F
DISMANTLE #120F
END 0