'
' This is MyAVRDOS Second Try.bas
'
$regfile = "M128def.dat"
$crystal = 7372800

$hwstack = 128
$swstack = 128
$framesize = 128

$baud1 = 19200

Config Clock = Soft
Enable Interrupts
Config Date = Dmy , Separator = /
Dim Btemp1 As Byte
Dim Count As Word
Dim A As Word
Dim Choice As Byte

Open "Com1:" As Binary As #1                                ' use #1 for fs_interpreter
Config Serialin = Buffered , Size = 20

Print #1 , "Heeere we go!"
$include "Config_MMC.bas"

' Include AVR-DOS Configuration and library

If Gbdriveerror = 0 Then

$include "Config_AVR-DOS.BAS"

Beginning:

' Clear Screen
Print #1 , Chr(27)

' Display main menu and get choice
Print #1 , "MAIN MENU FOR DATA LOGGER" : Print #1,
Print #1 , "What do you want to do?" : Print #1 , : Print #1,
Print #1 , "1 To read the system time"
Print #1 , "2 To set the system time"
Print #1 , "3 To exit menu and log data" : Print #1,
Input "Enter Choice => " , Choice

Select Case Choice
   Case 1
      Print #1 , Time$
      Input "Hit any key to go back to main menu"
      Goto Beginning
   Case 2
      Goto Settime
   Case 3
      Goto Mainprog
   Case Else
      Print #1 , "Bad Choice.  Try Again. "
      Wait 1
      Goto Beginning
End Select

Mainprog:

Count = 0
A = 0

  Print #1 , "Starting the loop"
   Open "Test.txt" For Append As #10
   Print #1 , "Opened Test.txt"
   Print #10 , "Count" ; "{009}" ; "A"
   Print #1 , "Wrote headings to file"
   For Count = 1 To 100 Step 1
    Print #10 , Count ; "{009}" ; A
    Print #1 , Count ; "{009}" ; A
    A = A + Count
    Waitms 100
   Next Count
   Close #10
   Print #1 , "Loop done!"
End

Settime:

' Clear Screen
Print #1 , Chr(27)
Goto Beginning

Else
   Print #1 , "Error during Drive Init: " ; Gbdriveerror
End If
 

    Print #10 , str(Count) ; "{009}" ; str(A )

 

$regfile = "M128def.dat"
$crystal = 7372800

' Adjust HW Stack, Soft-Stack and Frame size to 128 minimum each!!!

$hwstack = 128
$swstack = 128
$framesize = 128

$baud = 19200
Open "Com1:" As Binary As #1                                ' use #1 for fs_interpreter
Config Clock = Soft
Enable Interrupts
Config Date = Mdy , Separator = .
Dim Btemp1 As Byte

Print #1 , "Wait for Drive"

' Include here you driver for Compactflash/HardDisk or other
$include "Config_CompactFlash_M128.bas"                     ' Does drive init too
'$Include "Config_HardDisk_M128.bas"

If Gbdriveerror = 0 Then

  ' Include AVR-DOS Configuration and library
$include "Config_AVR-DOS.BAS"

  Print #1 , "Init File System ... ";
  Btemp1 = Initfilesystem(1)                                ' Partition 1
                                          ' use 0 for drive without Master boot record
  If Btemp1 <> 0 Then
     Print #1 , "Error: " ; Btemp1 ; " at Init file system"
  Else
     Print #1 , " OK"
     Print #1 , "Filesystem: " ; Gbfilesystem
     Print #1 , "FAT Start Sector: " ; Glfatfirstsector
     Print #1 , "Root Start Sector: " ; Glrootfirstsector
     Print #1 , "Data First Sector: " ; Gldatafirstsector
     Print #1 , "Max. Cluster Nummber: " ; Glmaxclusternumber
     Print #1 , "Sectors per Cluster: " ; Gbsectorspercluster
     Print #1 , "Root Entries: " ; Gwrootentries
     Print #1 , "Sectors per FAT: " ; Glsectorsperfat
     Print #1 , "Number of FATs: " ; Gbnumberoffats
  End If
Else
   Print #1 , "Error during Drive Init: " ; Gbdriveerror
End If


' If you want to test with File-System Interpreter uncomment next line
'$include "FS_Interpreter.bas"
 

$Include "Config_MMC.bas"

$regfile = "M128def.dat"
$crystal = 7372800

$hwstack = 128
$swstack = 128
$framesize = 128

$baud1 = 19200

Config Clock = Soft
Enable Interrupts
Config Date = Dmy , Separator = /
Dim Btemp1 As Byte
Dim Count As Word
Dim A As Word
Dim Choice As Byte

Open "Com1:" As Binary As #1                                ' use #1 for fs_interpreter
Config Serialin = Buffered , Size = 20

Print #1 , "Heeere we go!"
$include "Config_MMC.bas"

' Include AVR-DOS Configuration and library

If Gbdriveerror = 0 Then

$include "Config_AVR-DOS.BAS"

Beginning:

' Clear Screen
Print #1 , Chr(27)

' Display main menu and get choice
Print #1 , "MAIN MENU FOR DATA LOGGER" : Print #1,
Print #1 , "What do you want to do?" : Print #1 , : Print #1,
Print #1 , "1 To read the system time"
Print #1 , "2 To set the system time"
Print #1 , "3 To exit menu and log data" : Print #1,
Input "Enter Choice => " , Choice

Select Case Choice
   Case 1
      Print #1 , Time$
      Input "Hit any key to go back to main menu"
      Goto Beginning
   Case 2
      Goto Settime
   Case 3
      Goto Mainprog
   Case Else
      Print #1 , "Bad Choice.  Try Again. "
      Wait 1
      Goto Beginning
End Select

Mainprog:

Count = 0
A = 0

  Print #1 , "Starting the loop"
   Open "Test.txt" For Append As #10
   Print #1 , "Opened Test.txt"
   Print #10 , "Count" ; "{009}" ; "A"
   Print #1 , "Wrote headings to file"
   For Count = 1 To 100 Step 1
    Print #10 , Count ; "{009}" ; A
    Print #1 , Count ; "{009}" ; A
    A = A + Count
    Waitms 100
   Next Count
   Close #10
   Print #1 , "Loop done!"
End

Settime:

' Clear Screen
Print #1 , Chr(27)
Goto Beginning

Else
   Print #1 , "Error during Drive Init: " ; Gbdriveerror
End If
 

Print #10 , "Count" ; "{009}" ; "A"