/*
Look after this file And keep backups!
It is awkward to maintain the Library without it.

How to use this file:
1 . Make your changes in the editor
2 . Save it - A VERY IMPORTANT STEP!!!
3 . At the command line LIBRARY DELETE
4 . At the command line LIBRARY SAVE
The revised library is now active - and has disappeared from the editor.

You did remember step 2, didn't you??

You can add SUBs etc directly to the library without using this file
but I don't recommend it as making deletions or other changes in the
library is a bit of a pain as you have lost all the lovely comments.
*/

Once you have saved the modified file (you'll lose it forever if you don't) use LIBRARY SAVE

> AUTOSAVE
Sub mm.startup
Local i%, C$="'This runs automatically once only on power up/reset"
For %i=1 To 40
If MM.Info(pin i%)="OFF" Then SetPin i%, DIN, PULLUP
Next
End Sub
>
Saved 164 bytes
> library save
Library Saved 152 bytes
> Library list
Sub mm.startup
Local i%, C$="'This runs automatically once only on power up/reset"
For %i=1 To 40
If MM.Info(pin i%)="OFF" Then SetPin i%, DIN, PULLUP
Next
End Sub
>

> library delete
> library save
>

Sub mm.startup 'This runs automatically once only on power up/reset
 Local i
 'The following puts unused pins into a stable state for the RP2350
 For i=1 To 40
  If MM.Info(pin i)="OFF" Then SetPin i, DIN, PULLUP
 Next

 SetPin gp20, dout

 led 2,1,4  'make it a pretty colour. :)
 Print "== PicoGAME 2350 GAMMA =="
 i = MM.Info(FONTHEIGHT)
 Line 0,(MM.VRes-i*2-4),MM.HRes,(MM.VRes-i*2-4)
 Print @(0,MM.VRes-i*2);
 Print "F1:Help   F2:Run   F3:List   F4:Editor   F5:CLS";
 Print @(0,MM.VRes-i);
 Print "F9:FE  F10:Autosave  F11:XMODEM Rec.  F12:XMODEM Send";
 Print @(0,50);
End Sub

Case "p"
    'Note: these Case statements are specific to this system
    Print " Pin  GPIO  Description"
    Print
    For i=0 To 28
     If (i<12 Or i>19) Then
      a$=Str$(i)
      Print "("Str$(MM.Info(pinno "GP"+a$),2)")";
      Print "  GP"+Str$(i,2);"  ";
      Select Case i
       Case 10,11
        Print "Audio"
       Case 4,5,6,7
        Print "SD Card"
       Case 8,9
        Print "Console - COM2"
       Case 2,3
        Print "System I2C & front socket - I2C2"
       Case 20
        Print "Front panel LED"
       Case 0,1
        Print "ESP8266 & front socket - COM1 & I2C"
       Case 21,22,26,27,28
        Print "User GPIO port"
       Case Else
        Print "-See MMBasic manual-"
      End Select
     EndIf
    Next

Print "Help categories available are:"
 Print "[A]bout  ibrary   [S]ound   [D]evice   [M]ath"
 Print "dsplay  [K]eyboard          tility  [Esc]"

 Select Case _hmen0$("ALSDMIKU")
 Case "a"
   ....
 Case "l"
   ....