> list "menu-redux-1.bas"
Option Explicit
Option Default Float
Option Base 0

Trace On

Play MP3 "/TweakerRaySpaceFlight-160kb.mp3"
Dim menu_label$
menu_label$ = show_menu$("")
End

Function show_menu$(menu_label$)
 Restore menu_top
 Local menu_name$
 Read menu_name$
 Local items$(20, 2)
 Local items_sz = read_string_array(items$())
 End
End Function

' @return  number of elements (of first index) read.
Function read_string_array(a$())
 Local lbound = Bound(a$(), 0)
 Local i = lbound, j = lbound, s$
 Do
   Read s$
   If s$ = "end" Then Exit Do
   a$(i, j) = s$
   j = j + 1
   If j = Bound(a$(), 2) + 1 Then j = lbound : i = i + 1
 Loop
 read_string_array = i - lbound
End Function

menu_top:
Data "Contents"
Data "1", "WHAT'S NEW?", "menu_new"
Data "2", "Games", "menu_games"
Data "3", "Other amusements", "menu_amusements"
Data "4", "Utilities", "menu_utils"
Data "5", "Demos - Graphics, 3D", "menu_3d"
Data "6", "Demos - Graphics, Fractals", "menu_fractals"
Data "7", "Demos - Graphics, Sprites", "menu_sprites"
Data "8", "Demos - Graphics, Turtle", "menu_turtle"
Data "9", "Demos - Sound", "menu_sound"
Data "X", "Demos - CSUBs", "menu_csub"
Data "C", "Show credits", "credits"
'Data "D", "COMING SOON", "menu_next"
Data "Q", "Quit", "quit"
Data "end"

> run "menu-redux-1.bas"
[7][8][9][13][14][15][16][17][23][24][25][26][27][28][29][30][31][26][27][28][29][30]Error: System fault - possible causes
- Incorrect use of POKE
- Faulty CSUB
- Reserved words used as variables
- Firmware problem
>

Colour Maximite 2
MMBasic Version 5.05.06RC6
Copyright 2011-2020 Geoff Graham
Copyright 2016-2020 Peter Mather

Searching for function: MM.STARTUP
Searching for function: MM.PROMPT
> run "menu-redux-1.bas"
[7][8]Creating variable : MENU_LABEL, at depth : 0, hash key : 967
[9]Searching for function: SHOW_MENU
Testing : SHOW_MENU
Found : SHOW_MENU, hash key : 334
Creating variable : MENU_LABEL, at depth : 1, hash key : 455
Creating variable : SHOW_MENU, at depth : 1, hash key : 334
[13][14]Creating variable : MENU_NAME, at depth : 1, hash key : 60
[15][16]Creating variable : ITEMS, at depth : 1, hash key : 47
[17]Creating variable : ITEMS_SZ, at depth : 1, hash key : 345
Searching for function: READ_STRING_ARRAY
Testing : READ_STRING_ARRAY
Found : READ_STRING_ARRAY, hash key : 477
Searching for function: ITEMS
Creating variable : A, at depth : 2, hash key : 204
Creating variable : READ_STRING_ARRAY, at depth : 2, hash key : 477
[23]Creating variable : LBOUND, at depth : 2, hash key : 145
[24]Creating variable : I, at depth : 2, hash key : 356
Creating variable : J, at depth : 2, hash key : 29
Creating variable : S, at depth : 2, hash key : 290
[25][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][28][29][30][31][26][27][32][33]Deleting S, 2, 290
Deleting J, 2, 29
Deleting I, 2, 356
Deleting LBOUND, 2, 145
Deleting READ_STRING_ARRAY, 2, 477
Deleting A, 2, 204
[18]
Searching for function: MM.PROMPT
> run "menu-redux-1.bas"
[7][8]Creating variable : MENU_LABEL, at depth : 0, hash key : 967
[9]Searching for function: SHOW_MENU
Testing : SHOW_MENU
Found : SHOW_MENU, hash key : 334
Creating variable : MENU_LABEL, at depth : 1, hash key : 455
Creating variable : SHOW_MENU, at depth : 1, hash key : 334
[13][14]Creating variable : MENU_NAME, at depth : 1, hash key : 60
[15][16]Creating variable : ITEMS, at depth : 1, hash key : 47
[17]Creating variable : ITEMS_SZ, at depth : 1, hash key : 345
Searching for function: READ_STRING_ARRAY
TeError: System fault - possible causes
- Incorrect use of POKE
- Faulty CSUB
- Reserved words used as variables
- Firmware problem
Searching for function: MM.STARTUP
Searching for function: MM.PROMPT

Error in ../../common/welcome.inc line 26: Variable type not specified

Function we.sanitise_firmware_version$(v$)
 Local i, s$
 For i = 1 To Len(v$)
   If InStr("0123456789", Mid$(v$, i, 1)) > 0 Then s$ = s$ + Mid$(v$, i, 1)
 Next i
 Do While Len(s$) < 5 : s$ = s$ + "0" : Loop
 If Len(s$) > 5 Then Error "Unexpected firmware version format: " + v$
 we.sanitise_firmware_version$ = s$
End Function