The Don Maslin Archive/maslin_archive.zip/AARDVARK_Tape_Backups/maslin_c_d_3oct95/ddrive/sydex/prgms/invntory.lbr/IT.CMD

OS/2 REXX Batch file | 1980-01-29 | 4KB | 210 lines

****************** it.cmd *************************
CLEAR
ERASE
SET inten OFF
SET talk OFF
SET confirm ON
SET escape OFF
SET colon OFF
SET exact ON
SET DEFAULT TO b
?
? ' hello!!'
?
? '               Version 4.0  01-01-84'
?
?
? '    ***** *    * *   * ***** *    * ***** *     *'
? '      *   **   * *   * *     **   *   *    *   * '
? '      *   * *  * *   * ***   * *  *   *     ***  '
? '      *   *  * * *   * *     *  * *   *      *   '
? '      *   *   **  * *  *     *   **   *      *   '
? '    ***** *    *   *   ***** *    *   *      *   '
@ 5,1 SAY '.'
@ 5,2 SAY '..'
@ 5,4 SAY '..'
@ 5,6 SAY '..'
@ 5,8 SAY '..'
@ 5,10 SAY '..'
@ 5,12 SAY '..'
@ 5,14 SAY '..'
@ 5,16 SAY '..'
@ 5,18 SAY '..'
@ 5,20 SAY '..'
@ 5,22 SAY '..'
@ 5,24 SAY '..'
@ 5,26 SAY '..'
@ 5,28 SAY '..'
@ 5,30 SAY '..'
@ 5,32 SAY '..'
@ 5,34 SAY '..'
@ 5,36 SAY '..'
@ 5,38 SAY '..'
@ 5,40 SAY '..'
@ 5,42 SAY '..'
@ 5,44 SAY '..'
@ 5,46 SAY '..'
@ 5,48 SAY '..'
@ 5,50 SAY '..'
@ 5,51 SAY ":"
@ 6,51 SAY ":"
@ 7,51 SAY ":"
@ 8,51 SAY ":"
@ 9,51 SAY ":"
@ 10,51 SAY ":"
@ 11,51 SAY ":"
@ 12,51 SAY ":"
@ 13,51 SAY ":"
@ 14,51 SAY ":"
@ 14,50 SAY '.'
@ 14,48 SAY '..'
@ 14,46 SAY '..'
@ 14,44 SAY '..'
@ 14,42 SAY '..'
@ 14,40 SAY '..'
@ 14,38 SAY '..'
@ 14,36 SAY '..'
@ 14,34 SAY '..'
@ 14,32 SAY '..'
@ 14,30 SAY '..'
@ 14,28 SAY '..'
@ 14,26 SAY '..'
@ 14,24 SAY '..'
@ 14,22 SAY '..'
@ 14,20 SAY '..'
@ 14,18 SAY '..'
@ 14,16 SAY '..'
@ 14,14 SAY '..'
@ 14,12 SAY '..'
@ 14,10 SAY '..'
@ 14,08 SAY '..'
@ 14,06 SAY '..'
@ 14,04 SAY '..'
@ 14,02 SAY '..'
@ 14,01 SAY '.'
@ 14,0 SAY ":"
@ 13,0 SAY ":"
@ 12,0 SAY ":"
@ 11,0 SAY ":"
@ 10,0 SAY ":"
@ 09,0 SAY ":"
@ 08,0 SAY ":"
@ 07,0 SAY ":"
@ 06,0 SAY ":"
@ 05,0 SAY ":"
@ 17,06 SAY "    CREATED by Steven Jay Sinofsky"
@ 19,06 SAY "213 N. Baker Hall  Cornell University"
@ 20,06 SAY "       Ithaca,  NY  14853"
@ 21,06 SAY "         [phone]"
@ 5,1 SAY '='
@ 5,2 SAY '=='
@ 5,4 SAY '=='
@ 5,6 SAY '=='
@ 5,8 SAY '=='
@ 5,10 SAY '=='
@ 5,12 SAY '=='
@ 5,14 SAY '=='
@ 5,16 SAY '=='
@ 5,18 SAY '=='
@ 5,20 SAY '=='
@ 5,22 SAY '=='
@ 5,24 SAY '=='
@ 5,26 SAY '=='
@ 5,28 SAY '=='
@ 5,30 SAY '=='
@ 5,32 SAY '=='
@ 5,34 SAY '=='
@ 5,36 SAY '=='
@ 5,38 SAY '=='
@ 5,40 SAY '=='
@ 5,42 SAY '=='
@ 5,44 SAY '=='
@ 5,46 SAY '=='
@ 5,48 SAY '=='
@ 5,50 SAY '=='
@ 5,51 SAY "|"
@ 6,51 SAY "|"
@ 7,51 SAY "|"
@ 8,51 SAY "|"
@ 9,51 SAY "|"
@ 10,51 SAY "|"
@ 11,51 SAY "|"
@ 12,51 SAY "|"
@ 13,51 SAY "|"
@ 14,51 SAY "|"
@ 14,50 SAY '='
@ 14,48 SAY '=='
@ 14,46 SAY '=='
@ 14,44 SAY '=='
@ 14,42 SAY '=='
@ 14,40 SAY '=='
@ 14,38 SAY '=='
@ 14,36 SAY '=='
@ 14,34 SAY '=='
@ 14,32 SAY '=='
@ 14,30 SAY '=='
@ 14,28 SAY '=='
@ 14,26 SAY '=='
@ 14,24 SAY '=='
@ 14,22 SAY '=='
@ 14,20 SAY '=='
@ 14,18 SAY '=='
@ 14,16 SAY '=='
@ 14,14 SAY '=='
@ 14,12 SAY '=='
@ 14,10 SAY '=='
@ 14,08 SAY '=='
@ 14,06 SAY '=='
@ 14,04 SAY '=='
@ 14,02 SAY '=='
@ 14,01 SAY '='
@ 14,0 SAY "|"
@ 13,0 SAY "|"
@ 12,0 SAY "|"
@ 11,0 SAY "|"
@ 10,0 SAY "|"
@ 09,0 SAY "|"
@ 08,0 SAY "|"
@ 07,0 SAY "|"
@ 06,0 SAY "|"
@ 05,0 SAY "|"
@ 22,0
STORE 1 TO x
DO WHILE x<50
 STORE x+1 TO x
ENDDO WHILE x<50
SET bell OFF
STORE '00/00/00' TO mdate
STORE t TO getdate
DO WHILE getdate
 ERASE
 ?
 ? " Enter date as MM/DD/YY"
 @ 3,0 SAY "  or <return> for none: " GET mdate PICTURE '99/99/99'
 READ
 IF val($(mdate,1,2))>12 ;
  .OR. val($(mdate,4,2))>31 ;
  .OR. (val($(mdate,7,2))<84 .AND. val($(mdate,7,2))<>0)
  @ 5,0 SAY chr(7)
  ? "     **** INVALID DATE, RE-ENTER ****"
  STORE 1 TO x
  DO WHILE x<25
   STORE x+1 TO x
  ENDDO WHILE x<25
  LOOP
 ELSE
  STORE f TO getdate
  SET DATE TO &mdate
 ENDIF val($(mdate,1,2))>12 ;
ENDDO WHILE getdate
RELEASE mdate,x,getdate
SET bell ON
USE a:diary
GO BOTTOM
IF DATE=DATE ()
 RESTORE FROM a:invnmbr
 STORE sales TO gsales
 SAVE TO a:invnmbr
ENDIF DATE=DATE ()
DO a:menue