<?xml version="1.0" encoding='utf-8'?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="card1" title="Block (programming) - Page 9 - Wikipedia">
<p>
<a accesskey="1" href="page.php?w=Block_(programming)&amp;p=8">1.Previous</a><br />
<a accesskey="3" href="page.php?w=Block_%28programming%29&amp;p=10">3.Next</a>
</p>
<p>together in , ,  and other control statements.</p>

<p><big>Examples</big></p>
<p>In the early days of computing, many languages such as <a href="page.php?w=FORTRAN_IV">FORTRAN IV</a> and <a href="page.php?w=BASIC">BASIC</a> lacked block syntax except sometimes for rudimentary loop constructs. A conditional was encoded using the <a href="page.php?w=goto">goto</a> statement. In the following FORTRAN 66 code, the logical structure is less than clear due to the lack of blocks.</p>

<p><syntaxhighlight lang="fortranfixed">C     INITIALIZE VALUES TO BE CALCULATED      PAYSTX = .FALSE.      PAYSST = .FALSE.      TAX = 0.0      SUPTAX = 0.0C     SKIP TAX DEDUCTION IF EMPLOYEE EARNS LESS THAN TAX THRESHOLD      IF (WAGES .LE. TAXTHR) GOTO 100      PAYSTX = .TRUE.      TAX = (WAGES - TAXTHR) * BASCRTC     SKIP SUPERTAX DEDUCTION IF EMPLOYEE EARNS LESS THAN SUPERTAX THRESHOLD      IF (WAGES .LE. SUPTHR) GOTO 100      PAYSST = .TRUE.      SUPTAX = (WAGES - SUPTHR) * SUPRAT  100 TAXED = WAGES - TAX - SUPTAX</syntaxhighlight></p><p>
<a accesskey="1" href="page.php?w=Block_(programming)&amp;p=8">1.Previous</a><br />
<a accesskey="3" href="page.php?w=Block_%28programming%29&amp;p=10">3.Next</a>
</p>

<do type="prev" label="Search">
        <go href="search.wml"/>
</do>

</card>
</wml>
