12 lines
910 B
Mathematica
12 lines
910 B
Mathematica
|
RMPREGF ;PHX/HPL-EYEGLASS FRAME MAINTENANCE UTILITY ;4/01/1995/29/1994
|
||
|
|
;;3.0;PROSTHETICS;;Feb 09, 1996
|
||
|
|
;READ INFO IN TO TEMP GLOBAL
|
||
|
|
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"
|
||
|
|
D ^DIR Q:X=""!(X="^") S ^TMP($J,"MANUF")=Y
|
||
|
|
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"
|
||
|
|
D ^DIR Q:X=""!(X="^") S ^TMP($J,"FNAM")=Y
|
||
|
|
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"
|
||
|
|
D ^DIR Q:X=""!(X="^") S ^TMP($J,"FCOL")=Y
|
||
|
|
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"
|
||
|
|
D ^DIR Q:X=""!(X="^") S ^TMP($J,"FCOL")=Y
|