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:
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.
Since the video was a bit unclear this is what I could read from it:
Code:
470 C+RND16+I|X=RND1639 | Y=RND|199
480 LINE(320,100)-(X,Y),PSET,C| LINE(320,100)-(X,Y),PSET,O
490 NEXT I
500 NEXT Z
510 FOR Z=1 TO 5
520 '|||||<< BOX-Z >>|||||
530 FOR I=0 TO 50
540 J=I+2,C+(C+I)MOD8
550 LINE(319-J,99-I)-(320+J,100+I),PSET,C,D
560 NEXT I
570 NEXT Z
580 '|||||<< BOX-Z >>|||||
590 FOR SS=1 TO 1000 STEP 10
600 FOR I=0 TO 310 STEP SS
610 J=I/3,3|C=(C+I)MOD7
620 LINE(319-I,99-J)-(320+I,100+J),PSET,C,D
630 NEXT I
640 NEXT SS
650 '|||||<< BOX-Z >>|||||
660 FOR I=0 TO 100
670 J=I/3,3
680 LINE(319-I,99-J)-(320+I,100+J),PSET,O,D
690 NEXT I
700 '|||||<< FLASH-3 >>|||||
710 FOR J=1 TO 100 | C=RND16+I
720 CONNECT(320,90)-(318,99)-(300,100)-(318,101)-(320,110)-(322,101)-322,101)-(340,100)-(322,99)-(320,90),C
730 NEXT J
740 FOR I=101 TO 319
750 J=I/3,3
760 LINE(319-I,99-J)-(320+I,100+J),PSET,O,D
770 NEXT I
780 '|||||<< FLASH-3>>|||||
790 FOR J=1 TO 100 | C=RND16+I
800 CONNECT(320,90)-(318,99)-(300,100)-(318,101)-(320,110)-(322,101)(340,100)-(322,99)-(320,90),C
810 NEXT J
820 '|||||<< STAR-3 >>|||||
830 FOR J=1 to 100
840 I=3,2|J
850 C=RND16+I
860 X1=(320-I)+RND|I| X2+RND|I+319
870 Y1=(100+J)+RND|J|Y2+RND|J+99
880 PSET(X1,Y1,C)|PSET(X2,Y2,C)|PSET(X1,Y2,C)|PSET(X2,Y1,C)
890 NEXT J
900 GOTO 400It would be awesome if someone who knows the language well could help me fix this.
Thanks.
