Last change
on this file since 729 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
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.