Digital Retro Art: 10.000 lines of randomness, made 100% in Comal

Channel:

RetroComputing with Mike

Subscribers:

2,180

Published on June 9, 2021 8:19:18 PM ● Video Link: https://www.youtube.com/watch?v=4P0FQdAvd0o

Duration: 2:26

177 views

14

This might be a bit stupid, you have been warned.
.
.
.
.
.
.
.
.
Source code:

0010 PAGE
0020 PRINT ""
0030 PRINT ""
0040 PRINT ""
0050 PRINT " Welcome to my channel"
0060 PRINT ""
0070 PRINT " This is art, made by me!"
0080 PRINT ""
0090 PRINT " I call this: 10.000 lines of randomness"
0100 PRINT ""
0110 PRINT " Please watch until the end!"
0120 INPUT "": a$
0130 USE graphics
0140 USE sound
0150 graphicscreen(4)
0160 window(0,100,0,100)
0170 PROC line(x1,y1,x2,y2)
0180 moveto(x1,y1)
0190 drawto(x2,y2)
0200 ENDPROC line
0210 FOR i:=1 TO 1000 DO
0220 pencolor(INT(RND*16))
0230 FOR i:=1 TO 10 DO
0240 line(INT(RND*100),INT(RND*100),INT(RND*100),INT(RND*100))
0250 ENDFOR i
0260 play_note(CHR$(65+INT(RND*7))+"5",0.1)
0270 ENDFOR i
0280 FOR i:=1 TO 10 DO
0290 play_note("C3",0.1)
0300 play_note("e3",0.1)
0310 ENDFOR i
0320 PAGE
0330 PRINT ""
0340 PRINT ""
0350 PRINT ""
0360 PRINT "Thanks for watching!"
0370 PRINT ""
0380 PRINT "Don't forget to like and subscribe for more stupid sh*t like this!"
0390 PRINT ""
0400 PRINT "And then i guess i'll see you out there,in the dark corners of the"
0410 PRINT " of the interwebs"
0420 PRINT ""
0430 PRINT ""
0440 PRINT "ps. this is the first ever YouTube video made 100% in Comal"
0450 INPUT "": a$
0460 PAGE
0470 PRINT ""
0480 PRINT ""
0490 PRINT ""
0500 PRINT ""
0510 PRINT ""
0520 PRINT "I am so sorry for wasting your time, please complain in the comments"
0530 INPUT "": a$