> option lcdpanel disable
PicoMite MMBasic Version 5.07.00b8
Copyright 2011-2021 Geoff Graham
Copyright 2016-2021 Peter Mather

> OPTION LCDPANEL ILI9341, LANDSCAPE,GP20,GP19,GP18
> load image "CrateAwaySprites320.bmp"
> cls
> blit load 1,"CrateAwaySprites480.bmp",0,0,120,60
> blit write 1,0,0,120,60

label1:
Data "1-1"
Data "1-2"
Data "1-3"
Data "1-4"
Data "1-5"
Data "1-6"
Data ""

a$="label1"

Print "testing..."
Restore a$
Do
 Read b$
 If b$="" Then Exit
 Print b$
Loop

Print "testing..."
Restore a$
Do
 Read b$
 If b$="" Then Exit
 Print b$
Loop

Do
 Read b$
 If b$="" Then Exit
 Print b$
Loop

Dim integer i,j,k,l,m,n,flag,l2,ln,nLnScreen,ii
Dim integer lineNo,x,y,nChLn,nAph
Dim string a$,b$,c$,s$,ch$,crlf$=chr$(13)+chr$(10)
Dim string lines$(800) length 60 ' maximum line width @ 480x320, 8x12

 font 1: lineNo=mm.vres/mm.fontheight/2-1
 y=lineNo*mm.fontheight
 nChLn=fix(mm.hres/mm.fontwidth)
 nLnScreen=fix(mm.vres/mm.fontheight)
' read sensors.bas truncated to 60 characters
 n=1
 Open "sensors.bas" For input As #1
 Do While Not Eof(1)
   Line Input #1, a$: ' Print a$
   lines$(n)=mid$(a$,1,60)
   n=n+1
 Loop
 Close #1
 nLines=n
?nLines;" Lines"
ln=1
do
 if ln+nLnScreen-1 > nLines then ln=nLines-nLnScreen+1
 if ln<1 then ln=1
 cls
 y=0
 for i=1 to nLnScreen
   text 0,y,lines(ln)
   y=y+mm.fontheight
'    ?ln;" "+lines(ln)
   ln=ln+1
 next i
 do
   do: ch$=_inkeyCh$(): loop until ch$<>""
'    ?asc(ch$);" ";
   lnn=0
   select case ch$
     case chr$(128): lnn=ln-nLnScreen-1 ' up arrow
     case chr$(129): lnn=ln-nLnScreen+1 ' down arrow
     case chr$(134): lnn=1 ' home
     case chr$(135): lnn=nlines-nLnScreen+1 ' end
     case chr$(136): lnn=ln-nLnScreen*2 ' pgup
     case chr$(137): lnn=ln ' pgdn
     case chr$(13):
   end select
   if lnn<>0 then: ln=lnn: exit do
 loop
loop

Function _inkeyCh$()
 local ky$
 ky$=inkey$
 if asc(ky$)=27 then ' escape sequence
   ky$=inkey$: ky$=inkey$: ky$=ucase$(ky$)
   If ky$="A" Then: ky$=chr$(128) ' up arrow
   ElseIf ky$="B" Then: ky$=chr$(129) ' down arrow
   ElseIf ky$="C" Then: ky$=chr$(131) ' right arrow
   ElseIf ky$="D" Then: ky$=chr$(130) ' left arrow
   ElseIf ky$="H" Then: ky$=chr$(134) ' home
   ElseIf ky$="8" Then: ky$=chr$(135) ' end
   ElseIf ky$="5" Then: ky$=chr$(136) ' pgup
   ElseIf ky$="6" Then: ky$=chr$(137) ' pgdn
   ' Function keys are ???
   EndIf
 endif
 _inkeyCh$=ky$
end function