home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo1.lbr / START.CZD / START.CMD
Encoding:
Text File  |  1993-10-26  |  2.0 KB  |  68 lines
  1. *START.PRG
  2. SET TALK OFF
  3. *THE INITIALIZATION AND SECURITY PROGRAM
  4. ERASE
  5. @ 12,0 SAY 'INSERT DATA DISK IN DRIVE B: AND PRESS ANY KEY TO CONTINUE'
  6. WAIT
  7. RESET B:
  8. DO WHILE T
  9. ERASE
  10. @ 1,0 SAY 'PLEASE ENTER THE DATE  IN EUROPEAN/AUSTRALIAN FORMAT '
  11. @ 2,0 SAY 'PLEASE DO IT CAREFULLY AS THIS WILL AFFECT THE DATE ON'
  12. @ 3,0 SAY 'DOCUMENTS AND DATA LINES, ENTER AS DD/MM/YY'
  13. STORE '        ' TO DATEA
  14. @ 5,40 GET DATEA PICTURE '99/99/99'
  15. READ
  16. SET DATE TO &DATEA
  17. if DATEA='00/00/00'
  18. loop
  19. endif
  20. STORE VAL($(DATEA,4,2)) TO M
  21. IF M>12
  22. LOOP
  23. ENDIF
  24. ERASE
  25. TEXT
  26.              COPYRIGHT 1984 - P. D. S. PTY LTD.
  27.              **********************************      
  28. These programs may be freely copied and distributed subject to the
  29. following restrictions:-
  30.  
  31.    1. This entire copyright message must be displayed on the
  32.       screen for a minimum of 20 seconds every time the prog-
  33.       ram is started.
  34.  
  35.    2. The programs must not be sold for commercial gain.
  36.  
  37.    3. P. D. S. Pty Ltd publishes and supports this and a wide range
  38.       of excellent public domain software.  An annual subscription
  39.       to PDS magazine and disks is available in Australia
  40.       for $120 (Dec 1984 - slightly higher rates overseas).
  41.       Subscribers receive twelve disks of high quality public domain
  42.       software plus printed documentation each year.
  43.  
  44. PDS IS AVAILABLE FOR IBM-PC, APPLE II, OSBORNE, KAYPRO, NEC & CP/M-80
  45.  
  46. For subscriptions or further information, contact:-
  47.             P. D. S. PTY LTD,
  48.             GPO BOX 2245,
  49.             ADELAIDE, SA 5001, AUSTRALIA, (08) 211 7575
  50. ENDTEXT
  51. SET CONSOL OFF
  52. STORE 1000 TO DELAY
  53. DO WHILE DELAY >0
  54. STORE DELAY-1 TO DELAY
  55. LOOP
  56. ENDDO
  57. SET CONSOLE ON
  58. *@ 24,0 SAY' PRESS ANY KEY TO CONTINUE .......'
  59. *WAIT
  60. ERASE
  61. DO  A:MAINMENU
  62. ENDDO
  63.  
  64. NT INVOICES                              '
  65. ?'          5       PRINT STATEMENTS                '
  66. ?'          6       FILE MAINTENANCE                       '
  67. ?'          7       CREDITS                         '
  68. ?'          8       GENERA