File: test.clipper.html

package info (click to toggle)
source-highlight 3.1.7-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 10,332 kB
  • ctags: 5,233
  • sloc: sh: 11,270; cpp: 10,206; ansic: 9,515; makefile: 1,865; lex: 1,200; yacc: 1,021; php: 213; perl: 211; awk: 98; erlang: 94; lisp: 90; java: 75; ruby: 69; python: 61; asm: 43; ml: 38; ada: 36; haskell: 27; xml: 23; cs: 11; sql: 8; tcl: 6; sed: 4
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>