Sorry your browser is not supported!

print "What file will be loaded?"
input "FILE>"; fname$
fname$=fname$+".src"
OPEN TO READ fname$,1
DO
IF READ STRING 1,PAUSE then print "Press any key to continue..." : SUSPEND FOR KEY
LOOP

Dim commandList() as string
fileLine$ = ""

open to read 1,"script.dvx"

` read in file and add each line to array
if file open(1)=1

	while file end(1)=0
		read string 1,fileLine$
   		array insert at bottom commandList()
   		commandList() = fileLine$   
	endwhile
	close file 1
	
endif


` Walk through array and display each line
array index to top commandList()
repeat
	print commandList()	
	next array index commandList() 
until array index valid(commandList()) = 0
wait key

do
Dim commandList() as string
cmd$ = ""
var$ = ""

open to read 1,"script.src"

main:
` read in file and add each line to array
if file open(1)=1
        while file end(1)=0
                do
                read string 1,cmd$
if left$(lower$(cmd$),5) = "print" then print right$(cmd$,len(cmd$)-6)
if cmd$ = "dir" then dir
if cmd$ = "pause" then print "Press any key to continue..." : suspend for key
if cmd$ = "drives" then drivelist
if cmd$ = "exit" then end
if cmd$ = "cls" then cls
if cmd$ = "paint" then goto paint
if cmd$ = "done" then goto start
if cmd$ = "text color 1" then ink rgb(0,0,255),0
if cmd$ = "text color 2" then ink rgb(0,255,0),0
if cmd$ = "text color 3" then ink rgb(255,0,0),0
if cmd$ = "text color 4" then ink rgb(0,255,255),0
if cmd$ = "text color 5" then ink rgb(255,255,0),0
if cmd$ = "text color 6" then ink rgb(255,0,255),0
if cmd$ = "text color 7" then ink rgb(255,255,255),0
if cmd$ = "key wait" then suspend for key
if cmd$ = "browse" then browsefiles()
if cmd$ = "get string" then input "STRING>"; string$
if cmd$ = "show string" then print ">"; string$
if cmd$ = "loop" then loop# = 1
if cmd$ = "/loop" then loop2# = 1
if left$(lower$(cmd$),7) = "encrypt" then encryptfile(right$(cmd$,len(cmd$)-8))
if left$(lower$(cmd$),7) = "decrypt" then decryptfile(right$(cmd$,len(cmd$)-8))
if left$(lower$(cmd$),6) = "msgbox" then msgbox(right$(cmd$,len(cmd$)-7))
if left$(lower$(cmd$),7) = "alertbox" then alertbox(right$(cmd$,len(cmd$)-8))
if left$(lower$(cmd$),7) = "errorbox" then errorbox(right$(cmd$,len(cmd$)-8))
if left$(lower$(cmd$),7) = "infobox" then infobox(right$(cmd$,len(cmd$)-8))
loop
                   array insert at bottom commandList()
                   commandList() = cmd$
        endwhile
        close file 1

endif


` Walk through array and display each line
array index to top commandList()
repeat
        next array index commandList()
until array index valid(commandList()) = 0
loop

paint:
cls
oldMouseX=mousex()
oldMouseY=mousey()
ink rgb(255,255,255),0
box -35,-35,1000,1000
ink rgb(0,0,0),0
do
if mouseclick() = 1 then line oldMouseX,oldMouseY,mousex(), mousey()
if mouseclick() = 2 then cls : ink rgb(255,255,255),0 : box -3,-3,650,650 : ink rgb(0,0,0),0
if returnkey()=1 then get image 1,0,0,640,480 : save image "artpad.bmp",1 : cls : goto main
oldMouseX=mousex()
oldMouseY=mousey()
sync
loop

start:
cls
ink rgb(255,255,255),0
print "Program is done!"
print "Press any key to close..."
suspend for key
end


rem Code snippet functions
rem Decrypt a file
function decryptfile(file$)


if file exist(file$)=1
   open to read 2,file$
   if file exist("TEMP.ENC")=1 then delete file "TEMP.ENC"
   open to write 3,"TEMP.ENC"
   do
      read string 2,tempstr$
      write string 3,decrypt_string(tempstr$)
      if FILE END(2)=1 then exit
   loop
   close file 2
   close file 3
   DELETE FILE file$
   RENAME FILE "TEMP.ENC", file$

