Sorry your browser is not supported!

suspend for key
answer$=add("3.654","6.78642")
print answer$
print 3.654+6.78642
suspend for key
end
function add(number1$,number2$)
   hold1=val(number1$)
   hold2=val(number2$)
   for i=1 to len(number1$)
      a$=mid$(number1$,i)
      if "."=a$ then decmil=1
      if decmil=1 and asc(a$)>47 and asc(a$)<58 then after1=after1+1
   next i
   decnum1$=right$(number1$,after1)
   num1$=left$(number1$,len(number1$)-after1-1)
   number1$=num1$+decnum1$
   decmil=0
   number1=val(number1$)
   for i=1 to len(number2$)
      a$=mid$(number2$,i)
      if "."=a$ then decmil=1
      if decmil=1 and asc(a$)>47 and asc(a$)<58 then after2=after2+1
   next i
   decnum2$=right$(number2$,after2)
   num2$=left$(number2$,len(number2$)-after2-1)
   number2$=num2$+decnum2$
   number2=val(number2$)

   if after1>after2
      number2=val(number2$)*(10^(after1-after2))
      answer=number1+number2
      answer$=str$(answer)
      an$=left$(answer$,len(answer$)-after1)
      swer$=right$(answer$,after1)
      answer$=an$+"."+s0wer$
   else
      number1=val(number1$)*(10^(after2-after1))
      answer=number1+number2
      answer$=str$(answer)
      an$=left$(answer$,len(answer$)-after2)
      swer$=right$(answer$,after2)
      answer$=an$+"."+swer$
   endif
   if after1=0 and after2=0 then answer$=str$(hold1+hold2)
endfunction answer$

suspend for key
answer$=add2("369715416451648168415465618451.2768","6.653")
print answer$
answer$=add("369715416451648168415465618451.2768","6.653")
print answer$
print 0
suspend for key
end
function add(number1$,number2$)
   hold1=val(number1$)
   hold2=val(number2$)
   for i=1 to len(number1$)
      a$=mid$(number1$,i)
      if "."=a$ then decmil=1
      if decmil=1 and asc(a$)>47 and asc(a$)<58 then after1=after1+1
   next i
   decnum1$=right$(number1$,after1)
   num1$=left$(number1$,len(number1$)-after1-1)
   number1$=num1$+decnum1$
   decmil=0
   number1=val(number1$)
   for i=1 to len(number2$)
      a$=mid$(number2$,i)
      if "."=a$ then decmil=1
      if decmil=1 and asc(a$)>47 and asc(a$)<58 then after2=after2+1
   next i
   decnum2$=right$(number2$,after2)
   num2$=left$(number2$,len(number2$)-after2-1)
   number2$=num2$+decnum2$
   number2=val(number2$)

   if after1>after2
      number2=val(number2$)*(10^(after1-after2))
      answer=number1+number2
      answer$=str$(answer)
      an$=left$(answer$,len(answer$)-after1)
      swer$=right$(answer$,after1)
      answer$=an$+"."+s0wer$
   else
      number1=val(number1$)*(10^(after2-after1))
      answer=number1+number2
      answer$=str$(answer)
      an$=left$(answer$,len(answer$)-after2)
      swer$=right$(answer$,after2)
      answer$=an$+"."+swer$
   endif
   if after1=0 and after2=0 then answer$=str$(hold1+hold2)
endfunction answer$

function add2(number1$,number2$)
   for i=1 to len(number1$)
      a$=mid$(number1$,i)
      if "."=a$ then decmil=1
      if decmil=1 and asc(a$)>47 and asc(a$)<58 then after1=after1+1
      if decmil=0 and asc(a$)>47 and asc(a$)<58 then before1=before1+1
   next i
   decmil=0
   for i=1 to len(number1$)
      a$=mid$(number2$,i)
      if "."=a$ then decmil=1
      if decmil=1 and asc(a$)>47 and asc(a$)<58 then after2=after2+1
      if decmil=0 and asc(a$)>47 and asc(a$)<58 then before2=before2+1
   next i
   if after1>after2
      for i=1 to after1-after2
         number2$=number2$+"0"
      next i
   endif
   if after2>after1
      for i=1 to after2-after1
         number1$=number1$+"0"
      next i
   endif
   if before1>before2
      for i=1 to before1-before2
         number2$="0"+number2$
      next i
   endif
   if before2>before1
      for i=1 to before2-before1
         number1$="0"+number1$
      next i
   endif
   for i=len(number1$) to 1 step -1
   if asc(mid$(number1$,i))>47 and asc(mid$(number1$,i))<58
      a=val(mid$(number1$,i))
      b=val(mid$(number2$,i))
      c=a+b+hold
      hold=0
      if c>9 then hold=1:c=c-10
      answer$=str$(c)+answer$
   else
      answer$="."+answer$
   endif
   next i
   if hold=1 then answer$="1"+answer$
endfunction answer$

repeat 
   do stuff
until spacekey()

sync on
color backdrop rgb(255,255,255)
dim letter$(10000000)
dim letter(10000000)
dim coppy$(1000)
syn=5
set image colorkey 255,0,255
ink rgb(255,0,255),rgb(255,0,255)
box 0,0,10,20
wait 1000
ink 0,0
line 5,0,5,20
line 0,0,10,0
line 0,20,10,20
get image 1,0,0,10,21
backspace=200
keypress$=""
lastchar=(screen width()-400)/text width("a")
oldcursor=5
set window size 800,600
do
   spacebar=spacekey()
   backkey=keystate(14)
   theight=text height("a")
   twidth=text width("a")
   keypress$=inkey$()
   if keypress$=key$
      if keypress$=""
      else
         held=held+1
         if held>2500
            letter$(cursor)=letter$(cursor)+keypress$
            i=i+1
            cursor=cursor+1
            if cursor<i
               for j=i to cursor step -1
                  letter$(j+1)=letter$(j)
               next j
            endif
         endif
      endif
   else
      held=0
      a=asc(keypress$)
      if a>32
         if cursor<i
            for j=i to cursor step -1
               letter$(j+1)=letter$(j)
            next j
         endif
         letter$(cursor)=keypress$
         i=i+1
         cursor=cursor+1
      endif
   endif
   if asc(keypress$)>32
      key$=keypress$
   else
      key$=""
   endif
   if spacebar=1 then key$=" "
   if spacebar=1 and spaceagain=0
      if i>cursor
         for j=i to cursor step -1
               letter$(j+1)=letter$(j)
         next j
         spaceagain=1
         letter$(cursor)=" "
         i=i+1
         cursor=cursor+1
      else
         spaceagain=1
         letter$(cursor)=" "
         i=i+1
         cursor=cursor+1
      endif
   endif
   if spacebar=0 then spaceagain=0
   if backkey=1 and i>0 and back=0 or backspace<1 and i>0
      back=1
      i=i-1
      cursor=cursor-1
      letter$(cursor)=""
      if cursor<i
         for j=cursor to i
            letter$(j)=letter$(j+1)
         next j
      endif

   endif
   if backkey=1 then backspace=backspace-1
   if backkey=0 then backspace=1000:back=0
   if controlkey()=1 then ctrl=1
   if controlkey()=0 then ctrl=0
   if ctrl=1 and keystate(45)=1
      cop=0
      for j=oldcursor to cursor-1
         coppy$(cop)=letter$(j)
         cop=cop+1
      next j
      for j=cursor to i
         letter$(j-cop)=letter$(j)
         if j>i-cop then letter$(j)=""
      next j
      i=i-cop
      if i<0 then i=0
      cursor=cursor-cop
      if cursor<0 then cursor=0
      wait 200
   endif
   if ctrl=1 and keystate(46)=1
      cop=0
      for j=oldcursor to cursor-1
         coppy$(cop)=letter$(j)
         cop=cop+1
      next j
   endif
   if ctrl=1 and keystate(47)=1
      for j=i to cursor step -1
         letter$(j+cop)=letter$(j)
      next j
      for j=cursor to cursor+cop
         letter$(j)=coppy$(j-cursor)
      next j
      cursor=cursor+cop
      i=i+cop
      wait 200
   endif

   if syn=0

      row2=(cursor*twidth)/(screen width()-400)
      sprite 1,(cursor*twidth)-row2*(screen width()-400)+200-(twidth/2),row2*theight,1
      cls rgb(255,255,255)
      colum=colum+twidth
      gosub checkforwrap
      gosub movecursor
      if mouseclick()=1 then gosub checkmouse
      mousehold=0
      jsi=mouseclick()
      if jsi=1
         mousehold=1
      else
         mousehold=0
      endif
      for j=0 to i
         column=j*twidth
         row=column/(screen width()-400)
         column=column-row*(screen width()-400)
         text column+200,row*theight,letter$(j)
      next j

      sync
      syn=5

   endif
   if syn>0 then syn=syn-1

loop


checkforwrap:
   for j=1 to i/lastchar
      if asc(letter$(lastchar*j))>32
         for k=lastchar*j to ((lastchar*(j-1)))+1 step -1
            if letter$(k)=" " then firstchar=k: goto checknext
         next k
         goto nowrap
         checknext:
         for k=i to firstchar step -1
            letter$((lastchar*j)-firstchar+(k))=letter$(k)
         next k
         i=i+(lastchar*j)-firstchar
         if cursor=(lastchar*j) or cursor=(lastchar*j)+1 then cursor=cursor+(lastchar*j)-firstchar
         for k=firstchar to lastchar*j
            letter$(k)=" "
         next k
      endif
      nowrap:
   next j
return

movecursor:
   if rightkey()=1  and cursor<i then cursor=cursor+1:wait 100
   if leftkey()=1  and cursor>0 then cursor=cursor-1:wait 100
return

