home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbgen.lbr / STORY.CZD / STORY.CMD
Encoding:
Text File  |  1993-10-26  |  2.0 KB  |  97 lines
  1. *****************************************************
  2. *          *
  3. * STORY.CMD    Display story of * person and  *
  4. * version 1.0  allow editing or appending.    *
  5. *****************************************************
  6.  
  7. *** DISPLAY SCREEN HEADER ***
  8.  
  9. FIND &CURPER
  10. ERASE
  11.  
  12. @ 1,18 SAY "S T O R Y   O F "
  13. @ 2,15 SAY TRIM(FIRST:NAME)+" "+ TRIM(MID:NAME)+' '+TRIM(LAST:NAME)+'   ('+REF:NO+')'
  14. @ 3,18 SAY "Born:"
  15. @ 3,24 SAY BIRTH:DATE USING "#### ##/##"
  16. IF DEATH:DATE
  17.  @ 3,36 SAY "Died:"
  18.  @ 3,42 SAY DEATH:DATE USING "#### ##/##"
  19. ENDIF
  20. @ 4,0 SAY "__________________________________________________"
  21.  
  22. *** SEE IF THERE'S A STORY ON FILE ***
  23.  
  24. USE STORIES INDEX STORYREF
  25. FIND &CURPER
  26. IF #=0
  27.  @ 22,0 SAY "No story on file for this person. TYPE ANY KEY"
  28.  WAIT
  29. ELSE
  30.  
  31. *** DISPLAY THE STORY ON THE SCREEN
  32.  
  33.  STORE 6 TO MAX
  34.  @ 6,0
  35.  DO WHILE MAX
  36.   ? TEXT
  37.   SKIP
  38.   IF CURPER<>REF:CODE .OR. EOF
  39.    STORE 0 TO MAX
  40.   ELSE
  41.    IF MAX=19
  42.     @ 22,0 SAY "TYPE ANY KEY TO CONTINUE"
  43.     WAIT
  44.     STORE 6 TO MAX
  45.     DO WHILE MAX<22
  46.      STORE STR(MAX,2) TO LINE
  47.      @ &LINE,0
  48.      STORE MAX+1 TO MAX
  49.     ENDDO
  50.     @ 6,0
  51.    ELSE
  52.     STORE MAX+1 TO MAX
  53.    ENDIF
  54.   ENDIF
  55.  ENDDO
  56. ENDIF
  57.  
  58. *** OFFER TO LET HIM QUIT EDIT OR APPEND ***
  59.  
  60. STORE "Q" TO COMMAND
  61. @ 22,0 SAY "(Q)uit, (E)dit story, or (A)ppend to story? " get command picture '!'
  62. READ
  63. IF COMMAND="E"
  64.  IF #
  65.   FIND &CURPER
  66.   BROWSE
  67.  ELSE
  68.   @ 22,0
  69.   @ 22,0 SAY "SORRY I CAN'T EDIT A STORY THAT DOESN'T EXIST. Type any key."
  70.   WAIT
  71.  ENDIF
  72. ELSE
  73.  IF COMMAND="A"
  74.   ERASE
  75.   SET INTENSITY OFF
  76.   @ 11,10 SAY "Remember. When appending for this person,"
  77.   @ 13,20 SAY " REF:CODE = "+CURPER
  78.   SET INTENSITY ON
  79.   @ 22,0 SAY "TYPE ANY KEY TO CONTINUE"
  80.   WAIT
  81.   SET CARRY ON
  82.   APPEND
  83.  ENDIF
  84. ENDIF
  85.  
  86. *** FINISH UP BY OPENING UP FILES AND REDISPLAYING OLD FAMILY ***
  87.  
  88. STORE M1 TO CURPER
  89. USE PERSONS INDEX REF,FATHER,MOTHER,NAME
  90. DO EXPLORE1
  91.  
  92. RETURNSTORE 0 TO MAX
  93.         ELSE
  94.             IF MAX=19
  95.                 @ 22,0 SAY "TYPE ANY KEY TO CONTINUE"
  96.                 WAIT 
  97.                 STORE 6 TO