`else statment for error trap requires msgbox.dll avalible from `http://winch.pinkbile.com/msgbox.php
`delete else statment if you don't have msgbox.dll/ couldn't be
`bothered getting it.
else
ALERT_X("ERROR: No file to decrypt!","ERROR!")
endif

endfunction

rem Encrypt a file
function encryptfile(file$)


if file exist(file$)=1
   open to read 2,file$
   if file exist("TEMP.ENC")=1 then delete file "TEMP.ENC"
   open to write 3,"TEMP.ENC"
   do
      read string 2,tempstr$
      write string 3,encrypt_string(tempstr$)
      if FILE END(2)=1 then exit
   loop
   close file 2
   close file 3
   DELETE FILE file$
   RENAME FILE "TEMP.ENC", file$

`else statment for error trap requires msgbox.dll avalible from http://winch.pinkbile.com/msgbox.php
`delete else statment if you don't have msgbox.dll/ couldn't be
`bothered getting it.
else
ALERT_X("ERROR: No file to encrypt!","ERROR!")
endif

endfunction

rem Encrypt a string
function encrypt_string(string$)
i=1
for i=1 to len(string$)
   encrypt=(asc(MID$(String$,i)))+40
   returnstr$=returnstr$+chr$(encrypt)
next i

endfunction returnstr$

rem Decrypt a string
function decrypt_string(string$)
`just a precautionary value reset
i=1
for i=1 to len(string$)
   encrypt=(asc(MID$(String$,i)))-40
   returnstr$=returnstr$+chr$(encrypt)
next i

endfunction returnstr$

rem These are functions for File Handling.
Rem Created By: Underworld1020

rem Show a files text to the screen
Function PrintFileContentsToScreen(File$,Top)
   If Top=1 Then Set Cursor 0,0
   Open To Read 1,File$
   While File End(1)=0
      Read String 1,Data$
                If Len(Data$)>0
              Print Data$
                Else
                        Print
                EndIf
   EndWhile
   Close File 1
EndFunction

