home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / FAMILY.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  43 lines
  1. * START.CMD used for initialising FAMILY programs. 4/10/86
  2. SET TALK OFF
  3. SET COLON OFF
  4. SET BELL OFF
  5. SET DEFAULT TO B:
  6. DO WHILE .NOT. FILE('b:family.dbf')
  7.    ? CHR(7)+'WRONG disk in drive B:'
  8.    ? 'Put FAMILY DATA disk in, then press <RETURN>'
  9.    SET CONSOLE OFF
  10.    WAIT
  11.    SET CONSOLE ON
  12. ENDDO
  13. RESET B:
  14. SET DEFAULT TO A:
  15. SELECT PRIMARY
  16. USE b:family
  17. GO BOTTOM
  18. STORE STR(#,4) TO xfin
  19. STORE 386-VAL(xfin)*185/1024 to kbytes
  20. STORE CHR(27)+")" TO xinv
  21. STORE CHR(27)+"(" TO xnor
  22. STORE '  /  /  ' TO mdate
  23. STORE ' ' TO xpaper
  24. ERASE
  25. @ 1,30 SAY xinv+" FAMILY RECORDS "+xnor
  26. @ 1,0 SAY "No. of Records "+xfin
  27. @ 1,58 SAY STR(INT(kbytes/3.86+.5),2)+"% ("+STR(kbytes,3)+" Kbytes) Free"
  28. @ 10,20 SAY "To-day's Date (dd/mm/yy) ? "
  29. @ 13,26 SAY "<U>S or <A>4 Paper? < >"
  30. DO WHILE $(mdate,2,1)=' ' .OR. $(mdate,5,1)=' '.OR. @(' ',$(mdate,7,2)) # 0
  31.    @ 10,47 GET mdate PICTURE "99/99/99"
  32.    READ
  33. ENDDO
  34. DO WHILE @(xpaper,'AU') = 0
  35.    @ 13,47 GET xpaper PICTURE "!"
  36.    READ
  37. ENDDO
  38. SET date TO &mdate
  39. SELECT SECONDARY
  40. USE a:notes
  41. SELECT PRIMARY
  42. DO main
  43.