checkmouse:
   if mousehold=0
      x=(mousex()-200)/twidth
      y=mousey()/theight
      if mousex()<200 or mousex()>screen width()-200 then goto nomovecursor
      cursor=y*((screen width()-400)/twidth)+x
      oldcursor=cursor
      if cursor>i
         for j=i to cursor
            letter$(j)=" "
         next j
         i=cursor
      endif
   endif
   if mousehold=1
      x=(mousex()-200)/twidth
      y=mousey()/theight
      if mousex()<200 or mousex()>screen width()-200 then goto nomovecursor
      cursor=y*((screen width()-400)/twidth)+x
      if cursor>i
         for j=i to cursor
            letter$(j)=" "
         next j
         i=cursor
      endif
         ink rgb(0,0,255),rgb(0,0,255)
         row3=(cursor*twidth)/(screen width()-400)
         column3=(cursor*twidth)-row3*(screen width()-400)+200-(twidth/2)
         row3=row3*theight
         row4=(oldcursor*twidth)/(screen width()-400)
         column4=(oldcursor*twidth)-row4*(screen width()-400)+200-(twidth/2)
         row4=row4*theigh
         if column4>column3
            holdrow=row4
            row4=row3
            row3=holdrow
            holdrow=column4
            column4=column3
            column3=holdrow
         endif
         for j=0 to (row4-row3+theight) step theight
            if row4=row3 then box column4+(twidth/2),row4-theight/2,column3-(twidth/2),row3+theight
            if row4>j
               if j=row3
                  box column3-(twidth/2),row3-theight/2,screen width()-200,row3+theight
               else
                  box 200,j-theight/2,screen width()-200,j+theight
               endif
            endif
            if row4<j
               if j=row3
                  box 200,row3-theight/2,column3-(twidth/2),row3+theight
               else
                  box 200,j-theight/2,screen width()-200,j+theight
               endif
            endif
         next j
         ink 0,0
   endif
   nomovecursor:
return

REM *****************
REM Text Editor
REM coded by: Phaelax
REM *****************
#CONSTANT TRUE = 1
#CONSTANT FALSE = 0
#CONSTANT SCROLLBARSIZE = 12
#CONSTANT TITLEBARSIZE = 18
#CONSTANT MIN_WIDTH = 40
#CONSTANT MIN_HEIGHT = 30
#CONSTANT VK_BACKSPACE = 8
#CONSTANT VK_RETURN = 13
Global CLICK_FLAG = 0         : `mouse is pressed down
Global CARET_STAMP = 0        : `timestamp for cursor blink rate
Global CARET$ = "|"           : `the cursor to display
Global VK_FLAG = 0            : `if an arrow key is being pressed
global _mouseFlag = 0         : `used with menu functions


type Menu
   name as string              ` name of this menu
   active as boolean           ` enabled/disabled
   width as integer            ` width of this menu
   count as integer            ` item count
endtype

type MenuItem
   parentID as integer         `id of menu this item belongs to
   item as string              `name of this item
   enabled as boolean          `enabled/disabled
   check as integer            `unused
endtype

type Files
   name as string              `name of file for read/write
   maxWidth as integer         `number of chars in longest line
   textIndex as integer        `beginnging of this file's text in the string array
   textEnd as integer          `ending of this file's text in the string array
endtype

type Window
   x as integer                `X position of window
   y as integer                `Y position of window
   width as integer            `width of window
   height as integer           `height of window
   fileIndex as integer        `index in file array this window references
   thumbX as integer           `scrollbar thumb X position (horizontal)
   thumbY as integer           `scrollbar thumb Y position (vertical)
   thumbHeight as integer      `scrollbar thumb height (vertical)
   thumbWidth as integer       `scrollbar thumb width (horizontal)
   thumbXFlag as boolean       `horizontal scrollbar moving
   thumbYFlag as boolean       `vertical scrollbar moving
   thumbOffsetX as integer     `offset from where mouse clicked horizontal scrollbar
   thumbOffsetY as integer     `offset from where mouse clicked vertical scrollbar
   showVertical as boolean     `show/hide vertical scrollbar
   showHorizontal as boolean   `show/hide horizontal scrollbar
   titleFlag as boolean        `window is being dragged
   titleOffsetX as integer     `offset of where window title bar was grabbed with mouse X
   titleOffsetY as integer     `offset of where window title bar was grabbed with mouse Y
   resizeFlag as boolean       `window is being resized
   resizeOffsetX as integer    `offset X from where mouse clicked resize corner
   resizeOffsetY as integer    `offset Y from where mouse clicked resize corner
   startingLine as integer     `what line number to start displaying text from (vertical scrolling)
   startingChar as integer     `what character position to start displaying text from (horizontal scrolling)
   showLineNumbers as boolean  `show/hide line number border
   visibleLines as integer     `how many lines this window can display at one time
   visibleChars as integer     `how many characters across this window can display at one time
   selectedRow as integer      `what line number is being edited
   caretPos as integer         `character position of cursor in 'selectedRow'
endtype


dim __openFiles(0) as Files   : `array of opened files
dim __windows(0) as Window    : `array of displayed windows
dim __textLines$(0) as string : `holds lines of text from all files
                              : `"File" indices reference this array

dim menus() as Menu           : `array of menus
dim menuItems() as MenuItem   : `array of menu items from all menus


MENU_FILE = addMenu("File")
MENU_EDIT = addMenu("Edit")
addMenuItem(MENU_FILE,"New",TRUE,-1)
addMenuItem(MENU_FILE,"Open",TRUE,-1)
addMenuItem(MENU_FILE,"Save",TRUE,-1)
addMenuItem(MENU_FILE,"Exit",TRUE,-1)
addMenuItem(MENU_EDIT,"Cut",TRUE,-1)
addMenuItem(MENU_EDIT,"Copy",TRUE,-1)
addMenuItem(MENU_EDIT,"Paste",TRUE,-1)



set display mode 1024,768,16
sync on
backdrop on


openFile("c:teTest.txt") : `non-existant file, creates blank
`openFile("c:test.txt")
`openFile("c:vraylog.txt")
openFile("c:thing.txt")



DO


   handleWindows()

   handleMenus()

   set cursor 0,40
   print screen fps()
   fastsync
LOOP



REM **********************************
REM handles all functionality of menus
REM **********************************
function handleMenus()
   _mc = mouseclick()
   if _mc = 0 then _mouseFlag = 0
   v$ = _handleMenus$(_mc)
   set cursor 0,60
   print v$
   if v$ = "File-Exit" then end
endfunction


REM ****************************
REM Handles rendering and UI
REM of all text document windows
REM ****************************
function handleWindows()
   hwind = 0
   count = array count(__windows())
   for i = 1 to count
      _drawWindow(i)
      h = _handleWindowUI(count+1-i)
      if h > hwind then hwind = h
   next i

   rem order last window focused on top
   if hwind > 0 and hwind < count
      temp as Window
      temp = __windows(hwind)
      for i = hwind to count-1
         __windows(i) = __windows(i+1)
      next i
      __windows(count) = temp
   endif
   if mouseclick() = 0 then CLICK_FLAG = 0

   _handleFocused()

endfunction


REM **********************************
REM Functionality for whichever window
REM currently has focus
REM **********************************
function _handleFocused()
   index = array count(__windows())
   x = __windows(index).x
   y = __windows(index).y
   width = __windows(index).width
   height = __windows(index).height
   thumbX = __windows(index).thumbX
   thumbY = __windows(index).thumbY
   thumbHeight = __windows(index).thumbHeight
   fileIndex = __windows(index).fileIndex
   textIndex = __openFiles(fileIndex).textIndex
   lineCount = __openFiles(fileIndex).textEnd - textIndex
   lineHeight = text height("A")
   visibleLines = __windows(index).visibleLines

   editLines(index)

   if __windows(index).showVertical = TRUE
      mmz = mousemovez()
      if mmz < 0 then thumbY = thumbY + 10
      if mmz > 0 then thumbY = thumbY - 10

      if thumbY < 0 then thumbY = 0
      if thumbY > height-thumbHeight then thumbY = height-thumbHeight
      __windows(index).thumbY = thumbY
      __windows(index).startingLine = textIndex + ((lineCount-visibleLines+1)*thumbY) / (height-thumbHeight)
   endif
endfunction



REM **********
REM
REM **********
function editLines(index as integer)
   x = __windows(index).x
   y = __windows(index).y
   width = __windows(index).width
   height = __windows(index).height
   caret = __windows(index).caretPos
   row = __windows(index).selectedRow
   fi = __windows(index).fileIndex
   startingLine = __windows(index).startingLine
   startingChar = __windows(index).startingChar
   fileIndex = __windows(index).fileIndex
   visibleChars = __windows(index).visibleChars
   lineHeight = text height("A")
   charWidth = text width("A")


   rem position cursor with mouse
   if mouseclick() = 1 and CLICK_FLAG = 0
      CLICK_FLAG = 1
      if mouseWithin(x,y,x+width,y+height)
         row = (mousey() - y) / lineHeight
         __windows(index).caretPos = (mousex() - x) / charWidth + startingChar
         row = startingLine + row
         if row > __openFiles(fileIndex).textEnd then row = __openFiles(fileIndex).textEnd
         __windows(index).selectedRow = row
         fPos = len(__textLines$(row))
         if __windows(index).caretPos > fPos then __windows(index).caretPos = fPos
         caret = __windows(index).caretPos
      endif
   endif
   rem position cursor with arrow keys
   if upkey() and VK_FLAG = 0
      VK_FLAG = 1
      dec row
      if row < 1 then row = 1
      __windows(index).selectedRow = row
      fPos = len(__textLines$(row))
      if caret > fPos then caret = fPos
   endif
   if downkey() and VK_FLAG = 0
      VK_FLAG = 1
      inc row
      lineCount = __openFiles(fileIndex).textEnd - __openFiles(fileIndex).textIndex
      if row > lineCount then row = lineCount
      __windows(index).selectedRow = row
      fPos = len(__textLines$(row))
      if caret > fPos then caret = fPos
   endif
   if rightkey() and VK_FLAG = 0
      VK_FLAG = 1
      inc caret
      fPos = len(__textLines$(row))
      if caret > fpos then caret = fpos
   endif
   if leftkey() and VK_FLAG = 0
      VK_FLAG = 1
      dec caret
      if caret < 0 then caret = 0
   endif
   if upkey() = 0 and downkey() = 0 and rightkey() = 0 and leftkey() = 0
      VK_FLAG = 0
   else
      __windows(index).caretPos = caret
   endif


   rem text input
   lineText$ = __textLines$(row)
   buffer$ = entry$()
   for i = 1 to len(buffer$)
      select asc(mid$(buffer$,i))
         case VK_BACKSPACE
            if caret > 0
               t$ = left$(lineText$,caret-1)
               lineText$ = t$ + right$(lineText$, len(lineText$)-len(t$)-1)
               dec caret
            endif
         endcase
         case VK_RETURN
            t$ = left$(lineText$,caret)
            __textLines$(row) = t$
            lineText$ = right$(lineText$, len(lineText$)-len(t$))
            insertLine(fi,lineText$,row+1)
            caret = 0
            inc row
         endcase
         case default
            t$ = left$(lineText$,caret)
            lineText$ = t$ + mid$(buffer$,i) + right$(lineText$, len(lineText$)-len(t$))
            inc caret
            if caret-startingChar > visibleChars then __windows(index).startingChar = __windows(index).startingChar+1
         endcase
      endselect
   next i
   clear entry buffer
   __textLines$(row) = lineText$
   __windows(index).caretPos = caret
   __windows(index).selectedRow = row




   remstart

      if asc(mid$(buffer$,i)) = VK_BACKSPACE
         if caret > 0
            t$ = left$(lineText$,caret-1)
            lineText$ = t$ + right$(lineText$, len(lineText$)-len(t$)-1)
            dec caret
         endif
      else
         t$ = left$(lineText$,caret)
         lineText$ = t$ + mid$(buffer$,i) + right$(lineText$, len(lineText$)-len(t$))
         inc caret
         if caret-startingChar > visibleChars then __windows(index).startingChar = __windows(index).startingChar+1
      endif

   remend


   rem check if new scrollbars are needed
   rem horizontal
   if len(lineText$) > __openFiles(fileIndex).maxWidth
       __openFiles(fileIndex).maxWidth = len(lineText$)-1
       _resizeWindow(index)
   endif
   rem vertical
   if (__openFiles(fileIndex).textEnd - __openFiles(fileIndex).textIndex) > __windows(index).visibleLines
      _resizeWindow(index)
   endif


   rem blinking cursor
   if timer() >= CARET_STAMP+500
      CARET_STAMP = timer()
      if CARET$ = "|"
         CARET$ = ""
      else
         CARET$ = "|"
      endif
   endif
   if startingChar > 0 then caret = caret+1
   cy = y+(row-startingLine)*lineHeight
   cx = x+(caret-startingChar)*charWidth
   if cy >= y and cy < y+height and cx >= x and cx < x+width then text cx,cy,CARET$