rem Encode a file (encrypt)
Function IncodeFile(File$,Seed,Overwrite)
   Lines=CountLinesInFile(File$,1)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$
   If Overwrite=0
      Output$="IncodedFile.dat"
      If File Exist(Output$)=1 Then Delete File Output$
      Open To Write 1,Output$
   Else
      Delete File File$ : Open To Write 1,File$
   EndIf
   Open To Read 2,Temp$
   For LineNum= 1 To Lines
      Read String 2,Data$
      Write$=""
      For Num= 1 To Len(Data$)
         Value=Asc(Mid$(Data$,Num))*Seed
         Wrap=0
         While (Wrap*256)<Value
            Inc Wrap
         EndWhile
         Dec Wrap
         Remainder=(Value-(Wrap*256))
         Write$=Write$+Str$(Remainder)+"["+Str$(Wrap)+"]"
      Next Num
      Write String 1,Write$
   Next LineNum
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Decode a file (Decrypt)
Function DecodeFile(File$,Seed,Overwrite)
   Lines=CountLinesInFile(File$,1)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$
   If Overwrite=0
      Output$="DecodedFile.dat"
      If File Exist(Output$)=1 Then Delete File Output$
      Open To Write 1,Output$
   Else
      Delete File File$ : Open To Write 1,File$
   EndIf
   Open To Read 2,Temp$
   For LineNum= 1 To Lines
      Read String 2,Data$
      Write$=""
      Chars=Len(Data$)
      Num=0
      While Num<Chars
         Char$=""
         While Mid$(Data$,Num)<>"["
            Inc Num
            Char$=Char$+Mid$(Data$,Num)
         EndWhile
         Char$=Left$(Char$,Num-1)
         Remainder=Val(Char$)
         Char$=""
         Repeat
            Inc Num
            Char$=Char$+Mid$(Data$,Num)
         Until Mid$(Data$,Num)="]"
         Char$=Left$(Char$,Num-1)
         Wrap=Val(Char$)
         Value=((Wrap*256)+Remainder)/Seed
         Write$=Write$+Chr$(Value)
      EndWhile
      Write String 1,Write$
   Next LineNum
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Get rid of the blank lines in a file
Function GetRidOfBlankLinesInFile(File$,Overwrite)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$
   If Overwrite=0
      Output$="FileWithoutBlankLines.dat"
      If File Exist(Output$)=1 Then Delete File Output$
      Open To Write 1,Output$
   Else
      Delete File File$ : Open To Write 1,File$
   EndIf
   Open To Read 2,Temp$
   While File End(2)=0
      Read String 2,Data$
      For Num= 1 To Len(Data$)
         If Asc(Mid$(Data$,Num))<>32 Then Write String 1,Data$ : Exit
      Next Num
   EndWhile
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Get rid of all spaces in a file
Function GetRidOfAllSpacesInFile(File$,Overwrite)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$
   If Overwrite=0
      Output$="FileWithoutSpaces.dat"
      If File Exist(Output$)=1 Then Delete File Output$
      Open To Write 1,Output$
   Else
      Delete File File$ : Open To Write 1,File$
   EndIf
   Open To Read 2,Temp$
   While File End(2)=0
      Read String 2,Data$
      Write$=""
      For Num= 1 To Len(Data$)
         If Asc(Mid$(Data$,Num))<>32 Then Write$=(Write$+Mid$(Data$,Num))
      Next Num
      If Len(Write$)>0 Then Write String 1,Write$
   EndWhile
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Get rid of the string at the start of a file
Function GetRidOfStringAtStart(File$)
   Lines=CountLinesInFile(File$,1)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$ : Delete File File$
   Open To Write 1,File$ : Open To Read 2,Temp$
   Read String 2,Data$
   For LineNum= 1 To (Lines-1)
      Read String 2,Data$ : Write String 1,Data$
   Next LineNum
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Get rid of the string at the end of the file
Function GetRidOfStringAtEnd(File$)
   Lines=CountLinesInFile(File$,1)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$ : Delete File File$
   Open To Write 1,File$ : Open To Read 2,Temp$
   For Num= 1 To (Lines-1)
      Read String 2,Data$ : Write String 1,Data$
   Next Num
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Get rid of a string at a position
Function GetRidOfStringAtPos(File$,Pos)
        Lines=CountLinesinFile(File$,1)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$ : Delete File File$
   Open To Write 1,File$ : Open To Read 2,Temp$
   For Num= 1 To (Pos-1)
      Read String 2,Data$ : Write String 1,Data$
   Next Num
   Read String 2,Data$
   For LineNum= (Pos+1) To Lines
      Read String 2,Data$ : Write String 1,Data$
   Next LineNum
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Write a string to the start of a file
Function WriteStringToStart(File$,Write$)
   Lines=CountLinesInFile(File$,1)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$ : Delete File File$
   Open To Write 1,File$ : Open To Read 2,Temp$
   Write String 1,Write$
   For LineNum= 1 To Lines
      Read String 2,Data$ : Write String 1,Data$
   Next LineNum
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Write a string at the end of the file
Function WriteStringToEnd(File$,Write$)
   Lines=CountLinesInFile(File$,1)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$ : Delete File File$
   Open To Write 1,File$ : Open To Read 2,Temp$
   For LineNum= 1 To Lines
      Read String 2,Data$ : Write String 1,Data$
   Next LineNum
   Write String 1,Write$
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Write a string to the file at a position
Function WriteStringToPos(File$,Write$,Pos,Overwrite)
   Lines=CountLinesInFile(File$,1)
   Temp$="Temp.dat"
   If File Exist(Temp$)=1 Then Delete File Temp$
   Copy File File$,Temp$ : Delete File File$
   Open To Write 1,File$ : Open To Read 2,Temp$
   For PosNum= 1 To (Pos-1)
      Read String 2,Data$ : Write String 1,Data$
   Next PosNum
   Write String 1,Write$
   If OverWrite=1 Then Read String 2,Data$ : Inc Pos
   For LineNum= Pos To Lines
      Read String 2,Data$ : Write String 1,Data$
   Next LineNum
   Close File 1 : Close File 2
   Delete File Temp$
EndFunction

