Pause t*50 'previous time

> option list
PicoMiteVGA MMBasic Version 5.08.00
OPTION SYSTEM I2C GP14,GP15
OPTION COLOURCODE ON
OPTION KEYBOARD GR
OPTION CPUSPEED (KHz) 252000
OPTION SDCARD GP13, GP10, GP11, GP12
OPTION AUDIO GP4,GP5', ON PWM CHANNEL 2
OPTION RTC AUTO ENABLE
OPTION MODBUFF ENABLE

'ascii movie player VT edition
Open "rick_roll_c.txt" For input As #1
'cls
Print Chr$(27); "[2J";
'Cursor off
Print Chr$(27);"[?25l";
t=1
'fh=MM.Info(FONTHEIGHT)
Do
 'first character in a line
 ch$=Input$(1,#1)
 If Asc(ch$)>127 Then 'movie line
   vpos=1+Asc(ch$)-128
   lin$=""
   Do
     ch$=Input$(1,#1)
     If Asc(ch$)>31 Then lin$=lin$+ch$
   Loop Until Asc(ch$)<27
 Print @(0,vpos*10),Space$(68)
   'text 0,vpos*fh,space$(68)
   'Text 0,vpos*fh,lin$
 Print @(0,vpos*10),lin$
 Else  'time marker
   Pause t*250 'previous time
   tim$=ch$
'    do
'      ch$=input$(1,#1)
'      if asc(ch$)>31 then tim$=tim$+ch$
'    loop until asc(ch$)<32
   t=Val(tim$)  'new time marker
 EndIf
Loop Until Eof(1)
Close #1
'Cursor on
Print Chr$(27);"[?25h";

Do
 Input #1,ch$                              'read one line from file
 If Asc(Left$(ch$,1))>127 Then             'movie line
   vpos=1+Asc(Left$(ch$,1))-128            'extract line number
   Text xs,ys+vpos*fh,Space$(68)               'clear this line on screen
   Text xs,ys+vpos*fh,Right$(ch$,Len(ch$)-1)   'write the new line
 Else                                      'time marker
   FRAMEBUFFER copy f,n
   Pause t*tick                            'previous time
   t=Val(ch$)                              'get new frame time
 EndIf
Loop

Do
 Line Input #1,ch$                              'read one line from file
 If Asc(Left$(ch$,1))>127 Then             'movie line
   vpos=1+Asc(Left$(ch$,1))-128            'extract line number
   Text xs,ys+vpos*fh,Space$(68)               'clear this line on screen
   Text xs,ys+vpos*fh,Right$(ch$,Len(ch$)-1)   'write the new line
 Else                                      'time marker
   FRAMEBUFFER copy f,n
   Pause t*tick                            'previous time
   t=Val(ch$)                              'get new frame time
 EndIf
Loop

'ascii movie player for compressed (indexed) files
'Game*Mite Version
Option default integer
Font 8
'open "sw1_c.txt" for input as #1
Open MM.Info(Path) + "sw1_c.txt" For input As #1 ' < ----
fps=16

'set up theater environment
FRAMEBUFFER create:FRAMEBUFFER write f
Load image MM.Info(Path) + "title_s.bmp",20,10 ' < ----
'TILE 0,0,RGB(yellow),,80,13
FRAMEBUFFER copy f,n
...