<% /* * * multiply.hs * HarbourScript Test * * Written by Felipe Coury * www - http://www.harbour-project.org * */ FUNCTION Main() LOCAL i, j IF !empty( GetEnv( "SERVER_NAME" ) ) OutStd( "HTTP/1.0 200 OK" + chr(10) ) OutStd( "CONTENT-TYPE: TEXT/HTML" + chr(10) + chr(10) ) ENDIF %> Testing script

<% OutStd( "HarbourScript Test!" ) %>

<% FOR i := 1 TO 10 %> <% FOR j := 1 TO 10 %> <% NEXT %>

<% OutStd( str( i, 2 ) + " x " + str( j, 2 ) ) %>

<% OutStd( i*j ) %>

<% NEXT %>