QBasic convert to VB.NET or C# 3

[Serhiy79]

Hi guys!!! I trying to write some program and
I need to convert this code (for my project), is somebody can help me?

10 OPEN "COM1:9600, E, 7, 2, CS, DS, CD" as #1
20 PRINT #1,"P3";
30 N=240
40 H=95
50 IF N<=H THEN 90
60 PRINT #1,"F+" + STR$(H): N=N-H
70 PRINT #1,"F?": GOSUB 140: H=95-W
80 GOTO 50
90 PRINT #1,"F+" + STR$(H)
100 PRINT #1,"F?": GOSUB 140
110 IF W>0 THEN 100
120 PRINT #1,"R3";
130 END
140 IF LOC(1)=0 THEN 140 ELSE W$=INPUT$(LOC(1),#1)
150 W=ASC(W$)-32
160 RETURN

Thanks !!!

 

[Alt255]

Portions of the code appear to be flawed. Is this a school project?

Add water (makes its own sauce).

 

[Serhiy79]

Alt225
Yes, this is a part of school project. I have to write program for robot.
Most confuse me, and probably most important is line 140.
Could you help me , please?

 

[Alt255]

I assume your teacher gave you the preceding code snippet so you could understand the underlying concepts. First, make a serious attempt to understand what the code is intended to accomplish (that includes line 140). Then start writing your project in VB.NET or C#. If you run into problems that you cannot solve, post your question in the VB.NET or C# forums and a member may help you find a solution (note: I did not say "GIVE you a solution"). Any more assistance from me, at this point, would inhibit the learning process. (Learning is methodical. You must accomplish each step using your own resources, intuition and intellect.) Good luck!

Add water (makes its own sauce).

 

[Serhiy79]

I did research and got knowledge (QBasic). I believe, that I am on the right track.
Anyway, thanks for your time