Page 1 of 1
Personal Heater Professional
Posted: Fri Nov 03, 2006 1:42 am
by Joakim Christiansen
Since it's getting very cold these days I made a masterpiece of a software to convert your home computer into a personal heater!
And guess what? It's TOTALLY FREE!!
Just run this code below and it will superheat your computer and make your life much easier at once!!
Code: Select all
OpenConsole()
ConsoleTitle("Personal Heater Professional v1.0")
PrintN("Heating in progress, press escape to quit!")
Repeat: Until Inkey() = Chr(27)
Anyone think I can sell this?
Posted: Fri Nov 03, 2006 4:13 am
by Tipperton
Yeah! Sell it to Microsoft to put in Vista!
It'll fit real well with the rest of the crap they've thrown into it....
Posted: Fri Nov 03, 2006 9:36 am
by Character
This will burn it down..
Code: Select all
OpenConsole()
EnableGraphicalConsole(#True)
ConsoleTitle("Personal Heater Professional v1.1")
Define.b
Move = 1
Repeat
ConsoleLocate(X, 10)
Print("Heating in progress, press escape to quit!")
Delay(20)
ConsoleLocate(X, 10)
Print(" ")
X + Move
If X = 20 : Move = -1 : EndIf
If X = 0 : Beep_(100,10) : Move = 1 : EndIf
Until Inkey() = Chr(27)
CloseConsole()
Posted: Fri Nov 03, 2006 10:35 am
by PB
On a similar subject, I'm seriously thinking of getting one of these:
http://www.ubergizmo.com/15/archives/20 ... ooler.html
Posted: Fri Nov 03, 2006 2:05 pm
by Tipperton
Get one of these:
And you won't need one of those....
Posted: Fri Nov 03, 2006 3:28 pm
by Bonne_den_kule
You need code to heat with the GPU too.
Posted: Fri Nov 03, 2006 10:45 pm
by Joakim Christiansen
Bonne_den_kule wrote:You need code to heat with the GPU too.
Good idea!