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