MATH M_INVERSE array!(), inversearray!()

MATH(M_DETERMINANT array!())

GUI CURSOR LINK MOUSE
GUI CURSOUR UNLINK MOUSE

gui cursor on
controller mouse open 0
gui cursor link mouse
do:loop

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Demonstration program for the CMM2
' It does not do anything useful except demo the various controls
'
' Geoff Graham, October 2015
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim ledsY
mode 10
option console serial
Colour RGB(white), RGB(black)
' reference numbers for the controls are defined as constants
Const c_head = 1, c_pmp = 2, sw_pmp = 3, c_flow = 4, tb_flow = 5
Const led_run = 6, led_alarm = 7
Const frm_alarm = 20, nbr_hi = 21, nbr_lo = 22, pb_test =23
Const c_hi = 24, c_lo = 25
Const frm_pump = 30, r_econ = 31, r_norm = 32, r_hi = 33
Const frm_log = 40, cb_enabled = 41, c_fname = 42, tb_fname = 43
Const c_log = 44, cb_flow = 45, cb_pwr = 46, cb_warn = 47
Const cb_alarm = 48, c_bright = 49, sb_bright = 50
' now draw the "Pump Control" display
'CLS
dim integer x, y, lb, rb, sb, xs, ys, cs, ss
'sprite load "mouse.spr",1
gui cursor on 0, mm.hres\2,mm.vres\2
GUI Interrupt TouchDown, TouchUp
' display the heading
Font 2,2 : GUI Caption c_head, "Pump Control", 10, 0
Font 3 : GUI Caption c_pmp, "Pump", 20, 60, , RGB(brown)
' now, define and display the controls
' first
GUI Switch sw_pmp, "ON|OFF", 20, 90, 150, 50, RGB(white),RGB(brown)
CtrlVal(sw_pmp) = 1
' the flow rate display box
Font 3 : GUI Caption c_flow, "Flow Rate", 20, 170,, RGB(brown),0
Font 4 : GUI Displaybox tb_flow, 20, 200, 150, 45
CtrlVal(tb_flow) = "20.1"
' the radio buttons and their frame
Font 3 : GUI Frame frm_pump, "Power", 20, 290, 170, 163,RGB(200,20,255)
GUI Radio r_econ, "Economy", 40, 318, 15, RGB(230, 230, 255)
GUI Radio r_norm, "Normal", 40, 364
GUI Radio r_hi, "High", 40, 408
CtrlVal(r_norm) = 1 ' start with the "normal" button selected
' the alarm frame with two number boxes and a push button switch
Font 3 : GUI Frame frm_alarm, "Alarm", 220, 220, 200, 233,RGB(green)
GUI Caption c_hi, "High:", 232, 260, LT, RGB(yellow)
GUI Numberbox nbr_hi, 318,MM.info(VPos)-6,90,MM.info(FontHeight)+12,RGB(yellow),RGB(64,64,64)
GUI Caption c_lo, "Low:", 232, 325, LT, RGB(yellow),0
GUI Numberbox nbr_lo, 318,MM.info(VPos)-6,90,MM.info(FontHeight)+12,RGB(yellow),RGB(64,64,64)
GUI Button pb_test, "TEST", 257, 383, 130, 40,RGB(yellow), RGB(red)
CtrlVal(nbr_lo) = 15.7 : CtrlVal(nbr_hi) = 35.5
' draw the two LEDs
Const ledsX = 240, coff = 50 ' define their position
ledsY = 90 : GUI LED led_run, "Running", ledsX, ledsY, 15, RGB(green)
ledsY = ledsY+49 : GUI LED led_alarm, "Alarm", ledsX, ledsY, 15, RGB(red)
CtrlVal(led_run) = 1 ' the switch defaults to on so set the LED on
' the logging frame with check boxes and a text box
Colour RGB(cyan), 0
GUI Frame frm_log, "Log File", 450, 20, 330, 355, RGB(green)
GUI Checkbox cb_enabled, "Logging Enabled", 470, 50, 30, RGB(cyan)
GUI Caption c_fname, "File Name", 470, 105
GUI Textbox tb_fname, 470, 135, 290, 40, RGB(cyan), RGB(64,64,64)
GUI Caption c_log, "Record:", 470, 205, , RGB(cyan), 0
GUI Checkbox cb_flow, "Flow Rate", 500, 245, 25
GUI Checkbox cb_alarm, "Alarms", 500, 285, 25
GUI Checkbox cb_warn, "Warnings", 500, 325, 25
CtrlVal(cb_enabled) = 1
CtrlVal(tb_fname) = "LOGFILE.TXT"
' define and display the spinbox for controlling the backlight
GUI Caption c_bright, "Backlight", 442, 415,,RGB(200,200,255),0
GUI Spinbox sb_bright, MM.info(HPos) + 8, 400, 200, 50,,,10, 10, 100
CtrlVal(sb_bright) = 50
' All the controls have been defined and displayed. At this point
' the program could do some real work but because this is just a
' demo there is nothing to do. So it just sits in a loop.
Do
Loop
' the interrupt routine for touch down
' using a select case command it has a different process for each
' control
Sub TouchDown
local integer mbox
'  print "down"
Select Case click(REF) ' find out the control touched
Case cb_enabled ' the enable check box
  If CtrlVal(cb_enabled) Then
    GUI Restore c_fname, tb_fname, c_log, cb_flow, cb_alarm, cb_warn
  Else
    mbox=MsgBox("Are you sure?", "YES","CANCEL")
'      print mbox
    if mbox=1 then
      GUI Disable c_fname, tb_fname, c_log, cb_flow, cb_alarm, cb_warn
    else
      CtrlVal(cb_enabled)=1
    endif
  EndIf
Case sb_bright ' the brightness spin box
'    BackLight CtrlVal(sb_bright)
Case sw_pmp ' the pump on/off switch
  CtrlVal(led_run) = CtrlVal(sw_pmp)
  CtrlVal(tb_flow) = Str$(CtrlVal(sw_pmp) * 20.1)
  CtrlVal(r_norm) = 1
Case pb_test ' the alarm test button
  CtrlVal(led_alarm) = 1
'    GUI beep 250
Case r_econ ' the economy radio button
  CtrlVal(tb_flow) = Str$(CtrlVal(sw_pmp) * 18.3)
Case r_norm ' the normal radio button
  CtrlVal(tb_flow) = Str$(CtrlVal(sw_pmp) * 20.1)
Case r_hi ' the high radio button
  CtrlVal(tb_flow) = Str$(CtrlVal(sw_pmp) * 23.7)
End Select
End Sub
' interrupt routine when the touch is removed
Sub TouchUp
Select Case click(LASTREF) ' use the last reference
Case pb_test ' was it the test button
  CtrlVal(led_alarm) = 0 ' turn off the LED
End Select
End Sub
'
function MM.CURSOR( t as integer) as integer
static float lasttime
if timer> lasttime+20 or timer<lasttime then
  x=mouse(x,1)
  y=mouse(y,1)
  lb=mouse(l,1)
  lasttime=timer
  gui cursor x,y
endif
MM.CURSOR=-1
if t=1 then
  MM.CURSOR=lb
elseif t=2 then
  if lb then MM.CURSOR=x
elseif t=3 then
  if lb then MM.CURSOR=y
elseif t=4 then
  MM.CURSOR=lb
else
  MM.CURSOR=lb
endif
end function
'
sub mm.beep beeptime as integer
if beeptime and mm.info(sound)="OFF" then play tone 600,600,beeptime
end sub

> Print Mm.Info(FileSize "a:\")
-1
> Print Mm.Info(FileSize "A:\")
-1
> Print Mm.Info(FileSize "a:/")
-1
> Print Mm.Info(FileSize "A:/")
-1
> Print Mm.Info(FileSize "/")
-1
> Print Mm.Info(FileSize "\")
-1
> Print Mm.Info(FileSize "a:")
-1
> Print Mm.Info(FileSize "A:")

Sub show_credits()
 Local denizens$(20, 2), i, s$, sz
 Restore denizens ' use of variable name "coincidental"
 ...
End Sub
...
denizens:
Data "Andrew_G", "", ""
Data "Bigmik", "Mick", "Gulovsen"
Data "capsikin", "", ""
Data "jirsoft", "", ""
...

CONTROLLER MOUSE OPEN [n] [,LBinterrupt ][,RBinterrupt] [,sensitivity][,LBUpinterrupt]

> 480MHz Colour Maximite 2 G2
MMBasic Version 5.07.01RC2
Copyright 2011-2021 Geoff Graham
Copyright 2016-2021 Peter Mather

> mkdir "foo"
> chdir "foo"
> Print Mm.Info(Directory)
A:/FOO/
> Print Mm.Info(FileSize "A:/FOO/")
-1
> Print Mm.Info(FileSize "A:/FOO")
-2