rem Count the number of lines in a file
Function CountLinesInFile(File$,Rid)
   Count=0
   Open To Read 1,File$
   While File End(1)=0
      Inc Count : Read String 1,Data$
   EndWhile
   Close File 1
   If Rid=1 Then Dec Count
EndFunction Count

rem Read a string at the start of a file
Function ReadStringAtStart(File$)
   Open To Read 1,File$
   Read String 1,Read$
   Close File 1
EndFunction Read$

rem Read a string at the end of a file
Function ReadStringAtEnd(File$)
   Open To Read 1,File$
   While File End(1)=0
      Read String 1,Data$ : If Len(Data$)>0 Then Read$=Data$
   EndWhile
   Close File 1
EndFunction Read$

rem Read a string at a position in a file
Function ReadStringAtPos(File$,Pos)
   Open To Read 1,File$
   For PosNum= 1 To Pos
      Read String 1,Read$
   Next PosNum
   Close File 1
EndFunction Read$

rem CREDIT NO LONGER DUE TO THE ABOVE

rem Function to take a screenshot
function takePicture(keyStr$,imageNum)
if inkey$() = keyStr$
   get image imageNum, 0,0,screen width(),screen height()
   do
   inc fileNumVar
   newStringVar$ = "Picture"+str$(fileNumVar)+".jpg"
   if file exist(newStringVar$) = 0
      save image newStringVar$,imageNum
      exit
   endif
   loop
   delete image imageNum
endif
endfunction

rem The following functions are credit to;
rem UNKNOWN

`==================================
function drop_count()
 count=count1(0)
endfunction count
`==================================
function make_menu()
 dim names1(50) as string
 dim names2(50,50) as string
 dim names3(50,50,50) as string
 dim count1(10)
 dim count2(50)
 dim count3(50,50)
 set text font "tahoma"
 set text size 14
endfunction
`==================================
function add_drop(name as string)
 count1(0)=count1(0)+1
 names1(count1(0))=name
endfunction
`==================================
function add_sub_drop(pos,name as string)
 count2(pos)=count2(pos)+1
 names2(pos,count2(pos))=name
endfunction
`==================================
function add_sub_sub_drop(pos,down,name as string)
 count3(pos,down)=count3(pos,down)+1
 names3(pos,down,count3(pos,down))=name
endfunction
`==================================
function update_menu()
mg=count1(9)
mx=mousex()
my=mousey()
count1(10)=mg
mg=mouseclick()
count1(9)=mg
mc=0
if mg=1 and count1(10)=0 then mc=1

check=0
colour(1) : box 0,0,screen width(),18
colour(2) : line 0,18,screen width(),18
colour(4) : line 0,19,screen width(),19
`================= DROP
wid=5
if count1(0)>0
for i=1 to count1(0)
 tl=text width(names1(i))
 t2=text height(names1(i))
  text wid,1,names1(i)
  line wid,text height(mid$(names1(i),1)),wid+text width(mid$(names1(i),1))-1,text height(mid$(names1(i),1))
  `=========
  wrt=wid+text width(names1(i))
  if mx>wid-5 and mx<wrt and my>0 and my<20
  colour(3) : line wid-5,0,wrt,0 : line wid-5,0,wid-5,17 : colour(2) : line wrt,0,wrt,17 : line wid-5,17,wrt,17
  if mc=1 then colour(2) : line wid-5,0,wrt,0 : line wid-5,0,wid-5,17 : colour(3) : line wrt,0,wrt,17 : line wid-5,17,wrt,17
     colour(4)
     if count1(1)>0 then count1(1)=i : count1(2)=wid : count1(5)=wrt
    if mc=1
     check=1
     count1(1)=i
     count1(6)=0
     count1(2)=wid
     if count2(count1(1),0)=0 then return$=names1(i)
    endif
   endif
  `=========
  wid=wid+text width(names1(i))+15
next i
endif
`======================
`================= SUB DROP
if count2(count1(1),0)>0
wid=count1(2)
he=20+(count2(count1(1),0)*15)
wrt=count1(5)
colour(2) : line wid-5,0,wrt,0 : line wid-5,0,wid-5,17 : colour(3) : line wrt,0,wrt,17 : line wid-5,17,wrt,17
wid=count1(2)-5
colour(1) : box wid,20,wid+100,he
colour(2) : line wid,he-1,wid+99,he-1 : line wid+99,20,wid+99,he
colour(3) : line wid,21,wid+100,21 : line wid+1,20,wid+1,he
colour(4) : line wid,he,wid+100,he : line wid+100,20,wid+100,he
h=20
for i=1 to count2(count1(1),0)
 colour(4)
    count1(3)=0
   if mx>wid-3 and mx<wid+97 and my>(i*15) and my<15+(i*15)
    check=1
    count1(3)=i
    if mc=1 then count1(6)=i : count1(8)=h
    if mc=1 and count3(count1(1),count1(6))=0 then return$=names2(count1(1),i) : count1(1)=0
   endif
 if i=count1(3) then colour(2) : box wid+3,7+(i*15),wid+98,18+(i*15) :  colour(5)
  text wid+5,h,names2(count1(1),i)
  a=wid+96
  if count3(count1(1),i)>0
  h=h+7
   dot a,h : dot a-1,h : dot a-2,h : dot a-3,h : dot a-1,h+1 : dot a-1,h-1
   dot a-2,h+1 : dot a-2,h+2 : dot a-2,h-1 : dot a-2,h-2 : dot a-3,h+3
   dot a-3,h-1 : dot a-3,h-2 : dot a-3,h-3 : dot a-3,h+1 : dot a-3,h+2
  h=h-7
  endif
  colour(4)
  h=h+15
next i
endif
`======================
`================= SUB SUB DROP
if count3(count1(1),count1(6))>0
 colour(1)
  h=7+count1(6)*15
  he=5+(count1(6)*15)+(count3(count1(1),count1(6))*15)
  `h=5+count1(6)*15
 box wid+100,5+count1(6)*15,wid+200,5+(count1(6)*15)+(count3(count1(1),count1(6))*15)
 wid=wid+100
