?? visual fortran.xml
字號:
<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
<SyntaxColoring>
<Info>
<General Name="Visual Fortran" Extensions="" Version="1" Revision="0" Sample="program qwin_test
USE DATAMOD !Data Module
INTEGER(2) fontnum, numfonts
character*50 lang, country
INTEGER(4) i4
TYPE (qwinfo) qw
OPEN(3, file='user', title='QWMBCS Test')
call clearscreen($GCLEARSCREEN)
call NLSGetLocale(lang, country, cp) ! get Locale information
fontnum = SETFONT ('t''Arial''h18b')
do while (.TRUE.)
col = mod(box, 7)
SELECT CASE (mod(box,7))
CASE (0)
color = WeekendColor
CASE DEFAULT
color = WeekendColor
END SELECT
/* i4 = setcolorrgb(color)
CALL MOVETO(Calender(col+1)%numx+3, ColYOff*row+Calender(col+1)%numy+3,pos)
CALL OUTGTEXT(DayString(day))
*/ end if
end subroutine
call date_and_time(date, time, zone, DateTime)
CALL MOVETO (INT2(140), INT2(80), pos)
CALL OUTGTEXT('Short Format :')
CALL Get1stDayWeek(day1st) !0:SUN, 1:MON,...
CALL SetNameOfDay(day1st, Str)
CALL MOVETO(INT2(40), INT2(ColY-40), pos)
CALL OUTGTEXT('Starting at ')
CALL MOVETO(INT2(160), INT2(ColY-40), pos)
CHARACTER(*) name
" History=""/>
<Author Name="Vitaly Nevzorov" Mail="nevzorov@yahoo.com" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
</Info>
<Schemes/>
<Editor/>
<MainRules Name="Root" Style="Root">
<Attributes Foreground="clBlack" Background="clWhite"/>
<Delimiters Value=""#%&'()*+,-/:;<=>?@[\]^`{|}~"/>
<SubRules>
<Range Name="Strings &qt;..&qt;" CaseSensitive="True" Style="Strings &qt;..&qt;">
<Attributes Foreground="clRed" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open=""" Close="""/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Remarks !" Style="Remarks !">
<Attributes Foreground="$00A00000" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnEol="True"/>
<MultiTokens>
<Tokens Open="!"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Remarks /*..*/" CaseSensitive="True" Style="Remarks /*..*/">
<Attributes Foreground="$00A00000" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open="/*" Close="*/"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="$" Style="$">
<Attributes Foreground="clPurple" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties CloseOnTerm="True"/>
<MultiTokens>
<Tokens Open="$"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="String '..'" Style="String '..'">
<Attributes Foreground="clRed" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open="'" Close="'"/>
</MultiTokens>
<SubRules/>
</Range>
<Range Name="Symbols" Style="Symbols">
<Attributes Foreground="$00FF0080" Background="clWhite"/>
<Delimiters Value="!"#$%&'()*+,-./:;<=>?@[\]^`{|}~"/>
<OpenToken StartLine=""/>
<CloseToken StartLine=""/>
<Properties/>
<MultiTokens>
<Tokens Open="." Close="."/>
</MultiTokens>
<SubRules/>
</Range>
<KeyList Name="Key words" Enabled="True" Style="" Words="if
do
end
data
call
case
read
map
real
endif
else
enddo
then
save
cycle
open
elseif
while
exit
logical
value
record
select
type
allocate
default
stop
union
common
format
write
character
print
integer
deallocate
interface
entry
allocatable
program
return
parameter
external
continue
function
dimension
equivalence
stucture
subroutine
structure
ADMIT
ASSIGN
ASSIGNMENT
AT
CONTAINS
COMPLEX
DOUBLE
ENDFILE
CLOSE
BLOCK
BACKSPACE
ELSEWHERE
FORALL
ENDWHILE
EXECUTE
GO
GOTO
GUESS
IMPLICIT
IN
INOUT
INQUIRE
INTENT
INTRINSIC
KIND
LOOP
MODULE
NAMELIST
NONE
NULLIFY
OPERATOR
ONLY
OPTIONAL
OTHERWISE
OUT
PUBLIC
PROCEDURE
PRIVATE
POINTER
QUIT
RECURSIVE
REMOTE
RESULT
REWIND
SEQUENCE
TO
TARGET
UNTIL
USE
WHERE
OPEN
PAUSE
PRINT
READ
WRITE
">
<Attributes Foreground="clGreen" Background="clWhite"/>
</KeyList>
<KeyList Name="Sharp" Enabled="True" Style="" Words="#
">
<Attributes Foreground="clPurple" Background="clWhite"/>
</KeyList>
<KeyList Name="Functions" Enabled="True" Style="" Words="ABS
ACHAR
ACOS
ADJUSTL
ADJUSTR
AIMAG
AINT
ALL
ALLOCATED
ANINT
ANY
ASIN
ASSOCIATED
ATAN
ATAN2
BIT_SIZE
BREAK
BTEST
CARG
CEILING
CHAR
CMPLX
CONJG
COS
COSH
COUNT
CSHIFT
DATE_AND_TIME
DBLE
DIGITS
DIM
DOT_PRODUCT
DPROD
DVCHK
EOSHIFT
EPSILON
ERROR
EXP
EXPONENT
FLOOR
FLUSH
FRACTION
GETCL
HUGE
IACHAR
IAND
IBCLR
IBITS
IBSET
ICHAR
IEOR
INDEX
INT
INTRUP
INVALOP
IOR
IOSTAT_MSG
ISHFT
ISHFTC
LBOUND
LEN
LEN_TRIM
LGE
LGT
LLE
LLT
LOG
LOG10
MATMUL
MAX
MAXEXPONENT
MAXLOC
MAXVAL
MERGE
MIN
MINEXPONENT
MINLOC
MINVAL
MOD
MODULO
MVBITS
NBREAK
NDPERR
NDPEXC
NEAREST
NINT
NOT
OFFSET
OVEFL
PACK
PRECFILL
PRECISION
PRESENT
PRODUCT
PROMPT
RADIX
RANDOM_NUMBER
RANDOM_SEED
RANGE
REPEAT
RESHAPE
RRSPACING
SCALE
SCAN
SEGMENT
SELECTED_INT_KIND
SELECTED_REAL_KIND
SET_EXPONENT
SHAPE
SIGN
SIN
SINH
SIZE
SPACING
SPREAD
SQRT
SUM
SYSTEM
SYSTEM_CLOCK
TAN
TANH
TIMER
TINY
TRANSFER
TRANSPOSE
TRIM
UBOUND
UNDFL
UNPACK
VAL
VERIFY
sizeof
">
<Attributes Foreground="$000080FF" Background="clWhite"/>
</KeyList>
<KeyList Name="File Status" Enabled="True" Style="" Words="ACCESS
ACTION
BLANK
BLOCKSIZE
CARRIAGECONTROL
DIRECT
ERR
EXIST
FILE
FMT
FORM
FORMATTED
FROM
IOSTAT
LOCATION
NAME
NAMED
NEXTREC
NUMBER
OPENED
POSITION
RECL
RECORDTYPE
SEQUENTIAL
STAT
STATUS
UNFORMATTED
UNIT
">
<Attributes Foreground="clOlive" Background="clWhite"/>
</KeyList>
<KeyList Name="Compiler" Enabled="True" Style="" Words="INCLUDE
">
<Attributes Foreground="clBlue" Background="clWhite"/>
</KeyList>
</SubRules>
</MainRules>
</SyntaxColoring>
<CodeFolding/>
<CustomData/>
</SynUniHighlighter>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -