Sorry your browser is not supported!

disable escapekey : randomize timer()

set window on
set window size 640,480
set window title "miki mini multy"
set window position 200,200
sync on
dim new$(10)
dim fig$(1)

gosub layout
make object sphere 1,1:hide object 1
color backdrop rgb(55,55,55)
i=1
do
gosub onscreen_info
gosub radio_prime
gosub radio_connect
paste image i,1,0
if mouseclick()=1:`                                1
if mousex()>30 and mousex()<80
if mousey()>75 and mousey()<125
if cm=1 then goto cm_out
e=0
new$ = "1"
if n<10 then n=n+1
xsleep(200)
endif:endif:endif

if mouseclick()=1:rem                                2
if mousex()>80+g# and mousex()<130+g#
if mousey()>75 and mousey()<125
if cm=1 then goto cm_out
e=0
new$ = "2"
if n<10 then n=n+1
xsleep(200)
endif
endif
endif

if mouseclick()=1:`                                3
if mousex()>130+g#*2 and mousex()<180+g#*2
if mousey()>75 and mousey()<125
if cm=1 then goto cm_out
e=0
new$ = "3"
if n<10 then n=n+1
xsleep(200)
endif:endif:endif

if mouseclick()=1:`                                +
if mousex()>180+g#*3 and mousex()<230+g#*3
if mousey()>75 and mousey()<125
if cm=1 then goto cm_out
e=0
if m1flag>1 then m1flag=1
if m2flag>1 then m2flag=1
fn=fn+1
if fn>1 then fn=0
fig$(fn)=f$
for t = 0 to 10
new$(t)=""
next t
new$=""
n=0
f0#=0:f1#=0
gosub plus
xsleep(200)
endif:endif:endif

if mouseclick()=1:`                                4
if mousex()>30 and mousex()<80
if mousey()>125+g# and mousey()<175+g#
if cm=1 then goto cm_out
e=0
new$ = "4"
if n<10 then n=n+1
xsleep(200)
endif:endif:endif

if mouseclick()=1:rem                                5
if mousex()>80+g# and mousex()<130+g#
if mousey()>125+g# and mousey()<175+g#
if cm=1 then goto cm_out
e=0
new$ = "5"
if n<10 then n=n+1
xsleep(200)
endif:endif:endif

if mouseclick()=1:`                                6
if mousex()>130+g#*2 and mousex()<180+g#*2
if mousey()>125+g# and mousey()<175+g#
if cm=1 then goto cm_out
e=0
new$ = "6"
if n<10 then n=n+1
xsleep(200)
endif:endif:endif

if mouseclick()=1:`                                -
if mousex()>180+g#*3 and mousex()<230+g#*3
if mousey()>125+g# and mousey()<175+g#
if cm=1 then goto cm_out
e=0
if m1flag>1 then m1flag=1
if m2flag>1 then m2flag=1
fn=fn+1
if fn>1 then fn=0
fig$(fn)=f$
for t = 0 to 10
new$(t)=""
next t
new$=""
n=0
f0#=0:f1#=0
gosub minus
xsleep(200)
endif:endif:endif

if mouseclick()=1:`                                7
if mousex()>30 and mousex()<80
if mousey()>175+g#*2 and mousey()<225+g#*2
if cm=1 then goto cm_out
e=0
new$ = "7"
if n<10 then n=n+1
xsleep(200)
endif:endif:endif

if mouseclick()=1:rem                                8
if mousex()>80+g# and mousex()<130+g#
if mousey()>175+g#*2 and mousey()<225+g#*2
if cm=1 then goto cm_out
e=0
new$ = "8"
if n<10 then n=n+1
xsleep(200)
endif:endif:endif


if mouseclick()=1:`                                9
if mousex()>130+g#*2 and mousex()<180+g#*2
if mousey()>175+g#*2 and mousey()<225+g#*2
if cm=1 then goto cm_out
e=0
new$ = "9"
if n<10 then n=n+1
xsleep(200)
endif:endif:endif

if mouseclick()=1:`                                x
if mousex()>180+g#*3 and mousex()<230+g#*3
if mousey()>175+g#*2 and mousey()<225+g#*2
if cm=1 then goto cm_out
fn=fn+1
if fn>1 then fn=0
fig$(fn)=f$
for t = 0 to 10
new$(t)=""
next t
new$=""
n=0
f0#=0:f1#=0
gosub multy
xsleep(200)
endif:endif:endif

if mouseclick()=1:`                                0
if mousex()>30 and mousex()<80
if mousey()>225+g#*3 and mousey()<275+g#*3
if m1flag>1 then m1flag=1
if m2flag>1 then m2flag=1
if cm=1 then goto cm_out
e=0
new$ = "0"
if n<10 then n=n+1
xsleep(200)
endif:endif:endif

if mouseclick()=1:rem                                c
if mousex()>80+g# and mousex()<130+g#
if mousey()>225+g#*3 and mousey()<275+g#*3
if m1flag>1 then m1flag=1
if m2flag>1 then m2flag=1
e=0:cm=0
fn=0
fig$(0)=""
fig$(1)=""
f$=""
f#=0
for t = 0 to 10
new$(t)=""
next t
new$=""
n=0
f0#=0:f1#=0
xsleep(200)
endif:endif:endif

if mouseclick()=1:`                                .
if mousex()>130+g#*2 and mousex()<180+g#*2
if mousey()>225+g#*3 and mousey()<275+g#*3
if m1flag>1 then m1flag=1
if m2flag>1 then m2flag=1
if cm=1 then goto cm_out
e=0
new$ = "."
if n<10 then n=n+1
xsleep(200)
endif:endif:endif

if mouseclick()=1:`                                /
if mousex()>180+g#*3 and mousex()<230+g#*3
if mousey()>225+g#*3 and mousey()<275+g#*3
if cm=1 then goto cm_out
fn=fn+1
if fn>1 then fn=0
fig$(fn)=f$
for t = 0 to 10
new$(t)=""
next t
new$=""
n=0
f0#=0:f1#=0
gosub divide
xsleep(200)
endif:endif:endif


if m1#=0 then m1flag=0
if mouseclick()=1:`                                m1
if mousex()>30 and mousex()<80
if mousey()>275+g#*4 and mousey()<325+g#*4
if m1flag=0 and cm=0
m1#=f#
fn=0
fig$(0)=""
fig$(1)=""
f$=""
f#=0
for t = 0 to 10
new$(t)=""
next t
new$=""
n=0
f0#=0:f1#=0
m1flag=1
cm=0
else
if m1flag=1 and cm=0
e=2
fig$(fn)=str$(m1#)
m1flag=2
cm=0
endif
if cm=1 then m1#=0:cm=0
xsleep(200)
endif
endif:endif:endif


if m2#=0 then m2flag=0
if mouseclick()=1:rem                                mem 2
if mousex()>80+g# and mousex()<130+g#
if mousey()>275+g#*4 and mousey()<325+g#*4
if m2flag=0 and cm=0
m2#=f#
fn=0
fig$(0)=""
fig$(1)=""
f$=""
f#=0
for t = 0 to 10
new$(t)=""
next t
new$=""
n=0
f0#=0:f1#=0
m2flag=1
cm=0
else
if m2flag=1 and cm=0
e=3
fig$(fn)=str$(m2#)
m2flag=2
cm=0
endif
if cm=1 then m2#=0:cm=0
xsleep(200)
endif
endif:endif:endif

if mouseclick()=1:`                              cancel memory
if mousex()>130+g#*2 and mousex()<180+g#*2
if mousey()>275+g#*4 and mousey()<325+g#*4
cm=1
if m1flag>1 then m1flag=1
if m2flag>1 then m2flag=1
endif:endif:endif

if mouseclick()=1:`                                percentage
if mousex()>180+g#*3 and mousex()<230+g#*3
if mousey()>275+g#*4 and mousey()<325+g#*4
if cm=1 then goto cm_out
fn=fn+1
if fn>1 then fn=0
fig$(fn)=f$
for t = 0 to 10
new$(t)=""
next t
new$=""
n=0
f0#=0:f1#=0
gosub percent
xsleep(200)
endif:endif:endif

if inkey$()="c" then r=0:i=1



new$(n)=new$
f$=new$(1)+new$(2)+new$(3)+new$(4)+new$(5)+new$(6)+new$(7)+new$(8)+new$(9)
set text to normal
set text size 44
if e=0 then text 50,7,f$
if e=1 then text 50,7,str$(f#)
if e=2 then text 50,7,str$(m1#)
if e=3 then text 50,7,str$(m2#)
cm_out:


gosub quit
sync

loop

`    +++++++++++++++++++++++++++   looped subs   ++++++++++++++++++++++++

