home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
fox
/
workgrp
/
bulk.spr
< prev
next >
Wrap
Text File
|
1993-09-02
|
4KB
|
148 lines
* *********************************************************
* *
* * 09/01/93 BULK.SPR 10:02:00
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (c) 1993 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This program was automatically generated by GENSCRN.
* *
* *********************************************************
#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.rborder = SET("READBORDER")
SET READBORDER ON
* *********************************************************
* *
* * Windows Window definitions
* *
* *********************************************************
*
IF NOT WEXIST("_qiv0li6bs")
DEFINE WINDOW _qiv0li6bs ;
AT 0.000, 0.000 ;
SIZE 28.923,82.000 ;
TITLE "Microsoft FoxPro" ;
FONT "MS Sans Serif", 8 ;
FLOAT ;
NOCLOSE ;
MINIMIZE ;
SYSTEM ;
COLOR RGB(,,,0,0,255)
MOVE WINDOW _qiv0li6bs CENTER
ENDIF
* *********************************************************
* *
* * BULK/Windows Screen Layout
* *
* *********************************************************
*
#REGION 1
IF WVISIBLE("_qiv0li6bs")
ACTIVATE WINDOW _qiv0li6bs SAME
ELSE
ACTIVATE WINDOW _qiv0li6bs NOSHOW
ENDIF
@ 4.923,5.600 TO 28.077,77.800 ;
PATTERN 1 ;
PEN 1, 8 ;
COLOR RGB(,,,128,128,128)
@ 4.615,4.800 TO 27.769,77.000 ;
PATTERN 1 ;
PEN 1, 8 ;
COLOR RGB(,,,0,255,255)
@ 1.231,5.600 TO 4.077,77.800 ;
PATTERN 1 ;
PEN 1, 8 ;
COLOR RGB(,,,128,128,128)
@ 0.923,4.800 TO 3.769,77.000 ;
PATTERN 1 ;
PEN 1, 8 ;
COLOR RGB(,,,0,255,255)
@ 1.231,8.600 SAY "FoxPro Bulk Mailing Screen" ;
FONT "MS Sans Serif", 18 ;
STYLE "BT"
@ 6.385,7.200 SAY "Mailing Type:" ;
FONT "MS Sans Serif", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,0,0,255,255)
@ 10.692,7.200 SAY "Subject:" ;
FONT "MS Sans Serif", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,0,0,255,255)
@ 14.385,7.200 SAY "Note:" ;
FONT "MS Sans Serif", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,0,0,255,255)
@ 9.231,4.800 TO 9.231,77.000 ;
PEN 1, 8 ;
STYLE "1"
@ 6.385,28.800 GET mptype ;
PICTURE "@*RHN \<General;\<Personalized" ;
SIZE 1.308,16.167,0.667 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
STYLE "BT" ;
COLOR ,,,,,,,,RGB(0,0,0,0,255,255),RGB(0,0,0,0,255,255)
@ 12.077,7.600 GET m.subject ;
SIZE 1.000,66.400 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K" ;
COLOR ,RGB(,,,255,255,255)
@ 15.769,7.600 EDIT m.notetext ;
SIZE 8.000,67.000,0.000 ;
PICTURE "@K" ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
SCROLL ;
COLOR ,RGB(,,,255,255,255)
@ 24.923,28.800 GET bulkbtn ;
PICTURE "@*HT \!\<Mail;\?\<Cancel" ;
SIZE 1.769,9.667,0.667 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
STYLE "B"
IF NOT WVISIBLE("_qiv0li6bs")
ACTIVATE WINDOW _qiv0li6bs
ENDIF
READ CYCLE
RELEASE WINDOW _qiv0li6bs
#REGION 0
SET READBORDER &rborder
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF