'--------------------------------------------------------------------------
'                        (c) 2003 MCS Electronics
'                               $INC demo
'--------------------------------------------------------------------------

'do not confuse $inc with INC and $INCLUDE

$regfile = "m162def.dat"
$crystal = 4000000

Dim Size As Word , W As Word , B As Byte

Restore L1                                                  ' set pointer to label
Read Size                                                   ' get size of the data

Print Size ; " bytes stored at label L1"
For W = 1 To Size
  Read B : Print Chr(b);
Next

End

'include some data here
$inc L1 , Size , "c:\test.bas"
'when you get an error, insert a file you have on your system


