30 lines
975 B
Plaintext
30 lines
975 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
*
|
|
* Copyright 2011 Viktor Szakats (harbour syenar.net)
|
|
* www - http://harbour-project.org
|
|
*
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
? NUMLINE( "" ) , 0
|
|
? NUMLINE( "-" ) , 1
|
|
? NUMLINE( Replicate( "-", 80 ) ) , 2
|
|
? NUMLINE( Replicate( "-", 160 ) ) , 3
|
|
? NUMLINE( Replicate( "-", 100 ), 30 ) , 4
|
|
? NUMLINE( "-" + Chr( 13 ) + Chr( 10 ) ) , 2
|
|
? NUMLINE( "-" + Chr( 10 ) ) , 2
|
|
? NUMLINE( "-" + Chr( 13 ) + Chr( 10 ) + "=" ) , 2
|
|
? NUMLINE( "-" + Chr( 10 ) + "=" ) , 2
|
|
? NUMLINE( Replicate( "-", 100 ) + Chr( 13 ) + Chr( 10 ), 30 ) , 5
|
|
? NUMLINE( Replicate( "-", 100 ) + Chr( 10 ), 30 ) , 5
|
|
|
|
RETURN
|