FoodGram I developed for my own food intake tracking and data logging that can easily be put to a spreadsheet.

dim e, yea
dim chk$, ing$, fnam$, meal$, ig$
2:
cls
color 7,0
chk$="":ing$="":fnam$="":meal$="":ig$=""
e=0
cls
shell "ls | grep foodgram.csv > file.txt"
open "file.txt" for input as #2
do
 if not(eof(2)) then input #2, chk$
 if lcase$(chk$)="foodgram.csv" then yea=1
loop until eof(2)
close #2
if yea=0 then shell "echo Date, Time, Meal Type, Meal Name, Ingredients > foodgram.csv"
shell "rm file.txt"
1:
color 7,0
cls
print
print
color 5,8
print " FoodGram Version 1.03a by Page Telegram 2022"
print
locate 4,1:color 7,0:print " Date: ";date$, "Time: ";time$
color 7,0
print "  [1] Food is called: "; 
color 4,7
print fnam$
color 7,0
print "  [2] Ingredients include: "; 
color 4,7
print ing$
color 7,0
print "  [3]/[B/L/D/S/K] Breakfast, Lunch, Dinner, Snack or drinK?: ";
color 4,7
print meal$
color 7,0
print "  [4] Save Entry and Start New Entry!          "
print "  [5] Tail lastest 10 in foodgram.csv          "
print "  Others: [P]oop! [E]xercise [M]oon:(wake/bed) "
print "  [ESC] System  [U]pload to Server             "
color 2,0
print "  File is saved in current folder as foodgram.csv | Screens[H]ot"
color 1,7
do
locate 4,1:color 7,0:print "        Date: ";date$, "Time: ";time$
color 4,0: locate 22,1
 select case inkey$
  case "B","b"
    meal$="Breakfast": goto 1
  case "L","l"
       meal$="Lunch": goto 1

  case "D","d"
    meal$="Dinner": goto 1

  case "S","s"
    meal$="Snack": goto 1

  case "K","k"
    meal$="Drink": goto 1
  case "H","h": shell "fbgrab -d /dev/fb0 -s 2 ./foodgram.png": goto 1

  case "M","m": input "Confirm Wake / Sleep (Y/N)",yorn$:if ucase$(yorn$)="Y" then shell "echo "+date$+","+time$+","+"Awake / Sleep Event! >> foodgram.csv" else goto 1
  case "E","e": input "Confirm Exercise (Y/N)",yorn$:if ucase$(yorn$)="Y" then shell "echo "+date$+","+time$+","+"Exercised Event! >> foodgram.csv" else goto 1
  case "P","p": input "Confirm Poop Event Type: (1/2/3/4/5/6/7/N)",yorn$:if ucase$(yorn$)="N" then goto 1 else shell "echo "+date$+","+time$+","+"Poop Event!, Poop Type " + yorn$ + " >> foodgram.csv"
  case "U","u": shell "cp foodgram.csv foodgram.txt":shell "./upftp foodgram.txt /myhealth/": shell "./upftp foodgram.bas /dev/foodgram/": shell "./upftp foodgram.png /dev/foodgram/" :goto 1
  case "1": input "        Food Name:", fnam$: goto 1
  case "2": input "        Add ingredient:",ig$: ing$=ing$+ig$+"+": goto 1
  case "3": input "        What meal type?", meal$: goto 1
  case "4": print "        saving file as ";meal$;" on "; date$; " at "; time$: shell "echo " + date$ + "," + time$ + "," + meal$ + "," + fnam$ + "," + ing$ + " >> foodgram.csv": goto 2
  case "5": locate 11,1:shell "tail foodgram.csv"
  case chr$(27): e=1
 end select
loop until e=1
system