' {$STAMP BS2e} ' {$PBASIC 2.5} W1=250 DO OUTS = %11110 DIRS = %00011 PAUSE W1 DIRS = 0 OUTS = %11110 DIRS = %00101 PAUSE W1 DIRS = 0 OUTS = %11110 DIRS = %01001 PAUSE W1 DIRS = 0 OUTS = %11110 DIRS = %10001 PAUSE W1 DIRS = 0 OUTS = %11101 DIRS = %00110 PAUSE W1 OUTS = %11011 PAUSE W1 DIRS = 0 OUTS = %01111 DIRS = %10001 PAUSE W1 DIRS = 0 OUTS = %10111 DIRS = %01001 PAUSE W1 DIRS = 0 OUTS = %11011 DIRS = %00101 PAUSE W1 DIRS = 0 OUTS = %11101 DIRS = %00011 PAUSE W1 DIRS = 0 OUTS = %11101 DIRS = %01010 PAUSE W1 DIRS = 0 OUTS = %11101 DIRS = %10010 PAUSE W1 DIRS = 0 OUTS = %11011 DIRS = %01100 PAUSE W1 DIRS = 0 OUTS = %11011 DIRS = %10100 PAUSE W1 DIRS = 0 OUTS = %10111 DIRS = %11000 PAUSE W1 DIRS = 0 OUTS = %01111 DIRS = %11000 PAUSE W1 DIRS = 0 OUTS = %01111 DIRS = %10100 PAUSE W1 DIRS = 0 OUTS = %10111 DIRS = %01100 PAUSE W1 DIRS = 0 OUTS = %01111 DIRS = %10010 PAUSE W1 DIRS = 0 OUTS = %10111 DIRS = %01010 PAUSE W1 DIRS = 0 LOOP