58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
28 lines
639 B
Plaintext
28 lines
639 B
Plaintext
/*
|
|
*
|
|
* Copyright 2011 Viktor Szakats (vszakats.net/harbour)
|
|
*
|
|
*/
|
|
|
|
#ifdef __HARBOUR__
|
|
#require "hbct"
|
|
#endif
|
|
|
|
#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
|