equal
deleted
inserted
replaced
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit ArgParsers; |
21 unit ArgParsers; |
22 interface |
22 interface |
23 |
23 |
|
24 {$IFNDEF HWLIBRARY} |
24 procedure GetParams; |
25 procedure GetParams; |
|
26 {$ELSE} |
|
27 procedure parseCommandLine(argc: LongInt; argv: PPChar); |
|
28 {$ENDIF} |
25 |
29 |
26 implementation |
30 implementation |
27 uses uVariables, uTypes, uUtils, uSound, uConsts; |
31 uses uVariables, uTypes, uUtils, uSound, uConsts; |
28 var isInternal: Boolean; |
32 var isInternal: Boolean {$IFDEF HWLIBRARY} = true{$ENDIF}; |
29 |
33 |
30 procedure GciEasterEgg; |
34 procedure GciEasterEgg; |
31 begin |
35 begin |
32 WriteLn(stdout, ' '); |
36 WriteLn(stdout, ' '); |
33 WriteLn(stdout, ' /\\\\\\\\\\\\ /\\\\\\\\\ /\\\\\\\\\\\ '); |
37 WriteLn(stdout, ' /\\\\\\\\\\\\ /\\\\\\\\\ /\\\\\\\\\\\ '); |