This program will give you advice.
hide mouse
do
f=f+20
i=i+1
if i=1 then ink rgb(255,255,255),rgb(255,255,255)
if i=2 then ink rgb(255,0,0),rgb(255,0,0)
if i=3 then ink rgb(0,255,0),rgb(0,255,0)
if i=4 then ink rgb(0,0,255),rgb(0,0,255)
if i=5 then ink rgb(255,0,255),rgb(255,0,255)
if i=6 then ink rgb(0,255,255),rgb(255,255,0)
if i=7 then ink rgb(0,0,0),rgb(0,0,0) : i=0
box 0,0,screen width(),screen height()
if i=7 then ink rgb(255,255,255),rgb(255,255,255)
if i=6 then ink rgb(255,0,0),rgb(255,0,0)
if i=5 then ink rgb(0,255,0),rgb(0,255,0)
if i=4 then ink rgb(0,0,255),rgb(0,0,255)
if i=3 then ink rgb(255,0,255),rgb(255,0,255)
if i=2 then ink rgb(0,255,255),rgb(255,255,0)
if i=1 then ink rgb(0,0,0),rgb(0,0,0)
if f=100 then mem$="Your PC is the cause of all your problems. Throw your PC out the window to solve them."
if f=200 then mem$="Your money is the cause of your troubles. Why not give your troubles to Ilya?"
if f=300 then mem$="You are the cause of all your problems. Solve them. Puch yourself in the face."
if f=400 then mem$="The only goal of your life is to give Ilya all your money. Then you shall have eternal happiness."
if f=500 then mem$="A wise man once said ''Give away your money, for it will put an end to you''" : f=0
center text screen width()/2,screen height()/2,mem$
loop