plus:
f0#=val(fig$(0)):f1#=val(fig$(1))
f#=f#+f0#+f1#
fig$(0)="":fig$(1)=""
e=1
return

minus:
f0#=val(fig$(0)):f1#=val(fig$(1))
f#=f#-f0#-f1#
fig$(0)="":fig$(1)=""
e=1
return

multy:
mu1#=val(fig$(fn))
if m1flag<2 and  m2flag<2 then f#=f#*mu1#
if m1flag=2 then f#=f#*m1#
if m2flag=2 then f#=f#*m2#
fig$(0)="":fig$(1)=""
e=1
mu1#=0
if m1flag>1 then m1flag=1
if m2flag>1 then m2flag=1
return

divide:
d1#=val(fig$(fn))
if m1flag<2 and  m2flag<2 then f#=f#/d1#
if m1flag=2 then f#=f#/m1#
if m2flag=2 then f#=f#/m2#
fig$(0)="":fig$(1)=""
e=1
d1#=0
if m1flag>1 then m1flag=1
if m2flag>1 then m2flag=1
return

percent:
p1#=val(fig$(fn))
if m1flag<2 and m2flag<2 then f#=f#/100*p1#
if m1flag=2 then f#=f#/100*m1#
if m2flag=2 then f#=f#/100*m2#
fig$(0)="":fig$(1)=""
e=1
p1#=0
if m1flag>1 then m1flag=1
if m2flag>1 then m2flag=1
return

