8-Bit Software Online Conversion

Shapes - Listing

2*FX18 4*FX229,1 10 MODE2 12VDU23,1,0;0;0;0; 20PLOT4,500,500 30REPEAT 40TIME=0 50REPEAT 60 GCOL0,RND(8)-1 70C%=RND(1200) 80D%=RND(1200) 90E%=RND(1000) 100F%=RND(1000) 110 PLOT4,C%,E% 120 PLOT85,D%,F% 130 UNTILTIME>60*60 140TIME=0 150REPEAT 160 GCOL0,RND(8)-1 170C%=RND(1200) 180D%=RND(1200) 190E%=RND(1000) 200F%=RND(1000) 210 VDU25,4,C%;E%;25,4,D%;F%;25,81,C%- D%;0;25,4,C%;E%;25,4,D%;F%;25,81,0;E%-F% ; 220 UNTILTIME>60*60 230UNTILFALSE