> LIST "file-that-exists.bas"

> RUN "file-that-exists.bas"
Hello World
> RUN "file-that-does-not-exist.bas"
Failed to open file C:\home-thwill\git_sandbox\github\file-that-does-not-exist.bas
CRASHES!!!

> Dim x$
> x$ = String$(128, "a")
> Inc x$, String$(128, "b")
> Len(x$)
98

> ? Day$("31-12-1969")
Wednesday

> ? Day$("31-12-1969")
CRASHES!!!

> ? DateTime$(-1000)
31-12-1969 23:43:20

> ? DateTime$(-1000)
Epoch<0

> ? Epoch("31-12-1969 23:43:20")
-1000

> ? Epoch("31-12-1969 23:43:20")
-1000

> RUN "HelloWorld.bas"
Hello World
> NEW
CRASHES!!!

'check fft magnitude function

n=1023 'samples
cy=10  'cycles
sq=0   'sq=1 = square wave. sq=0 = sine wave

dim a!(n),fm!(n)
w=0  'window type, 0=none

do
 cls

 'draw 2 frames using mm.hres mm.vres
 box 50,0,(mm.hres-51),mm.vres/2-2
 box 50,mm.vres/2,mm.hres-51,mm.vres-1

 'prepare input signal
 sinfill
 if k$="w" then w=(w+1) mod 4
 if w then window
 
 'plot input signal
 plot_in

 'do fft
 math fft magnitude a!(),fm!()

 'convert to logaritm
 'lin2log

 'plot fft  
 plot_fft

 'keyboard commands
 do
   k$=inkey$
 loop until k$<>""
 if k$="a" then cy=cy+1
 if k$="z" then cy=cy-1:cy=max(cy,2)
 if k$="s" then save image "fft",0,0,800,600
loop until k$="q"

end

'subroutines

'fill the input array a!() with cy cycles of sinewave
sub sinfill
 for i=0 to n
   a!(i)=sin(2*pi*cy*i/n)
   if sq=1 then
     if a!(i)>0 then
       a!(i)=1
     else
       a!(i)=-1
     end if
   end if
 next i
end sub

'apply a window over the input signal (triangle for now)
sub window
 if w=1 then
   for i=0 to n/2  'linear
     a!(i)=(i/n)*a!(i)
     a!(n-i)=(i/n)*a!(n-i)
   next i
   ? @(60,5) "triangle window"
 else if w=2 then
   for i=0 to n    'quadratic (do linear twice)
     a!(i)=(i/n)*a!(i)
     a!(n-i)=(i/n)*a!(n-i)
   next i
   ? @(60,5) "quadratic window"
 else if w=3 then
   for i=0 to n    'sine^2 (hann) window
     a!(i)=sin(pi*i/n)*sin(pi*i/n)*a!(i)
   next i
   ? @(60,5) "hann window"
 end if
end sub

'plot the input signal in the upper window
sub plot_in
 'find minimum and maximum
 mi!=0:ma!=0
 for i=0 to n
   mi!=min(mi!,a!(i))
   ma!=max(ma!,a!(i))
 next i
 '? mi!,ma!
 'calculate gain and offset to fit it into the window
 xgain=(mm.hres-50)/n
 xoffs=50
 ygain=-(mm.vres/2.3)/(ma!-mi!)
 yoffs=mm.vres/4-ygain*(ma!+mi!)/2
 'plot the actual samples  using linear interpolation
 for i=0 to n-1
   line i*xgain+xoffs,a!(i)*ygain+yoffs,(i+1)*xgain+xoffs,a!(i+1)*ygain+yoffs
 next i
 'add legend
 ? @(mm.hres/2,5) "input linear"
 ? @(5,5) str$(ma!,2,2)
 ? @(5,mm.vres/2-20) str$(mi!,2,2)
end sub

