Sorry your browser is not supported!

rem webcounter generic 01 1.0a
rem by Free-space
Rem by Jordan Earls
if file exist("usertotal.txt")=0 then make file "usertotal.txt"
open to read 1,"usertotal.txt"
read string 1,current$
close file 1
if file exist("usertotal.txt")=1 then delete file "usertotal.txt"
val(current$)=currentc
currentc=currentc+1
open to write 1,"usertotal.txt"
temp$=str$(currentc)
write string 1,temp$
close file 1
print temp$
print currentc

rem this is a generic media player
rem version 1.2
rem this prog was made by jordan earls
a=file exist("commands_and_dll_library.dll")
if a=1 then goto starty else goto failed
starty:
print "type 1 to choose where media is"
print "type 2 to pause music"
print "type 3 to resume music"
print "type 4 to reload music"
print "type 5 to change volume"
print "type 6 to change speed"
start:
sync off
input st
if st=1 then goto w
if st=2 then goto p
if st=3 then goto r
if st=4 then goto a
if st=5 then goto c
if st=6 then goto f
goto starty
a:
delete music 1
w:
if music exist(1) then goto d
s:
print "this only plays mp3 and midi files"
print "make sure to include file endings (file.mp3)"
print "you can also use a website address (ftp://dom/music.mp3)and (http://domain.com/music.mp3)"
print "type the path of the music here"
input path$
a=file exist(path$)
if a=0 then goto y
load music path$,1
play music 1
loop music 1
goto starty
d:
print "please select 4 to reload music instead"
goto starty
p:
if music paused(1) then goto n
pause music (1)
goto starty
n:
print "music is already paused"
goto starty
r:
if music playing (1) then goto e
resume music (1)
goto starty
e:
print "music is already playing"
goto starty
c:
if music exist (1) then goto cf
print "play some music first"
goto starty
cf:
print "type 1-200 for volume"
input vol
set music volume 1,vol
goto starty


f:


if music exist (1) then  goto fr
print "play some music first"
goto starty
fr:
print "set the speed 1-200"
input speed
set music speed 1,speed
goto starty
y:
print "file don't exist"
goto starty

failed:
print  "improperly installed"
print "or invalid serial codes"
input j
end

rem this is a serial verifyed installer
rem by Jordan Earls
rem And Simple_apps
start:
print "perfected for win nt4/2000/xp h/p"
print "This program will install mplayer 1.21"
print "press esc to exit"
print "if you don't have a serial code e-mail me at"
print "je837261@hotmail.com"
print "type in your serial code here"
input serial
if serial <20 and serial >= 10  then goto proper
if serial <83 and serial >72 then goto proper
if serial >200 and serial <230 then goto proper
goto improper
proper:
print "where do you want this installed(C:path)"
input pat$
pats=path exist(pat$)
if pats=1 then goto path_exist else goto installs
path_exist:
print "the path exists already choose another"
goto proper
installs:
make directory pat$
copy file "mplayer.exe",pat$ + "mplayer.exe"
make file pat$ + "commands_and_dll_library.dll"
print "you have installed mplayer to", pat$
print "thank you"
input g
end
improper:
print "invalid serial code"
print "press enter to retry"
print "or esc to exit"
input ktf
goto start

rem main source
rem x-explorer
rem beta1.0
rem unix/dos-based version
rem login:
rem open to read 1,"user.dat"
rem read word 1,num
rem for i=1 to num
rem read string 1,file$
rem read string 1,pass$
rem user$(i)=file$
rem password$(i)=pass$
rem next i

start:
print "press esc to exit out of the entire os"
print "dos like enviroment"
print "this is a beta"
print "starting up x-cmd"
goto mainloop
scancod=scancode()
load:
function checkpath()
if file exist(com$) then execute file com$,"",""
if file exist("%windir%"+"system"+com$) then execute file "%windir%"+"system"+com$,"",""
if file exist("%windir%"+"system32"+com$) then execute file "%windir%"+"system32"+com$,"",""



endfunction
function print_help()
print "this is a beta and is not set up yet"
endfunction
function execute_files()
print "this will execute a file"
print "you can use this os only files i.e. /main/prog.exe"
print "or you can use a file not with this os i.e C:prog.exe"
print "type the path here"
input fil_ex$
if not file exist(fil_ex$) then end
execute file fil_ex$,"",""
cls
endfunction
function copy()
print "source filename"
input source$
print "destination filename"
input dest$
copy file source$,dest$
cls
endfunction
function move()
print "source filename"
input source$
print "destination filename"
input dest$
move file source$,dest$
cls
endfunction
function newdir()
print "type the name and path of the new folder"
input newd$
make directory newd$
endfunction
function newfil()
print "type the filename and path here"
input filnp$
make file filnp$
endfunction
function delfil()
print "type the filename and path you want to delete"
input filde$
delete file filde$
endfunction
function deldir()
print "this will delete a whole directory"
print "and all files/directories in it"
print "type the foldername/path here"
input deldir$
delete directory deldir$
endfunction
function getfile()
find first
name$=get file name$()
repeat
print name$
find next
name$=get file name$()
a=get file type()
until a=-1
wait 10000
endfunction
function cdp()
print "type the path you want to set"
print "as the current directory"
print "type path here i.e.dos C: or unix/main/app-files/"
input path$
cd path$
endfunction
function list_commands()
print "help will display help"
print "start  execute a file"
print "copy copies a file"
print "move moves files"
print "newdir create a new folder"
print "newfile  creates a new file"
print "delfile deletes a file"
print "deldir deletes a folder"
print "get-file displays all files in current directory"
print "cd set current working directory"
print "get-dir  list current working directory"
print "applist  list registered apps"
endfunction
rem function applist()
rem open to read 2,"applist.lst"
rem read word 2,num

