DECLARE SUB Appendr ()
DECLARE SUB Displayr ()
DECLARE SUB displayrbycode ()
DECLARE SUB displayrbyname ()
DECLARE SUB deleterbycode ()
CLS
REM
LOCATE 2, 28
PRINT " Main Menu!"
LOCATE 4, 2
PRINT "1.Append Records"
LOCATE 5, 2
PRINT "2.Display all records"
LOCATE 6, 2
PRINT "3.Search Record by Code No."
LOCATE 7, 2
PRINT "4.Search Record By name"
LOCATE 8, 2
PRINT "5.Delete record by code no"
LOCATE 9, 2
PRINT "6.Exit"
PRINT
INPUT " Enter your choice (1/2/3/4/5/6)?"; ch
DO
SELECT CASE ch
CASE 1
CALL Appendr
CASE 2
CALL Displayr
CASE 3
CALL displayrbycode
CASE 4
CALL displayrbyname
CASE 5
CALL deleterbycode
CASE 6
EXIT DO
CASE 7
BEEP
END SELECT
LOOP
CLS
PRINT " Program Ended Sucessfully"
END
SUB Appendr
OPEN "INFO.DAT" FOR APPEND AS #1
CLS
DO
INPUT "Enter Students Code"; sc
INPUT "ENter Student's Name"; sn$
INPUT "Enter Marks of Science"; ss
INPUT "Enter Marks of Social Studies"; sss
INPUT "Enter Marks of Computer Science"; scs
WRITE #1, sc, sn$, ss, sss, scs
PRINT
INPUT "Add more records?(Y/N)"; am$
LOOP WHILE UCASE$(am$) = "Y"
CLOSE #1
END SUB
SUB delete
OPEN "INFO.DAT" FOR INPUT AS #1
OPEN "TEMP.DAT" FOR OUTPUT AS #2
CLS
INPUT "Enter Students code to delete record"; sc1
f = 0
DO UNTIL EOF(1)
INPUT #1, sc, sn$, ss, sss, scs
IF sc1 <> sc THEN
WRITE #2, sc, sn$, ss, sss, scs
ELSE
f = 1
END IF
LOOP
CLOSE #1, #2
KILL "INFO.DAT"
NAME "TEMP.DAT" AS "INFO.DAT"
PRINT
IF f = 0 THEN
BEEP
PRINT " Record Doesnt Exist!"
ELSE
PRINT "Record deleted Sucessfully"
END IF
PRINT
PRINT "Press any key to continue..."
p$ = INPUT$(1)
END SUB
SUB deleterbycode
OPEN "INFO.DAT" FOR INPUT AS #1
OPEN "TEMP.DAT" FOR OUTPUT AS #2
INPUT "ENter Code no."; codeno
DO WHILE NOT EOF(1)
INPUT #1, sc, sn$, ss, sss, scs
IF codeno <> sc THEN
WRITE #2, sc, sn$, ss, sss, scs
i = 1
END IF
LOOP
CLOSE #1, #2
KILL "INFO.DAT"
NAME "TEMP.DAT" AS "INFO.DAT"
PRINT
IF i = 0 THEN
PRINT "No recors found"
PRINT
PRINT " Press any key to continue.."
p$ = INPUT$(1)
END IF
END SUB
SUB Displayr
OPEN "INFO.DAT" FOR INPUT AS #1
CLS
k = 1
DO UNTIL EOF(1)
INPUT #1, sc, sn$, ss, sss, scs
PRINT "Student's Code"; sc
PRINT STRING$(80, "-")
PRINT "Name: "; sn$;
PRINT "Marks of science "; ss
PRINT "Marks of Social "; sss
PRINT "Marks of Computer"; scs
PRINT STRING$(80, "-")
PRINT
PRINT "Press any key to continue.."
p$ = INPUT$(1)
c = 1
c = c + 1
LOOP
CLOSE #1
PRINT "Press any key to return to main menu.."
p$ = INPUT$(1)
END SUB
SUB displayrbycode
OPEN "INFO.DAT" FOR INPUT AS #1
DO UNTIL EOF(1)
INPUT #1, sc, sn$, ss, sss, scs
INPUT "Enetr Students Code"; c1
IF c1 = sc THEN
PRINT "CODE:"; sc
PRINT
PRINT "Name"; sn$; TAB(40); "Science Marks"; ss
PRINT "Social Marks"; sss; TAB(40); "Computer Science Marks"; scs
o = 1
END IF
LOOP
IF o = 0 THEN
PRINT "No records Found"
END IF
PRINT
p$ = INPUT$(1)
END SUB
SUB displayrbyname
OPEN "INFO.DAT" FOR INPUT AS #1
DO UNTIL EOF(1)
INPUT #1, sc, sn$, ss, sss, scs
INPUT "Enter the Students name"; s$
IF s$ = sn$ THEN
PRINT STRING$(80, "-")
PRINT
PRINT "NAME:"; sn$
PRINT
PRINT
PRINT "Code:"; s; TAB(40); "Social Marks"; sss
PRINT "Science Marks"; ss; TAB(40); "Computer Science Marks:"; scs
f = 1
END IF
LOOP
CLOSE #1
IF f = 0 THEN
PRINT " No Records were found"
p$ = INPUT$(1)
END IF
END SUB
