top - download
⟦3b6df0404⟧ Wang Wps File
Length: 1224 (0x4c8)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN30.02«
Derivation
└─⟦4e34bac2f⟧ Bits:30006102 8" Wang WCS floppy, CR 0161A
└─ ⟦this⟧ »~ORPHAN30.02«
WangText
…02…CPS/SDS/028
…02…820421…02……02…
I/O CONTROL
DETAILED DESIGN SPECIFICATION…02……02…CAMPS
D̲E̲L̲E̲T̲E̲ ̲T̲H̲E̲ ̲G̲R̲O̲U̲P̲
GROUP ̲INCARNATION ̲OFFSET (GROUP ̲NO, INCARNATION)
(CC, LINES ̲BEFORE, U ̲F ̲B)
CC NE OK ?
SIZE = GROUPP.NO ̲OF ̲LINES
CURSOR ̲LINE = LINES ̲ABOVE +1
CHECK ̲LINE ̲ISPLAYED (CURSOR ̲LINE,LINES ̲BEFORE)(CCP)
CCP EQ YES ?
PUT ̲FIRST ̲LINE ̲DISP (CURSE ̲LINE)(CC)
CC NE OK ?
LINE = CURSOR ̲LINE ̲SPLIT.CURSOR ̲POS.FIRST ̲LINE ̲DISPLAYED +1
PUT ̲CURSOR ̲POS (LINE,1)(CC)
CC NE OK ?
PUT ̲DELETE ̲LINES (SIZE)(CC)
CC NG OK ?
GROUP.INCARNATIONS-1
UPDATE ̲GROUP ̲SIZES()()
Figure 4.2.1.4.5.5-6…86…1 …02… …02… …02… …02…
SET ̲POSITION (LINE ̲NO: INTEGER, INCAR: INTEGER)(CC:COMPLETION
̲CODE)
LINE ̲INCARNATION ̲OFFSET (LINE ̲NO, INCAR)
(LINES ̲BEFORE, USER ̲FIELDS ̲BEFORE, CC)
MEM ̲LINE = LINES ̲BEFORE +
CURSOR POSITION () (MEM ̲POS, COLUMN, LINES ̲ABOVE,CC)
FIRST ̲LINE = MEM ̲POS ̲LINES ̲ABOVE
LINES ̲AB = 0
MEM ̲LINE LE FIRST ̲LINE OR
MEM ̲LINE GE FIRST ̲LINE+SPLIT ̲SIZE ?
LINES ̲AB = LINES ̲ABOVE (MEM ̲POS-MEM ̲LINE)
SET CURSOR (MEM ̲LINE, 0, LINES ̲AB)(CC