endfunction



REM *******************************
REM inserts a new line into a file
REM 'fileIndex' file to insert into
REM 'txt' text to insert
REM 'row' line number to insert at
REM *******************************
function insertLine(fileIndex as integer, txt as string, row as integer)
   if row < array count(__textLines$())
      array insert at element __textLines$(), row
   else
      array insert at bottom __textLines$()
   endif
   __textLines$(row) = txt
   __openFiles(fileIndex).textEnd = __openFiles(fileIndex).textEnd+1

   for f = fileIndex+1 to array count(__openFiles())
      __openFiles(f).textIndex = __openFiles(f).textIndex+1
      __openFiles(f).textEnd = __openFiles(f).textEnd+1
   next f

endfunction



REM ****************
REM open a text file
REM ****************
function openFile(file as string)
   rem local variables
   fileLoaded = 0
   maxWidth = 0
   currentTextIndex = array count(__textLines$())+1

   rem does the file exist
   if file exist(file)
      rem make sure this is a text file
      if lower$(right$(file,4)) = ".txt"
         open to read 1, file
         rem read in all the lines from the file into the array
         while file end(1) = 0
            read string 1, z$
            if len(z$) > maxWidth then maxWidth = len(z$)
            array insert at bottom __textLines$()
            __textLines$(array count(__textLines$())) = z$
         endwhile
         close file 1
         fileLoaded = 1
      endif
   else
      array insert at bottom __textLines$()
      maxWidth = 1
      fileLoaded = 1
   endif

   rem file loaded
   if fileLoaded = 1
      rem store structure of file
      array insert at bottom __openFiles()
      fi = array count(__openFiles())
      __openFiles(fi).maxWidth = maxWidth-1
      __openFiles(fi).name = file
      __openFiles(fi).textIndex = currentTextIndex
      __openFiles(fi).textEnd = array count(__textLines$())
      rem create the window
      array insert at bottom __windows()
      i = array count(__windows())
      __windows(i).x = rnd(700)+100
      __windows(i).y = rnd(400)+100
      __windows(i).width = 500
      __windows(i).height = 300
      __windows(i).fileIndex = fi
      __windows(i).startingLine = __openFiles(fi).textIndex
      __windows(i).showLineNumbers = FALSE
      __windows(i).visibleLines = __windows(i).height/text height("A")
      __windows(i).visibleChars = __windows(i).width / text width("W")
      lineCount = __openFiles(fi).textEnd - __openFiles(fi).textIndex
      if lineCount = 0
         __windows(i).thumbHeight = 1
      else
         __windows(i).thumbHeight = (__windows(i).visibleLines * __windows(i).height) / lineCount
      endif
      if __openFiles(fi).maxWidth <= 0
         __openFiles(fi).maxWidth = 1
         __windows(i).thumbWidth = 1
      else
         __windows(i).thumbWidth = ((__windows(i).width/text width("A"))*__windows(i).width) / __openFiles(fi).maxWidth
      endif
      if __windows(i).thumbHeight < __windows(i).height then __windows(i).showVertical = TRUE
      if __windows(i).thumbWidth < __windows(i).width then __windows(i).showHorizontal = TRUE
   endif
endfunction



REM *******************
REM draws a text window
REM *******************
function _drawWindow(index as integer)
   x = __windows(index).x
   y = __windows(index).y
   width = __windows(index).width
   height = __windows(index).height
   thumbX = __windows(index).thumbX
   thumbY = __windows(index).thumbY
   fileIndex = __windows(index).fileIndex
   textIndex = __openFiles(fileIndex).textIndex
   lineCount = __openFiles(fileIndex).textEnd - textIndex
   maxWidth = __openFiles(fileIndex).maxWidth
   lineHeight = text height("A")
   visibleChars = __windows(index).visibleChars
   visibleLines = __windows(index).visibleLines
   thumbHeight = __windows(index).thumbHeight
   thumbWidth = __windows(index).thumbWidth
   startingChar = __windows(index).startingChar


   rem title bar
   if index < array count(__windows())
      c1 = rgb(192,192,192)
      c2 = rgb(128,128,128)
   else
      c1 = rgb(10,36,106)
      c2 = rgb(166,202,240)
   endif
   box x,y-TITLEBARSIZE,x+width+SCROLLBARSIZE,y,c1,c2,c1,c2
   ink rgb(225,225,225),0
   text x+2,y-TITLEBARSIZE,__openFiles(fileIndex).name


   rem scrollbars
   rem vertical
   rem track
   ink rgb(192,192,192),0
   box x+width,y,x+width+SCROLLBARSIZE,y+height
   rem thumb
   if __windows(index).showVertical = TRUE
      ink rgb(128,128,128),0
      box x+width,y+thumbY,x+width+SCROLLBARSIZE,y+thumbY+thumbHeight
      ink rgb(200,200,200),0
      line x+width,y+thumbY,x+width+SCROLLBARSIZE,y+thumbY
      line x+width,y+thumbY,x+width,y+thumbY+thumbHeight
      ink rgb(40,40,40),0
      line x+width+SCROLLBARSIZE,y+thumbY,x+width+SCROLLBARSIZE,y+thumbY+thumbHeight
      line x+width,y+thumbY+thumbHeight,x+width+SCROLLBARSIZE,y+thumbY+thumbHeight
   endif
   rem horizontal
   rem track
   ink rgb(192,192,192),0
   box x,y+height,x+width,y+height+SCROLLBARSIZE
   rem thumb
   if __windows(index).showHorizontal = TRUE
      ink rgb(128,128,128),0
      box x+thumbX,y+height,x+thumbX+thumbWidth,y+height+SCROLLBARSIZE
      ink rgb(200,200,200),0
      line x+thumbX,y+height,x+thumbX+thumbWidth,y+height
      line x+thumbX,y+height,x+thumbX,y+height+SCROLLBARSIZE
      ink rgb(40,40,40),0
      line x+thumbX,y+height+SCROLLBARSIZE,x+thumbX+thumbWidth,y+height+SCROLLBARSIZE
      line x+thumbX+thumbWidth,y+height,x+thumbX+thumbWidth,y+height+SCROLLBARSIZE
   endif
   rem lower corner where 2 scrollbars meet
   ink rgb(128,128,128),0
   box x+width,y+height,x+width+SCROLLBARSIZE,y+height+SCROLLBARSIZE

   rem background
   ink rgb(208,219,219),0
   box x,y,x+width,y+height
   rem background shadow
   ink rgb(25,25,25),0
   box x+4,y+height+SCROLLBARSIZE,x+width+SCROLLBARSIZE+4,y+height+SCROLLBARSIZE+4
   box x+width+SCROLLBARSIZE,y-TITLEBARSIZE+4,x+width+SCROLLBARSIZE+4,y+height+SCROLLBARSIZE


   rem if show line numbers, draw the border
   if __windows(index).showLineNumbers = TRUE
      tOffset = text width(str$(lineCount)+" ")+4
      box x,y,x+tOffset-4,y+height,rgb(208,219,219),rgb(208,219,219),rgb(160,171,171),rgb(160,171,171)
      ink rgb(128,128,128),0
      box x+tOffset-5,y,x+tOffset-4,y+height
      alignSize = len(str$(lineCount))
   else
      tOffset = 2
   endif

   rem the text
   ink 0,0
   startingLine = __windows(index).startingLine
   for i = startingLine to startingLine + visibleLines-1
      L = i - startingLine
      if i <= __openFiles(fileIndex).textEnd
         if __windows(index).showLineNumbers = TRUE then text x+2,y+L*lineHeight, justify$(str$(i-textIndex+1),alignSize,0)
         t$ = substring$(__textLines$(i), startingChar,startingChar+visibleChars)
         text x+tOffset,y+L*lineHeight, t$
      endif
   next i

endfunction



REM ****************************
REM returns a substring of 's'
REM beginning and ending indices
REM are both inclusive
REM ****************************
function substring$(s as string, bIndex, eIndex)
   s = left$(s,eIndex)
   s = right$(s, len(s)-(bIndex-1))
endfunction s