onscreen_info:
set text to normal
set text size 18
ink rgb(255,155,155),0
text 400,10,"fn  "+str$(fn)
text 400,30,"f1#  "+str$(f0#)
text 400,50,"f2#  "+str$(f1#)
text 400,70,"fig$(0)  "+fig$(0)
text 400,90,"fig$(1)  "+fig$(1)
text 400,110,"f#  "+str$(f#)
text 400,130,"m1flag  "+str$(m1flag)
text 400,150,"m2flag  "+str$(m2flag)
text 400,170,"cm  "+str$(cm)


set text size 16
text 315,210,"PRESS ' c ' FOR CALCULATOR"
text 315,240,"PRESS ' r ' FOR RANDOM INTERNET RADIO JUMP"
text 315,260,"TO ONE OF 13 GREAT DANCE STATIONS "
text 315,290,"NO FUSS .. JUST GREAT MUSIC AT A CLICK"
text 315,330,"PAINT AND ADDRESSBOOK SUBPROGRAMS"
text 315,350,"TO BE ADDED"
return


quit:
if escapekey()=1
undim new$(10)
undim fig$(1)
end
endif
return

radio_prime:

if inkey$()="r" then r=1 : xsleep(200):i=2
if r=1 and mouseclick()=1
if mousex()>75 and mousex()<155
if mousey()>330 and mousey()<365
rc=1
endif:endif:endif
if inkey$()="c" then r=0 : xsleep(200):i=1
return


radio_connect:
if rc=1
choice=rnd(12)
if choice=1 then filename$="technomusic.com"
if choice=2 then filename$="protonradio.com"
if choice=3 then filename$="emisiondigital.com"
if choice=4 then filename$="vmix.fr"
if choice=5 then filename$="technomusic.com"
if choice=6 then filename$="1club.fm"
if choice=7 then filename$="dancefm.biz"
if choice=8 then filename$="radioabf.net"
if choice=9 then filename$="ukbassradio.co.uk"
if choice=10 then filename$="gruvsonic.com"
if choice=11 then filename$="technomusic.com"
if choice=12 then filename$="fusionchicago.com"
if file exist(filename$)=1 then delete file filename$
open to write 1,filename$
write string 1,"[InternetShortcut]"
write string 1,"URL='+'http://www."+filename$
close file 1
directory$=""
commandline$=filename$
execute file "C:Program FilesInternet ExplorerIexplore.EXE",commandline$,directory$
rc=0
endif

return







`    +++++++++++++++++++++++++++     pre loop subs   ++++++++++++++++++++++++

rem                                    layout
layout:
cls rgb(155,155,155)
ink rgb(55,55,55),0
box 30,5,270,55 :`                          lcd display
g#=12.5
box 30,75,80,125 :`                         first row digits
box 80+g#,75,130+g#,125
box 130+g#*2,75,180+g#*2,125
box 180+g#*3,75,230+g#*3,125
box 30,125+g#,80,175+g# :`                  second row digits
box 80+g#,125+g#,130+g#,175+g#
box 130+g#*2,125+g#,180+g#*2,175+g#
box 180+g#*3,125+g#,230+g#*3,175+g#
box 30,175+g#*2,80,225+g#*2 :`              third row digits
box 80+g#,175+g#*2,130+g#,225+g#*2
box 130+g#*2,175+g#*2,180+g#*2,225+g#*2
box 180+g#*3,175+g#*2,230+g#*3,225+g#*2
box 30,225+g#*3,80,275+g#*3 :`              forth row digits
box 80+g#,225+g#*3,130+g#,275+g#*3
box 130+g#*2,225+g#*3,180+g#*2,275+g#*3
box 180+g#*3,225+g#*3,230+g#*3,275+g#*3

box 30,275+g#*4,80,325+g#*4 :`              fifth row digits
box 80+g#,275+g#*4,130+g#,325+g#*4
box 130+g#*2,275+g#*4,180+g#*2,325+g#*4
box 180+g#*3,275+g#*4,230+g#*3,325+g#*4








ink rgb(222,222,222),0
set text size 44
center text 55,77,"1":center text 105+g#,77,"2":center text 155+g#*2,77,"3":center text 205+g#*3,77,"+"
center text 55,127+g#,"4":center text 105+g#,127+g#,"5":center text 155+g#*2,127+g#,"6":center text 205+g#*3,127+g#,"-"
center text 55,177+g#*2,"7":center text 105+g#,177+g#*2,"8":center text 155+g#*2,177+g#*2,"9":center text 205+g#*3,177+g#*2,"x"
center text 55,227+g#*3,"0":center text 105+g#,227+g#*3,"C":center text 155+g#*2,227+g#*3,".":center text 205+g#*3,227+g#*3,""
set text to normal:set text size 25:  ink rgb(255,255,0),0
center text 55,290+g#*4,"m1":center text 105+g#,290+g#*4,"m2":center text 155+g#*2,290+g#*4,"Cm":set text size 44:  ink rgb(255,255,0),0:center text 205+g#*3,277+g#*4,"%"

get image 1,0,0,299,390
cls 0
cls rgb(255,155,9)
set text size 122
ink 0,0
text 45,10,"R"
set text size 42
ink 0,0
text 115,60,"adio"
set text size 18
center text 120,120,"All stations have been chosen "
center text 120,140,"because the"
center text 120,160,"'LISTEN/TUNE/PLAY' icon"
center text 120,180,"is clearly obvious and is "
center text 120,200,"on the page you're sent to."
center text 120,230,"No jumping from page to page."
center text 120,250,"Just one click and music."
center text 120,280,"I have no affiliation"
center text 120,300,"with the sites."
ink rgb(155,155,155),0
box 75,330,155,365
ink 0,0
set text size 27

center text 115,337,"ENTER"
get image 2,0,0,299,390

cls 0

return

rem                                 thanks to the man for this  sleep function
function xSleep(length)
waited=timer()
REM creates loop that repeats for time givin by user
while timer() < waited+length
endwhile
rem
endfunction

radio_connect:
if rc=1
choice=rnd(12)
if choice=1 then filename$="technomusic.com"
if choice=2 then filename$="protonradio.com"
if choice=3 then filename$="emisiondigital.com"
if choice=4 then filename$="vmix.fr"
if choice=5 then filename$="technomusic.com"
if choice=6 then filename$="1club.fm"
if choice=7 then filename$="dancefm.biz"
if choice=8 then filename$="radioabf.net"
if choice=9 then filename$="ukbassradio.co.uk"
if choice=10 then filename$="gruvsonic.com"
if choice=11 then filename$="technomusic.com"
if choice=12 then filename$="fusionchicago.com"
if file exist(filename$)=1 then delete file filename$
open to write 1,filename$
write string 1,"[InternetShortcut]"
write string 1,"URL='+'http://www."+filename$
close file 1
directory$=""
commandline$=filename$
execute file "C:\Program Files\Internet Explorer\Iexplore.EXE",commandline$,directory$
rc=0
endif

return