home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Don Maslin Archive
/
maslin_archive.zip
/
AARDVARK_Tape_Backups
/
maslin_c_d_3oct95
/
ddrive
/
sydex
/
prgms
/
invntory.lbr
/
IT.CMD
< prev
next >
Wrap
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 " (607) 256-1264"
@ 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