home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / dataflow.lbr / INITMEM1.CZD / INITMEM1.CMD
OS/2 REXX Batch file  |  1989-06-15  |  2KB  |  61 lines
  1. *initmem.prg
  2. *to initialize memory files
  3. erase
  4. STORE '        ' TO DATEA
  5. @ 12,0 SAY 'PLEASE INSERT TODAYS DATE' GET DATEA PICT '99/99/99'
  6. READ
  7. SET DATE TO &DATEA
  8. ERASE
  9. @ 1,0 SAY 'WARNING*******THIS PROGRAM DESTROYS EXISTING DATA********'
  10. @ 2,0 SAY 'IN ORDER TO PROCEED PLEASE TYPE THE REQUIRED PASSWORD  '
  11. SET CONSOLE OFF
  12. set colon off
  13. set talk off
  14. STORE '        ' TO DATE
  15. @ 22,0 GET DATE
  16. READ
  17. IF DATE<>DATE()
  18. SET CONSOLE ON
  19. set colon on
  20. @ 4,0 SAY ' ************PASSWORD INCORRECT************'
  21. ? CHR(7)
  22. RETURN
  23. ENDIF
  24. SET CONSOLE ON
  25. ? CHR(7)
  26. ? CHR(7)
  27. @ 4,0 SAY '*****************PASSWORD CORRECT******************'
  28. RELEASE ALL
  29. store 'P. D. S. PTY LTD                  ' TO LINE1
  30. STORE '(INCORPORATED IN SOUTH AUSTRALIA) ' TO LINE2
  31. STORE '433 MORPHETT STREET,              ' TO LINE3
  32. STORE 'ADELAIDE, SOUTH AUSTRALIA , 5000  ' TO LINE4
  33. STORE '(08) 211 7575                     ' TO LINE5
  34. STORE 'P. D. S. PTY LTD' TO SLINE1
  35. STORE '(INC IN S. AUST)' TO SLINE2
  36. STORE '433 MORPHETT ST.' TO SLINE3
  37. STORE 'ADELAIDE S.A. 5000' TO SLINE4
  38. STORE '(08) 211 7244    ' TO SLINE5
  39. STORE 'CHR(15)' TO COMPRESS
  40. STORE 'CHR(18)' TO NORMAL
  41. SAVE TO A:NAME
  42. RELEASE ALL
  43. STORE 0 TO PINVNUM
  44. STORE 1 TO POINTER1
  45. STORE 1 TO POINTER2
  46. STORE 1 TO POINTER3
  47. SAVE TO A:CONSTANT
  48. RELEASE ALL
  49. STORE 1 TO CREDIT:NUM
  50. SAVE TO A:CREDIT
  51. RELEASE ALL
  52. STORE 1 TO CHQNUM
  53. SAVE TO A:GENLED
  54. RELEASE ALL
  55. STORE 0 TO NO
  56. SAVE TO A:RECEIPT
  57. RELEASE ALL
  58. RETURN
  59. 1
  60. STORE 'P. D. S. PTY LTD' TO SLINE2
  61. STORE '433 MORPHETT ST.' TO SLINE