home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo1.lbr / NAME.CZD / NAME.CMD
Encoding:
Text File  |  1993-10-26  |  1.3 KB  |  27 lines
  1. *NAME.PRG
  2. *THIS PROGRAM WILL ACCEPT A NEW NAME OR ALTER THE NAME AND PARTICULARS
  3. *TO BE PRINTED ON THE VARIOUS STATIONERY
  4. ERASE
  5. SET TALK OFF
  6. RESTORE FROM A:NAME
  7. @ 1,0 SAY 'FILL IN THE BLANK LINES , THESE WILL BE SAVED AND PRINTED ON THE '
  8. @ 2,0 SAY 'PACKING LISTS, INVOICES AND STATEMENTS.'
  9. @ 3,0 SAY '*****************************************************************'
  10. @ 6,0 SAY ' LINE 1' GET LINE1 PICT '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;
  11. !!!!!'
  12. @ 7,0 SAY ' LINE 2' GET LINE2 PICT '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;
  13. !!!!'
  14. @ 8,0 SAY ' LINE 3' GET LINE3 PICT '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;
  15. !!!!!'
  16. @ 9,0 SAY ' LINE 4' GET LINE4 PICT '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;
  17. !!!!!'
  18. @ 10,0 SAY ' LINE 5' GET LINE5 PICT '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;
  19. !!!!!'
  20. @ 12,0 SAY ' SHORT LINE 1' GET SLINE1 PICT '!!!!!!!!!!!!!!!!!!!'
  21. @ 13,0 SAY ' SHORT LINE 2' GET SLINE2 PICT '!!!!!!!!!!!!!!!!!!!'
  22. @ 14,0 SAY ' SHORT LINE 3' GET SLINE3 PICT '!!!!!!!!!!!!!!!!!!!'
  23. @ 15,0 SAY ' SHORT LINE 4' GET SLINE4 PICT '!!!!!!!!!!!!!!!!!!!'
  24. @ 16,0 SAY ' SHORT LINE 5' GET SLINE5 PICT '!!!!!!!!!!!!!!!!!!!'
  25. READ
  26. SAVE TO A:NAME
  27. RETURN