ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/GRAPHICS/MISC/OKF220.ZIP/OKSHOW10.ZIP/SHOWPIC.PRG

Text File | 1987-04-25 | 814 b | 24 lines

set talk off
select 1
* picbase.dbf is included in with OKSHOW, but it only has one field
* You should be able to improve on that easily.
use picbase
go top
do while .not. eof()
   clear
* here's a neat tip, set the color to black on black so no one can
* see the file name on the screen, OKSHOW will find it even if no one
* else can.
   set color to 0/0
* the location of the tilde must be 5 down and five over. In DBASE
* we start with 0,0 so the position is 5,5
   @ 4,4 say "~"+picname+" "
* fix up the colors so humans can read the screen
   set color to 7/0
* tell the user to press the + to the right of the numeric keypad.
   @ 10,10 say "Press the + key on the right of numeric keypad"
   @ 11,10 say "to view picture "+trim(picname)+", or press return."
   wait
   skip +1
enddo