Slash Program

CRT @(-1):
XMAX = SYSTEM(2)-2; YMAX = SYSTEM(3)-2; X=RND(XMAX)+1;Y=RND(YMAX)+1;DIR=RND(4)+1
MAXCNT = SYSTEM(2) * SYSTEM(3)
CNT=0; START=TIME(); CRT @(-1):
LOOP
  CNT+=1
UNTIL CNT > MAXCNT DO
  SPOT="/\/\"[DIR,1]; CRT @(X,Y):SPOT:
  BEGIN CASE
  CASE DIR=1; X+=1; Y-=1
    IF Y<1 THEN DIR=2
    IF X>XMAX THEN DIR=4
  CASE DIR=2; X+=1; Y+=1
    IF Y>YMAX THEN DIR=1
    IF X>XMAX THEN DIR=3
  CASE DIR=3; X-=1; Y+=1
    IF X<2 THEN DIR=2
    IF Y>YMAX THEN DIR=4
  CASE DIR=4; X-=1; Y-=1
    IF X<2 THEN DIR=1
    IF Y<1 THEN DIR=3
  END CASE
REPEAT
CRT @(0,YMAX):TIME()-START:" seconds."