REM ********************
REM handles UI of window
REM ********************
function _handleWindowUI(index as integer)
   x = __windows(index).x
   y = __windows(index).y
   width = __windows(index).width
   height = __windows(index).height
   thumbX = __windows(index).thumbX
   thumbY = __windows(index).thumbY
   thumbHeight = __windows(index).thumbHeight
   thumbWidth = __windows(index).thumbWidth
   fileIndex = __windows(index).fileIndex
   textIndex = __openFiles(fileIndex).textIndex
   lineCount = __openFiles(fileIndex).textEnd - textIndex
   maxWidth = __openFiles(fileIndex).maxWidth
   lineHeight = text height("A")
   visibleLines = __windows(index).visibleLines
   visibleChars = __windows(index).visibleChars
   grabbedWindow = 0

   if thumbY < 0 then thumbY = 0
   if thumbY > height-thumbHeight then thumbY = height-thumbHeight
   __windows(index).thumbY = thumbY

   if mouseclick() = 1
      rem handle vertical scrollbar
      if __windows(index).showVertical = TRUE
         if CLICK_FLAG = 0 and mouseWithin(x+width,y+thumbY,x+width+SCROLLBARSIZE,y+thumbY+thumbHeight)
            __windows(index).thumbYFlag = TRUE
            __windows(index).thumbOffsetY = thumbY - mousey()
            CLICK_FLAG = 1
         endif
         if __windows(index).thumbYFlag = TRUE
            thumbY = mousey() + __windows(index).thumbOffsetY
            if thumbY < 0 then thumbY = 0
            if thumbY > height-thumbHeight then thumbY = height-thumbHeight
            __windows(index).thumbY = thumbY
            __windows(index).startingLine = textIndex + ((lineCount-visibleLines+1)*thumbY) / (height-thumbHeight)
         endif
      endif

      rem handle horizontal scrollbar
      if __windows(index).showHorizontal = TRUE
         if CLICK_FLAG = 0 and mouseWithin(x+thumbX,y+height,x+thumbX+thumbWidth,y+height+SCROLLBARSIZE)
            __windows(index).thumbXFlag = TRUE
            __windows(index).thumbOffsetX = thumbX - mousex()
            CLICK_FLAG = 1
         endif
         if __windows(index).thumbXFlag = TRUE
            thumbX = mousex() + __windows(index).thumbOffsetX
            if thumbX < 0 then thumbX = 0
            if thumbX > width-thumbWidth then thumbX = width-thumbWidth
            __windows(index).thumbX = thumbX
            __windows(index).startingChar = ((maxWidth-visibleChars)*thumbX) / (width-thumbWidth)
         endif
      endif

      rem handle titlebar
      if CLICK_FLAG = 0 and mouseWithin(x,y-TITLEBARSIZE,x+width+SCROLLBARSIZE,y)
         __windows(index).titleFlag = TRUE
         __windows(index).titleOffsetX = x - mousex()
         __windows(index).titleOffsetY = y - mousey()
         CLICK_FLAG = 1
      endif
      if __windows(index).titleFlag = TRUE
         __windows(index).x = mousex() + __windows(index).titleOffsetX
         __windows(index).y = mousey() + __windows(index).titleOffsetY
      endif

      rem handle resizing
      if CLICK_FLAG = 0 and mouseWithin(x+width,y+height,x+width+SCROLLBARSIZE,y+height+SCROLLBARSIZE)
         __windows(index).resizeFlag = TRUE
         __windows(index).resizeOffsetX = x+width - mousex()
         __windows(index).resizeOffsetY = y+height - mousey()
         CLICK_FLAG = 1
      endif
      if __windows(index).resizeFlag = TRUE
         __windows(index).width = mousex() - __windows(index).x + __windows(index).resizeOffsetX
         __windows(index).height = mousey() - __windows(index).y + __windows(index).resizeOffsetY
         if __windows(index).width < MIN_WIDTH then __windows(index).width = MIN_WIDTH
         if __windows(index).height < MIN_HEIGHT then __windows(index).height = MIN_HEIGHT
         _resizeWindow(index)
      endif

      rem if windows was clicked on, make it top component
      if CLICK_FLAG = 0 and mouseWithin(x,y-TITLEBARSIZE,x+width+SCROLLBARSIZE,y+height)
         grabbedWindow = index
         `CLICK_FLAG = 1
      endif

   else
      __windows(index).thumbXFlag = FALSE
      __windows(index).thumbYFlag = FALSE
      __windows(index).titleFlag = FALSE
      __windows(index).resizeFlag = FALSE
   endif

endfunction grabbedWindow



REM ******************************
REM this is called whenever a
REM window's size has been changed
REM recalculates scrollbar and
REM viewing sizes
REM ******************************
function _resizeWindow(index as integer)
   fi = __windows(index).fileIndex
   lineCount = __openFiles(fi).textEnd - __openFiles(fi).textIndex + 1
   __windows(index).visibleLines = __windows(index).height/text height("A")
   __windows(index).thumbHeight = (__windows(index).visibleLines * __windows(index).height) / lineCount
   __windows(index).thumbWidth = ((__windows(index).width/text width("A"))*__windows(index).width) / __openFiles(fi).maxWidth
   __windows(index).visibleLines = __windows(index).height/text height("A")
   __windows(index).visibleChars = __windows(index).width / text width("W")

   if __windows(index).thumbHeight < __windows(index).height
      __windows(index).showVertical = TRUE
   else
      __windows(index).showVertical = FALSE
   endif
   if __windows(index).thumbWidth < __windows(index).width
      __windows(index).showHorizontal = TRUE
   else
      __windows(index).showHorizontal = FALSE
   endif

   `__windows(index).thumbX = (__windows(index).startingChar*(__windows(index).width - __windows(index).thumbWidth)) / (__openFiles(fi).maxWidth - __windows(index).visibleChars)

endfunction



REM ***************************
REM Create a new drop-down menu
REM ***************************
function addMenu(name as string)
   m as Menu
   m.name = name
   array insert at bottom menus()
   count = array count(menus())
   menus(count) = m
endfunction count


REM *****************************
REM add a menu item to menu 'pid'
REM *****************************
function addMenuItem(pid as integer, item as string, enabled as boolean, check as integer)
   m as MenuItem
   m.parentID = pid
   m.item = item
   m.enabled = enabled
   m.check = check
   array insert at bottom menuItems()
   menuItems(array count(menuItems())) = m

   rem make sure menu is drawn wide enough to handle this item's name
   width = text width(item)+6
   if width > menus(pid).width then menus(pid).width = width

   menus(pid).count = menus(pid).count + 1
endfunction



REM ********************
REM Handles the menus UI
REM ********************
function _handleMenus$(mc as integer)
   v$ = ""
   offsetX = 0
   active = -1
   activeOffset = 0
   rem text height, vertical spacing
   tw = 16

   for i = 0 to array count(menus())
      width = text width(menus(i).name)

      if mc = 1
         if mousex() >= offsetX and mousex() <= offsetX+width+6 and mousey() >= 0 and mousey() <= tw
            if  _mouseFlag = 0
                _mouseFlag = 1
               if menus(i).active = 0
                  menus(i).active = 1
               else
                  menus(i).active = 0
               endif
               for t = 0 to array count(menus())
                  if t <> i then menus(t).active = 0
               next t
            endif
         endif
      endif

      if menus(i).active = 1
         active = i
         activeOffset = offsetX
         ink rgb(0,180,250),0
      else
         ink rgb(192,192,192),0
      endif
      box offsetX,0,offsetX+width+6,tw
      ink 0,0
      text offsetX+3,0,menus(i).name
      offsetX = offsetX + width + 6
   next i


   if active > -1
      ink rgb(192,192,192),0
      box activeOffset,tw,activeOffset+menus(active).width,tw+menus(active).count*tw
      offsetY = 0
      ink 0,0
      for i = 0 to array count(menuItems())
         if menuItems(i).parentID = active
            inc offsetY
            if mousex() > activeOffset and mousex() < activeOffset+menus(active).width and mousey() > offsetY*tw and mousey() < (offsetY+1)*tw
               ink rgb(0,180,250),0
               box activeOffset+1,offsetY*tw+1,activeOffset+menus(active).width-1,(offsetY+1)*tw-1
               rem if this item was clicked
               if mc = 1
                  if _mouseFlag = 0
                     _mouseFlag = 1
                     if menuItems(i).enabled = 1
                        v$ = menus(active).name + "-" + menuItems(i).item
                        menus(active).active = 0
                        exitfunction v$
                     endif
                  endif
               endif
            endif
            if menuItems(i).enabled = 1
               ink 0,0
            else
               ink rgb(120,120,120),0
            endif
            text activeOffset+3,offsetY*tw,menuItems(i).item
         endif
      next i
   endif

endfunction v$



REM **********************
REM Justifies text
REM 0 for right, 1 for left
REM ***********************
function justify$(s as string, length as integer, alignment as integer)
   if alignment = 0 then s = space$(length - len(s)) + s
   if alignment = 1 then s = s + space$(length - len(s))
endfunction s


REM ****************************
REM returns 1 if mouse is within
REM the defined box area
REM ****************************
function mouseWithin(x1,y1,x2,y2)
   if mousex() > x1 and mousex() < x2 and mousey() > y1 and mousey() < y2 then exitfunction 1
endfunction 0

