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

⟦993f7b722⟧ TextFile

    Length: 4058 (0xfda)
    Types: TextFile
    Names: »SAVE_80CHAR«

Derivation

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

TextFile

BEGIN
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
WAITINIT 10
WAITINIT 10
"
"
"CLEAR MEMORY
"-------------
"
INITREAD #122F 128 DUMP
APPEND #122F 8 (#0003 #031E #0E04 #522B)
WAITINIT 10
"
"
"ASSIGN SPLIT 0
"---------------
"
INITREAD #122F 128 DUMP
APPEND #122F 19 (#0103 #0E1E #0E04 #532B #3030 #3031 #3835 #3030 #3031 #0030)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"ASSIGN SPLIT 1
"---------------
"
INITREAD #122F 128 DUMP
APPEND #122F 19 (#0203 #0E1E #0E04 #532B #3031 #3031 #3831 #3030 #3034 #0030)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"ASSIGN SPLIT 2
"---------------
"
INITREAD #122F 128 DUMP
APPEND #122F 19 (#0303 #0E1E #0E04 #532B #3032 #3031 #3836 #3230 #3031 #0030)
DUMP BUFFER 2 FROM 0 TO 50
WAITINIT 10
"
"
"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 32 (#0503 #021E #0E04 #1E40 #0406 #240E #3030 #3130 #011E #0D04 #191E #2004 #2020 #2020 #2052 #2020)
APPEND #122F 34 (#0603 #5420 #5845 #2054 #0E20 #4027 #0E08 #4427 #0D44 #071E #0E04 #4028 #3530 #0D30 #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 #2D2F #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 28 (#0903 #1E41 #0402 #340E #011E #0D04 #071E #0E04 #4028 #3530 #0D30 #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 #2C2F #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 28 (#0C03 #1E42 #0402 #340E #011E #0D04 #071E #0E04 #4028 #3530 #0D30 #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 #2B2F #361E #4300 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343)
WAITINIT 10
WAITINIT 10
APPEND #122F 34 (#0E03 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343 #4343)
APPEND #122F 28 (#0F03 #1E43 #0402 #340E #011E #0D04 #071E #0E04 #4028 #3530 #0D30 #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 #2A2F #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
"
"
CANCEL CRID #120F
CANCEL CRID #122F
DISMANTLE #122F
DISMANTLE #120F
END 0