Skip to content

Instantly share code, notes, and snippets.

@ProIntegritate

ProIntegritate/gist:8c543d5e80c8aec34d8e6ad46085be69

Created October 13, 2021 21:39
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ProIntegritate/8c543d5e80c8aec34d8e6ad46085be69 to your computer and use it in GitHub Desktop.
Save ProIntegritate/8c543d5e80c8aec34d8e6ad46085be69 to your computer and use it in GitHub Desktop.
Download ZIP
Amiga Guru mediation
Raw
gistfile1.txt
Dim sTopChar As String = "▄"
Dim sBottomChar As String = "▀"
Dim sVerticalChar As String = "█"
Console.ForegroundColor = ConsoleColor.Red
For n = 0 To 63
Console.Write(sTopChar)
Next
Console.Write(vbCrLf)
Console.WriteLine(sVerticalChar & " Software failure. Press left mouse button to continue " & sVerticalChar)
Console.WriteLine(sVerticalChar & " Guru mediation. #00000000.00000000 " & sVerticalChar)
For n = 0 To 63
Console.Write(sBottomChar)
Next
Console.Write(vbCrLf)
Console.ForegroundColor = ConsoleColor.White
=
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
█ Software failure. Press left mouse button to continue █
█ Guru mediation. #00000000.00000000 █
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment