otya window system

This is a window system for SmileBASIC. "--RUN" is a program loader, run this file.

• Stacking window manager
• Multitasking
• A hierarchical file system

Instructions:

A function key 1(FILES) toggles key input. "LR" button is disabled while key input is enabled. L,BBUTTON: left click R,ABUTTON: right click TOUCH, STICK : mouse program list

• Text editor(TXTED)
• Filer(OTYFIL)
• Program editor(PRGED)
• Music player(MPLAY)
• Document editor(OTYDOC)
• Run(RUN)
• FREEMEM(OTWFREEMEM)
• Paint(PAINT)
• Eyes(EYES)
• Minesweeper(OTYMINE)
• Clipboard viewer(CLPBRD)
• Benchmark(OTWBENCH)
• About(ABOUT)
• Window viewer(WINLIST)

Spoiler

• Terminal(OTWTERM)
• Shell(SH)
• cd(shell command)
• echo
• ls
• cat
• ptree
• find
• ps
• diff
• freemem
• mkdir
• mount
• rm
• ren
• act
• ofsgc
• loadmod
• lsmod
• symlink

Notes:

OTYAX API document : https://otya128.github.io/OTYAX5/ Japanese, English (by ateesdalejr and PatheticFish) OTW API document : http://otya128.github.io/OTYAX5/jp/OTW/API(Japanese) EXAMPLE

VAR OTWEXAMPLECTL
'init
COMMON DEF I_OTWEXAMPLE
 IF!CHKCALL("IsWinRunning")||!IsWinRunning()THEN
  PrintConsoleln "window system is required."
  ExitProcess 1
  RETURN
 ENDIF
 'WND:window handle
 'E:error (0: success)
 VAR WND,E
 IF!OTWEXAMPLECTL THEN
  'OTWEXAMPLECTL is uninitialized
  '            control name control handle
  ExtendControl "OTWEXAPMLE",GetWindowControl() OUT OTWEXAMPLECTL,E
  IF E THEN
   E=DeleteControl(OTWEXAMPLECTL)
   ExitProcess 1
   RETURN
  ENDIF
 ENDIF
 NewTopLevelWindow OTWEXAMPLECTL,"OTWEXAMPLE",128,64 OUT WND,E
 IF E THEN
  E=DeleteWindow(WND)
  ExitProcess 1
  RETURN
 ENDIF
 SetProcessVar WND
END
'loop
COMMON DEF L_OTWEXAMPLE
 'process window events
 IF UpdateWindow(GetProcessVar())THEN
  ExitProcess 0
  RETURN
 ENDIF
END