14 lines
372 B
Mathematica
14 lines
372 B
Mathematica
|
VACPT ;ALB/GRR - DISPLAY CPT COPYRIGHT INF ; 12 APR 1989@1400
|
||
|
|
;;5.3;Registration;**123,124,138**;Aug 13, 1993
|
||
|
|
;
|
||
|
|
; This routine now calls the CPT api for displaying the
|
||
|
|
; CPT COPYRIGHT information
|
||
|
|
;
|
||
|
|
D COPY^ICPTAPIU
|
||
|
|
Q:$G(IOST)["P-" ;if printer, quit
|
||
|
|
;
|
||
|
|
N DIR,DIRUT,DIROUT,DTOUT,DUOUT,X,Y
|
||
|
|
S DIR(0)="FAO",DIR("A")="Press any key to continue",DIR("?")=""
|
||
|
|
D ^DIR
|
||
|
|
Q
|