home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3ledge.zip
/
VENDLIST.PRG
< prev
Wrap
Text File
|
1986-01-12
|
1KB
|
79 lines
SET HEADING OFF
SET SAFETY OFF
*************************** (VENDLIST.PRG) 08/11/85 jay kenney
CLEAR
SET BELL OFF
SET TALK OFF
SET CONFIRM ON
SET EXACT ON
STORE ' ' TO OPTION
USE VEND
STORE 1 TO N1
STORE 0 TO N2
STORE 0 TO X
DO WHILE .NOT. EOF()
IF OPTION='Y'
RETURN
ENDIF
@ N1,N2 SAY STR(ACCT,3,0)+' '+NAME
STORE N1+1 TO N1
STORE X+1 TO X
SKIP
IF X=22
STORE 1 TO N1
STORE 27 TO N2
ENDIF
IF X=44
STORE 1 TO N1
STORE 54 TO N2
ENDIF
IF X=66
WAIT
CLEA
STORE 1 TO N1
STORE 0 TO N2
STORE 0 TO X
ENDIF
IF EOF()
@ 23,24 SAY ' Print this list ? '
store ' ' TO OPTION
WAIT ' ? ' TO OPTION
ENDDO
IF OPTION<>'Y'
CLEA
RETU
ENDIF
IF OPTION='Y'
CLEA
GO TOP
STORE 0 TO T
STORE 1 TO N1
STORE 1 TO X
STORE 0 TO N2
DO WHILE .NOT. EOF()
SET DEVI TO PRIN
SET PRIN ON
@ N1,N2 SAY STR(ACCT,3,0)+' '+NAME
STORE X+1 TO X
IF X=1
STORE 0 TO N2
STORE N1+1 TO N1
ENDIF
SKIP
IF X=2
STORE 27 TO N2
ENDIF
IF X=3
STORE 54 TO N2
*STORE N1+1 TO N1
STORE 0 TO X
ENDIF
SET PRIN OFF
SET DEVI TO SCRE
ENDDO
EJECT
RETURN
ENDIF
endif
ENDDO
RETURN