colour(2) : line wid,he-1,wid+99,he-1 : line wid+99,h,wid+99,he
colour(3) : line wid,h-1,wid+99,h-1 : line wid,h,wid,he
colour(4) : line wid,he,wid+100,he : line wid+100,h,wid+100,he
 for i=1 to count3(count1(1),count1(6))
 colour(4)
    count1(3)=0
   if mx>wid-3 and mx<wid+97 and my>(i*15) and my<15+(i*15)
    check=1
    count1(3)=i
    if mc=1 then return$=names3(count1(1),count1(6),i) : count1(1)=0 : count1(6)=0
   endif
 if i=count1(3) then colour(2) : box wid+3,7+(i*15),wid+97,18+(i*15) :  colour(5)
  text wid+5,h-2,names3(count1(1),count1(6),i)
  colour(4)
  h=h+15
 next i
endif
`======================
if mc=1 and check=0 then count1(1)=0 : count1(6)=0

endfunction return$
`==================================
function colour(num)
if num=1 then ink get_colour(4),0
if num=2 then ink get_colour(16),0
if num=3 then ink get_colour(20),0
if num=4 then ink get_colour(21),0
if num=5 then ink rgb(255,255,255),0
endfunction

function get_colour(num)
  local col as dword
  load dll "user32.dll",1
  col = call dll(1,"GetSysColor", num)
  delete dll 1
  col = rgb(rgbb(col), rgbg(col), rgbr(col))
endfunction col

`==================================

rem the following code is a file browser
rem made by Vincent Hoogendam

function browsefiles()
Rem -----------------------------------------------
Rem -- Author : Vincent Hoogendam                --
Rem -- Demo   : How to make a file listbox       --
Rem -- E-mail : vincent.hoogendam@lycos.nl       --
Rem -----------------------------------------------
Rem -- version [1.0 - Simple text only]          --
Rem -----------------------------------------------

Rem first we define a starting directorie and perform search for files in that directorie
rem -------------------------------------------------------------------------------------
Set dir "c:"
Perform checklist for files                                 :

Rem now lets make some storage room to store filenames in that were found
Rem ---------------------------------------------------------------------
f_name$ as string
f_type# as integer
first# as integer
last# as integer
option# as integer

Dim f_name$(5000)
Dim f_type#(5000)


Rem set the backdrop on and scramble stars position
Rem -------------------------------------------------------
backdrop on
color backdrop 0


Rem now store file types and names into memory
Rem ------------------------------------------
printout:
Perform checklist for files
first#=0
Find first
f_name$(0) = get file name$()
f_type#(0) = get file type()

For a=1 to checklist quantity()-1
   find next
   f_name$(a) = get file name$()
   f_type#(a) = get file type()
Next a

Rem all files / folders in the current directory are now stored in memory
Rem let`s print them out on the screen
Rem ---------------------------------------------------------------------
if checklist quantity()>28
   last# = 28
