This is a small program I made (My first!) it basically acts like an anti ad software, but really doesnt do anything but increment numbers. special thanks to bolt, tommy88569, cattlerustler, batvink, and hyrichter for helping me find my way around the editor.
a newbies happiness over here++
hide mouse
set cursor 150,200
set text to italic
set text size 10
ink rgb(0,0,255),0
print "Uremovich Ad Destroyer"
set cursor 212,237
print "Version 1.0"
set cursor 430,440
set text to normal
set text size 12
ink rgb(255,255,255),0
print "press enter to continue"
wait key
cls
print "welcome, please enter your name below"
input myname$
wait key
cls
print "hello " ; myname$
set cursor 100,100
ink rgb(255,100,0),0
print "press enter to scan your computer."
set cursor 120,120
print "press the Esc key to quit from this program"
delete file "testing.txt"
ink rgb(255,0,0),0
wait key
cls
sync on:sync rate 0
time=timer():intervalD=0
lasttime=timer():interval=0
System=timer():intervalDD=0
complete=timer()
do
if timer()-lasttime>=10
lasttime=timer()
inc interval
endif
if timer()-time>=2000
time=timer()
inc intervalD
endif
if timer()-system>=556
system=timer()
inc intervalDD
endif
if timer()-complete>=40000 then goto donescan
cls
text 10,10, "Scanning (C:): "+str$(interval)
text 10,50, "Scanning H_KEY: "+str$(intervalD)
text 10,90, "Scanning System: "+str$(intervalDD)
sync
loop
donescan:
do
cls
text 10,10,"COMPLETE"
wait 7000
text 400,450,"esc to exit"
sync
loop
end
