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