www.pudn.com > jq_transfile.ARJ > SDKSCRE1.SPR
* 靈컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
* � �
* � 08/15/96 SDKSCRE1.SPR 13:12:27 �
* � �
* 픔컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
* � �
* � Author's Name �
* � �
* � Copyright (c) 1996 Company Name �
* � Address �
* � City, Zip �
* � �
* � Description: �
* � This program was automatically generated by SDKSCRN. �
* � �
* 聃컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
m.currarea = SELECT()
* 靈컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
* � �
* � SDKSCRE1/MS-DOS Databases, Indexes, Relations �
* � �
* 聃컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
*
IF USED("profit")
SELECT profit
SET ORDER TO 0
ELSE
SELECT 0
USE (LOCFILE("profit.dbf","DBF","Where is profit?"));
AGAIN ALIAS profit ;
ORDER 0
ENDIF
IF USED("sdkrsc")
SELECT sdkrsc
SET ORDER TO TAG "rsctag"
ELSE
SELECT 0
USE (LOCFILE("..\sdkrsc.dbf","DBF","Where is sdkrsc?"));
AGAIN ALIAS sdkrsc ;
ORDER TAG "rsctag"
ENDIF
SELECT profit
* 靈컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
* � �
* � MS-DOS Window definitions �
* � �
* 聃컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
*
IF NOT WEXIST("wtest") ;
OR UPPER(WTITLE("WTEST")) == "WTEST.PJX" ;
OR UPPER(WTITLE("WTEST")) == "WTEST.SCX" ;
OR UPPER(WTITLE("WTEST")) == "WTEST.MNX" ;
OR UPPER(WTITLE("WTEST")) == "WTEST.PRG" ;
OR UPPER(WTITLE("WTEST")) == "WTEST.FRX" ;
OR UPPER(WTITLE("WTEST")) == "WTEST.QPR"
=DefiWind("wtest",INT((SROW()-17)/2),INT((SCOL()-71)/2),;
INT((SROW()-17)/2)+16,INT((SCOL()-71)/2)+70,";
TITLE ' 蘿刻눗왯 ' ;
NOFLOAT ;
NOCLOSE ;
SHADOW ;
NOMINIMIZE ;
COLOR SCHEME 1")
ENDIF
* 靈컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
* � �
* � SDKSCRE1/MS-DOS Setup Code - SECTION 2 �
* � �
* 聃컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
*
#REGION 1
=ShowBMP(0,0,"demo\_leave.bmp")
#REGION 1
DEFINE POPUP _rd00sb45n ;
PROMPT FIELD "뒤"+RTRI(Month)+"墩룀" ;
SCROLL ;
MARGIN ;
MARK ""
* 靈컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
* � �
* � SDKSCRE1/MS-DOS Screen Layout �
* � �
* 聃컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
*
#REGION 1
=ActiWind("wtest")
=DnRect(C2X(1)+4,R2Y(0)+8,C2X(67)+4,R2Y(14)+8)
=UpRect(C2X(1)+5,R2Y(0)+9,C2X(67)+3,R2Y(14)+7)
@ 2,29,11,64 BOX REPLICATE(' ',9)
=DnRect(C2X(28)+4,R2Y(1)+8,C2X(65)+4,R2Y(12)+8)
@ 2,30,7,63 BOX REPLICATE("�",8)+"�"
=GetCtrl(3,48,13,1,"m.Choice3",";
PICTURE '@*C \