|
Last change
on this file since 691 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
594 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | ABSVDGPF ;EAP ALTOONA VOLUNTARY GPF ENTER EDIT ;9/26/01 10:19 AM
|
|---|
| 2 | V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26**;JULY 6, 1994
|
|---|
| 3 | START S DIC=503342,DIC(0)="AEMNLZQ",DLAYGO=DIC D ^DIC I Y<0 G END
|
|---|
| 4 | S DA=+Y S DIE=DIC,DR="[ABSV DON GPF]" D ^DIE
|
|---|
| 5 | D ASKFOR I %=1 G START
|
|---|
| 6 | END ;;;;;;;;;
|
|---|
| 7 | K DIC,DIC(0),DR,DA,DIE
|
|---|
| 8 | Q
|
|---|
| 9 | ASKFOR ;;;;RETURNS % WITH EITHER 1 FOR YES OR 0 FOR NO;;;;;
|
|---|
| 10 | S %A="Do you want to Add/Edit Another GPF",%B="Enter Yes or No."
|
|---|
| 11 | W !!,%A_"? (YES) // " R ANS:$S($D(DTIME):DTIME,1:300)
|
|---|
| 12 | I ANS="" S ANS="YES"
|
|---|
| 13 | I (ANS["?") W !,%B G ASKFOR
|
|---|
| 14 | S ANS=$E(ANS,1) S %=$S(ANS="Y":1,ANS="y":1,1:0)
|
|---|
| 15 | K %A,%B,ANS
|
|---|
| 16 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
