home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PRINTING
/
DBFSCR20.ZIP
/
SKIPJACK.TEM
< prev
next >
Wrap
Text File
|
1990-11-20
|
2KB
|
45 lines
P | Color type P,D, or N
\sj_StdColor := <<gfore>> + (<<gback>> Shl 4); | CLS color
\sj_ClrScr; | Clear Screen
\sj_BoxColor := <<fore>> + (<<back>> Shl 4); | Box color 1
\sj_ClearBoxYN := True; | Box color 2
sj_Box(<<r1>>,<<c1>>,<<r2>>,<<c2>>, | Draw Box
\sj_DoubleBox); | If Double
\sj_SingleBox); | If Single
\sj_StdColor := <<fore>> + (<<back>> Shl 4); | Say Color 1
# | Say Color 2
\sj_Say(<<r1>>,<<c1>>, '<<var>>'); | Say Text
# | Say Char
sj_SayStr(<<r1>>,<<c1>>, <<var>>, <<width>>, | Say String
&\sj_SayDate(<<r1>>,<<c1>>, <<var>>); | Say Date
# | Say Byte
# | Say Integer
# | Say Long
sj_SayNum(<<r1>>,<<c1>>, <<var>>, <<width>>, <<dec>>, | Say Real
&\sj_SayLogical(<<r1>>,<<c1>>, <<var>>); | Say Logical
\ '<<var>>'); | With Say Picture
\ ''); | Without Say Picture
# | With Say Picture Alt
# | Without Say Picture Alt
\sj_EnhColor := <<fore>> + (<<back>> Shl 4); | Get Color 1
\sj_HiColor := <<fore>> + (<<back>> Shl 4); | Get Color 2
# | Get Char
sj_GetStr(<<r1>>,<<c1>>, <<var>>, <<width>>, | Get String
&\sj_GetDate(<<r1>>,<<c1>>, <<var>>); | Get Date
# | Get Byte
# | Get Integer
# | Get Long
sj_GetNum(<<r1>>,<<c1>>, <<var>>, <<width>>, <<dec>>, | Get Real
&\sj_GetLogical(<<r1>>,<<c1>>, <<var>>); | Get Logical
\ '<<var>>'); | With Get Picture
\ ''); | Without Get Picture
# | With Get Picture Alt
# | Without Get Picture Alt
\sj_Range('<<v1>>','<<v2>>'); | With Range
# | Without Range
\sj_PreFieldTrigger(@<<var>>); | With PreField
# | Without PreField
\sj_Valid(@<<var>>); | With Valid
# | Without Valid
END-OF-FILE