# "@(#)pmfd	6.1	1/6/87"
hex
eval y=46000001
eval x=1
if true
do
 echoln 'Insert cleaning diskette into floppy drive'
 echo   'Hit return to continue ...'
 read z
 adev 1
 repeat
  memw 3c0c0 0
  memw 3c0c4 00100000
  memw 3c0c8 01000000
  memw 3c0cc x<<8||y
  eval x=rand+1>>16%4c
  iowr 01000000 86000000
  wint 1
 until (!lden)
 rdev
done
fi
