top - download
⟦290326570⟧ Wang Wps File
Length: 897 (0x381)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN41.11«
Derivation
└─⟦945185ab2⟧ Bits:30005808 8" Wang WCS floppy, CR 0113A
└─ ⟦this⟧ »~ORPHAN41.11«
WangText
PUT ̲LOG ̲CIF
CASE WRITE ̲VIEW (CIF ̲WRITE ̲SIZE,
LOG ̲CIF ̲FIELD ̲LIST ̲2,
LOG ̲CIF ̲VIEW ̲REF,
COLLECT ̲BUFFER.RECS)
(CC):
ERROR? ANALYSE ̲ERROR (CC, O)
OK?
END CASE
CASE SAVE ̲VIEW (FALSE, LOG ̲CIF ̲VIEW
̲REF)
(CC):
ERROR? ANALYSE ̲ERROR (CC, O)
OK?
END CASE
COLLECT ̲BUFFER.HEADER.COLL ̲BUF ̲INDEX = 1
Same new index value.
PUT ̲LOG ̲DATA 10
RETURN
Fgure 4.2.1.4.1.4-9
PUT LOG CIF…86…1…02… …02… …02… …02… …02… …02… …02… …02…
PUT ̲LOG ̲DATA
Store COLLECT ̲BUFFER on fast disk log
file
CASE MODIFYBYTES (LOG ̲SAVE ̲FD, LOG ̲SAVE
̲FILEADDRESS,
COLLECT ̲BUFFER ̲BLE)
(LOG ̲SAVE ̲FILEADDRESS,
CC)
ERROR? ANALYSE ̲ERROR (CC, O)
OK?
END CASE
Figure 4.2.1.4.1.5-10
PUT LOG DATA
