file.bas

来自「smallbasic for linux」· BAS 代码 · 共 84 行

#!/usr/local/bin/sbrun -g
' For the next version (file i/o)

' main
label main_menu
cls
? "Main menu"
? "1. Projects"
? "2. Hours"
? "3. Checks"
? "0. Exit"
input "Select: "; k

if k=1
	gosub prj_menu
elif k=2
	gosub hours_menu
elif k=3
	gosub checks_menu
elif k=0
	end
fi
goto main_menu

' ----------------
' projects db
label prj_menu
cls
? "Projects"
? "1. New"
? "2. Edit"
? "3. Delete"
? "4. List"
? "0. Exit"
input "Select: "; k
if k=1
	gosub new_prj
elif k<>0
	goto prj_menu
fi
return

label new_prj:
cls
? "New Project"
input "Code: ";code
input "Desc: ";desc
input "Are you sure (y/n)";yn
if yn="Y" or yn ="y"
	' write
	? "*ok"
else
	? "*cancel"
fi
pause 1
return

' ----------------
' hours db
label hours_menu
cls
? "Hours"
? "1. New"
? "2. Edit"
? "3. Delete"
? "4. List"
? "0. Exit"
input "Select: "; k
return	

' ----------------
' checks db
label checks_menu
cls
? "Checks"
? "1. New"
? "2. Edit"
? "3. Delete"
? "4. List"
? "0. Exit"
input "Select: "; k
return