Visual Basic 1 code?

[stefan bauwens]

Hi, I'm completely new to visual basic, and for a contest I'm competing in I had to take a piece of code shown in a video.
Since the video was a bit unclear this is what I could read from it:

*snip*
Removed so that other people competing in the contest may not find this code. I'd PM it to you though.

I first though it was SINCLAIR basic, but someone said it looked more like Visual Basic. The video is from 1992, so I'm guessing Visual Basic 1 or so. Anyway, some characters were quite unclear so I may have been mistaken with several( like | for example).

It would be awesome if someone who knows the language well could help me fix this.

Thanks.

[dilettante]

It doesn't look like any version of Visual Basic.

[jggtz]

QBasic
... and the lines that begin with '|||||<< .... are comments

[dilettante]

I don't recall any CONNECT statement in QBasic. The PSET usage looks entirely different too.

[Niya]

I think you copied that code wrong. I can't get it to run in Quick Basic Extended.

[szlamany]

MSX Basic?

http://en.wikipedia.org/wiki/MSX_BASIC

nvm - that's not it - sorry...

[Nightwalker83]

I would say QBasic too but then a lot of older languages look the same too me! Maybe you will be able to find it here.

[ladoo]

wud have been better if u provided video link for all

[stefan bauwens]

Thanks for the replies. If this is QBasic, I'm pretty sure it won't work because it definitely will have mistakes, since some characters were so blurry and unrecognizable to me.
Anyway, here's the video. The code is only seen in a short period of time(9:45-9:53): http://www.youtube.com/watch?v=G4wIi_Y3qnY
I downloaded a better quality video, but still it was hard to see. :/

[Nightwalker83]

What makes you think the code does anything useful anyway? Seeing as the code wasn't the point of the video. Why do you need to know what language was used?

[stefan bauwens]

It's for a contest I'm in. The organizers have done it themselves so it for sure does something. However they do mention that a piece at the beginning is missing. A part of the contest is also to fix the code.
Also, I think it may be this computer that was used: http://s15.postimg.org/rima2l2a3/Picture_5.png
However, I've looked a bit but haven't found it's name. It looks a bit like an IBM PC. Maybe one of you guys know?

Thanks

[DataMiser]

I don't recall any CONNECT statement in QBasic. The PSET usage looks entirely different too.

Same here I've used a lot of different basic versions including QBasic and Quick Basic and never saw a Connect statement before
also this looks rather odd

860		 X1=(320-I)+RND|I| X2+RND|I+319

I do not know if those pipe characters are supposed to be something else or what but that does not look like any valid syntax from any version of Basic I have used.


From the looks of that old PC it was probably running Dos and probably had Basic and BasicA on it.

I have used those as well but the code does not look valid for those either.

[Niya]

I cut my teeth on the IBM PC with BasicA, it didn't use pipes like that.

[jggtz]

I didn't see the whole code but...
'Connect' could be a Declared Sub... we could do it in QBasic
and about

X1=(320-I)+RND|I| X2+RND|I+319

IMO some of the multiline character | must be / or :
remember that the OP said

it definitely will have mistakes, since some characters were so blurry and unrecognizable to me.

[stefan bauwens]

Yes, the pipe symbol I was the most unsure of.
Here's a picture of the specific line of code out of the video:


EDIT: Someone competing in the contest found the code and notified me. I removed it now since otherwise I may ruin the contest for some. But I will PM the code to you if you want.

Thanks for all the effort you guys are doing btw.

[Floris497]

Yes, the pipe symbol I was the most unsure of.
Here's a picture of the specific line of code out of the video:


EDIT: Someone competing in the contest found the code and notified me. I removed it now since otherwise I may ruin the contest for some. But I will PM the code to you if you want.

Thanks for all the effort you guys are doing btw.

i think it is an ":" not sure.
EDIT:
this is how i interpreted the code:
looks like i cant delete the picture. any help? EDIT: found it
the part of the picture is that it cant be found with google.

[Floris497]

i think the | is an :

[Niya]

i think the | is an :

I tried that already. It makes a little more sense but that still didn't make it compilable. I think he got a few other things wrong besides the pipes.

[Floris497]

i don't know how this forum works how to PM my code, it's a little different.

[Niya]

You should be able to add it as an attachment. You have to use the advance editor to attach files your post.

[Floris497]

i can do that. but see the first post again. he is talking about me.

[stefan bauwens]

