Thursday, August 4, 2011

Qbasic (Store Data)

OPEN "info.dat" FOR OUTPUT AS #1
CLS
TOP :
INPUT "Enter your Id"; ID
INPUT "Enter your Name "; Name$
INPUT "Enter your Address"; Ad$
INPUT "Enter your Post"; Po$
INPUT "Enter your Salary"; Sa
WRITE #1, ID, Name$,Ad$,Po$, Sa
INPUT "Do you want to enter next record (Y/N)"; y$
IF UCASE$(Y$)="Y" THEN GOTO TOP
CLOSE #1
END

No comments:

Post a Comment