sync on
global dim folder$(600)
global dropdown
global t
global add
global cut
global coppy
global fontnumber
fontnumber=1
global paste
global scroll3
add=3
cls
color backdrop rgb(255,255,255)
dim letter$(100000)
dim letter2$(100000,1)
dim hilighting(100000)
dim coppy$(1000)
syn=5
set image colorkey 255,0,255
ink rgb(255,0,255),rgb(255,0,255)
box 0,0,10,20
ink 0,0
line 5,0,5,20
line 0,0,10,0
line 0,20,10,20
get image 1,0,0,10,21
gosub fontfacing
backspace=200
keypress$=""
lastchar=(screen width()-400)/text width("a")
oldcursor=5
set window size 800,600
do
   scroll2=mousemovez()/120
   spacebar=spacekey()
   backkey=keystate(14)
   theight=text height("a")
   scroll=scroll+scroll2*theight+scroll3*theight
   scroll3=0
   if scroll>0 then scroll=0
   twidth=text width("a")
   lastrow=scroll+650
   keypress$=inkey$()
   if asc(keypress$)>32 and spacebar=1 then goto nocheck
   if keypress$=key$
      if keypress$=""
      else
         held=held+1
         if held>2500
            letter$(cursor)=letter$(cursor)+keypress$
            i=i+1
            cursor=cursor+1
            if cursor<i
               for j=i to cursor step -1
                  letter$(j+1)=letter$(j)
               next j
            endif
         endif
      endif
   else
      held=0
      a=asc(keypress$)
      if a>32
         if cursor<i
            for j=i to cursor step -1
               letter$(j+1)=letter$(j)
            next j
         endif
         letter$(cursor)=keypress$
         i=i+1
         cursor=cursor+1
      endif
   endif
   nocheck:
   if asc(keypress$)>32
      key$=keypress$
   else
      key$=""
   endif
   if spacebar=1 then key$=" "
   if spacebar=1 and spaceagain=0
      if i>cursor
         for j=i to cursor step -1
               letter$(j+1)=letter$(j)
         next j
         spaceagain=1
         letter$(cursor)=" "
         i=i+1
         cursor=cursor+1
      else
         spaceagain=1
         letter$(cursor)=" "
         i=i+1
         cursor=cursor+1
      endif
   endif
   if spacebar=0 then spaceagain=0
   if returnkey()=1
      cursor=cursor+lastchar
      i=i+lastchar
      wait 200
   endif
   if cursorchange>0
      if backkey=1 and back=0 and i>0
         if cursor>oldcursor
            for j=oldcursor to i
               letter$(j)=letter$(j+cursorchange)
            next j
            for j=i-cursorchange to i
               letter$(j)=""
            next j
            cursor=cursor-cursorchange
            oldcursor=cursor
            i=i-cursorchange
            if i<0 then i=0
            if cursor<0 then cursor=0
            cursorchange=0
            back=1
            wait 200
         endif
         if cursor<oldcursor
            for j=cursor to i
               letter$(j)=letter$(j+cursorchange)
            next j
            for j=i-cursorchange to i
               letter$(j)=""
            next j
            cursorchange=0
            back=1
            wait 200
         endif
      endif
   endif
   if backkey=1 and i>0 and cursor>0 and back=0 or backspace<1 and i>0 and cursor>0
      back=1
      i=i-1
      cursor=cursor-1
      letter$(cursor)=""
      if cursor<i
         for j=cursor to i
            letter$(j)=letter$(j+1)
         next j
      endif

   endif

   if backkey=1 then backspace=backspace-1
   if backkey=0 then backspace=1000:back=0
   if controlkey()=1 then ctrl=1
   if controlkey()=0 then ctrl=0
   if ctrl=1 and keystate(45)=1
   cut:
      cop=0
      if oldcursor>cursor then c1=cursor:c2=oldcursor
      if oldcursor<cursor then c2=cursor:c1=oldcursor
      for j=c1 to c2-1
         coppy$(cop)=letter$(j)
         cop=cop+1
      next j
      for j=c2 to i
         letter$(j-cop)=letter$(j)
         if j>i-cop then letter$(j)=""
      next j
      i=i-cop
      if i<0 then i=0
      cursor=cursor-cop
      if cursor<0 then cursor=0
      wait 200
   endif
   cut=0
   if ctrl=1 and keystate(46)=1
      coppy:
      cop=0
      if oldcursor>cursor then c1=cursor:c2=oldcursor
      if oldcursor<cursor then c2=cursor:c1=oldcursor
      for j=c1 to c2-1
         coppy$(cop)=letter$(j)
         cop=cop+1
      next j
      wait 200
   endif
   coppy=0
   if ctrl=1 and keystate(47)=1
   paste:
      for j=i to cursor step -1
         letter$(j+cop)=letter$(j)
      next j
      for j=cursor to cursor+cop-1
         letter$(j)=coppy$(j-cursor)
      next j
      cursor=cursor+cop
      i=i+cop
      wait 200
   endif
   paste=0
   if syn=0

      cls rgb(255,255,255)
      colum=colum+twidth
      gosub checkforwrap
      gosub movecursor
      if mouseclick()=1 then gosub checkmouse
      mousehold=0
      if mouseclick()=1
         mousehold=1
      else
         mousehold=0
      endif
      ink 0,rgb(255,255,255)
      for j=0 to i
         column=j*twidth
         row=column/(screen width()-400)
         column=column-row*(screen width()-400)
         if row*theight+scroll>-20 and row*theight+scroll<700
            ink val(letter2$(j,1)),rgb(255,255,255)
            if hilighting(j)=1 then ink val(letter2$(j,1)),rgb(0,0,255)
            text column+200,row*theight+150+scroll,letter$(j)
            if letter2$(j,0)="1" and asc(letter$(j))>64 or letter2$(j,0)="5" and asc(letter$(j))>64 then paste image asc(letter$(j)),column+200,row*theight+150+scroll-1
            if letter2$(j,0)="2" and asc(letter$(j))>64 or letter2$(j,0)="6" and asc(letter$(j))>64 then paste image asc(letter$(j))*4,column+200,row*theight+150+scroll-1
            if letter2$(j,0)="3" and asc(letter$(j))>64 or letter2$(j,0)="7" and asc(letter$(j))>64 then paste image asc(letter$(j))*8,column+200,row*theight+150+scroll-1
            if letter2$(j,0)="4" and asc(letter$(j))>64 or letter2$(j,0)="5" or letter2$(j,0)="6" or letter2$(j,0)="7" then line column+200,row*theight+150+scroll+theight-2,column+200+twidth,row*theight+150+scroll+theight-2
            ink 0,rgb(255,255,255)
         endif
      next j
      menu("FILE",50,0,100,21,1,5)
      menu("EDIT",150,0,200,21,2,7)
      menu("FONTS",650,0,800,21,3,21)
      button("/\",760,520,800,560,11)
      button("\/",760,560,800,600,12)
      button("COLOR",600,0,650,21,36)
      row2=(cursor*twidth)/(screen width()-400)
      paste image 1,(cursor*twidth)-row2*(screen width()-400)+200-(twidth/2),row2*theight+150+scroll,1
      sync
      cls rgb(255,255,255)
      syn=5

   endif
   if syn>0 then syn=syn-1

loop


checkforwrap:
   for j=1 to i/lastchar
      if asc(letter$(lastchar*j))>32
         for k=lastchar*j to ((lastchar*(j-1)))+1 step -1
            if letter$(k)=" " then firstchar=k: goto checknext
         next k
         goto nowrap
         checknext:
         for k=i to firstchar step -1
            letter$((lastchar*j)-firstchar+(k))=letter$(k)
         next k
         i=i+(lastchar*j)-firstchar
         if cursor=(lastchar*j) or cursor=(lastchar*j)+1 then cursor=cursor+(lastchar*j)-firstchar
         for k=firstchar to lastchar*j
            letter$(k)=" "
         next k
      endif
      nowrap:
   next j
return

movecursor:
   if rightkey()=1  and cursor<i then cursor=cursor+1:wait 100
   if leftkey()=1  and cursor>0 then cursor=cursor-1:wait 100
return

checkmouse:
   if mousey()<100 then goto nomovecursor
   if mousehold=0
      x=(mousex()-200)/twidth
      y=(mousey()-150-scroll)/theight
      if mousex()<200 or mousex()>screen width()-200 or mousey()<140 then goto nomovecursor
      cursor=y*((screen width()-400)/twidth)+x
      oldcursor=cursor
      for j=0 to i
          hilighting(j)=0
      next j
      if cursor>i
         for j=i to cursor
            letter$(j)=" "
         next j
         i=cursor
      endif
   endif
   if mousehold=1
      for j=1 to i
          hilighting(j)=0
      next j
      x=(mousex()-200)/twidth
      y=(mousey()-150-scroll)/theight
      if mousex()<200 or mousex()>screen width()-200 or mousey()<140 then goto nomovecursor
      cursor=y*((screen width()-400)/twidth)+x
      if cursor>i
         for j=i to cursor
            letter$(j)=" "
         next j
         i=cursor
      endif
      if cursor<oldcursor
         for j=cursor to oldcursor-1
            hilighting(j)=1
         next j
      endif
      if cursor>oldcursor
         for j=cursor-1 to oldcursor step -1
            hilighting(j)=1
         next j
      endif
   endif
   cursorchange=abs(cursor-oldcursor)
   nomovecursor:
return



function button(caption$,left,top,right,bottom,number)
   if mousex()>left and mousey()>top and mousex()<right and mousey()<bottom then inside=1
   if inside=1 then ink 0,rgb(0,0,200)
   center text left+(right-left)/2,top+(bottom-top)/2-10,caption$
   if inside=1 and mouseclick()=1
      if number=1 then gosub save
      if number=2 then gosub load
      if number=3 then end
      if number=4 then goto cut
      if number=5 then goto coppy
      if number=6 then goto paste
      if number=7 then gosub bold
      if number=8 then gosub Italics
      if number=9 then gosub normal
      if number=10 then gosub underline
      if number=11 then scroll3=1:wait 100
      if number=12 then scroll3=-1:wait 100
      if number=13 then gosub export
      if number=14 then gosub import
      if number>14 and number<36
         fontnumber=number-13
         set text font caption$
         set text size 20
         gosub fontfacing
      endif
      if number=36 then gosub collor
   endif
   ink 0,rgb(255,255,255)
endfunction

function menu(caption$,left,top,right,bottom,number,numofbuttons)
   if mousex()>left and mousey()>top and mousex()<right and mousey()<bottom and mouseclick()=1 then dropdown=number
   if dropdown=number then ink 0,rgb(0,0,200)
   center text left+(right-left)/2,top+(bottom-top)/2-10,caption$
   ink 0,rgb(255,255,255)
      if dropdown=number
         if number=1 then restore m1
         if number=2 then restore m2
         if number=3 then restore m3
         for i=1 to numofbuttons
         read a$
         read b
         button(a$,left,bottom*i,right,bottom*(i+1),b)
         next i
         if (numofbuttons+1)*bottom <mousey() or  mousey()<top or mousex()>right or mousex()<left then dropdown=0
      endif
      back:
endfunction

Bold:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      if letter2$(j,0)="2" then letter2$(j,0)="3"
      if letter2$(j,0)="3" then goto nextbold
      if letter2$(j,0)="4" then letter2$(j,0)="5"
      if letter2$(j,0)="5" then goto nextbold
      if letter2$(j,0)="6" then letter2$(j,0)="7"
      if letter2$(j,0)="7" then goto nextbold
      letter2$(j,0)="1"
      nextbold:
   next j
return

Italics:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      if letter2$(j,0)="1" then letter2$(j,0)="3"
      if letter2$(j,0)="3" then goto nextitalics
      if letter2$(j,0)="4" then letter2$(j,0)="6"
      if letter2$(j,0)="6" then goto nextitalics
      if letter2$(j,0)="5" then letter2$(j,0)="7"
      if letter2$(j,0)="7" then goto nextitalics
      letter2$(j,0)="2"
      nextitalics:
   next j
return

Underline:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      if letter2$(j,0)="1" then letter2$(j,0)="5"
      if letter2$(j,0)="5" then goto nextunderline
      if letter2$(j,0)="2" then letter2$(j,0)="6"
      if letter2$(j,0)="6" then goto nextunderline
      if letter2$(j,0)="3" then letter2$(j,0)="7"
      if letter2$(j,0)="7" then goto nextunderline
      letter2$(j,0)="4"
      nextunderline:
   next j
return

Normal:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      letter2$(j,0)="0"
   next j
return

save:
   ink 0,rgb(255,255,255)
   cls
   sync
   text 0,0,"Save as: "
   input "Save as: ",save$
   save array save$+".spopovichtext",letter$(100000)
   letter2$(100000,1)=str$(i)
   letter2$(100000,0)=str$(cursor)
   save array save$+".spopovichformating",letter2$(100000,1)
return

load:
   ink 0,rgb(255,255,255)
   cls
   text 0,0,"Load: "
   sync
   input "Load: ",save$
   load array save$+".spopovichtext",letter$(100000)
   load array save$+".spopovichformating",letter2$(100000,1)
   i=val(letter2$(100000,1))
   cursor=val(letter2$(100000,0))
return

export:
   ink 0,rgb(255,255,255)
   cls
   sync
   text 0,0,"Export as: "
   input "Export as: ",save$
   open to write 1,save$+".txt"
   for j=0 to i
      line$=line$+letter$(j)
      lin=lin+1
      if lin=40
         write string 1,line$
         line$=""
         lin=0
      endif
   next j
   write string 1,line$
   close file 1
return

Import:
   ink 0,rgb(255,255,255)
   cls
   sync
   text 0,0,"Import as: "
   input "Import as: ",save$
   open to read 1,save$+".txt"
   i=0
   cursor=0
   repeat
      read string 1,line$
      for k=0 to len(line$)
         add$=mid$(line$,k+1)
         letter$(lin*40+k)=add$
         if add$="" or add$=" " or asc(add$)=0 then stop=stop+1
         i=i+1
         cursor=cursor+1
         print asc(add$)
      next k
      lin=lin+1
   until stop=10
   i=2000
   cursor=2000
   close file 1
   sync
   suspend for key
return

collor:
   ink 0,rgb(255,255,255)
   print "red ammount"
   sync
   repeat
   r$=r$+(inkey$())
   if keystate(14)=1 then r$=left$(r$,len(r$)-2)
   text 0,20,r$
   text 0,0,"red ammount"
   sync
   wait 100
   until returnkey()=1
   r=val(r$)
   sync
   print "green ammount"
   sync
   repeat
   g$=g$+(inkey$())
   if keystate(14)=1 then g$=left$(g$,len(g$)-2)
   text 0,60,g$
   text 0,40,"green ammount"
   sync
   wait 100
   until returnkey()=1
   g=val(g$)
   sync
   print "blue ammount"
   repeat
   b$=b$+(inkey$())
   if keystate(14)=1 then b$=left$(b$,len(b$)-2)
   text 0,100,b$
   text 0,80,"blue ammount"
   sync
   wait 100
   until returnkey()=1
   b=val(b$)
   sync
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   color=(rgb(r,g,b))
   color$=str$(color)
   color$=right$(color$,len(color$)-1)
   for j=c1 to c2-1
      letter2$(j,1)=color$
   next j
return

fontfacing:
   add=3
   cls
   ink 0,rgb(255,255,255)
   cls rgb(255,255,255)
   sync
   set text to bold
   width=text width("a")
   height=text height("A")
   for j=65 to 90
   text 0,fontnumber*20,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   sync
   get image j,(j-65)*width,fontnumber*20,(j-64)*width,fontnumber*20+20
   next j
   cls rgb(255,255,255)
   sync
   cls rgb(255,255,255)
   text 0,fontnumber*20,"abcdefghijklmnopqrstuvwxyz"
   sync
   for j=97 to 122
   get image j,(j-97)*width,fontnumber*20,(j-96)*width,fontnumber*20+20
   next j
   ink 0,rgb(255,255,255)
   set text to italic
   ink 0,rgb(255,255,255)
   cls rgb(255,255,255)
   sync
   width=text width("a")
   text 0,fontnumber*20,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   sync
   for j=65 to 90
   get image j*4,(j-65)*width+width/2-2,fontnumber*20,(j-64)*width+width/2-2,fontnumber*20+20
   next j
   cls rgb(255,255,255)
   text 0,fontnumber*20,"abcdefghijklmnopqrstuvwxyz"
   sync
   for j=97 to 122
   get image j*4,(j-97)*width+width/2-2,fontnumber*20,(j-96)*width+width/2-2,fontnumber*20+20
   next j
   ink 0,rgb(255,255,255)
   box 0,0,10,20
   set text to bolditalic
   ink 0,rgb(255,255,255)
   cls rgb(255,255,255)
   sync
   width=text width("a")
   text 0,fontnumber*20,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   sync
   for j=65 to 90
   get image j*8,(j-65)*width+width/2-2,fontnumber*20,(j-64)*width+width/2-2,fontnumber*20+20
   next j
   cls rgb(255,255,255)
   text 0,fontnumber*20,"abcdefghijklmnopqrstuvwxyz"
   sync
   for j=97 to 122
   get image j*8,(j-97)*width+width/2-2,fontnumber*20,(j-96)*width+width/2-2,fontnumber*20+20
   next j
   ink 0,rgb(255,255,255)
   set text to normal
   set text opaque
return

m1:
data "Save",1
data "Load",2
data "Exit",3
data "Export",13
data "Import",14
return
m2:
data "Cut",4
data "Coppy",5
data "Paste",6
data "Bold",7
data "Italics",8
data "Normal",9
data "Undeline",10
return
m3:
data "Lucida Console",15
data "Impact",16
data "AvantGarde Bk BT",17
data "Swiss911 XCm BT",18
data "WP BoxDrawing",19
data "Cuckoo",20
data "Tristan",21
data "Aurora Cn BT",22
data "Informal011 BT",23
data "Unicorn",24
data "MS Mincho",25
data "MS Gothic",26
data "GulimChe",27
data "DotumChe",28
data "BatangChe",29
data "Gungsuh",30
data "GungsuhChe",31
data "SimSun",32
data "NSimSun",33
data "MingLiU",34
data "Fixedsys",35

REM ****************************
REM returns a substring of 's'
REM beginning and ending indices
REM are both inclusive
REM ****************************
function substring$(s as string, bIndex, eIndex)
   s = left$(s,eIndex)
   s = right$(s, len(s)-(bIndex-1))
endfunction s

         rem get visible text
         t$ = substring$(__textLines$(i), startingChar,startingChar+visibleChars)

if __windows(index).startingChar < 0 then __windows(index).startingChar = 0

sync on
sync rate  100
set text font "Fixedsys",1
set text size 20
global dim folder$(600)
global dropdown
global t
global add
global cut
global coppy
global fontnumber
global keypress$
global menuscroll
fontnumber=1
global paste
global scroll3
add=3
cls
color backdrop rgb(100,100,100)
dim letter$(100000)
dim letter2$(100000,1)
dim hilighting(100000)
dim coppy$(1000)
syn=1000
set image colorkey 255,0,255
ink rgb(255,0,255),rgb(255,0,255)
box 0,0,10,20
ink 0,0
line 5,0,5,20
line 0,0,10,0
line 0,20,10,20
get image 1,0,0,10,21
gosub fontfacing
backspace=200
keypress$=""
lastchar=(screen width()-400)/text width("a")
oldcursor=5
set window size 800,600
do
   scroll2=mousemovez()/120
   spacebar=spacekey()
   backkey=keystate(14)
   theight=text height("a")
   scroll=scroll+scroll2*theight+scroll3*theight
   cursor=cursor-lastchar*(scroll3+scroll2)
   if cursor>i
      for j=i to cursor
          letter$(j)=" "
      next j
      i=cursor
   endif
   scroll3=0
   if scroll>0 then scroll=0
   twidth=text width("a")
   lastrow=scroll+650
   keypress$=entry$()
   clear entry buffer
   if asc(keypress$)>32 and spacebar=1 then goto nocheck
   write:
   if keypress$=key$
      if keypress$=""
      else
         held=held+1
         if held>7500
            letter$(cursor)=letter$(cursor)+keypress$
            wait 5
            i=i+1
            cursor=cursor+1
            if cursor<i
               for j=i to cursor step -1
                  letter$(j+1)=letter$(j)
               next j
            endif
         endif
      endif
   else
      held=0
      a=asc(keypress$)
      if a>32
         if cursor<i
            for j=i to cursor step -1
               letter$(j+1)=letter$(j)
            next j
         endif
         letter$(cursor)=keypress$
         i=i+1
         cursor=cursor+1
      endif
   endif
   nocheck:
   if asc(keypress$)>32
      key$=keypress$
   else
      key$=""
   endif
   if spacebar=1 then key$=" "
   if spacebar=1 and spaceagain=0
      if i>cursor
         for j=i to cursor step -1
               letter$(j+1)=letter$(j)
         next j
         spaceagain=1
         letter$(cursor)=" "
         i=i+1
         cursor=cursor+1
      else
         spaceagain=1
         letter$(cursor)=" "
         i=i+1
         cursor=cursor+1
      endif
   endif
   if spacebar=0 then spaceagain=0
   if returnkey()=1
      cursor=cursor+lastchar
      if cursor>i
         for j=i to cursor
            letter$(j)=" "
         next j
         i=cursor
      else
         i=i+lastchar
      endif
      wait 200
   endif
   if cursorchange>0
      if backkey=1 and back=0 and i>0
         if cursor>oldcursor
            for j=oldcursor to i
               letter$(j)=letter$(j+cursorchange)
            next j
            for j=i-cursorchange to i
               letter$(j)=""
            next j
            cursor=cursor-cursorchange
            oldcursor=cursor
            i=i-cursorchange
            if i<0 then i=0
            if cursor<0 then cursor=0
            cursorchange=0
            back=1
            wait 200
         endif
         if cursor<oldcursor
            for j=cursor to i
               letter$(j)=letter$(j+cursorchange)
            next j
            for j=i-cursorchange to i
               letter$(j)=""
            next j
            cursorchange=0
            back=1
            wait 200
         endif
      endif
   endif
   if backkey=1 and i>0 and cursor>0 and back=0 or backspace<1 and i>0 and cursor>0
      back=1
      i=i-1
      cursor=cursor-1
      letter$(cursor)=""
      if cursor<i
         for j=cursor to i
            letter$(j)=letter$(j+1)
         next j
      endif
      if backspace<1 then wait 5
   endif

   if backkey=1 then backspace=backspace-1
   if backkey=0 then backspace=7500:back=0
   if controlkey()=1 then ctrl=1
   if controlkey()=0 then ctrl=0
   if ctrl=1 and keystate(45)=1
   cut:
      cop=0
      if oldcursor>cursor then c1=cursor:c2=oldcursor
      if oldcursor<cursor then c2=cursor:c1=oldcursor
      clipcop$=""
      for j=c1 to c2-1
         coppy$(cop)=letter$(j)
         clipcop$=clipcop$+coppy$(cop)
         cop=cop+1
      next j
      write to clipboard clipcop$
      for j=c2 to i
         letter$(j-cop)=letter$(j)
         if j>i-cop then letter$(j)=""
      next j
      i=i-cop
      if i<0 then i=0
      cursor=cursor-cop
      if cursor<0 then cursor=0
      wait 200
   endif
   cut=0
   if ctrl=1 and keystate(46)=1
      coppy:
      cop=0
      if oldcursor>cursor then c1=cursor:c2=oldcursor
      if oldcursor<cursor then c2=cursor:c1=oldcursor
      clipcop$=""
      for j=c1 to c2-1
         coppy$(cop)=letter$(j)
         clipcop$=clipcop$+coppy$(cop)
         cop=cop+1
      next j
      write to clipboard clipcop$
      wait 200
   endif
   coppy=0
   if ctrl=1 and keystate(47)=1
   paste:
      for j=i to cursor step -1
         letter$(j+cop)=letter$(j)
      next j
      paste$=get clipboard$()
      for j=cursor to cursor+len(paste$)
         letter$(j)=mid$(paste$,j-cursor)
      next j
      cursor=cursor+len(paste$)+1
      i=i+len(paste$)+1
      wait 200
   endif
   paste=0
   if syn=0

      cls rgb(100,100,100)
   ink rgb(255,255,255),rgb(255,255,255)
   box 100,50,700,800
      colum=colum+twidth
      `gosub checkforwrap
      gosub movecursor
      if mouseclick()=1 then gosub checkmouse
      mousehold=0
      if mouseclick()=1
         mousehold=1
      else
         mousehold=0
      endif
      ink 0,rgb(255,255,255)
      for j=0 to i
         column=j*twidth
         row=column/(screen width()-400)
         column=column-row*(screen width()-400)
         if row*theight+scroll>-20 and row*theight+scroll<700
            ink val(letter2$(j,1)),rgb(255,255,255)
            if hilighting(j)=1 then ink val(letter2$(j,1)),rgb(0,0,255)
            text column+200,row*theight+150+scroll,letter$(j)
            if letter2$(j,0)="1" and asc(letter$(j))>64 or letter2$(j,0)="5" and asc(letter$(j))>64 then paste image asc(letter$(j)),column+200,row*theight+150+scroll-1
            if letter2$(j,0)="2" and asc(letter$(j))>64 or letter2$(j,0)="6" and asc(letter$(j))>64 then paste image asc(letter$(j))*4,column+200,row*theight+150+scroll-1
            if letter2$(j,0)="3" and asc(letter$(j))>64 or letter2$(j,0)="7" and asc(letter$(j))>64 then paste image asc(letter$(j))*8,column+200,row*theight+150+scroll-1
            if letter2$(j,0)="4" and asc(letter$(j))>64 or letter2$(j,0)="5" or letter2$(j,0)="6" or letter2$(j,0)="7" then line column+200,row*theight+150+scroll+theight-2,column+200+twidth,row*theight+150+scroll+theight-2
            ink 0,rgb(255,255,255)
         endif
      next j
      ink rgb(200,200,200),rgb(200,200,200)
      box 0,0,800,21
      menu("FILE",200,0,250,21,1,6,0)
      menu("EDIT",250,0,300,21,2,9,0)
      menu("FONTS",650,0,800,21,3,21,0)
      menu("Special Chars.",0,0,200,21,4,200,1)
      button("/\",760,520,800,560,11)
      button("\/",760,560,800,600,12)
      button("COLOR",600,0,650,21,36)
      row2=(cursor*twidth)/(screen width()-400)
      paste image 1,(cursor*twidth)-row2*(screen width()-400)+200-(twidth/2),row2*theight+150+scroll,1
      fastsync
      cls rgb(100,100,100)
      syn=1000

   endif
   if syn>0 then syn=syn-1

loop


checkforwrap:
   for j=1 to i/lastchar
      if asc(letter$(lastchar*j))>32
         for k=lastchar*j to ((lastchar*(j-1)))+1 step -1
            if letter$(k)=" " then firstchar=k: goto checknext
         next k
         goto nowrap
         checknext:
         for k=i to firstchar step -1
            letter$((lastchar*j)-firstchar+(k))=letter$(k)
         next k
         i=i+(lastchar*j)-firstchar
         if cursor=(lastchar*j) or cursor=(lastchar*j)+1 then cursor=cursor+(lastchar*j)-firstchar
         for k=firstchar to lastchar*j
            letter$(k)=" "
         next k
      endif
      nowrap:
   next j
return

movecursor:
   if rightkey()=1  and cursor<i then cursor=cursor+1:wait 100
   if leftkey()=1  and cursor>0 then cursor=cursor-1:wait 100
return

checkmouse:
   if mousey()<100 then goto nomovecursor
   if mousehold=0
      x=(mousex()-200)/twidth
      y=(mousey()-150-scroll)/theight
      if mousex()<200 or mousex()>screen width()-200 or mousey()<140 then goto nomovecursor
      cursor=y*((screen width()-400)/twidth)+x
      oldcursor=cursor
      for j=0 to i
          hilighting(j)=0
      next j
      if cursor>i
         for j=i to cursor
            letter$(j)=" "
         next j
         i=cursor
      endif
   endif
   if mousehold=1
      for j=1 to i
          hilighting(j)=0
      next j
      x=(mousex()-200)/twidth
      y=(mousey()-150-scroll)/theight
      if mousex()<200 or mousex()>screen width()-200 or mousey()<140 then goto nomovecursor
      cursor=y*((screen width()-400)/twidth)+x
      if cursor>i
         for j=i to cursor
            letter$(j)=" "
         next j
         i=cursor
      endif
      if cursor<oldcursor
         for j=cursor to oldcursor-1
            hilighting(j)=1
         next j
      endif
      if cursor>oldcursor
         for j=cursor-1 to oldcursor step -1
            hilighting(j)=1
         next j
      endif
   endif
   cursorchange=abs(cursor-oldcursor)
   nomovecursor:
return



function button(caption$,left,top,right,bottom,number)
   ink 0,rgb(200,200,200)
   if mousex()>left and mousey()>top and mousex()<right and mousey()<bottom then inside=1
   if inside=1 then ink 0,rgb(0,0,200)
   if number<40 or number>200 then center text left+(right-left)/2,top+(bottom-top)/2-10,caption$
   if number>39 and number<200 then center text left+(right-left)/2,top+(bottom-top)/2-10,chr$(val(caption$))
   if inside=1 and mouseclick()=1
      if number=1 then gosub save
      if number=2 then gosub load
      if number=3 then end
      if number=4 then goto cut
      if number=5 then goto coppy
      if number=6 then goto paste
      if number=7 then gosub bold
      if number=8 then gosub Italics
      if number=9 then gosub normal
      if number=10 then gosub underline
      if number=11 then scroll3=1:wait 100
      if number=12 then scroll3=-1:wait 100
      if number=13 then gosub export
      if number=14 then gosub import
      if number>14 and number<36
         if number>16 and number<25 or number>31 and number<35
            fontnumber=number-13
            set text font caption$,1
            set text size 20
            gosub fontfacing
         else
            fontnumber=number-13
            set text font caption$,255
            set text size 20
            gosub fontfacing
         endif
      endif
      if number=35
         fontnumber=number-13
         set text font caption$,1
         set text size 20
         gosub fontfacing
      endif
      if number=36 then gosub collor
      if number=37 then gosub upper
      if number=38 then gosub lower
      if number=39 then gosub definition
      if number>39 and number<200
         keypress$=chr$(val(caption$))
         goto write
      endif
   endif
   ink 0,rgb(255,255,255)
endfunction

function menu(caption$,left,top,right,bottom,number,numofbuttons,scroll)
   ink 0,rgb(200,200,200)
   if mousex()>left and mousey()>top and mousex()<right and mousey()<bottom and mouseclick()=1 then dropdown=number
   if dropdown=number then ink 0,rgb(0,0,200)
   center text left+(right-left)/2,top+(bottom-top)/2-10,caption$
   ink 0,rgb(255,255,255)
      if dropdown=number
         if number=1 then restore m1
         if number=2 then restore m2
         if number=3 then restore m3
         if number=4 then restore m4
         if scroll=1
            if downkey()=1 then menuscroll=menuscroll+1
            if upkey()=1 then menuscroll=menuscroll-1
         for k=1 to menuscroll
            read a$
            read b
         next k
         endif

         for i=1 to numofbuttons
         read a$
         read b
         button(a$,left,bottom*i,right,bottom*(i+1),b)
         next i
         if (numofbuttons+1)*bottom <mousey() or  mousey()<top or mousex()>right or mousex()<left then dropdown=0
      endif
      back:
endfunction

Bold:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      if letter2$(j,0)="2" then letter2$(j,0)="3"
      if letter2$(j,0)="3" then goto nextbold
      if letter2$(j,0)="4" then letter2$(j,0)="5"
      if letter2$(j,0)="5" then goto nextbold
      if letter2$(j,0)="6" then letter2$(j,0)="7"
      if letter2$(j,0)="7" then goto nextbold
      letter2$(j,0)="1"
      nextbold:
   next j
return

Italics:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      if letter2$(j,0)="1" then letter2$(j,0)="3"
      if letter2$(j,0)="3" then goto nextitalics
      if letter2$(j,0)="4" then letter2$(j,0)="6"
      if letter2$(j,0)="6" then goto nextitalics
      if letter2$(j,0)="5" then letter2$(j,0)="7"
      if letter2$(j,0)="7" then goto nextitalics
      letter2$(j,0)="2"
      nextitalics:
   next j
return

Underline:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      if letter2$(j,0)="1" then letter2$(j,0)="5"
      if letter2$(j,0)="5" then goto nextunderline
      if letter2$(j,0)="2" then letter2$(j,0)="6"
      if letter2$(j,0)="6" then goto nextunderline
      if letter2$(j,0)="3" then letter2$(j,0)="7"
      if letter2$(j,0)="7" then goto nextunderline
      letter2$(j,0)="4"
      nextunderline:
   next j
return

Normal:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      letter2$(j,0)="0"
   next j
return

save:
   ink 0,rgb(255,255,255)
   cls
   sync
   text 0,0,"Save as: "
   input "Save as: ",save$
   save array save$+".spopovichtext",letter$(100000)
   letter2$(100000,1)=str$(i)
   letter2$(100000,0)=str$(cursor)
   save array save$+".spopovichformating",letter2$(100000,1)
return

load:
   ink 0,rgb(255,255,255)
   cls
   text 0,0,"Load: "
   sync
   input "Load: ",save$
   load array save$+".spopovichtext",letter$(100000)
   load array save$+".spopovichformating",letter2$(100000,1)
   i=val(letter2$(100000,1))
   cursor=val(letter2$(100000,0))
return

export:
   ink 0,rgb(255,255,255)
   cls
   sync
   text 0,0,"Export as: "
   input "Export as: ",save$
   open to write 1,save$+".txt"
   for j=0 to i
      line$=line$+letter$(j)
      lin=lin+1
      if lin=40
         write string 1,line$
         line$=""
         lin=0
      endif
   next j
   write string 1,line$
   close file 1
return

Import:
   ink 0,rgb(255,255,255)
   cls
   sync
   text 0,0,"Import: "
   input "Import: ",save$
   open to read 1,save$+".txt"
   i=0
   cursor=0
   repeat
      read string 1,line$
      for k=0 to len(line$)
         add$=mid$(line$,k+1)
         letter$(lin*40+k)=add$
         if add$="" or add$=" " or asc(add$)=0 then stop=stop+1
         i=i+1
         cursor=cursor+1
         print asc(add$)
      next k
      lin=lin+1
   until stop=10
   i=2000
   cursor=2000
   close file 1
   sync
   suspend for key
return

upper:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      letter$(j)=upper$(letter$(j))
   next j
return

lower:
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      letter$(j)=lower$(letter$(j))
   next j
return

collor:
   ink 0,rgb(255,255,255)
   sync
   repeat
   r$=r$+(inkey$())
   if keystate(14)=1 then r$=left$(r$,len(r$)-2)
   cls
   text 0,20,r$
   text 0,0,"red ammount"
   sync
   wait 100
   until returnkey()=1
   r=val(r$)
   sync
   sync
   repeat
   g$=g$+(inkey$())
   if keystate(14)=1 then g$=left$(g$,len(g$)-2)
   text 0,60,g$
   text 0,40,"green ammount"
   sync
   wait 100
   until returnkey()=1
   g=val(g$)
   sync
   repeat
   b$=b$+(inkey$())
   if keystate(14)=1 then b$=left$(b$,len(b$)-2)
   text 0,100,b$
   text 0,80,"blue ammount"
   sync
   wait 100
   until returnkey()=1
   b=val(b$)
   sync
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   color=(rgb(r,g,b))
   color$=str$(color)
   color$=right$(color$,len(color$)-1)
   for j=c1 to c2-1
      letter2$(j,1)=color$
   next j
return

prin:
cls rgb(255,255,255)
SET WINDOW SIZE 800, 700
sync
      ink 0,rgb(255,255,255)
      for j=0 to i
         column=j*twidth
         row=column/(screen width()-400)
         column=column-row*(screen width()-400)
            ink val(letter2$(j,1)),rgb(255,255,255)
            if hilighting(j)=1 then ink val(letter2$(j,1)),rgb(0,0,255)
            text column+200,row*theight,letter$(j)
            if letter2$(j,0)="1" and asc(letter$(j))>64 or letter2$(j,0)="5" and asc(letter$(j))>64 then paste image asc(letter$(j)),column+200,row*theight-1
            if letter2$(j,0)="2" and asc(letter$(j))>64 or letter2$(j,0)="6" and asc(letter$(j))>64 then paste image asc(letter$(j))*4,column+200,row*theight-1
            if letter2$(j,0)="3" and asc(letter$(j))>64 or letter2$(j,0)="7" and asc(letter$(j))>64 then paste image asc(letter$(j))*8,column+200,row*theight-1
            if letter2$(j,0)="4" and asc(letter$(j))>64 or letter2$(j,0)="5" or letter2$(j,0)="6" or letter2$(j,0)="7" then line column+200,row*theight+theight-2,column+200+twidth,row*theight+theight-2
            ink 0,rgb(255,255,255)
      next j
      sync
      suspend for key
      get image 6,200,0,600,600

      save image "print6.jpg",6
SET WINDOW SIZE 800, 600

return

definition:
word$=""
   if oldcursor>cursor then c1=cursor:c2=oldcursor
   if oldcursor<cursor then c2=cursor:c1=oldcursor
   for j=c1 to c2-1
      word$=word$+letter$(j)
   next j
   execute file "C:\Program Files\Internet Explorer\iexplore.exe","http://dictionary.reference.com/search?q="+word$,""
return

fontfacing:
   add=3
   cls
   ink 0,rgb(255,255,255)
   cls rgb(255,255,255)
   sync
   set text to bold
   width=text width("a")
   height=text height("A")
   for j=65 to 90
   text 0,fontnumber*20,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   sync
   get image j,(j-65)*width,fontnumber*20,(j-64)*width,fontnumber*20+20
   next j
   cls rgb(255,255,255)
   sync
   cls rgb(255,255,255)
   text 0,fontnumber*20,"abcdefghijklmnopqrstuvwxyz"
   sync
   for j=97 to 122
   get image j,(j-97)*width,fontnumber*20,(j-96)*width,fontnumber*20+20
   next j
   ink 0,rgb(255,255,255)
   set text to italic
   ink 0,rgb(255,255,255)
   cls rgb(255,255,255)
   sync
   width=text width("a")
   text 0,fontnumber*20,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   sync
   for j=65 to 90
   get image j*4,(j-65)*width+width/2-2,fontnumber*20,(j-64)*width+width/2-2,fontnumber*20+20
   next j
   cls rgb(255,255,255)
   text 0,fontnumber*20,"abcdefghijklmnopqrstuvwxyz"
   sync
   for j=97 to 122
   get image j*4,(j-97)*width+width/2-2,fontnumber*20,(j-96)*width+width/2-2,fontnumber*20+20
   next j
   ink 0,rgb(255,255,255)
   box 0,0,10,20
   set text to bolditalic
   ink 0,rgb(255,255,255)
   cls rgb(255,255,255)
   sync
   width=text width("a")
   text 0,fontnumber*20,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   sync
   for j=65 to 90
   get image j*8,(j-65)*width+width/2-2,fontnumber*20,(j-64)*width+width/2-2,fontnumber*20+20
   next j
   cls rgb(255,255,255)
   text 0,fontnumber*20,"abcdefghijklmnopqrstuvwxyz"
   sync
   for j=97 to 122
   get image j*8,(j-97)*width+width/2-2,fontnumber*20,(j-96)*width+width/2-2,fontnumber*20+20
   next j
   ink 0,rgb(255,255,255)
   set text to normal
   set text opaque
return

m1:
data "Save",1
data "Load",2
data "Definition",39
data "Export",13
data "Import",14
data "Exit",3
return
m2:
data "Cut",4
data "Coppy",5
data "Paste",6
data "Bold",7
data "Italics",8
data "Normal",9
data "Undeline",10
data "Uppercase",37
data "Lowercase",38
return
m3:
data "Lucida Console",15
data "Impact",16
data "AvantGarde Bk BT",17
data "Swiss911 XCm BT",18
data "WP BoxDrawing",19
data "Cuckoo",20
data "Tristan",21
data "Aurora Cn BT",22
data "Informal011 BT",23
data "Unicorn",24
data "MS Mincho",25
data "MS Gothic",26
data "GulimChe",27
data "DotumChe",28
data "BatangChe",29
data "Gungsuh",30
data "GungsuhChe",31
data "SimSun",32
data "NSimSun",33
data "MingLiU",34
data "Fixedsys",35
m4:
data "123",163
data "124",162
data "125",161
data "126",160
data "127",159
data "128",158
data "129",157
data "130",156
data "131",130
data "132",131
data "133",132
data "134",133
data "135",134
data "136",135
data "137",136
data "138",137
data "139",138
data "140",139
data "141",140
data "142",141
data "143",142
data "144",143
data "145",144
data "146",145
data "147",146
data "148",147
data "149",148
data "150",149
data "151",150
data "152",151
data "153",152
data "154",153
data "159",154
data "160",155
data "161",104
data "162",105
data "163",106
data "164",107
data "165",108
data "171",109
data "172",110
data "173",111
data "174",112
data "175",113
data "176",114
data "177",115
data "178",116
data "179",117
data "180",118
data "181",119
data "182",120
data "183",121
data "184",122
data "185",123
data "186",124
data "187",125
data "188",126
data "189",127
data "190",128
data "191",129
data "192",40
data "193",41
data "194",42
data "195",43
data "196",44
data "197",45
data "198",46
data "199",47
data "200",48
data "201",49
data "202",50
data "203",51
data "204",52
data "205",53
data "206",54
data "207",55
data "208",56
data "209",57
data "210",58
data "211",59
data "212",60
data "213",61
data "214",62
data "215",63
data "216",64
data "217",65
data "218",66
data "219",67
data "220",68
data "221",69
data "222",70
data "223",71
data "224",72
data "225",73
data "226",74
data "227",75
data "228",76
data "229",77
data "230",78
data "231",79
data "232",80
data "233",81
data "234",82
data "235",83
data "236",84
data "237",85
data "238",86
data "239",87
data "240",88
data "241",89
data "242",90
data "243",91
data "244",92
data "245",93
data "246",94
data "247",95
data "248",96
data "249",97
data "250",98
data "251",99
data "242",100
data "243",101
data "254",102
data "255",103

function substring$(s as string, bIndex, eIndex)
   if 0>len(s)-(bIndex-1) or 0>eindex then goto nosubstring
   s = left$(s,eIndex)
   s = right$(s, len(s)-(bIndex-1))
   nosubstring:
endfunction s