| 1 | ZVEMS ;DJB,VSHL**Setup VShell [11/17/96 12:47pm]
|
|---|
| 2 | ;;12;VPE;;COPYRIGHT David Bolduc @1993
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | NOTES ;General notes
|
|---|
| 6 | ;;VEE File numbers: 19200-19204
|
|---|
| 7 | ;;************** SCROLLING **************
|
|---|
| 8 | ;;Keep Scroll arrays from clashing. Any array originating in ^ZVEMKT
|
|---|
| 9 | ;;can't allow branching (to Help for example) which will call ^ZVEMKT
|
|---|
| 10 | ;;and start another array that will clash. Only external users of the
|
|---|
| 11 | ;;scroller (like VGL) which have a different subscript, can do this.
|
|---|
| 12 | ;;^%ZVEMKT - Scroller
|
|---|
| 13 | ;; IMPORT ^TMP("VEE","K",$J,
|
|---|
| 14 | ;; RTN ""
|
|---|
| 15 | ;; GLB ""
|
|---|
| 16 | ;;External IMPORTING - Subscript starts with "I" when IMPORTING.
|
|---|
| 17 | ;; VGL ^TMP("VEE","IG"_GLS,$J,
|
|---|
| 18 | ;; VGL(Piece) ^TMP("VEE","IGP",$J,
|
|---|
| 19 | ;; VEDD(Global Location) ^TMP("VEE","ID"_VEDDS,$J,
|
|---|
| 20 | ;;VRR(Rtn Edit) ^TMP("VEE","IR"_VRRS,$J,
|
|---|
| 21 | ;;
|
|---|
| 22 | ;;VEET("HD") + VEET("FT") - 1 = Top $Y
|
|---|
| 23 | ;;Top $Y + VEET("S2") - VEET("S1") = Bottom $Y
|
|---|
| 24 | ;;************** NEW VPE VERSION **************
|
|---|
| 25 | ;;Notes for changing version number and doing updates.
|
|---|
| 26 | ;;VEE File number range: 19200-19204
|
|---|
| 27 | ;;NEW VERSION: 1. VPE_xx.DOC.....in DOS..Update version number
|
|---|
| 28 | ;; 2. Change 2nd line of ^ZVEM*
|
|---|
