Delphi & Pascal (česká wiki)
{ RULE01.PAS Copyright (c) Sulko } { } { Ide o znamu kasinovi hru. Minimalny vklad je 10 Korun. } { Lavym tlacitkom mysi v hracom poli zvysujem stavku o 10, } { pravym tlacitkom mysi v hracom poli znizujem stavku o 10. } { Kredit je teoreticky nevycerpatelny, takze tipujte...... } { } { Author: Peter Sulko } { Date : 2003 http://www.trsek.com } Unit RULE01; INTERFACE Procedure PEGAVGA; Procedure PGOTH; Procedure PLITT; Procedure PSANS; Procedure PTRIP; IMPLEMENTATION Procedure PEGAVGA; External; {$L EGAVGA.OBJ} Procedure PGOTH; External; {$L GOTH.OBJ} Procedure PLITT; External; {$L LITT.OBJ} Procedure PSANS; External; {$L SANS.OBJ} Procedure PTRIP; External; {$L TRIP.OBJ} END.