Here's a bigger code segment: http://s7.postimg.org/72pyyf3hn/Picture_7.png

[Niya]

Here's a bigger code segment: http://s7.postimg.org/72pyyf3hn/Picture_7.png

That really does look like BasicA. Though I don't remember it having a CONNECT function. From what I can see, CONNECT looks like it does something with the points that are used to draw lines.

Its really hard to make out some details of what is written from the pic though.

[Niya]

i think it is an ":" not sure.

this is how i interpreted the code:
Attachment 100435

How'd you get that ?

[Floris497]

How'd you get that ?

typed it over.

[Doogle]

Looking at line 720 and assuming that 'CONNECT' connects all the points (x,y) - (x1,y1) etc

Private Sub cmdDraw_Click()
pic.ScaleMode = 3
pic.Width = 12000
pic.Height = 4700
pic.Line (320, 90)-(310, 99)
pic.Line (310, 99)-(300, 100)
pic.Line (300, 100)-(310, 101)
pic.Line (310, 101)-(320, 110)
pic.Line (320, 110)-(322, 101)
pic.Line (322, 101)-(340, 100)
pic.Line (340, 100)-(322, 99)
pic.Line (322, 99)-(320, 90)
End Sub

creates an interesting shape in the PictureBox 'pic'. I'm guessing that the 'J' loop and 'C=RND16+1' is to change the Colour

[Niya]

Looking at line 720 and assuming that 'CONNECT' connects all the points (x,y) - (x1,y1) etc

Private Sub cmdDraw_Click()
pic.ScaleMode = 3
pic.Width = 12000
pic.Height = 4700
pic.Line (320, 90)-(310, 99)
pic.Line (310, 99)-(300, 100)
pic.Line (300, 100)-(310, 101)
pic.Line (310, 101)-(320, 110)
pic.Line (320, 110)-(322, 101)
pic.Line (322, 101)-(340, 100)
pic.Line (340, 100)-(322, 99)
pic.Line (322, 99)-(320, 90)
End Sub

creates an interesting shape in the PictureBox 'pic'. I'm guessing that the 'J' loop and 'C=RND16+1' is to change the Colour

Yea, it does:-

[Nightwalker83]

@Niya,

That looks like a joust (or whatever its called) used in the sport of the same name.

[Niya]

Joust is the name of the sport, the instrument used is called a lance.

[RobDog888]

This takes me waaay back lol. Yea teh | looks like a :
When I get home from work I am gonna see if my old QBasic code on some floppies still read lol

[Jacob Roman]

Are you sure its not Apple][c BASIC or Amiga BASIC? If QBasic doesnt have the Connect statement, one of the 2 languages I mentioned might. I used them both before. It sounds familiar

[Doogle]

For what it's worth, my interpretation of lines 830 to 890 in VB:

'
' All variables defined as Single except 'C' which is Long
'
For J = 1 To 100
    I = 3.2 * J
    'C = Rnd * 16 + 1
    C = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
    X1 = (320 - I) + Rnd * I
    X2 = Rnd * I + 319
    Y1 = (100 - J) + Rnd * J
    Y2 = Rnd * J + 99
    pic.PSet (X1, Y1), C
    pic.PSet (X2, Y2), C
    pic.PSet (X1, Y2), C
    pic.PSet (X2, Y1), C
Next J

which creates something that looks lke an 'explosion' of 'dots' centred on the 'handle' of the 'Lance'. (i.e. The density of the dots decreases as the distance from the 'handle' increases.)

[jggtz]

In QBasic we could declare a sub
What if we name it 'Connect' and write the code that Doogle posted? and simply called it

[stefan bauwens]

Can BasicA also have subroutines?

And thanks for all the effort guys.
Also Floris, shouldn't you take that picture down?

[Jacob Roman]

That font definitely reminds me of Apple][c BASIC, you guys sure you got the "Basics" right?

[stefan bauwens]

No, actually we're not sure. But since the only BASIC I know is TI-Basic, I don't know.

[Floris497]

it must run on an computer that was at the studio of dragonbal z in 1992

if you want to see the code i can PM it

[DataMiser]

Can BasicA also have subroutines?

I don't think so at least not in the fashion of a named sub

BasicA needed to make use of the GoSub Return methods to execute a sub procedure and the sub procedure was identified by the line number rather than a name.

[stefan bauwens]

Yea, it does:-

It's a star stretched out.

[Floris497]

thats interesting, what kind of basic did you use for that? the code said ### STAR ### so that can be true.