harbour-core/contrib/hbnf/tests/vidmode.prg at efde19ca13be8a67cfe0d641205b95321fa3fdfd - harbour-core - fivego gitea

fivedev/harbour-core

Files

Przemysław Czerpak 96ca3fe470 2014-01-21 20:41 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

* Makefile
  * config/*
  * contrib/*
  * doc/*
  * extras/*
  * include/*
  * lib/*
  * package/*
  * src/*
  * tests/*
  * utils/*
    * removed empty lines left after removed '$' + 'Id' + '$' identifiers

2014-01-21 20:41:05 +01:00

9 lines

128 B

Plaintext

Raw Blame History

 #require "hbnf"
 PROCEDURE Main( cMode )
    ft_SetMode( Val( cMode ) )
    ? "Video mode is: " + Str( ft_GetMode() )
    RETURN