Joke Programs

[eoredson]

Joke Program#1:

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
System

Joke Program#2:

Code: (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