Cos222: Qbasic , Student Profiling System using Loop Constructs, Writing and Reading from files

Name: Onyekwere Kelechi Mark

Reg No: 2017/246238

Dept: Computer/Statistics

CLS

OPEN "STUDENT2.BAS" FOR OUTPUT AS #21

FOR i = 1 TO 2

    INPUT "ENTER STUDENT NAME: "; xname$

    INPUT "ENTER REGISTRATION NUMBER: "; regno$

    INPUT "ENTER DEPARTMENT: "; dept$

    INPUT "ENTER STUDENT'S AGE : "; age

    INPUT "ENTER STUDENT'S SEX: "; sex$

    INPUT "ENTER YEAR OF STUDY: "; level

    PRINT #21, xname$

    PRINT #21, regno$

    PRINT #21, dept$

    PRINT #21, age

    PRINT #21, sex$

    PRINT #21, level

NEXT i

CLOSE #21

OPEN "STUDENT2.BAS" FOR INPUT AS #21

WHILE NOT EOF(21)

    INPUT #21, xname$, regno$, dept$, age, sex$, level

    PRINT "---------------------------------------------"

    PRINT "Name of Student is: "; xname$

    PRINT "Student Registration Number: "; regno$

    PRINT "Student Department: "; dept$

    PRINT "Student age: "; age

    PRINT "Student sex: "; sex$

    PRINT "Student level: "; level

    PRINT "---------------------------------------------"

WEND

CLOSE #21

END