*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*
*  ÉËÍÍÍÍË» É»    É» ÉËÍËËÍË» ÉËÍÍÍÍË»   ÉËÍÍÍÍË» É»    É» ÉËÍÍÍÍË» ÉËÍÍÍÍË»
*  ºº    ºº ºº    ºº ȼ ºº ȼ ºº    ºº   ºº    ȼ ÈÊ»  Éʼ ºº    ȼ ºº    ȼ
*  ºÌÍÍÍ͹º ºº    ºº    ºº    ºº    ºº   ºÌÍÍ͹    ÉÊÍÍÊ»  ºÌÍÍ͹   ºº
*  ºº    ºº ºº    ºº    ºº    ºº    ºº   ºº    É» ɹ    Ì» ºº    É» ºº    É»
*  ȼ    ȼ ÈÊÍÍÍÍʼ    ȼ    ÈÊÍÍÍÍʼ   ÈÊÍÍÍÍʼ ȼ    ȼ ÈÊÍÍÍÍʼ ÈÊÍÍÍÍʼ
*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*   Auto Exec BBS       (508) 833-0508 ->  300-19,200 HST  (6 Nodes)
* 1.5 Gigabytes On-Line   (508)833-0512 -> MicroCom QX/V.32c, 300-38,400 V.32
*®®®®®®®®®®®¯¯¯¯¯¯¯¯¯¯    Only Reg Reqd to D/L up to 450,000 bytes per day
*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*   SysOps: Milton Shaw & Gene Lafond      Home of AECLIP Clipper Libraries
*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*Specializing in Clipper/dBASE/FoxBase, 'C', Pascal, Games, Novell, MAC & Adult
*ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
*
* Program Title: TESTPCX.PRG
* Purpose: DEMONSTRATE DISPLAY OF .PCX FROM CLIPPER USING SHOWPCX() FUNCTION
*
* Date: 05/26/90
* Author: Milton F. Shaw Jr.
*
* Please leave comments concerning program on Auto Exec BBS to SysOp.
*
* To Complile: CLIPPER TESTPCX
*
* Linking Instructions:
*
* Plink86 FI TESTPCX LIB CLIPPER,EXTEND,AEPCX
* LINK /NOE /SE:250 TESTPCX,,,CLIPPER+EXTEND+AEPCX
* TLINK TESTPCX,,,CLIPPER+EXTEND+AEPCX
*
***************************** Header Display **************************

set color to w+/b
clear
SET COLOR TO +W/G
@ 00,00,04,27 BOX "ÚÄ¿³ÙÄÀ³ "
@ 02,05 SAY "PcBoard V14.2/E6"
@ 03,03 SAY "300-38400 Baud, 8-N-1"
SET COLOR TO +W/R
@ 00,28,04,49 BOX "ÚÄ¿³ÙÄÀ³ "
@ 02,30 SAY "Auto Exec Inc. BBS"
@ 03,32 SAY "1.5 GIGABYTES"
SET COLOR TO +W/G
@ 00,50,04,79 BOX "ÚÄ¿³ÙÄÀ³ "
@ 02,52 SAY "(508) 833-0508/ HST -19.2K"
@ 03,52 SAY "(508) 833-0512/ V.32-38.4K"
SET COLOR TO +W/R
@ 22,00,24,79 BOX "ÉÍ»º¼ÍȺ "
@ 23,02 SAY "Home of AECLIP Software - AECLIPT (GRAPHIC LIB), AECLIPM (MATH LIB) & more"
save screen to testscreen
set color to gr+/b
pcxname=space(30)
yn="Y"
do while yn="Y"
@7,10 say "Enter PCX: " get pcxname picture "@!"
read
if ".PCX" $ pcxname
pcxname=upper(trim(pcxname))
else
pcxname=upper(trim(pcxname))+".PCX"
endif
**************************** CALL TO SHOWPCX() ************************

showpcx(pcxname)


restore screen from testscreen
@12,27 say "Do Another PCX? " get yn picture "!"
pcxname=pcxname+space(30-len(pcxname))
read
@12,27 say space(20)
enddo

***************************  GOODBYE MESSAGE **************************

set color to w+/rb
@12,19 clear to 18,62
@12,19 to 18,62
@13,33 say "Auto Exec BBS"
@14,20 say "Call Today - Over 1200 Clipper/Dbase Files"
set color to gr+*/br
@14,20 say "Call Today"
@14,38 say "1200"
set color to w+/rb
@15,20 say "Get your copy of the AECLIP Software now."
@16,20 say "AECLIPT - (68 Graphic Functions) - Great "
@17,20 say "AECLIPM - (48 Math Functions) - Powerful "
@24,1 say ""

return