Read(RPICNAME,8,1,RPICSLOT)

		Output(2,2,"8")

		If not([Med]LPICNAME,RPICNAME
			Close(RPICSLOT
			Output(2,2,"9")
			Pause
			Goto WRONGPIC
		End

		Output(2,2,"10")