XProfan

Window Title "Suchfunktion to System-Variables (v13.1)"
windowstyle 24:Cls:declare t$,s$,sysvar$[],flg&
sysvar$[]=explode("\
 $AppDataDir directory for Anwendungsdaten\n\
%BitsPixel Color Depth the Desktops in Bits per Pixel\n\
%BmpB Color Depth the lastly loaded Bildes in Bits per Pixel\n\
&BmpCol Farbanzahl the lastly loaded Bildes\n\
!BmpF Vergrößerungsfaktor the lastly loaded Bildes\n\
%BmpX wide the lastly loaded Bildes\n\
%BmpY Höhe the lastly loaded Bildes\n\
%Button worth the lastly betätigten Buttons\n\
&BytesRead v11 currently gelesene Bytes with DownloadFile()\n\
%ChildMessage Message to Click on untergeordnetes element\n\
%CsrLin Augenblickliche row in the simulierten Textmode\n\
 $CurrentDir v13.1 the actually Arbeitsverzeichnis\n\
%cyCaption Höhe the Titelleiste\n\
%cyMenu Höhe the Menüzeile\n\
%dbDeleted Löschkennzeichen the actually Datensatzes\n\
%dbEoF End-Of-File-mark the active scheduler\n\
%dbFCount number the boxes one Satzes the active scheduler\n\
%dbFDecs Dezimalstellen the actually Field\n\
%dbFLen length the actually Field\n\
 $dbFName name the current Field\n\
%dbFNumber number the actually Field\n\
 $dbFType type the current Field\n\
%dbHeader length the Headers the active scheduler\n\
 $dbLUpdate date the last Änderung the scheduler (year 2-stellig)\n\
 $dbLUpdate4 date the last Änderung the scheduler (year 4-stellig)\n\
%dbMemo mark whether scheduler Memo-boxes contains\n\
&dbRecCount amount the Datensätze the scheduler\n\
&dbRecNo number the actually Datensatzes\n\
%dbRecSize length one Datensatzes the scheduler\n\
%dbVersion Version the opened scheduler\n\
%DDEWin lever the DDE-Servers\n\
%Desktop lever the Hintergrundfensters\n\
&DlgProc Prozeduradresse one with Create('dialog' begot Fensters\n\
&DlgWProc Prozeduradresse one with Create('Window' begot Fensters\n\
%DOS16 supply 1 in the middle-aged 16-bit DOS-Version of Profan back\n\
%DOS32 supply 1 in the 32-bit DOS-Version of XProfan back\n\
 $DosVer determined The DOS-Version\n\
 $Download Result the function @DownLoadFile()\n\
 $Drive News drive, without Pfadangabe\n\
 $ErrFile File, in the the Error auftrat\n\
%ErrLine row, in the the Error auftrat\n\
%ErrNumber contains The number the lastly aufgetretenen Fehlers\n\
%Error The lastly aufgetretene Error Code\n\
%ErrorLevel Augenblicklicher Errorlevel\n\
 $ErrStr additional Information to that Error\n\
%ExitCode v11 Exitcode the lastly with WinExecWait launched Program\n\
%Font lever on The with UseFont tuned Font\n\
%FontColor v12 The with ChooseFont() chosen Textfarbe\n\
%FTPConnected mark whether FTP-link exists\n\
%FTPStatus status-/Fehlernummer the last FTP-function\n\
 $FTPStatus status-/Fehlertext the last FTP-function\n\
%GetCount amount the Entries in the ListBox-list\n\
%GetCurSel number the in of/ one Listbox chosen Eintrages\n\
%GetFocus lever the active Fensterobjektes\n\
%GetInputState Augenblicklicher Eingabestatus\n\
 $GetInput The lastly with the function @Input$ inputted Text\n\
 $GetText The lastly in a Listbox-dialog selected Text\n\
&GetTickCount amount of Millisekunden since windows active\n\
%hDC display-Context the Mainwindow\n\
%hDC2 display-Context the Hauptfensterkopie\n\
%hInstance instance-lever the currently ongoing XProfan-Program\n\
&hMenu lever the Menüs the Mainwindow\n\
&hMusic v13 Thread-ID with the Hintergrundmusik\n\
&hPaintWin v13 Window/Objekt on the nude.m. StartPaint drawn becomes\n\
%hWnd lever the Mainwindow the XProfan-Program (v13.1:Long)\n\
&index v13 car-Zuweisungen with index (Arrays u Hash)\n\
%Input The lastly with Input inputted Integer-worth\n\
!Input The lastly with Input inputted Float-worth\n\
 $Input The lastly with Input inputted String\n\
&Input The lastly with Input inputted LongInt-worth\n\
%IOResult Result of/ one Dateioperation or of/ one Directory-Search\n\
%ItemId lastly angewähltes Dialogelement (DialogID)\n\
%Key ANSI-code the lastly squeezed Button\n\
&LastFocus aktives lever at letzen WaitInput\n\
%LastMessage Message solid the last WaitInput\n\
%LFN Kennziffer whether long Filenames akin go (always 1)\n\
%Linux supply 1 with Linux back\n\
%Loading gives ex, whether the Download completed is or yet runs\n\
&Loop Zählvariablen in of/ one WhileLoop-Loop\n\
&lParam Meldungsspezifische data of/ one Message\n\
 $Match Ergebnisstring of/ one Search with Regulärem expression\n\
%MatchLen Ergebnislänge of/ one Search with Regulärem expression\n\
%MatchPos position the Ergebnisses of/ one Search with Regulärem expression\n\
%MaxX Horizontal dissolution the Bildschirmes\n\
%MaxY Vertikale dissolution the Bildschirmes\n\
%MCIError lastly gemeldeter Error at Send one MCI-Strings\n\
&MemDC Device Context the Memory-Bitmap\n\
%MenuItem Identifikationsnummer the lastly angewählten Menüpunktes\n\
%Message number the last aufgetretenen Message\n\
%MfX wide the lastly loaded Metafiles\n\
%MfY Höhe the lastly loaded Metafiles\n\
%MouseKey lastly betätigte Mouse button\n\
%MousePressed Kennziffer the instantly betätigten Button\n\
%MouseX actually X-position the mouse\n\
%MouseY actually Y-position the mouse\n\
%MWnd Zielfenster the last Message (v13.1:Long)\n\
%NotifyCode code the aufgetretenen Ereignisses\n\
&NotifyWnd lever the Dialogelementes, the %NotifyCode sent\n\
!Now v12 Aktueller Time in the XProfan-/Delphi-stature\n\
%oGLError The latest aufgetretene Error with OpenGL-functions\n\
%OS2 supply 1 with the middle-aged OS-2-Version of Profan back\n\
%ParCount amount the übergebenen Kommandozeilen-Parameter\n\
%PCount amount the übergebenen Parameter the last Prozeduraufrufes\n\
&PDC Device-Context the Druckers\n\
%PeekMessage Kennziffer whether a Message vorliegt\n\
&Pid Process-ID the ongoing Program\n\
%Playing v13 music game in the background, if not 0\n\
%Pos Augenblickliche slot in the simulierten Textmode\n\
%Printing Kennziffer whether Druckvorgang active is\n\
 $ProfVer actually XProfan-Version\n\
 $PROGDIR directory, in the The Exedatei launched watts\n\
%ProgEnd position in File, where Compilations aufhört and data begin\n\
%ScanKey Scancode (virtueller code) the lastly squeezed Button\n\
&ScProc v11.2 interne address the SubClassProc\n\
&sLParam Meldungsspezifische data the Subclassing-Message\n\
%sMessage Meldungsnummer the Subclassing-Message\n\
&SQLCount amount the of letzen SQL-commands bearbeiteten Datensätze\n\
&SQLDBC contains the lever the straight actually Datenbankverbindung\n\
&SQLENV contains the Environmenthandle the actually ODBC-Session\n\
 $SQLError Fehlertext the last SQL-Fehlers\n\
&sWnd Zielfenster the Subclassing-Message\n\
&sWParam Meldungsspezifische data the Subclassing-Message\n\
 $SysPath windows-system-way\n\
 $TempDir News temporäres directory\n\
%TextHeight v12 Texthöhe to DrawText\n\
&UlParam worth of lParam the User Message\n\
%UMessage Kennziffer whether User Message aufgetreten, is\n\
 $UserDir v13.1 the actually User directory\n\
&UWnd Zielfenster the User Message\n\
&UwParam worth of wParam the User Message\n\
%Win16 supply 1 with the middle-aged 16-bit Version of Profan back\n\
%Win32 supply 1 with the 32-bit windows-Version of XProfan back\n\
%WinBottom Y-Koordinate the downstairs Fensterrandes\n\
%Window Style Aktueller XProfan-Fensterstil\n\
&WinDProc Prozeduradresse one Mainwindow with Dialogstil\n\
%WinError The lastly aufgetretene Windowsfehler\n\
%WinLeft X-Koordinate the left Fensterrandes\n\
 $WinPath windows-way\n\
&WinProc Prozeduradresse a Mainwindow\n\
%WinRight X-Koordinate the rechten Fensterrandes\n\
%WinTop Y-Koordinate the oberen Fensterrandes\n\
 $WinVer determined The windows-Version\n\
%wmNotify Kennziffer whether Message wm_Notify aufgetreten is\n\
%wmPaint Kennziffer whether incident wm_Paint triggered watts\n\
%wmtimer Kennziffer whether the Timer with SetTimer tuned watts\n\
&wParam Meldungsspezifische data of/ one Message\
","\n")
repeat:font 2:print "\n      SysVar - Suchbegriff: ";
huh:
Input t$:if t$="":locate %csrlin-1,29:sound 2000,10:goto "huh":endif
t$=lower$(t $):print:font 0:flg&=0

whileloop 0,133+12:s$=sysvar$[&Loop]

    if instr(t$,lower$(s$)):inc flg&

        font 2:print " ";substr$(s$,1," "),
        font 0:print tab(16);del$(s$,1,1," "):print
        endif:if %csrlin>28:print " o/o";:waitinput:cls:print:endif

    endwhile

    if flg&=0:print " ** none entry found ** ":sound 400,60:endif

    until 0

    end