else
   last# = checklist quantity()
endif


do
rem Check if the mouse is over a file
Rem ---------------------------------
for a=1 to 29
   if mousey() > a * 15 and mousey() < (a * 15) + 15 then box 0,a*15,640,(a * 15)+ 15 : option# = a
next a

set cursor 0,0
ink rgb(0,0,255),1
print get dir$()
line 0,13,640,13
y# = 0

for a = first# to last#
set cursor 0,(y# * 15) + 14
   if f_type#(a)=1
      ink rgb(255,0,0),1
   else
      ink rgb(255,255,255),1
   endif
   print f_name$(a)
   y# = y# + 1
next a
ink rgb(55,55,55),0


Rem scroll the list with your keyboard
Rem ----------------------------------
if upkey() = 1 and first# > 0
   first# = first# - 1
   last# = last# - 1
endif

if downkey() = 1 and last# < checklist quantity() - 1
   last# = last# + 1
   first# = first# + 1
endif

Rem if the mouse is clicked and you have clicked on a directory then change to that directory
Rem -----------------------------------------------------------------------------------------
if wait#=0

if mouseclick()=1 and f_type#(((option# - 1) + first#)) = 1
   gosub change_dir
endif

else
   time#=time#+1
   if time#=100 then time#=0 : wait#=0
endif

Rem Show which file you have selected at the bottem
Rem -----------------------------------------------
line 0,(29*15)+17,640,(29*15)+17
set cursor 0,(29*15)+18

if f_name$(((option# - 1) + first#)) = ".."
   Print "[Click to go up one folder]"
   gosub skip
endif

if f_name$(((option# - 1) + first#)) = "."
   Print "[Email:Vincent.hoogendam@lycos.nl]"
   gosub skip
endif

if f_type#(((option# - 1) + first#)) = 1
   Print "[Directory:" + f_name$(((option# - 1) + first#)) + "]"
else
   print "[File:" + f_name$(((option# - 1) + first#)) + "]"
endif


skip:
loop

change_dir:
for a = 0 to checklist quantity()
   f_name$(a) = ""
   f_type#(a) = 0
   cd f_name$(((option# - 1) + first#))
   wait#=1
   gosub printout
next a
endfunction

rem Functions for win32 message boxes
FUNCTION ALERT(MESSAGE$,TITLE$)
    ALERT_1(MESSAGE$,TITLE$,"0")
ENDFUNCTION
FUNCTION ALERT_X(MESSAGE$,TITLE$)
    ALERT_1(MESSAGE$,TITLE$,"16")
ENDFUNCTION
FUNCTION ALERT_?(MESSAGE$,TITLE$)
    ALERT_1(MESSAGE$,TITLE$,"32")
ENDFUNCTION
FUNCTION ALERT_i(MESSAGE$,TITLE$)
    ALERT_1(MESSAGE$,TITLE$,"48")
ENDFUNCTION
FUNCTION ALERT_1(MESSAGE$,TITLE$,NUMBER$)
     OPEN TO WRITE 32,"c:msgbox.vbs"
     WRITE STRING 32,"msgbox"+CHR$(34)+MESSAGE$+CHR$(34)+","+NUMBER$+","+CHR$(34)+TITLE$+CHR$(34)
     CLOSE FILE 32
     EXECUTE FILE "wscript.exe","c:msgbox.vbs","C:",1
     DELETE FILE "c:msgbox.vbs"
ENDFUNCTION

function MSGBOX(message$)
alert_1(message$,Message,"0")
endfunction

function ERRORBOX(message$)
alert_1(message$,Error,"16")
endfunction

function ALERTBOX(message$)
alert_1(message$,Alert,"32")
endfunction

function INFOBOX(message$)
alert_1(message$,Info,"48")
endfunction