#include "crt.bi"
#include "vbcompat.bi"
#define ArgC ((*__p___argc())-1)
'+------------------------------------------------------------------------------------------+
'|   Header: Bestimmen der Übergabeparameter                                                |
'|           AnzeigeCheck:|Il1 sind Alt-0124, Großes i, kleines L, Eins „ä”ö�üáߎę֚Üñ±¸©ø°|
Const Author="sechs.Bas v017f ¸2007 by ytwinky, MD"'                                        |
'|           (Tastenkombination: keine)                                                     |
'|                                                                                          |
'|   Zweck : Ausgabe von Sechs oder 6, aber binär ;-))                                      |
'+------------------------------------------------------------------------------------------+
Const False=0, True=Not False, Pi=4.0*Atn(1.0), Rho=50.0/Atn(1.0)
Dim d As Double=4.1, f As Single=4.1
Screen 0:Width 90, 30
Print Author &!"ArgC=" &ArgC
Print Val("&b110")

Print "Eniki..";
GetKey
End