'plot the fft output in the lower window
sub plot_fft
 'find min and max and where max is
 mi!=1e6:ma!=-1e6
 for i=0 to n/2  'fft output is symetrical
   mi!=min(mi!,fm!(i))
   ma!=max(ma!,fm!(i))
   if ma!=fm!(i) then cf=i':? cf
 next i
 'apply some logaritmic scaling
 'mi!=-120:ma!=60
 'mi!=0:ma!=200
 'mi!=max(mi!,-140):ma!=min(ma!,120)
 'for i=0 to n
 '  fm!(i)=min(ma!,max(mi!,fm!(i)))
 'next i
 'calculate scaling to fit the window
 xgain=2*(mm.hres-50)/n
 xoffs=50
 ygain=-(mm.vres/2.3)/(ma!-mi!)
 yoffs=mm.vres-mi!*ygain-20
 'plot the fft graph
 for i=0 to n/2-2
   line i*xgain+xoffs,fm!(i)*ygain+yoffs,(i+1)*xgain+xoffs,fm!(i+1)*ygain+yoffs
 next i
 'add legend
 ? @(mm.hres/2,mm.vres/2+15) "magintude logarithm"
 ? @(5,mm.vres/2+5) str$(ma!,2,2)
 ? @(5,mm.vres-30) str$(mi!,2,2);
 'put marker ticks in multiples of centre frequency
 for i=0 to n/2-2 step cf
   line i*xgain+xoffs,mm.vres/2,i*xgain+xoffs,mm.vres/2+5
   if ((i mod(5*cy)) = 0) then
     line i*xgain+xoffs,mm.vres/2,i*xgain+xoffs,mm.vres/2+15
   end if
 next i
end sub

'convert linear output to logarithmic
sub lin2log
 for i=0 to n/2
   fm!(i)= 20*log(fm!(i)+1e-300)/log(10)
 next i
end sub

sample$ = "The Colour Maximite 2 is the latest in a long series of microcomputers."

startB = PEEK(VARADDR sample$)
PRINT "          00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
PRINT
dump startB
FOR k = 0 TO 255
  POKE BYTE startB+k,k
NEXT k
PRINT
dump startB

SUB dump(startblock)
LOCAL INTEGER k,b,n
LOCAL a$
FOR k = 0 TO &h0f
  a$ = "   "
  PRINT HEX$(startblock+k*16,8);"  ";
  FOR n = 0 TO 15
    b = PEEK(BYTE startBlock+n+k*16)
    PRINT HEX$(b,2);" ";
    IF b > 31 AND b < 128 THEN
      a$ = a$ + CHR$(b)
    ELSE
      a$ = a$ + "."
    ENDIF
  NEXT n
  PRINT a$
NEXT k
END SUB
END

/** PEEK(DATAPOS) */
static void peek_datapos(int argc, char **argv, char *p) {
   if (argc != 1) ERROR_SYNTAX;
   uint64_t data_pos = ((NextDataLine - ProgMemory) << 32) + NextData;
   g_integer_rtn = data_pos;
   g_rtn_type = T_INT;
}

/** POKE DATAPOS data_pos% */
static void poke_datapos(int argc, char** argv, char *p) {
   if (argc != 1) ERROR_ARGUMENT_COUNT;
   uint64_t data_pos = (uint64_t) getinteger(p);
   NextDataLine = ProgMemory + (data_pos >> 32);
   NextData = data_pos & 0xFFFFFFFF;
}

Option Base 0
Option Default None
Option Explicit On

Restore my_data
mad(5)
End

Sub mad(depth%)
 If depth% = 0 Then Exit Sub
 Local data_pos% = Peek(DataPos) ' Cache the data pointer.
 Local s$
 Restore my_data
 my_label: ' There seems to be an issue with using recursion and DO or FOR loops ?
           ' Might be MMB4L specific.
   Read s$
   If s$ = "" Then
     Print
     Poke DataPos data_pos% ' Restore the data pointer.
     Exit Sub
   EndIf
   Print Space$(5 - depth%) Str$(depth%) s$ " ";
   If depth% > 1 Then Print
   mad(depth% - 1)
 Goto my_label
End Sub

my_data:
Data "A", "B", "C", "D", "E", ""

DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA

mypointer=1
mypointer20=20

RESTORE mypointer 'restores to first item

RESTORE (mypointer+5) '6th item

RESTORE (mypointer20+5) '25th item

RESTORE [line]  Resets the line and position counters for the READ statement.
                If 'line' is specified the counters will be reset to the
                beginning of the specified line. 'line' can be a line number
                or label or a variable with these values. If 'line' is not
                specified the counters will be reset to the start of the
                program.

RESTORE [line_num|label], line_offset

RESTORE RELATIVE line_offset

BINARY name
   01234567 89ABCDE
   ...
END BINARY