rem for i=1 to num
rem read string 2,i$
rem read string 2,i$
rem
rem print i$
rem next i
rem close file 2
rem endfunction





rem main loop begin
mainloop:
scancod=scancode()
print "esc to exit"
print "type list for list of commands"
print "input commands here"
input "command> ",com$
if com$="help" then print_help()
if com$="start" then execute_files()
if com$="copy" then copy()
if com$="move" then move()
if com$="newdir" then newdir()
if com$="newfile" then newfil()
if com$="delfile" then delfil()
if com$="deldir" then deldir()
if com$="get-file" then getfile()
if com$="get-dir" then print get dir$()
if com$="cd" then cdp()
if com$="list" then list_commands()
rem if com$="applist" then applist()

checkpath()
goto mainloop

rem Split It 1x
rem this was made by simple apps
rem this was made by Jordan Earls
rem make the file version
main:
print "type make to start making a split up file"
print "type join to join already split fies"
print "this is the free version get it at simple-apps.dbspot.com"
print "register today at simple-apps.dbspot.com/register.html"
input com$
cls
if com$="make" then make()
if com$="join" then join()
goto main
function make()
cls
startm:
print "this will split a file"
print "type the file name of the file you want to split here(this is case sensitive)(must include file endings)"
input file$
if file exist(file$)=1
open to read 1,file$
print "file was read"
wait 5000
else
print "the file: "+file$+" does not exist check the path and remeber it is case sensitive"
goto startm
endif
remstart
cls
slev:
print "what level of split do you want"
print "1-10 10 is smaller files but more of them"
print "1 is bigger files but less of them"
input slevel
if slevel>10 or slevel<1
print "invalid entry please enter 1-10"
goto slev
endif
remend
cls
checkline:
do
if file end(1) then goto ex
print "loading"
print a
wait 50
a=a+1
read string 1,temp$
loop
ex:
print a
wait 5000
fload:
print "please type a folder to put the split up files in"
print "if the folder don't exist it will be created"
print "this is also case sensitive"
input folder$
if path exist(folder$)=1
cd folder$
else
make directory folder$
cd folder$
endif
print "please wait while file is split"
print "if the file is rather big this could take a while"
print "you can cancel at any time by pressing the escape key"
slevel*10=10
endfunction
function join()
endfunction

rem this is an advanced file viewer/executer
rem designed mainly for nbi core
browse_files("C:hsijhid",1,1,1,1)


function browse_files(path$,continue,store,adv,typee) `path is if u want somehtign besides the current dir
` continue=1 would make even if the path is empty it still continue else it will exit the function
`store is type of storage of the file name(still to be worked out)
`adv is advanced mode on or off
`typee is rather it is standalone or suppose ot be implemented
gosub _choose
if path exist(path$)=0 and continue=1 then gosub _choose
if path exist(path$)=0 and continue=0 then exitfunction
if file exist(path$)=0 and continue=1 then gosub _choose
if file exist(path$)=0 and continue=0 then exitfunction
rem if path$=""=0 then cd path$
dim files$(2,65535)
rem dim dir$(65535)
rem dim type(65535)

find first

typef=get file type()
if typef=-1
print "this directory is empty"
if continue=0 then exitfunction else gosub _choose
endif
start:
do


temp=get file type()
if temp=0 then fn=fn+1
if temp=1 then dn=dn+1
if temp=-1 then exit
n=n+1
if temp=0 then files$(1,n)=get file name$()
if temp=1 then files$(2,n)=get file name$()
find next




loop





_choose:
cls
perform checklist for drives
dim xyz(510)
dim drive$(255)
xyz(0)=20 `permanent x coordinate
xyz(1)=15 `permanent y coordinate
for i=2 to 510 step 2
xyz(i)=xyz(i-2)+20
xyz(i-1)=20
next i


global numd
numd=checklist quantity()
set text font "arial"
set text size 12

for i=1 to numd
drive$(i)=checklist string$(i)
text xyz(i),xyz(i-1),drive$(i)
next i




do
if mouseclick()=1
temp=0
tmp=1

for i=0 to width*height
width=text width(drive$(i))
height=text height(drive$(i))

temp=width-i
if temp=0
temp=width
tmp=tmp+1
endif
if mousex()=temp and mousey()=tmp
print "yay"
rem ink rgb(0,0,0),rgb(255,255,255)
cd drive$(i)
rem goto start
rem gosub _print_drives

exit
`do whatever
endif
next i

endif
loop
return




undim drive$(0)
undim xyz(0)
undim files$(0)
exitfunction
endfunction




`highlighting/clicking

remstart
`examle width=10 and height=10
if mouseclick()=1
temp=0
tmp=1
for i=0 to width*height
width=text width("test")
height=text height()

temp=width-i
if temp=0
temp=width
tmp=tmp+1
endif
if mousex=temp and mousey=tmp
ink rgb(0,0,0),rgb(255,255,255)
gosub _print_drives

exit
`do whatever
endif
next i
endif
next i

return




`highlighting/clicking
x=100
y=100
text x,y,"test"
width=text width("test")
height=text height("test")
`examle width=10 and height=10
if mouseclick()=1
temp=0
tmp=1
for i=1 to width*height

temp=width-i
if temp=0
temp=width
tmp=tmp+1
endif
if mousex=temp and mousey=tmp
ink rgb(0,0,0),rgb(255,255,255)
gosub _print_files

exit
`do whatever
endif
next i
endif


remend