|
Last change
on this file since 823 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
910 bytes
|
| Line | |
|---|
| 1 | RMPREGF ;PHX/HPL-EYEGLASS FRAME MAINTENANCE UTILITY ;4/01/1995/29/1994
|
|---|
| 2 | ;;3.0;PROSTHETICS;;Feb 09, 1996
|
|---|
| 3 | ;READ INFO IN TO TEMP GLOBAL
|
|---|
| 4 | S DIR(0)="F^3:30^",DIR("A")="Select FRAME MANUFACTURER: ",DIR("T")=60,DIR("?")="ENTER THE NAME OF THE FRAME'S MANUFACTURER ; 3 TO 30 CHARACTERS ALLOWED"
|
|---|
| 5 | D ^DIR Q:X=""!(X="^") S ^TMP($J,"MANUF")=Y
|
|---|
| 6 | S DIR(0)="F^3:30^",DIR("A")="Select FRAME NAME: ",DIR("T")=60,DIR("?")="ENTER THE NAME OF THE FRAME ; 3 TO 30 CHARACTERS ALLOWED"
|
|---|
| 7 | D ^DIR Q:X=""!(X="^") S ^TMP($J,"FNAM")=Y
|
|---|
| 8 | S DIR(0)="F^3:30^",DIR("A")="Select FRAME COLOR: ",DIR("T")=60,DIR("?")="ENTER THE FRAME COLOR AS SPECIFIED BY MANUFACTURER ; 3 TO 30 CHARACTERS ALLOWED"
|
|---|
| 9 | D ^DIR Q:X=""!(X="^") S ^TMP($J,"FCOL")=Y
|
|---|
| 10 | S DIR(0)="F^3:30^",DIR("A")="Select FRAME SIZE/TEMPLE LENGTH: ",DIR("T")=60,DIR("?")="ENTER THE NAME OF THE FRAMES MANUFACTURER ; 3 TO 30 CHARACTERS ALLOWED"
|
|---|
| 11 | D ^DIR Q:X=""!(X="^") S ^TMP($J,"FCOL")=Y
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
