File: test.clipper.html

package info (click to toggle)
source-highlight 3.1.4-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 9,404 kB
  • ctags: 5,526
  • sloc: sh: 10,428; cpp: 9,884; ansic: 8,483; makefile: 1,782; lex: 1,184; yacc: 1,009; php: 213; perl: 211; awk: 98; erlang: 94; java: 73; ruby: 69; python: 61; asm: 43; ml: 38; ada: 36; haskell: 27; xml: 23; lisp: 21; cs: 11; sql: 8; tcl: 6; sed: 3
file content (23 lines) | stat: -rw-r--r-- 2,229 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
<!-- Generator: GNU source-highlight 
by Lorenzo Bettini
http://www.lorenzobettini.it
http://www.gnu.org/software/src-highlite -->
<pre><tt><b><font color="#0000FF">Function</font></b> <b><font color="#000000">MAIN</font></b><font color="#990000">()</font>
<b><font color="#0000FF">LOCAL</font></b> number
<b><font color="#0000FF">INPUT</font></b> <font color="#FF0000">"Key in a number: "</font> <b><font color="#0000FF">TO</font></b> number
<b><font color="#0000FF">IF</font></b> number <font color="#990000">%</font> <font color="#993399">2</font> <font color="#990000">=</font> <font color="#993399">0</font>
   <font color="#990000">?</font> <font color="#FF0000">"You keyed in an even number"</font>
   <font color="#990000">?</font> <font color="#FF0000">"I can prove it:"</font>
   <font color="#990000">?</font> <font color="#FF0000">"the result of "</font><font color="#990000">,</font>number<font color="#990000">,</font><font color="#FF0000">" % 2 = 0 is "</font><font color="#990000">,</font> number <font color="#990000">%</font> <font color="#993399">2</font> <font color="#990000">=</font> <font color="#993399">0</font>
<b><font color="#0000FF">ELSE</font></b>
   <font color="#990000">?</font> <font color="#FF0000">"You keyed in an odd number"</font>
   <font color="#990000">?</font> <font color="#FF0000">"I can prove it:"</font>
   <font color="#990000">?</font> <font color="#FF0000">"the result of "</font><font color="#990000">,</font>number<font color="#990000">,</font><font color="#FF0000">" % 2 = 0 is "</font><font color="#990000">,</font> number <font color="#990000">%</font> <font color="#993399">2</font> <font color="#990000">=</font> <font color="#993399">0</font>
<b><font color="#0000FF">ENDIF</font></b>
<b><font color="#0000FF">RETURN</font></b>

<i><font color="#9A1900">/* Load the table.dbf and table.cdx, on unix,</font></i>
<i><font color="#9A1900">           you should ensure that file extensions are on</font></i>
<i><font color="#9A1900">           lowercase.*/</font></i>
        <b><font color="#0000FF">USE</font></b> table <b><font color="#0000FF">INDEX</font></b> table VIA <font color="#FF0000">"DBFCDX"</font>
        <b><font color="#0000FF">REINDEX</font></b></tt></pre>