DataMuseum.dk

top - download

    Length: 4868 (0x1304)
    Types: TextFile
    Names: »FORMAT_76CHAR.S«

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »USERS.D!LN.D!SOURCE.D!FORMAT_76CHAR.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 (FORMAT OFF,SET FIRST LINE, R TEXT, FIELD DEF, INHIBIT CURSOR RESTORE
"----------------------------------------------------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 36 (#0503 #021E #0E04 #1E40 #0406 #240E #3030 #3130 #011E #0D04 #191E #2004 #2020 #2020 #2052 #2020 #5420 #5845)
APPEND #122F 34 (#0603 #2054 #0E20 #4027 #0E08 #4427 #0D44 #0B1E #2004 #2020 #0E20 #4028 #3430 #0D43 #031E #0E04 #5F2B)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"2.OUTPUT (CURSOR POS,A...,CURSOR RESTORE, FIELD DEF, INHIBIT CURSOR RESTORE)
"----------------------------------------------------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 32 (#0703 #031E #0F04 #2D2B #361E #4100 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141)
APPEND #122F 34 (#0803 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141 #4141)
APPEND #122F 32 (#0903 #1E41 #0402 #340E #011E #0D04 #0B1E #2004 #2020 #0E20 #4028 #3430 #0D43 #031E #0E04 #5F2B)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"3.OUTPUT (CURSOR POS,B...,CURSOR RESTORE, FIELD DEF, INHIBIT CURSOR RESTORE)
"----------------------------------------------------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 32 (#0A03 #031E #0F04 #2C2B #361E #4200 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242)
APPEND #122F 34 (#0B03 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242 #4242)
APPEND #122F 32 (#0C03 #1E42 #0402 #340E #011E #0D04 #0B1E #2004 #2020 #0E20 #4028 #3430 #0D43 #031E #0E04 #5F2B)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"4.OUTPUT (CURSOR POS,C...,CURSOR RESTORE, FIELD DEF, INHIBIT CURSOR RESTORE)
"----------------------------------------------------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 32 (#0D03 #031E #0F04 #2B2B #361E #4300 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343)
APPEND #122F 34 (#0E03 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343)
APPEND #122F 32 (#0F03 #1E43 #0402 #340E #011E #0D04 #0B1E #2004 #2020 #0E20 #4028 #3430 #0D43 #031E #0E04 #5F2B)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"5.OUTPUT (CURSOR POS,D...,CURSOR RESTORE, FIELD DEF, INHIBIT CURSOR RESTORE)
"----------------------------------------------------------------------------
"
INITREAD #122F 128 DUMP
APPEND #122F 32 (#1003 #031E #0F04 #2A2B #361E #4400 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444)
APPEND #122F 34 (#1103 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444 #4444)
APPEND #122F 14 (#1203 #1E44 #0402 #340E #031E #0E04 #5F2B)
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 «a5»