VALM4 ;ALB/MJK - Screen Malipulation Utilities ;02:36 PM 16 Dec 1992
Source file <VALM4.m>
Package | Total | Call Graph |
---|---|---|
Registration | 2 | REFRESH^VALM ($$LOWER,$$NOW,INSTR)^VALM1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
RESET | ; -- reset scrolling region to bottom of screen
|
|
PGUPD | ; -- update page var and screen
|
|
UND(STR,X,Y,LEN,ON,OFF,ERASE) | ;
|
|
IOIL(DX,DY) | ; -- position cursor ; insert line ; cr
|
|
PAGE(BEG,LINES) | ; -- calc page #
|
|
FORMATQ | ||
LAST | ; -- display last screen (LS)
|
|
NEXT | ; -- display next screen (NX)
|
|
GET(LNUM) | ; -- get actual line number (may be different if indexed)
|
|
RE | ; -- re-display current screen (RE)
|
|
LST | ; -- compute last line on screen
|
|
LASTQ | ||
PLUS | ; -- add plus indicators to screen
|
|
IOXY(DX,DY) | ; -- position cursor and tell os
|
|
FINISH | ; -- finish action tasks
|
|
PAINT | ;
|
|
FIRSTQ | ||
EXTRACT(X) | ; -- extract string
|
|
PGUPDQ | ||
FIRST | ; -- display first screen (FS)
|
|
FORMAT(LINE,TEXT,FIXED,PREVCOL,TXTLEFT,RMAR,DY) | ;
|
|
START | ; -- start action tasks
|
|
WRITEQ | ||
PREVQ | ||
WRITE(LINE,LF,CTRL,DY) | ;
|
|
PREV | ; -- display previous screen (BU)
|
|
SCROLL | ; -- set scrolling region to list area
|
|
NEXTQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("VALM VIDEO" | WRITE+6, FORMAT+4 |
Name | Line Occurrences |
---|---|
$$EXTRACT | WRITE+3 |
$$PAGE | PGUPD+2 |
FINISH | NEXTQ, PREVQ, FIRSTQ, LASTQ |
FIRSTQ | FIRST+2 |
FORMAT | WRITE+8, WRITE+9 |
IOIL | PREV+8, PAINT+3 |
IOXY | NEXT+7, PAINT+2, RESET+1, RESET+4, FORMAT+10, FORMAT+12 |
LASTQ | LAST+3, LAST+7 |
LST | NEXT+6, PREV+6, FIRST+4, LAST+9 |
NEXTQ | NEXT+3 |
PAINT | FIRST+4, LAST+9 |
PGUPD | NEXT+10, PREV+10, FIRST+5, LAST+10 |
PGUPDQ | PGUPD+2 |
PLUS | NEXT+9, PREV+9, PAINT+4 |
PREVQ | PREV+3 |
RESET | NEXT+9, PREV+9, PAINT+4 |
SCROLL | NEXT+6, PREV+6, PAINT+1 |
START | NEXT+1, PREV+1, FIRST+1, LAST+1 |
UND | RESET+3, PLUS+7, PLUS+8, PGUPD+4 |
WRITE | NEXT+8, PREV+8, PAINT+3 |
WRITEQ | WRITE+6 |
Name | Field # of Occurrence |
---|---|
^( | FORMAT+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ATR | FORMAT+1~, FORMAT+4*, FORMAT+10 |
BEG | PAGE~, PAGE+1*, PAGE+2 |
COL | FORMAT+1~, FORMAT+2*, FORMAT+4*, FORMAT+5, FORMAT+6 |
CRTLCOL | FORMAT+1~ |
CTRL | WRITE~, WRITE+6 |
>> CTRLCOL | FORMAT+6*, FORMAT+7*, FORMAT+8*, FORMAT+9, FORMAT+10 |
DN | PLUS+1~, PLUS+5*, PLUS+8 |
DX | IOIL~, IOXY~, WRITE+3* |
DY | NEXT+7*, NEXT+8, PREV+7*, PREV+8, PAINT+2*, PAINT+3*, IOIL~, IOXY~, WRITE~, WRITE+8 , WRITE+9, FORMAT~, FORMAT+10, FORMAT+12 |
ERASE | UND~, UND+1 |
FIN | FORMAT+1~, FORMAT+2*, FORMAT+4, FORMAT+8* |
FIXED | FORMAT~, FORMAT+6 |
I | NEXT+2~, NEXT+8*, PREV+2~, PREV+8*, LAST+2~, PAINT+1~, PAINT+3*, LST+1~, LST+2* |
>> IOBM | RESET+2*, SCROLL+1* |
>> IOEDEOP | RESET+1 |
>> IOIL | IOIL+1 |
>> IORC | RESET+2, SCROLL+1 |
>> IORVOFF | PLUS+8 |
>> IORVON | PLUS+8 |
>> IOSC | RESET+2, SCROLL+1 |
IOSL | RESET+2 |
IOST | PAINT+2 |
>> IOSTBM | RESET+2, SCROLL+1 |
>> IOTM | RESET+2*, SCROLL+1* |
>> IOUOFF | RESET+3, PLUS+7, PGUPD+4 |
>> IOUON | RESET+3, PLUS+7, PGUPD+4 |
>> IOXY | IOIL+1, IOXY+1 |
LASTCOL | FORMAT+1~ |
LEN | UND~, UND+1 |
LF | WRITE~, WRITE+4 |
LINE | WRITE~, WRITE+3, WRITE+6, WRITE+8, WRITE+9, FORMAT~, FORMAT+4 |
LINES | PAGE~, PAGE+2 |
LN | NEXT+2~, NEXT+8*, PREV+2~, PREV+8*, PAINT+1~, PAINT+3* |
LNUM | GET~, GET+1 |
OFF | UND~, UND+1 |
ON | UND~, UND+1 |
P | PGUPD+1~, PGUPD+2*, PGUPD+3, PGUPD+4 |
PREVCOL | FORMAT~, FORMAT+7, FORMAT+9*, FORMAT+11 |
RMAR | FORMAT~, FORMAT+8, FORMAT+11, FORMAT+12 |
STR | UND~, UND+1 |
TEXT | WRITE+1~, WRITE+3*, WRITE+6, WRITE+8, WRITE+9, FORMAT~, FORMAT+9, FORMAT+11 |
TXTLEFT | FORMAT~, FORMAT+5, FORMAT+6 |
UP | PLUS+1~, PLUS+5*, PLUS+7 |
>> VALM("BM" | NEXT+7, RESET+1, RESET+2, RESET+4, SCROLL+1, PLUS+8 |
>> VALM("FIXED" | WRITE+8, WRITE+9, EXTRACT+1 |
>> VALM("LINES" | NEXT+3, NEXT+4, NEXT+8, PREV+4, PREV+8, LAST+3, LAST+6, PAINT+2, PAINT+3, LST+2 , PGUPD+2 |
>> VALM("TM" | PREV+7, PAINT+2, PAINT+3, SCROLL+1, PLUS+7 |
>> VALM(0 | GET+1, PLUS+5 |
>> VALMAR | LST+2, WRITE+3, PLUS+5, PAGE+1 |
>> VALMBCK | FINISH+1*, RE+1*, RESET+4 |
>> VALMBG | NEXT+3, NEXT+4*, PREV+3, PREV+4, PREV+5*, FIRST+2, FIRST+3*, LAST+7, LAST+8*, PAINT+3 , LST+2, PLUS+5, PGUPD+2 |
VALMBGO | PREV+2~, PREV+5*, PREV+8 |
>> VALMCC | NEXT+6, PREV+6, FIRST+4, LAST+9, FINISH+1, WRITE+6, PGUPD+4 |
>> VALMCNT | NEXT+3, LAST+3, LAST+6, LST+2 |
>> VALMCOFF | START+2 |
>> VALMCON | FINISH+2 |
>> VALMDN | PLUS+8* |
>> VALMDY | START+1*, RESET+1 |
>> VALMEVL | WRITE+6, FORMAT+4 |
>> VALMIDX | GET+1, PLUS+5 |
>> VALMLFT | WRITE+9, EXTRACT+1 |
>> VALMLST | NEXT+5, LST+2*, PLUS+5 |
VALMLSTO | NEXT+2~, NEXT+5*, NEXT+8 |
>> VALMMENU | START+1 |
>> VALMPGE | PGUPD+2, PGUPD+3* |
>> VALMSGR | FORMAT+12 |
>> VALMUP | PLUS+7* |
>> VALMWD | RESET+3, WRITE+3, WRITE+9, EXTRACT+1, PGUPD+4 |
WIDTH | FORMAT+1~, FORMAT+4*, FORMAT+5 |
X | PREV+2~, PAINT+1~, EXTRACT~, EXTRACT+1, UND~, UND+1 |
Y | PREV+2~, PREV+4*, PREV+5, LAST+2~, LAST+6*, LAST+7, LAST+8, UND~, UND+1 |