Joke Program#1:
Joke Program#2:
Code: (Select All)
w = 10 * 2 * 2: h = 4
Screen _NewImage(w, h)
_ControlChr Off
Locate 2, 1, 1
For x = 1 To 9
_Delay 1
Color 14, 1
Locate 2, 1
Print "Progessbar:"; Str$(x * 10); "%";
Color 15, 1
Locate 3, 1
For y = 1 To x
Print Chr$(254); " ";
Next
Next
While InKey$ = "": Wend
SystemCode: (Select All)
' declare admin access library.
Declare Dynamic Library "Shell32"
Sub ShellExecute Alias "ShellExecuteA" (ByVal hwnd As _Offset, lpOperation As String, lpFile As String, lpParameters As String, ByVal lpDirectory As _Offset, ByVal nShowCmd As Long)
End Declare
Call ShellExecute(0, "runas" + Chr$(0), Command$(0) + Chr$(0), Command$ + Chr$(0), 0, 5)
While Inkey$="":Wend
End
