GW-Basic assignment # 2

GW Basic assignment # 2 .       First computer programming language I liked and one of the first I learned was GW-Basic from microsoft. It was easy and simple to learn and yet it was powerful. Both text and graphic mode programing was available in it. There were very small number of keywords, commands and functions in it. Making it a good Computer programing language as a first to learn.       While I was searching for old programs a program written in GW-Basic came into my mind. This was almost first ever program written by me as an assignment. In fact it was second assignment of GW-Basic. And  somehow it's print out is still save in where I keep my old things related to Computers.       This program reminds me of that time when I was learning computer programing. GW-BASIC, it's teachers (there were 2 teachers and one of them was very good), time spent in that institute, friends etc every thing becomes fresh on reading this program.       I wrote this program on PC/AT 286 in computer lab of that institute. Then I was two finger typist. Then I was also afraid of sitting so close to monitor thinking sitting so close will destroy my eye site. And because of that fear I used to dim monitor display as low as possible.       Because I then printed that program's source code and output both on computer paper so now although I searched for GW-Basic interpreter but did not actually felt very much need of any GW-Basic interpreter online or offline. The only hard-work I did now is that I typed that GW-Basic program and it's output in notepad and saved them in a text file and then reproduced them here as you can see below. . GW BASIC code: 10 CLS: KEY OFF 20 F = 0: E = 0 30 OPEN "O", #1, "A:NEWFILE.DAT" 40 OPEN "I", #2, "A:MKS.DAT" 50 INPUT "Enter student Conde number to edit a record: "; C$ 60 IF C$ = "" THEN E = 1 70 IF E = 1 THEN 290 80 IF EOF(2) THEN 280 90 INPUT #2, SCODE$, SNAME$, CLASS$, EDP!, BAS! 100 IF C$ = SCODE$ THEN 130 110 WRITE #1, SCODE$, SNAME$, CLASS$, EDP!, BAS! 120 GOTO 80 130 F = 1: CLS 140 FOR I = 1 TO 12 STEP 2 150 LOCATE 6 + I, 1: PRINT STRING$(80, "`"): NEXT 160 LOCATE 6, 22: PRINT "PRESENT RECORD TYPE NEW RECORD HERE" 170 LOCATE 8, 5: PRINT "Student Code : "; SCODE$ 180 LOCATE 10, 5: PRINT "Student name : "; SNAME$ 190 LOCATE 12, 5: PRINT "Class : "; CLASS$ 200 LOCATE 14, 5: PRINT "Marks in EDP : "; EDP! 210 LOCATE 16, 5: PRINT "Marks in BASIC : "; BAS! 220 LOCATE 8, 50: INPUT SCODE$ 230 LOCATE 10, 50: INPUT SNAME$ 240 LOCATE 12, 50: INPUT CLASS$ 250 LOCATE 14, 50: INPUT EDP! 260 LOCATE 16, 50: INPUT BAS! 270 GOTO 110 280 IF F = 0 THEN PRINT "Record not found" 290 CLOSE #1, #2 300 IF E = 1 THEN 330 310 KILL "MKS.DAT" 320 NAME "NEWFILE.DAT" AS "MKS.DAT" 330 END . Execution Output: (Display screen after some output and input) PRESENT RECORD TYPE NEW RECORD HERE ```````````````````````````````````````````````````````````````````````````````` STUDENT CODE : XYZ90-123 XYZ90-123 ```````````````````````````````````````````````````````````````````````````````` STUDENT NAME : Some Name Updated Name ```````````````````````````````````````````````````````````````````````````````` CLASS : XX9 ? ```````````````````````````````````````````````````````````````````````````````` MARKS IN EDP : 80 ```````````````````````````````````````````````````````````````````````````````` MARKS IN BASIC : 90 ```````````````````````````````````````````````````````````````````````````````` .       Something else is also special about this program written in GW-Basic which I am not going to write here, at least now, and I do not know in future I will write or not. And if there are any typing mistakes then I will surely remove them when ever found.